DIM EBSX(100),EBSY(100),EBX(100),EBY(100) ETIME=0 EX=64 EY=24 EXO=0 EYO=0 ESX=0 ESY=0 EROT=0 EBC=0 FOR I=0 TO 63 SPRITE.A I,3 NEXT I TRUE=1=1 FALSE=1=2 GLOBAL TRUE GLOBAL FALSE YY=64 XX=64 Z=0 RTX=0 ETIME=255 EB=0 ET=0 ESYO=0 ESXO=0 DROT=0 DO INC ETIME ERX=MAX(0.001,SIN(ETIME/100))*0.2 ERY=ERX*5 A=32/ERX ADD ET,ERX EM1=EM1+(SIN(ET/7)+0.1)/A EM2=EM2+(COS(ET/11)+0.1)/A EM3=EM3+(COS(ET/13)+0.1)/A EM4=EM4+(SIN(ET/17)+0.1)/A EB=EB+0.1*ERX ADD EB,0.1*ERX A=7.8539816 EX=(18*COS((EM1*A+EB))+12*SIN((EM3*A+EB)))*ERY+64 EY=(18*SIN((EM2*A+EB))+12*COS((EM4*A+EB)))*ERY+64 SPRITE 32,EX-12,EY-16,64-16 SPRITE.A 32,196 'SPRITE 32 PRIO 0 A=SIN(ETIME/100) IF(A)<-0.06 THEN A=SQR(-A) ADD DROT,A*0.023,-PI TO PI A=MIN(A*30,16) DX=SIN(DROT)*A DY=COS(DROT)*A C=DROT/PI*10 'SPRITE 63,64+DX,64+DY,100 'SPRITE.A 63,0 IF ABS(C)<5 THEN SPRITE 62,64+DX,60+DY,100+ABS(C) SPRITE.A 62,-8*(C<0) ELSE SPRITE 62,64+DX,60+DY,110-ABS(C) SPRITE.A 62,16-8*(C<0) END IF C=DROT/PI*16 DX=DX*0.53 DY=DY*0.53 IF ABS(C)<8 THEN SPRITE 63,68+(+DX+6*(C<0)),64+DY,112+ABS(C) SPRITE.A 63,-8*(C<0) ELSE SPRITE 63,68+DX+6*(C<0),64+DY-6,129-ABS(C) SPRITE.A 63,16-8*(C<0) END IF ELSE SPRITE 63,,,0 SPRITE 62,,,0 ADD DROT,0.01, -PI TO PI ESX=EX-EXO ESY=EY-EYO EAY=ESY-ESYO EAX=ESX-ESXO 'TRACE EAX IF EAX>0 THEN SPRITE 63,EX-13,EY-2,85+MIN(EAX*100,4) SPRITE.A 63,10 ELSE SPRITE 63,EX+13,EY-2,85+MIN(-EAX*100,4) SPRITE.A 63,2 END IF IF EAY>0 THEN SPRITE 62,EX-1,EY-16,68+MIN(EAY*100,4) SPRITE.A 62,18 ELSE SPRITE 62,EX-1,EY+10,68+MIN(-EAY*100,4) SPRITE.A 62,2 END IF END IF EXO=EX EYO=EY ESYO=ESY ESXO=ESX EROT=EROT+0.01 IND=14 R=R+0.01 RTX=EROT SINRX2=SIN(RTX*2) COSRX2=COS(RTX*2) SINRX=SIN(RTX) COSRX=COS(RTX) FOR AA=3.141/4*(ETIME MOD 2) TO PI*1.9 STEP 3.14159/2 SINAA=SIN(AA) COSAA=COS(AA) FOR BB=PI*(ETIME MOD 40+1)/160 TO PI STEP PI/4 SINBB=SIN(BB+0) YY=COS(BB) XP=SINBB*COSAA Z=SINBB*SINAA YP=YY*COSRX-Z*SINRX Z=YY*SINRX+Z*COSRX-10 'IF Z>-10.1 THEN XX=XP*COSRX2-YP*SINRX2 YY=XP*SINRX2+YP*COSRX2 X=EX+XX*300/Z Y=EY+YY*300/Z SPRITE IND,X,Y,107 ATT=ETIME MOD 2 SPRITE.A IND,+3 INC IND 'END IF NEXT BB NEXT AA MIND=MAX(MIND,IND) TRACE MIND WAIT VBL LOOP #1:MAIN PALETTES 003F2A15000F0B03003C0C0800343020 003F2A15003F2A15003F2A15003F2A15 #2:MAIN CHARACTERS 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 000000000000000000000000000F0703 7806FF8780867777077F87FFFFFFFFFF F0FCDEDEDF5F5FDFF0F4EEEEEFEFEFEF 00000000000000000000000000000000 18000000000000000018000000000000 18180000000000000000181800000000 18181800000000000024243C3C180000 1818181800000000002424243C3C1818 00000000000000000000000000000000 050202020404040E1F1A3E020404040E 101000080804040E1C1C1E080804040E 00000000000000000000000000000000 A0A0A59122E498986060667FFFDFEFFF 050425863FE0004A0607E679C01FFFFF 20A1219A3E3C04F5E061E17BFFFFFFFF FF010111312161C1FFFFFFEFCFDF9FBF 0100010102020406000001030306060E FFA8081BD1D2D9DE085FFFFEFFFFFFFF 4FEFF86CE6E7C7FFFFFFFFFFFFFFFFFF 0000808040402060000080C0C0606070 00000000000000000000000000000000 00000080800000000000004040000000 000000C0C00000000000003030000000 000000E0E00000000000781C1C780000 000000F0F000000000007C0F0F7C0000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 A2C1891224CF20B5FDFFF7EFDFF0FF7F 8051005F1914195A7FAEFFBFF9F7FEBD 018A00FAD828181AFE75FFFFDFEFFFFF 41C1424448D06070FFFFFEFCF8F0E0F0 08101020204040E00C101020204040E0 010202020404040E030307020404040E 101010080804040E101090080804040E 10080804040202073008080404020207 0000000E7E08080000003E7FF6000000 0000000E3C68000000003E7EF4E00000 0000060C18342000000E3E3C70706000 00040C081C1810000C1C3C3830383000 000808081E1818000818383830383810 99245ABDBD5A2499997E66C3C3667E99 0018245A5A24180000183C66663C1800 8800281DB814001188481023C4081211 A0A19188492AEDA87F7F7F7FBFFFDFFF 5A18141B5F005180BDFFF7FBBFFFAE7F 1A1828D8FA008A01FFFFEFDFFFFF75FE C0707070C0404040F0F0F0F0C0C0C0C0 C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0 C0C0C0C060606060C0C0C0C060606060 C0C0606060303000C0C0606060303000 C0C0607030181800C0C0607030181800 C0E070381C0C0000C0E070381C0C0000 C0F0381E06000000C0F0381E06000000 C0F83E0600000000C0F83E0600000000 F0FF0F0000000000F0FF0F0000000000 FFFF000000000000FFFF000000000000 00000000000000000000000000000000 0018242C342418000000000000000000 00103010101038000000000000000000 EF481020C0000000FFB8F0E0C0000000 88DF7C5C0000000077FF7C7C00000000 88FF00000000000077FF000000000000 80000000000000008000000000000000