/[projet1]/users/chema/TINE/universe.s
Defence Force logotype

Diff of /users/chema/TINE/universe.s

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 180 by Chema, Fri Dec 25 20:35:22 2009 UTC revision 181 by Chema, Sun Dec 27 21:17:04 2009 UTC
# Line 318  random_encounter Line 318  random_encounter
318  .(  .(
319                  ; If already too many objects, return                  ; If already too many objects, return
320                  lda NUMOBJS                  lda NUMOBJS
321                  cmp #12                  cmp #10;12
322                  bcc cont1                  bcc cont1
323                  rts                  rts
324  cont1  cont1
# Line 328  cont1 Line 328  cont1
328    
329                  ; If near the planet, then return                  ; If near the planet, then return
330                  lda _planet_dist                  lda _planet_dist
331                  cmp #10                  cmp #PDIST_DOCK
332                  bcs cont                  bcs cont
333                  rts                  rts
334  cont  cont
# Line 506  create_trader Line 506  create_trader
506  noecm  noecm
507                  lda #FLG_INNOCENT                  lda #FLG_INNOCENT
508                  sta _flags,x                  sta _flags,x
509                    
510                    lda _ai_state,x
511                    ora #FLG_TRADER
512                    sta _ai_state,x
513    
514                  jmp set_speed_and_target                  jmp set_speed_and_target
515  end  end
516                  rts                  rts
# Line 651  check_for_others Line 656  check_for_others
656    
657          jsr _gen_rnd_number          jsr _gen_rnd_number
658          ;lda _rnd_seed+2          ;lda _rnd_seed+2
659          cmp #$90          cmp #90
660          bcc doit          bcc doit
661          rts          rts
662  doit  doit
         lda _cpl_system+GOVTYPE  
         beq pirates  
         sta tmp  
663          lda _rnd_seed          lda _rnd_seed
664          and #7          and #7
665            sta tmp
666            lda _cpl_system+GOVTYPE
667          cmp tmp          cmp tmp
668          bcc nopirates          bcs nopirates ; govtype >= rnd &7  then no pirates
669    
670  pirates  pirates
671          ; Generate pirates          ; Generate pirates
# Line 669  pirates Line 673  pirates
673    
674  nopirates  nopirates
675          lda _rnd_seed          lda _rnd_seed
         ;and #%10000000  
         ;bne shuttle  
676          bmi shuttle          bmi shuttle
677          ; Gererate Bounty Hunter          ; Gererate Bounty Hunter
678          jmp generate_bounty          jmp generate_bounty
# Line 697  cont Line 699  cont
699          sta _ai_state,x          sta _ai_state,x
700    
701          ; Assign target          ; Assign target
702          lda #1|IS_ANGRY          stx savx+1
703            ldx NUMOBJS
704            dex
705    loop
706            cpx savx+1
707            beq next
708            lda _ai_state,x
709            and #%01111111
710            sta tmp+1
711            lda _rnd_seed+1
712            ora _rnd_seed+2
713            ;ora _rnd_seed+3
714            and tmp+1
715            bne chosen
716    next
717            dex
718            bne loop
719            ; Nothing chosen, track the player
720            ldx #1
721    chosen
722            txa
723    savx
724            ldx #0 ; SMC
725            ora #IS_AICONTROLED
726          sta _target,x          sta _target,x
727    
728          jmp set_boldness          jmp set_boldness
# Line 776  correct2 Line 801  correct2
801          rts          rts
802  .)  .)
803    
804    eq_tmp .byt 0
805    
806  gen_ship_equipment  gen_ship_equipment
807  .(  .(
808            lda #0
809            sta eq_tmp
810    
811          ; Must preserve reg X!!!          ; Must preserve reg X!!!
812          stx savx+1          stx savx+1
813    
814          ; What is to be added here? Maybe ECM          ; What is to be added here? Maybe ECM
815            lda _score+1
816            bne nocheckscore
817        lda _score
818        cmp _rnd_seed+2
819            bcc noecm
820    nocheckscore
821          lda _rnd_seed+3          lda _rnd_seed+3
822          bpl noecm          bpl noecm
   
823          lda #(HAS_ECM)  ; Cloaking?          lda #(HAS_ECM)  ; Cloaking?
824      jsr SetShipEquip          sta eq_tmp
825  noecm  noecm
826            ; And escape pod
827            lda _rnd_seed+1
828            bpl nopod
829            lda eq_tmp
830            ora #(HAS_ESCAPEPOD)
831            sta eq_tmp
832    nopod
833    
834            ; Equip with selected items
835            lda eq_tmp
836        jsr SetShipEquip
837  savx  savx
838          ldx #0 ; SMC          ldx #0 ; SMC
839          rts          rts
# Line 844  create_other_ship Line 889  create_other_ship
889    
890          ; Generate new ship a bit far away          ; Generate new ship a bit far away
891          lda _PosX+1          lda _PosX+1
892          eor #$17          eor #%1111; $17
893          sta _PosX+1          sta _PosX+1
894    
895          lda _PosY+1          lda _PosY+1
896          eor #$17          eor #%1111;$17
897          sta _PosY+1          sta _PosY+1
898    
899          lda _PosZ+1          lda _PosZ+1
900          eor #$17          eor #%1111;$17
901          sta _PosZ+1          sta _PosZ+1
902    
903          lda _rnd_seed+1          lda _rnd_seed+1

Legend:
Removed from v.180  
changed lines
  Added in v.181

  ViewVC Help
Powered by ViewVC 1.1.26