0 CLS 
  
1 GELLOAD "logo","tank.bmp" 
  
2  DRAWGEL "logo",0 ,0 
  
3  IF FIRE(0 )<>0  THEN GOTO 6 
  5    
4  IF GAMEA(0 )<>0 THEN STOP 
  1   
5  GOTO 2 
         5   1 () 
6  L%=10 :AS%=0 
: 10 :  5 
10  X%=66 :Y%=150 
   (   - 24624) 
15  VX%=X%+5:VY%=Y% 
 ()   
20  A1 X%=5 :A1 Y%=5 
   
25  A2 X%=10 :A2 Y%=30 
 
30  A3 X%=120 :A3 Y%=120 
 
35  A4 X%=0 :A4 Y%=150 
  
40REM "gelload" 
   
45 GELLOAD "k","tank.bmp" 
50  GELLOAD "v","res/game/v1.b mp" 
55  GELLOAD "a1","der.bmp" 
60  GELLOAD "a2","kam.bmp" 
65  GELLOAD "a3","sam.bmp" 
70  GELLOAD "a4 ","tank2 .bmp""tank2.bmp" 
75 REM "sprite" 
    
80 SPRITEGEL "k","k" 
85 SPRITEGEL "v","v" 
90  SPRITEGEL "a1 ","a1" 
95  SPRITEGEL "a2 ","a2" 
100  SPRITEGEL "a3 ","a3" 
105  SPRITEGEL "a4 ","a4" 
110 REM "fon" 
115  SETCOLOR 0 ,145 ,0 
   
120  FILLRECT 0 ,0 ,132 ,160 
122  SLEEP 1 
125  SETCOLOR 0 ,0 ,255 
     
130  FILLRECT 0 ,159 ,132 , 17659 ,132 ,176 
135  SETCOLOR 255 ,255 ,255 
140 REM "string" 
145  DRAWSTRING "TANK2  |LIVE:"+ STR$(L%)+ "|KILL:"+ STR$ (AS%),0 ,162 
 :2||    
150 REM "joy" 
&#x441;  
155  IF LEFT(0 )<>0  THEN X%=X%-4 
     4        (  ) 
160  IF RIGHT(0 )<>0 THEN X%=X%+4 
  
165  IF UP(0 )<>0  THEN Y%=Y%-4 
  
170  IF DOWN(0 )<>0 THEN )<>0  THEN Y%=Y%+4 
 
175  IF X%<=0  THEN X%=X %+2 
         
180  IF Y%<=0  THEN Y%=Y%+2 
185  IF X%>=126  THEN X%=X%-2 
190  IF Y%>=155  THEN Y%=Y%-2 
195 REM "move"   
200 SPRITEMOVE "k",X%,Y% 
 
205 SPRITEMOVE "v",VX%,VY% 
 
210  SPRITEMOVE "a1 ", "a1 ",A1 X%,A1Y% 
1 
215  SPRITEMOVE "a2 ",A2 X%,A2Y% 
 
220  SPRITEMOVE "a3 ",A3 X%,A3Y% 
 
225  SPRITEMOVE "a4 ",A4 X%,A4Y% 
  
230 REM "softkeys" 
  1 
235  IF GAMEA(0 )<>0 THEN SPRITEMOVE "k",X%,Y%+100 :SPRITEMOVE "v",VX%,VY%+176 :SPRITEMOVE "a1 ",A1 X%,A1 Y%-200 :SPRITEMOVE "a2 ",A2 X%,A2 Y%-200 :SPRITEMOVE "a3 TEMOVE "a3 ",A3 X%,A3 Y%-200 :SPRITEMOVE "a4 ",A4 X%,A4 Y%-200 :GOTO 1 
  1           
245  GOSUB 260 
       
250  GOTO 300 
260  A1 Y%=A1 Y%+1 
     +1 .       
263  VY%=VY%-4 
 (   ) 
265  A2 Y%=A2 Y%+1 
 
270  A3 Y%=A3 Y%+1 
 
275  A4 Y%=A4 Y%+1 
 
280  IF A1 Y%>=150 THEN A1 Y%=-4 :A1 X%=64+ MOD(RND(0 ),64) 
                  
282  IF VY%<=0  THEN VY%=Y%:VX%=X%+5 
          
285  IF A2 Y%>=150 THEN =150  THEN A2 Y%=-4 :A2 X%=64+ MOD(RND (0 ),64) 
290  IF A3 Y%>=150 THEN A3 Y%=-4 :A3 X%=64+ MOD(RND(0 ),64) 
295  IF A4 Y%>=150 THEN A4 Y%=-4 :A4 X%=64+ MOD(RND(0 ),64 )RND (0 ),64) 
297 RETURN 
300 REM "vzryv" 
   
310  S1 %=SPRITEHIT("k","a1") 
    
315  S2 %=SPRITEHIT("k","a2") 
 
320  S3 %=SPRITEHIT("k","a3") 
 
325  S4 %=SPRITEHIT("k","a4") 
  
330  S5 %=SPRITEHIT("v","a1") 
    
335  S6 %=SPRITEHIT("v","a2") 
 
340  S7 %=SPRITEHIT("v","a3") 
 
345  S8 %=SPRITEHIT("v","a4") 
  
   ! 
350  IF S1 %<>0  THEN L%=L%-1 :A1 Y%=-4 :A1 X%=66+ MOD(RND (0 ),66) 
       :    :       
355  IF S2 %<>0  THEN L%=L%-1 :A2 Y%=-4 :A2 X%=66+ MOD(RND (0 ),66) 
360  IF S3 %<>0  THEN L%=L%-1 :A3 Y%=-4 :A3 X%=66+ MOD(RND (0 ),66) 
365  IF S4 %<>0  THEN L%=0  THEN L%=L%-1 :A4 Y%=-4 :A4 X%=66+ MOD(RND(0 ),66) 
370  IF S5 %<>0  THEN AS%=AS%+1 :A1 Y%=-4 :A1 X%=66+ MOD(RND (0 ),66) 
       +1          ,      (     ) 
375  IF S6 %<>0  THEN AS%=AS%+1 :A2 Y%=-4 :A2 X%=66+ MOD(RND (0 ),66) 
380  IF S7 %<>0  THEN AS%=AS%+1 :A3 Y%=-4 :A3 X%=66+ MOD(RND (0 ),66) 
385  IF S8 %<>0  THEN AS%=AS%+1 :A4 Y%=-4 :A4 X%=66+ MOD(RND (0 ),66 )+ MOD(RND(0 ),66) 
500  GOTO 110 
,   ,     (    ) 
510 PRINT "exit" 
550  GOTO 1 
560  DRAWSTRING "GAME OVER!",5 ,25 
565  DRAWSTRING "KILL:"+ STR$(AS%),5 ,35 
570  DRAWSTRING "restart?",5 ,45 
580  DRAWSTRING "1 - yes,2 -no",5 ,55 
581 INPUT "> ",EXIT%IT% 
582  IF EXIT%=1  THEN GOTO 1 
583  IF EXIT%=2  THEN GOTO 700 
600 CLS 

   

by Cxmobile (c)  