/[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 176 by Chema, Sun Dec 20 21:03:48 2009 UTC revision 177 by Chema, Tue Dec 22 19:21:26 2009 UTC
# Line 151  moonsdone Line 151  moonsdone
151          sta message_delay          sta message_delay
152    
153      ;jsr _InitTestCode      ;jsr _InitTestCode
154    
155            jsr set_planet_distance
156    
157          jmp random_encounter          jmp random_encounter
158      ;rts      ;rts
159  .)  .)
# Line 394  nocloack Line 397  nocloack
397                  cpx #0                  cpx #0
398                  beq end ; Could not create ship                  beq end ; Could not create ship
399    
400                    lda #(HAS_ECM)  ; Cloaking?
401                    jsr SetShipEquip
402    
403                  lda #(IS_AICONTROLED)                  lda #(IS_AICONTROLED)
404                  sta _ai_state,x                  sta _ai_state,x
405                  jsr set_boldness                  jsr set_boldness
406    
                 lda #(HAS_ECM)  ; Cloaking?  
                 jsr SetShipEquip  
   
407                  jmp set_speed_and_target                  jmp set_speed_and_target
408                    
409  end  end
# Line 415  create_thargoid Line 418  create_thargoid
418  .(  .(
419                  ; No more than 4 Thargoids, please                  ; No more than 4 Thargoids, please
420                  lda thargoid_counter                  lda thargoid_counter
421                  cmp #5                                    cmp #4                  
422                  bcs end                  bcs end
423                  lda #SHIP_THARGOID                  lda #SHIP_THARGOID
424                  jsr create_other_ship                  jsr create_other_ship
# Line 426  create_thargoid Line 429  create_thargoid
429                  ora #IS_ANGRY ; set angry flag                  ora #IS_ANGRY ; set angry flag
430                  sta _target,x                  sta _target,x
431    
432                    
433                    lda #(HAS_ECM)
434                    jsr SetShipEquip
435    
436                  lda #(IS_AICONTROLED)                  lda #(IS_AICONTROLED)
437                  sta _ai_state,x                  sta _ai_state,x
438                  jsr set_boldness                  jsr set_boldness
439    
440                  ; Should add missiles (tharglets) here. Maybe depending on environment stats.                  ; Should add missiles (tharglets) here. Maybe depending on environment stats.
441                  lda _missiles,x                  ;lda _missiles,x
442                  ora #%10                  ;ora #%10
443                    stx savx+1
444                    jsr _gen_rnd_number
445                    and #%11
446    savx    ldx #0 ;SMC
447                  sta _missiles,x                  sta _missiles,x
448    
                 lda #(HAS_ECM)  
                 jsr SetShipEquip  
   
449                  ; note that there are thargoids on system                  ; note that there are thargoids on system
450                  inc thargoid_counter                  inc thargoid_counter
451  end  end

Legend:
Removed from v.176  
changed lines
  Added in v.177

  ViewVC Help
Powered by ViewVC 1.1.26