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

Diff of /users/chema/TINE/missions/mission10.s

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

revision 368 by Chema, Sun Jul 25 22:01:01 2010 UTC revision 369 by Chema, Mon Jul 26 11:15:13 2010 UTC
# Line 60  CheckSuccess Line 60  CheckSuccess
60          cmp #THISMISSION+2          cmp #THISMISSION+2
61          bne no          bne no
62          cpx idConstrictor          cpx idConstrictor
63          beq yes          bne no
 no  
         clc  
         rts  
64  yes  yes
65          inc _mission              inc _mission    
66    +no
67          clc          clc
68          rts          rts
69  .)  .)
# Line 75  POS1 Line 73  POS1
73          .word 4000          .word 4000
74          .word -4000          .word -4000
75    
 retme  
         clc  
         rts  
76    
77  CheckConstrictor  CheckConstrictor
78  .(  .(
79    
80          lda _galaxynum          lda _galaxynum
81          cmp #5          cmp #5
82          bne retme          bne no
83    
84          lda _currentplanet          lda _currentplanet
85          cmp #111          cmp #111
86          bne retme          bne no
87    
88          lda #<POS1          lda #<POS1
89          ldx #>POS1          ldx #>POS1
# Line 113  CheckConstrictor Line 108  CheckConstrictor
108          lda #FLG_HARD          lda #FLG_HARD
109          sta _flags,x          sta _flags,x
110    
111          ; Should add missiles (tharglets) here. Maybe depending on environment stats.          ; Should add missiles here
112          lda #%10          lda #%10
113          ora _missiles,x          ora _missiles,x
114          sta _missiles,x          sta _missiles,x
# Line 127  end Line 122  end
122    
123  str_rumlo4      .byt <str_Summary0,<str_Summary1,<str_Summary2  str_rumlo4      .byt <str_Summary0,<str_Summary1,<str_Summary2
124  str_rumhi4      .byt >str_Summary0,>str_Summary1,>str_Summary2  str_rumhi4      .byt >str_Summary0,>str_Summary1,>str_Summary2
125  str_rumlo5      .byt <str_Summary4,<str_Summary5,<str_Summary6,<str_Summary7,<str_Summary8  str_rumlo5      .byt <str_Summary9,<str_Summary4,<str_Summary5,<str_Summary6,<str_Summary7,<str_Summary8
126  str_rumhi5      .byt >str_Summary4,>str_Summary5,>str_Summary6,>str_Summary7,>str_Summary8  str_rumhi5      .byt >str_Summary9,>str_Summary4,>str_Summary5,>str_Summary6,>str_Summary7,>str_Summary8
127  pnum4           .byt 114,13,29  pnum4           .byt 114,13,29
128  pnum5           .byt 18,186,222,183,111  pnum5           .byt 29,18,186,222,183,111
129    
130  SetMissionText  SetMissionText
131  .(  .(
# Line 157  found Line 152  found
152  .)  .)
153  gal5  gal5
154  .(  .(
155          ldx #4          ldx #5
156          lda _currentplanet          lda _currentplanet
157  loop  loop
158          cmp pnum5,x          cmp pnum5,x
# Line 181  hint Line 176  hint
176  .(  .(
177      jsr IndRnd      jsr IndRnd
178      cmp #20      cmp #20
179      bcc doit      bcs dontdoit
     clc  
     rts  
180  doit  doit
181          lda #<str_Summary3          lda #<str_Summary3
182          sta MissionSummary          sta MissionSummary
183          lda #>str_Summary3          lda #>str_Summary3
184          sta MissionSummary+1          sta MissionSummary+1
185    dontdoit
186          clc          clc
187          rts          rts
188  .)  .)
# Line 214  dolaunch Line 208  dolaunch
208          ; Galaxy must be 4          ; Galaxy must be 4
209          lda _galaxynum          lda _galaxynum
210          cmp #4          cmp #4
211          bne end          bne nothing
212    
213          lda _currentplanet          lda _currentplanet
214          cmp #114          cmp #114
215          beq end          beq nothing
216    
217          jsr IndRnd          jsr IndRnd
218          cmp #50          cmp #50
219          bcs end          bcs nothing
220    
221          ; Launch          ; Launch
222          inc _mission          inc _mission
# Line 234  dolaunch Line 228  dolaunch
228          sta TXTPTRHI          sta TXTPTRHI
229          sec          sec
230          rts          rts
 end  
         clc  
         rts  
   
231  .)  .)
232    
233  SuccessMsg  SuccessMsg
# Line 327  str_MissionDebrief Line 317  str_MissionDebrief
317    
318    
319  str_Summary0  str_Summary0
 ;       .byt 2  
 ;       .asc "Naval info:"  
 ;       .byt 13  
320          .byt 2          .byt 2
321          .asc "The Constrictor was last seen at"          .asc "The Constrictor was last seen at"
322          .byt 13          .byt 13
# Line 338  str_Summary0 Line 325  str_Summary0
325          .byt 0          .byt 0
326    
327  str_Summary1  str_Summary1
 ;       .byt 2  
 ;       .asc "Local Rumours:"  
 ;       .byt 13  
328          .byt 2          .byt 2
329          .asc "A strange looking ship left here a"          .asc "A strange looking ship left here a"
330          .byt 13          .byt 13
331          .byt 2          .byt 2
332          .asc "while back. Looked bound for Veteerza."          .asc "while back. Looked bound for Veteerza."
333          .byt 0          .byt 0
 #ifdef 0  
 str_Summary2  
 ;       .byt 2  
 ;       .asc "Local Rumours:"  
 ;       .byt 13  
         .byt 2  
         .asc "Yep, an unusual new ship had a"  
         .byt 13  
         .byt 2  
         .asc "Galactic Hyperdrive fitted here,"  
         .byt 13  
         .byt 2  
         .asc "used it too."  
         .byt 0  
 #endif  
334    
335  str_Summary2  str_Summary2
 ;       .byt 2  
 ;       .asc "Local Rumours:"  
 ;       .byt 13  
336          .byt 2          .byt 2
337          .asc "Yep, an unusual new ship just"          .asc "Yep, an unusual new ship just"
338          .byt 13          .byt 13
339          .byt 2          .byt 2
340          .asc "jumped to galaxy five."          .asc "jumped to galaxy 5."
341          .byt 0          .byt 0
342    
343    
344  str_Summary3  str_Summary3
 ;       .byt 2  
 ;       .asc "Local Rumours:"  
 ;       .byt 13  
345          .byt 2          .byt 2
346          .asc "I hear a weird looking ship was"          .asc "I hear a weird looking ship was"
347          .byt 13          .byt 13
# Line 387  str_Summary3 Line 350  str_Summary3
350          .byt 0          .byt 0
351    
352  str_Summary4  str_Summary4
 ;       .byt 2  
 ;       .asc "Local Rumours:"  
 ;       .byt 13  
353          .byt 2          .byt 2
354          .asc "This strange ship dehyped here and"          .asc "This strange ship dehyped here and"
355          .byt 13          .byt 13
# Line 401  str_Summary4 Line 361  str_Summary4
361          .byt 0          .byt 0
362    
363  str_Summary5  str_Summary5
 ;       .byt 2  
 ;       .asc "Local Rumours:"  
 ;       .byt 13  
364          .byt 2          .byt 2
365          .asc "Rogue ship went for me at Veedri."          .asc "Rogue ship went for me at Veedri."
366          .byt 13          .byt 13
# Line 415  str_Summary5 Line 372  str_Summary5
372          .byt 0          .byt 0
373    
374  str_Summary6  str_Summary6
 ;       .byt 2  
 ;       .asc "Local Rumours:"  
 ;       .byt 13  
375          .byt 2          .byt 2
376          .asc "Oh dear me yes. A frightful rogue"          .asc "Oh dear me yes. A frightful rogue"
377          .byt 13          .byt 13
# Line 429  str_Summary6 Line 383  str_Summary6
383          .byt 0          .byt 0
384    
385  str_Summary7  str_Summary7
 ;       .byt 2  
 ;       .asc "Local Rumours:"  
 ;       .byt 13  
386          .byt 2          .byt 2
387          .asc "You can tackle the vicious scoundrel"          .asc "You can tackle the vicious scoundrel"
388          .byt 13          .byt 13
# Line 440  str_Summary7 Line 391  str_Summary7
391          .byt 0          .byt 0
392    
393  str_Summary8  str_Summary8
 ;       .byt 2  
 ;       .asc "Local Rumours:"  
 ;       .byt 13  
394          .byt 2          .byt 2
395          .asc "There's a real deadly pirate"          .asc "There's a real deadly pirate"
396          .byt 13          .byt 13
397          .byt 2          .byt 2
398          .asc " out there!"          .asc "out there!"
399          .byt 0          .byt 0
400    
401  str_Summary9  str_Summary9
402  ;       .byt 2          .byt 2
403  ;       .asc "Local Rumours:"          .asc "The ship entered this galaxy here."
404  ;       .byt 13          .byt 0
 ;       .byt 2  
 ;       .asc "Boy are you in the wrong galaxy!"  
 ;       .byt 0  
   
405    
406    
407  str_Summary  str_Summary

Legend:
Removed from v.368  
changed lines
  Added in v.369

  ViewVC Help
Powered by ViewVC 1.1.26