Application.Title = "MH Space Balls v1.0"
$RESOURCE SBLogo AS "spaceballs.bmp"
$RESOURCE HitE AS "hit.wav"
$RESOURCE BoingE AS "boing.wav"
$RESOURCE EngineE AS "engine.wav"
$RESOURCE ClickE AS "click.wav"
$RESOURCE ByeE AS "bye.wav"
$RESOURCE LoseE AS "lose.wav"
$RESOURCE ShootE AS "shoot.wav"
$RESOURCE WinE AS "win.wav"
IF NOT FILEEXISTS("hit.wav") THEN EXTRACTRESOURCE Resource(1), "hit.wav"
IF NOT FILEEXISTS("boing.wav") THEN EXTRACTRESOURCE Resource(2), "boing.wav"
IF NOT FILEEXISTS("engine.wav") THEN EXTRACTRESOURCE Resource(3), "engine.wav"
IF NOT FILEEXISTS("click.wav") THEN EXTRACTRESOURCE Resource(4), "click.wav"
IF NOT FILEEXISTS("bye.wav") THEN EXTRACTRESOURCE Resource(5), "bye.wav"
IF NOT FILEEXISTS("lose.wav") THEN EXTRACTRESOURCE Resource(6), "lose.wav"
IF NOT FILEEXISTS("shoot.wav") THEN EXTRACTRESOURCE Resource(7), "shoot.wav"
IF NOT FILEEXISTS("win.wav") THEN EXTRACTRESOURCE Resource(8), "win.wav"
RANDOMIZE
DECLARE SUB DXTimerExpired
DECLARE SUB KeyDown (Key AS BYTE, Shift AS BYTE)
DECLARE SUB KeyUp (Key AS BYTE, Shift AS BYTE)
DECLARE SUB RandomMove ()
DECLARE SUB RandomMove2 ()
DECLARE SUB Time ()
DECLARE FUNCTION LeetSpeak (TNG$) AS STRING
DECLARE SUB Closed ()
TYPE Gun: X AS SINGLE: Y AS SINGLE: VX AS SINGLE: VY AS SINGLE: S AS INTEGER: END TYPE
DIM From AS QRECT
From.Top = 0: From.Left = 0: From.Right = 450: From.Bottom = 450
DIM TO AS QRECT
TO.Top = 14: TO.Left = 94: TO.Right = 554: TO.Bottom = 464
DIM InvX AS SINGLE: InvX = 319
DIM InvY AS SINGLE: InvY = 400
DIM Test AS INTEGER: Test = 270
DIM Power AS INTEGER: Power = 0
DIM Fire AS INTEGER: Fire = 0
DIM Move AS INTEGER: Move = -204
DIM Energy AS INTEGER: Energy = 1000
DIM Score AS SINGLE: Score = 0
DIM Leet AS INTEGER: Leet = 0
DIM LeetMode AS INTEGER
DIM AllGone AS INTEGER: AllGone = 10
DIM TimeLeft AS INTEGER: TimeLeft = 60
DIM CosFast(1 TO 360) AS SINGLE
DIM SinFast(1 TO 360) AS SINGLE
FOR I = 1 TO 360: CosFast(I) = COS(I*3.14/180): SinFast(I) = SIN(I*3.14/180): NEXT I
DIM Star(1 TO 10) AS Gun
FOR I = 1 TO 10: Star(I).X = INT(RND(640)): Star(I).Y = INT(RND(480)): Star(I).S = INT(RND(5)): NEXT I
DIM En(1 TO 10) AS Gun
En(1).X = 280: En(3).X = 246: En(5).X = 217: En(7).X = 194: En(9).X = 175
En(1).Y = 400: En(3).Y = 410: En(5).Y = 425: En(7).Y = 445: En(9).Y = 465
En(1).VX = -1: En(3).VX = -2: En(5).VX = -2.6: En(7).VX = -3: En(9).VX = -3
En(1).VY = -3: En(3).VY = -3: En(5).VY = -2.6: En(7).VY = -2: En(9).VY = -1
En(1).S = 6: En(3).S = 7: En(5).S = 8: En(7).S = 9: En(9).S = 10
En(2).X = 358: En(4).X = 392: En(6).X = 421: En(8).X = 444: En(10).X = 463
En(2).Y = 400: En(4).Y = 410: En(6).Y = 425: En(8).Y = 445: En(10).Y = 465
En(2).VX = 1: En(4).VX = 2: En(6).VX = 2.6: En(8).VX = 3: En(10).VX = 3
En(2).VY = -3: En(4).VY = -3: En(6).VY = -2.6: En(8).VY = -2: En(10).VY = -1
En(2).S = 6: En(4).S = 7: En(6).S = 8: En(8).S = 9: En(10).S = 10
DIM Pel(1 TO 10) AS Gun
DIM KeyM(0 TO 256) AS INTEGER
DIM Form AS QFORM
Form.BorderStyle = 0: Form.KeyPreview = 1: Form.OnKeyDown = KeyDown: Form.OnKeyUp = KeyUp: Form.OnClose = Closed
DIM DXScreen AS QDXSCREEN
DXScreen.PARENT = Form: DXScreen.BitCount = 8: DXScreen.Align = 5: DXScreen.Cursor = -1: DXScreen.Init(640, 480): DXScreen.FullScreen = 1
DIM DXTimer AS QDXTIMER
DXTimer.Interval = 0: DXTimer.OnTimer = DXTimerExpired: DXTimer.Enabled = 1
DIM Shoot AS QDXSound
Shoot.PARENT = Form: Shoot.FileName = "shoot.wav": Shoot.Volume = 80
DIM Hit AS QDXSound
Hit.PARENT = Form: Hit.FileName = "hit.wav": Hit.Volume = 90
DIM Bye AS QDXSound
Bye.PARENT = Form: Bye.FileName = "bye.wav"
DIM Lose AS QDXSound
Lose.PARENT = Form: Lose.FileName = "lose.wav"
DIM Win AS QDXSound
Win.PARENT = Form: Win.FileName = "win.wav"
DIM Click AS QDXSound
Click.PARENT = Form: Click.FileName = "click.wav"
DIM Boing AS QDXSound
Boing.PARENT = Form: Boing.FileName = "boing.wav": Boing.Volume = 80
DIM Timer2 AS QTIMER
Timer2.Interval = 1000: Timer2.OnTimer = Time
DIM Font AS QFONT
Font.Name="Fixedsys": Font.Size=8
DIM Logo AS QBITMAP
Logo.BMPHandle = SBLogo
DIM Registry AS QREGISTRY
Registry.RootKey = &H80000002: Registry.OpenKey("SOFTWARE\Microsoft\Windows\CurrentVersion", 0)
DIM Registry2 AS QREGISTRY
Registry2.OpenKey("SOFTWARE\MicroHof\SpaceBalls", 1)
IF NOT Registry2.ReadString("Installed") = "Yes" THEN
Registry2.WriteString("Installed", "Yes")
Registry2.WriteInteger("LeetMode", 0)
END IF
LeetMode = Registry2.ReadInteger("LeetMode")
IF LeetMode > 0 THEN
FOR I = 1 TO 10
En(I).VX = En(I).VX * 1.5
En(I).VY = En(I).VY * 1.5
NEXT I
END IF
Form.SHOWMODAL
SUB KeyDown (Key AS BYTE, Shift AS BYTE)
KeyM(Key) = 1
END SUB
SUB KeyUp (Key AS BYTE, Shift AS BYTE)
KeyM(Key) = 0
END SUB
SUB RandomMove ()
IF RND(25) = 0 THEN KeyM(37) = 1: KeyM(39) = 0
IF RND(25) = 0 THEN KeyM(39) = 1: KeyM(37) = 0
END SUB
SUB RandomMove2 ()
IF RND(1) = 0 THEN
IF Move < 200 THEN Move = Move + 3
END IF
END SUB
SUB Time ()
IF AllGone > 0 AND TimeLeft > 0 AND Move > -1 THEN TimeLeft = TimeLeft - 1: Click.Play: Click.Position = 0
END SUB
FUNCTION LeetSpeak (TNG$) AS STRING
FOR I = 1 TO LEN(TNG$)
TNG$ = UCASE$(LTRIM$(RTRIM$(TNG$)))
IF MID$(TNG$, I, 1) = "E" THEN TNG$ = REPLACE$(TNG$, "3", I)
IF MID$(TNG$, I, 1) = "L" THEN TNG$ = REPLACE$(TNG$, "1", I)
IF MID$(TNG$, I, 1) = "T" THEN TNG$ = REPLACE$(TNG$, "7", I)
IF MID$(TNG$, I, 1) = "A" THEN TNG$ = REPLACE$(TNG$, "@", I)
IF MID$(TNG$, I, 1) = "C" THEN TNG$ = REPLACE$(TNG$, "(", I)
IF MID$(TNG$, I, 1) = "O" THEN TNG$ = REPLACE$(TNG$, "0", I)
IF MID$(TNG$, I, 1) = "B" THEN TNG$ = REPLACE$(TNG$, "8", I)
IF MID$(TNG$, I, 1) = "S" THEN TNG$ = REPLACE$(TNG$, "5", I)
IF MID$(TNG$, I, 1) = "G" THEN TNG$ = REPLACE$(TNG$, "&", I)
NEXT I
LeetSpeak = TNG$
END FUNCTION
SUB Closed ()
Registry2.WriteInteger("LeetMode", LeetMode)
END SUB
SUB DXTimerExpired
DXScreen.Font = Font
IF KeyM(49) = 1 OR KeyM(50) = 1 OR KeyM(51) = 1 OR KeyM(52) = 1 OR KeyM(53) = 1 OR KeyM(54) = 1 OR KeyM(55) = 1 OR KeyM(56) = 1 OR KeyM(13) = 1 THEN
IF Leet = 0 AND Move > -1 THEN
InvX = 319: InvY = 400: Test = 270: Power = 0: Fire = 0: Move = -204: Energy = 1000: Score = 0: AllGone = 10: TimeLeft = 60
En(1).X = 280: En(3).X = 246: En(5).X = 217: En(7).X = 194: En(9).X = 175
En(1).Y = 400: En(3).Y = 410: En(5).Y = 425: En(7).Y = 445: En(9).Y = 465
En(1).VX = -1: En(3).VX = -2: En(5).VX = -2.6: En(7).VX = -3: En(9).VX = -3
En(1).VY = -3: En(3).VY = -3: En(5).VY = -2.6: En(7).VY = -2: En(9).VY = -1
En(1).S = 6: En(3).S = 7: En(5).S = 8: En(7).S = 9: En(9).S = 10
En(2).X = 358: En(4).X = 392: En(6).X = 421: En(8).X = 444: En(10).X = 463
En(2).Y = 400: En(4).Y = 410: En(6).Y = 425: En(8).Y = 445: En(10).Y = 465
En(2).VX = 1: En(4).VX = 2: En(6).VX = 2.6: En(8).VX = 3: En(10).VX = 3
En(2).VY = -3: En(4).VY = -3: En(6).VY = -2.6: En(8).VY = -2: En(10).VY = -1
En(2).S = 6: En(4).S = 7: En(6).S = 8: En(8).S = 9: En(10).S = 10
FOR I = 1 TO 10: Star(I).X = INT(RND(640)): Star(I).Y = INT(RND(480)): Star(I).S = INT(RND(5)): Pel(I).X = 0: Pel(I).Y = 0: Pel(I).VX = 0: Pel(I).VY = 0: Pel(I).S = 0: NEXT I
FOR I = 11 TO 256: KeyM(I) = 0: NEXT I: KeyM(0) = 0
IF Lose.Playing = 1 THEN Lose.Stop
Lose.Position = 0: Win.Position = 0
END IF
IF Leet > 0 AND Move > -1 THEN
InvX = 319: InvY = 239: Test = 0: Power = 0: Fire = 0: Energy = 1000: Score = 0: AllGone = 8: TimeLeft = 60: Move = 200
Leet = 1
En(3).X = 319: En(5).X = 519: En(7).X = 319: En(9).X = 119
En(3).Y = 39: En(5).Y = 239: En(7).Y = 439: En(9).Y = 239
En(3).VX = 0: En(5).VX = 10: En(7).VX = 0: En(9).VX = -10
En(3).VY = -10: En(5).VY = 0: En(7).VY = 10: En(9).VY = 0
En(1).S = 0: En(3).S = 15: En(5).S = 15: En(7).S = 15: En(9).S = 15
En(4).X = 460: En(6).X = 460: En(8).X = 178: En(10).X = 178
En(4).Y = 98: En(6).Y = 380: En(8).Y = 380: En(10).Y = 98
En(4).VX = 5: En(6).VX = 5: En(8).VX = -5: En(10).VX = -5
En(4).VY = -5: En(6).VY = 5: En(8).VY = 5: En(10).VY = -5
En(2).S = 0: En(4).S = 15: En(6).S = 15: En(8).S = 15: En(10).S = 15
FOR I = 0 TO 256: KeyM(I) = 0: NEXT I
IF Lose.Playing = 1 THEN Lose.Stop
Lose.Position = 0: Win.Position = 0
END IF
IF LeetMode > 0 THEN
FOR I = 1 TO 10
En(I).VX = En(I).VX * 1.5
En(I).VY = En(I).VY * 1.5
NEXT I
END IF
END IF
IF KeyM(27) = 1 THEN Registry2.WriteInteger("LeetMode", LeetMode): Application.Terminate
IF KeyM(37) = 1 THEN
IF Move < 0 THEN Move = 0
IF Leet = 0 THEN Test = Test - 5
IF Leet > 0 THEN Test = Test - 7
IF Test < 1 THEN Test = Test + 360
END IF
IF KeyM(39) = 1 THEN
IF Move < 0 THEN Move = 0
IF Leet = 0 THEN Test = Test + 5
IF Leet > 0 THEN Test = Test + 7
IF Test > 360 THEN Test = Test - 360
END IF
IF (KeyM(18) = 1 OR KeyM(38) = 1) AND Move < 200 THEN
IF Move < 0 THEN Move = 0
IF Energy > 0 AND AllGone > 0 THEN Move = Move + 3: Energy = Energy - 1
END IF
IF KeyM(17) = 1 AND Power < 100 THEN
IF Energy > 0 AND AllGone > 0 THEN Power = Power + 5: Energy = Energy - 1: Fire = 1
IF AllGone < 1 THEN Power = Power + 5: Fire = 1
END IF
IF KeyM(17) = 0 AND Fire = 1 THEN
IF Move < 0 THEN Move = 0
FOR I = 1 TO 10
IF Pel(I).S = 0 THEN
Shoot.Play
Shoot.Position = 0
Pel(I).X = InvX + COSFAST(Test)*15: Pel(I).Y=InvY+SINFAST(Test)*15
IF LeetMode = 0 THEN Pel(I).VX = COSFAST(Test)*5: Pel(I).VY = SINFAST(Test)*5
IF LeetMode > 0 THEN Pel(I).VX = COSFAST(Test)*7.5: Pel(I).VY = SINFAST(Test)*7.5
Pel(I).S = 75 + Power
EXIT FOR
END IF
NEXT I
Power = 0
Fire = 0
END IF
IF Energy > 0 THEN
DXScreen.FillRect(0, 0, 640, 480, &H220000)
DXScreen.Rectangle(0,0,639,479,&H00FFFF)
ELSE
TimeLeft = 0
DXScreen.FillRect(0, 0, 640, 480, &H000022)
DXScreen.Rectangle(0,0,639,479,&H00FFFF)
Lose.Play
END IF
IF AllGone < 1 AND Leet = 0 THEN DXScreen.FillRect(0, 0, 640, 480, &H002200): DXScreen.Rectangle(0,0,639,479,&H777777): Win.Play
IF Move < 0 AND AllGone > 0 AND LeetMode = 0 THEN DXScreen.CopyRect(TO, Logo, From): DXScreen.TextOut(215, 460, "Press any button to start.", &HFFFFFF, &H220000): DXScreen.TextOut(187, 425, "The Thinking Man's Asteroids (TM)", &H00FFFF, &H220000): DXScreen.TextOut(287, 33, "Micro", &H4040FF, &H220000): DXScreen.TextOut(327, 33, "Hof", &HFFFF40, &H220000)
IF Move < 0 AND AllGone > 0 AND LeetMode = 1 THEN DXScreen.CopyRect(TO, Logo, From): DXScreen.TextOut(199, 460, "Pulsa cualquier botón empezar.", &HFFFFFF, &H220000): DXScreen.TextOut(159, 425, "El Asteroids del Hombre Pensamiento (MR)", &H00FFFF, &H220000): DXScreen.TextOut(287, 33, "Micro", &H4040FF, &H220000): DXScreen.TextOut(327, 33, "Hof", &HFFFF40, &H220000): DXScreen.TextOut(263, 220, "La Moda Arriba", &H00FF00, &HAAFFAA)
IF Move < 0 AND AllGone > 0 AND LeetMode = 2 THEN
FOR I = 1 TO 25
IF I = 1 THEN DXScreen.TextOut(109, 34 + (I * 15), " ;. ##. ;;", &H00FF00, &H220000)
IF I = 2 THEN DXScreen.TextOut(109, 34 + (I * 15), " ##x+## #### ###X##.", &H00FF00, &H220000)
IF I = 3 THEN DXScreen.TextOut(109, 34 + (I * 15), " #### ,###x ##.## ## ####=", &H00FF00, &H220000)
IF I = 4 THEN DXScreen.TextOut(109, 34 + (I * 15), " ##x#### ## -X##+=######### ###;,##", &H00FF00, &H220000)
IF I = 5 THEN DXScreen.TextOut(109, 34 + (I * 15), " ;- ##-X+--, . .-+=;##x", &H00FF00, &H220000)
IF I = 6 THEN DXScreen.TextOut(109, 34 + (I * 15), " .##+.,,..,........,,,,;;,;##", &H00FF00, &H220000)
IF I = 7 THEN DXScreen.TextOut(109, 34 + (I * 15), " +=,,;,................,;;;,-", &H00FF00, &H220000)
IF I = 8 THEN DXScreen.TextOut(109, 34 + (I * 15), " #x-;,....................,;-=#+", &H00FF00, &H220000)
IF I = 9 THEN DXScreen.TextOut(109, 34 + (I * 15), " #+-;,......................,,;=#+", &H00FF00, &H220000)
IF I = 10 THEN DXScreen.TextOut(109, 34 + (I * 15), " #+-;,........ .......,;;=#", &H00FF00, &H220000)
IF I = 11 THEN DXScreen.TextOut(109, 34 + (I * 15), " .#-;,,...... .......,;-+#", &H00FF00, &H220000)
IF I = 12 THEN DXScreen.TextOut(109, 34 + (I * 15), " xx-;,...1337 U83R H@X0R M0D3...,,--#", &H00FF00, &H220000)
IF I = 13 THEN DXScreen.TextOut(109, 34 + (I * 15), " #+-;,...... ......,;;-#", &H00FF00, &H220000)
IF I = 14 THEN DXScreen.TextOut(109, 34 + (I * 15), " +x-;,...... ......,;-=#", &H00FF00, &H220000)
IF I = 15 THEN DXScreen.TextOut(109, 34 + (I * 15), " #--;,....... .......,;-xx", &H00FF00, &H220000)
IF I = 16 THEN DXScreen.TextOut(109, 34 + (I * 15), " ++-;,........ .........,;-=#", &H00FF00, &H220000)
IF I = 17 THEN DXScreen.TextOut(109, 34 + (I * 15), " ,##- ,,,;,......................,;-=# ;xx-", &H00FF00, &H220000)
IF I = 18 THEN DXScreen.TextOut(109, 34 + (I * 15), " +######X-.,,. ............. .,-+# ;#####+", &H00FF00, &H220000)
IF I = 19 THEN DXScreen.TextOut(109, 34 + (I * 15), " ###X X###;;.x-.. .. .=-## ### -##+", &H00FF00, &H220000)
IF I = 20 THEN DXScreen.TextOut(109, 34 + (I * 15), " ####### #### +#####- X###..,,.##### ############", &H00FF00, &H220000)
IF I = 21 THEN DXScreen.TextOut(109, 34 + (I * 15), "-#### ###-. #######..+#x#;-+xXx#XX# +##, ###", &H00FF00, &H220000)
IF I = 22 THEN DXScreen.TextOut(109, 34 + (I * 15), " .####+ XX#- ### #x#.+##x#xxx- x#x# -#=x###", &H00FF00, &H220000)
IF I = 23 THEN DXScreen.TextOut(109, 34 + (I * 15), " ###### ####-.#x# #x# #x#= + #####X", &H00FF00, &H220000)
IF I = 24 THEN DXScreen.TextOut(109, 34 + (I * 15), " =###X####X## #x#, ,;= ##########", &H00FF00, &H220000)
IF I = 25 THEN DXScreen.TextOut(109, 34 + (I * 15), " ,.,= #### ######### =###X-.", &H00FF00, &H220000)
NEXT I
DXScreen.TextOut(287, 33, "M!(R0", &H4040FF, &H220000): DXScreen.TextOut(327, 33, "H0F", &HFFFF40, &H220000)
DXScreen.TextOut(215, 460, "PR355 @NV 8U770N 70 57@RT.", &HFFFFFF, &H220000)
DXScreen.TextOut(319 - (LEN(Registry.ReadString("RegisteredOwner") + "'5 @573R0!D5 (7M)")*4), 425, LeetSpeak(Registry.ReadString("RegisteredOwner")) + "'5 @573R0!D5 (7M)", &H00FFFF, &H220000)
END IF
IF LeetMode = 0 THEN
DXScreen.TextOut(5, 5, "|_______Engine_______|", &H555555, &H000000): DXScreen.TextOut(13, 5, LEFT$(" Engine ", Move/10), &H000000, &H777777)
DXScreen.TextOut(5, 25,"|_______Weapon_______|", &H555555, &H000000): DXScreen.TextOut(13, 25, LEFT$(" Weapon ", Power/5), &H000000, &H777777)
DXScreen.TextOut(5, 45,"|___Shield/Battery___|", &H555555, &H000000): DXScreen.TextOut(13, 45, LEFT$(" Shield/Battery ", Energy/50), &H000000, &H777777)
DXScreen.TextOut(5, 65, "|_______Score________|", &H555555, &H000000): DXScreen.TextOut(13, 65, LEFT$(" Score ", CINT(Score)/4), &H000000, &H777777)
DXScreen.TextOut(5, 85, "|_____Time_Left______|", &H555555, &H000000): DXScreen.TextOut(13, 85, LEFT$(" Time Left ", TimeLeft/3), &H000000, &H777777)
END IF
IF LeetMode = 1 THEN
DXScreen.TextOut(5, 5, "|_______Motor________|", &H555555, &H000000): DXScreen.TextOut(13, 5, LEFT$(" Motor ", Move/10), &H000000, &H777777)
DXScreen.TextOut(5, 25,"|________Arma________|", &H555555, &H000000): DXScreen.TextOut(13, 25, LEFT$(" Arma ", Power/5), &H000000, &H777777)
DXScreen.TextOut(5, 45,"|__Pantalla/Batería__|", &H555555, &H000000): DXScreen.TextOut(13, 45, LEFT$(" Pantalla/Batería ", Energy/50), &H000000, &H777777)
DXScreen.TextOut(5, 65, "|______Puntaje_______|", &H555555, &H000000): DXScreen.TextOut(13, 65, LEFT$(" Puntaje ", CINT(Score)/4), &H000000, &H777777)
DXScreen.TextOut(5, 85, "|_______Tiempo_______|", &H555555, &H000000): DXScreen.TextOut(13, 85, LEFT$(" Tiempo ", TimeLeft/3), &H000000, &H777777)
END IF
IF LeetMode = 2 THEN
DXScreen.TextOut(5, 5, "|_______3N&!N3_______|", &H555555, &H000000): DXScreen.TextOut(13, 5, LEFT$(" 3N&!N3 ", Move/10), &H000000, &H777777)
DXScreen.TextOut(5, 25,"|_______W3@P0N_______|", &H555555, &H000000): DXScreen.TextOut(13, 25, LEFT$(" W3@P0N ", Power/5), &H000000, &H777777)
DXScreen.TextOut(5, 45,"|___5H!31D/8@773RY___|", &H555555, &H000000): DXScreen.TextOut(13, 45, LEFT$(" 5H!31D/8@773RY ", Energy/50), &H000000, &H777777)
DXScreen.TextOut(5, 65, "|_______FR@&Z________|", &H555555, &H000000): DXScreen.TextOut(13, 65, LEFT$(" FR@&Z ", CINT(Score)/4), &H000000, &H777777)
DXScreen.TextOut(5, 85, "|_____7!M3_13F7______|", &H555555, &H000000): DXScreen.TextOut(13, 85, LEFT$(" 7!M3 13F7 ", TimeLeft/3), &H000000, &H777777)
END IF
IF TimeLeft < 1 THEN Energy = 0
IF Energy < 1 AND Power < 1 AND Move < 1 AND AllGone > 0 THEN
Energy = 0
TimeLeft = 0
RandomMove
IF LeetMode = 0 THEN
DXScreen.TextOut(279, 384, "It's over.", &H00FFFF, &H000022)
DXScreen.TextOut(271, 401, "You're done.", &H00FFFF, &H000022)
DXScreen.TextOut(167, 460, "Insert coin/press enter to play again.", &HFFFFFF, &H000022)
END IF
IF LeetMode = 1 THEN
DXScreen.TextOut(255, 384, "Estás terminado.", &H00FFFF, &H000022)
DXScreen.TextOut(291, 401, "El fin.", &H00FFFF, &H000022)
DXScreen.TextOut(147, 460, "Inserta moneda/pulsa entrar jugar otra vez.", &HFFFFFF, &H000022)
END IF
IF LeetMode = 2 THEN
DXScreen.TextOut(279, 384, "17'S 0Y3R!", &H00FFFF, &H000022)
DXScreen.TextOut(271, 401, "V0V'R3 D0N3!", &H00FFFF, &H000022)
DXScreen.TextOut(167, 460, "!N53R7 (0!N/PR355 3N73R 70 P1@V @&@!N.", &HFFFFFF, &H000022)
END IF
END IF
IF AllGone < 1 AND Leet = 1 THEN
IF LeetMode < 2 THEN LeetMode = LeetMode + 1
Leet = 0: InvX = 319: InvY = 400: Test = 270: Power = 0: Fire = 0: Move = -204: Energy = 1000: Score = 0: AllGone = 10: TimeLeft = 60
En(1).X = 280: En(3).X = 246: En(5).X = 217: En(7).X = 194: En(9).X = 175
En(1).Y = 400: En(3).Y = 410: En(5).Y = 425: En(7).Y = 445: En(9).Y = 465
En(1).VX = -1: En(3).VX = -2: En(5).VX = -2.6: En(7).VX = -3: En(9).VX = -3
En(1).VY = -3: En(3).VY = -3: En(5).VY = -2.6: En(7).VY = -2: En(9).VY = -1
En(1).S = 6: En(3).S = 7: En(5).S = 8: En(7).S = 9: En(9).S = 10
En(2).X = 358: En(4).X = 392: En(6).X = 421: En(8).X = 444: En(10).X = 463
En(2).Y = 400: En(4).Y = 410: En(6).Y = 425: En(8).Y = 445: En(10).Y = 465
En(2).VX = 1: En(4).VX = 2: En(6).VX = 2.6: En(8).VX = 3: En(10).VX = 3
En(2).VY = -3: En(4).VY = -3: En(6).VY = -2.6: En(8).VY = -2: En(10).VY = -1
En(2).S = 6: En(4).S = 7: En(6).S = 8: En(8).S = 9: En(10).S = 10
FOR I = 1 TO 10: Star(I).X = INT(RND(640)): Star(I).Y = INT(RND(480)): Star(I).S = INT(RND(5)): Pel(I).X = 0: Pel(I).Y = 0: Pel(I).VX = 0: Pel(I).VY = 0: Pel(I).S = 0: NEXT I
FOR I = 11 TO 256: KeyM(I) = 0: NEXT I: KeyM(0) = 0
Lose.Position = 0: Win.Position = 0
END IF
IF AllGone < 1 AND Leet = 0 THEN
TimeLeft = 60: Energy = 1000: RandomMove: RandomMove2
IF LeetMode = 0 THEN DXScreen.TextOut(288, 393, "You won!", &H777777, &H002200)
IF LeetMode = 1 THEN DXScreen.TextOut(271, 393, "¡Tu ganaste!", &H777777, &H002200)
IF LeetMode = 2 THEN DXScreen.TextOut(288, 393, "V0V W0N!", &H777777, &H002200)
END IF
IF AllGone = 0 THEN En(1).S = 6: En(3).S = 7: En(5).S = 8: En(7).S = 9: En(9).S = 10: En(2).S = 6: En(4).S = 7: En(6).S = 8: En(8).S = 9: En(10).S = 10
IF AllGone = -10 THEN
Leet = 1: InvX = 319: InvY = 239: Test = 0: Power = 0: Fire = 0: Move = 200: Energy = 1000: Score = 0: AllGone = 8: TimeLeft = 60
En(3).X = 319: En(5).X = 519: En(7).X = 319: En(9).X = 119
En(3).Y = 39: En(5).Y = 239: En(7).Y = 439: En(9).Y = 239
En(3).VX = 0: En(5).VX = 10: En(7).VX = 0: En(9).VX = -10
En(3).VY = -10: En(5).VY = 0: En(7).VY = 10: En(9).VY = 0
En(1).S = 0: En(3).S = 15: En(5).S = 15: En(7).S = 15: En(9).S = 15
En(4).X = 460: En(6).X = 460: En(8).X = 178: En(10).X = 178
En(4).Y = 98: En(6).Y = 380: En(8).Y = 380: En(10).Y = 98
En(4).VX = 5: En(6).VX = 5: En(8).VX = -5: En(10).VX = -5
En(4).VY = -5: En(6).VY = 5: En(8).VY = 5: En(10).VY = -5
En(2).S = 0: En(4).S = 15: En(6).S = 15: En(8).S = 15: En(10).S = 15
FOR I = 0 TO 256: KeyM(I) = 0: NEXT I
Lose.Position = 0: Win.Position = 0
END IF
FOR I = 1 TO 10
IF Move <> 0 THEN
IF Star(I).S = 0 THEN Star(I).X = Star(I).X - COSFAST(Test)*1.6: Star(I).Y = Star(I).Y - SINFAST(Test)*1.6
IF Star(I).S = 1 THEN Star(I).X = Star(I).X - COSFAST(Test)*1.5: Star(I).Y = Star(I).Y - SINFAST(Test)*1.5
IF Star(I).S = 2 THEN Star(I).X = Star(I).X - COSFAST(Test)*1.4: Star(I).Y = Star(I).Y - SINFAST(Test)*1.4
IF Star(I).S = 3 THEN Star(I).X = Star(I).X - COSFAST(Test)*1.3: Star(I).Y = Star(I).Y - SINFAST(Test)*1.3
IF Star(I).S = 4 THEN Star(I).X = Star(I).X - COSFAST(Test)*1.2: Star(I).Y = Star(I).Y - SINFAST(Test)*1.2
IF Star(I).X < 0 THEN Star(I).X = Star(I).X + 639
IF Star(I).X > 639 THEN Star(I).X = Star(I).X - 639
IF Star(I).Y < 0 THEN Star(I).Y = Star(I).Y + 479
IF Star(I).Y > 479 THEN Star(I).Y = Star(I).Y - 479
END IF
DXScreen.Circle(Star(I).X, Star(I).Y, Star(I).X+2, Star(I).Y+2, &HFFFFFF, &HFFFFFF)
Q = 1
IF (INT(En(I).X) - INT(Pel(Q).X))^2 + (INT(En(I).Y) - INT(Pel(Q).Y))^2 < (En(I).S + Pel(Q).S/20)^2 AND En(I).S > 0 AND Pel(Q).S > 0 AND AllGone > 0 THEN
En(I).S = En(I).S - Pel(Q).S/50: Pel(Q).S = 0: En(I).VX = (INT(En(I).VX) + INT(Pel(Q).VX))/2: En(I).VY = (INT(En(I).VY) + INT(Pel(Q).VY))/2
Hit.Play
Hit.Position = 0
IF EN(I).S < 1 THEN
Bye.Play
Bye.Position = 0
AllGone = AllGone - 1
IF I = 1 OR I = 2 THEN Score = Score + 6
IF I = 3 OR I = 4 THEN Score = Score + 7
IF I = 5 OR I = 6 THEN Score = Score + 8
IF I = 7 OR I = 8 THEN Score = Score + 9
IF I = 9 OR I = 10 THEN Score = Score + 10
END IF
END IF
IF (INT(En(I).X) - INT(Pel(Q).X))^2 + (INT(En(I).Y) - INT(Pel(Q).Y))^2 < (En(I).S + Pel(Q).S/20)^2 AND En(I).S > 0 AND Pel(Q).S > 0 AND AllGone < 1 THEN
Bye.Play
Bye.Position = 0
Pel(Q).S = 0: En(I).S = 0: AllGone = AllGone - 1
IF I = 1 OR I = 2 THEN Score = Score - 6
IF I = 3 OR I = 4 THEN Score = Score - 7
IF I = 5 OR I = 6 THEN Score = Score - 8
IF I = 7 OR I = 8 THEN Score = Score - 9
IF I = 9 OR I = 10 THEN Score = Score - 10
END IF
IF (INT(En(I).X) - INT(InvX))^2 + (INT(En(I).Y) - INT(InvY))^2 < (En(I).S + 5)^2 AND En(I).S > 0 AND Energy > 0 AND Move > -1 AND AllGone > 0 THEN Energy = 0: En(I).S = En(I).S - 1
Q = 2
IF (INT(En(I).X) - INT(Pel(Q).X))^2 + (INT(En(I).Y) - INT(Pel(Q).Y))^2 < (En(I).S + Pel(Q).S/20)^2 AND En(I).S > 0 AND Pel(Q).S > 0 AND AllGone > 0 THEN
En(I).S = En(I).S - Pel(Q).S/50: Pel(Q).S = 0: En(I).VX = (INT(En(I).VX) + INT(Pel(Q).VX))/2: En(I).VY = (INT(En(I).VY) + INT(Pel(Q).VY))/2
Hit.Play
Hit.Position = 0
IF EN(I).S < 1 THEN
Bye.Play
Bye.Position = 0
AllGone = AllGone - 1
IF I = 1 OR I = 2 THEN Score = Score + 6
IF I = 3 OR I = 4 THEN Score = Score + 7
IF I = 5 OR I = 6 THEN Score = Score + 8
IF I = 7 OR I = 8 THEN Score = Score + 9
IF I = 9 OR I = 10 THEN Score = Score + 10
END IF
END IF
IF (INT(En(I).X) - INT(Pel(Q).X))^2 + (INT(En(I).Y) - INT(Pel(Q).Y))^2 < (En(I).S + Pel(Q).S/20)^2 AND En(I).S > 0 AND Pel(Q).S > 0 AND AllGone < 1 THEN
Bye.Play
Bye.Position = 0
Pel(Q).S = 0: En(I).S = 0: AllGone = AllGone - 1
IF I = 1 OR I = 2 THEN Score = Score - 6
IF I = 3 OR I = 4 THEN Score = Score - 7
IF I = 5 OR I = 6 THEN Score = Score - 8
IF I = 7 OR I = 8 THEN Score = Score - 9
IF I = 9 OR I = 10 THEN Score = Score - 10
END IF
IF (INT(En(I).X) - INT(InvX))^2 + (INT(En(I).Y) - INT(InvY))^2 < (En(I).S + 5)^2 AND En(I).S > 0 AND Energy > 0 AND Move > -1 AND AllGone > 0 THEN Energy = 0: En(I).S = En(I).S - 1
Q = 3
IF (INT(En(I).X) - INT(Pel(Q).X))^2 + (INT(En(I).Y) - INT(Pel(Q).Y))^2 < (En(I).S + Pel(Q).S/20)^2 AND En(I).S > 0 AND Pel(Q).S > 0 AND AllGone > 0 THEN
En(I).S = En(I).S - Pel(Q).S/50: Pel(Q).S = 0: En(I).VX = (INT(En(I).VX) + INT(Pel(Q).VX))/2: En(I).VY = (INT(En(I).VY) + INT(Pel(Q).VY))/2
Hit.Play
Hit.Position = 0
IF EN(I).S < 1 THEN
Bye.Play
Bye.Position = 0
AllGone = AllGone - 1
IF I = 1 OR I = 2 THEN Score = Score + 6
IF I = 3 OR I = 4 THEN Score = Score + 7
IF I = 5 OR I = 6 THEN Score = Score + 8
IF I = 7 OR I = 8 THEN Score = Score + 9
IF I = 9 OR I = 10 THEN Score = Score + 10
END IF
END IF
IF (INT(En(I).X) - INT(Pel(Q).X))^2 + (INT(En(I).Y) - INT(Pel(Q).Y))^2 < (En(I).S + Pel(Q).S/20)^2 AND En(I).S > 0 AND Pel(Q).S > 0 AND AllGone < 1 THEN
Bye.Play
Bye.Position = 0
Pel(Q).S = 0: En(I).S = 0: AllGone = AllGone - 1
IF I = 1 OR I = 2 THEN Score = Score - 6
IF I = 3 OR I = 4 THEN Score = Score - 7
IF I = 5 OR I = 6 THEN Score = Score - 8
IF I = 7 OR I = 8 THEN Score = Score - 9
IF I = 9 OR I = 10 THEN Score = Score - 10
END IF
IF (INT(En(I).X) - INT(InvX))^2 + (INT(En(I).Y) - INT(InvY))^2 < (En(I).S + 5)^2 AND En(I).S > 0 AND Energy > 0 AND Move > -1 AND AllGone > 0 THEN Energy = 0: En(I).S = En(I).S - 1
Q = 4
IF (INT(En(I).X) - INT(Pel(Q).X))^2 + (INT(En(I).Y) - INT(Pel(Q).Y))^2 < (En(I).S + Pel(Q).S/20)^2 AND En(I).S > 0 AND Pel(Q).S > 0 AND AllGone > 0 THEN
En(I).S = En(I).S - Pel(Q).S/50: Pel(Q).S = 0: En(I).VX = (INT(En(I).VX) + INT(Pel(Q).VX))/2: En(I).VY = (INT(En(I).VY) + INT(Pel(Q).VY))/2
Hit.Play
Hit.Position = 0
IF EN(I).S < 1 THEN
Bye.Play
Bye.Position = 0
AllGone = AllGone - 1
IF I = 1 OR I = 2 THEN Score = Score + 6
IF I = 3 OR I = 4 THEN Score = Score + 7
IF I = 5 OR I = 6 THEN Score = Score + 8
IF I = 7 OR I = 8 THEN Score = Score + 9
IF I = 9 OR I = 10 THEN Score = Score + 10
END IF
END IF
IF (INT(En(I).X) - INT(Pel(Q).X))^2 + (INT(En(I).Y) - INT(Pel(Q).Y))^2 < (En(I).S + Pel(Q).S/20)^2 AND En(I).S > 0 AND Pel(Q).S > 0 AND AllGone < 1 THEN
Bye.Play
Bye.Position = 0
Pel(Q).S = 0: En(I).S = 0: AllGone = AllGone - 1
IF I = 1 OR I = 2 THEN Score = Score - 6
IF I = 3 OR I = 4 THEN Score = Score - 7
IF I = 5 OR I = 6 THEN Score = Score - 8
IF I = 7 OR I = 8 THEN Score = Score - 9
IF I = 9 OR I = 10 THEN Score = Score - 10
END IF
IF (INT(En(I).X) - INT(InvX))^2 + (INT(En(I).Y) - INT(InvY))^2 < (En(I).S + 5)^2 AND En(I).S > 0 AND Energy > 0 AND Move > -1 AND AllGone > 0 THEN Energy = 0: En(I).S = En(I).S - 1
Q = 5
IF (INT(En(I).X) - INT(Pel(Q).X))^2 + (INT(En(I).Y) - INT(Pel(Q).Y))^2 < (En(I).S + Pel(Q).S/20)^2 AND En(I).S > 0 AND Pel(Q).S > 0 AND AllGone > 0 THEN
En(I).S = En(I).S - Pel(Q).S/50: Pel(Q).S = 0: En(I).VX = (INT(En(I).VX) + INT(Pel(Q).VX))/2: En(I).VY = (INT(En(I).VY) + INT(Pel(Q).VY))/2
Hit.Play
Hit.Position = 0
IF EN(I).S < 1 THEN
Bye.Play
Bye.Position = 0
AllGone = AllGone - 1
IF I = 1 OR I = 2 THEN Score = Score + 6
IF I = 3 OR I = 4 THEN Score = Score + 7
IF I = 5 OR I = 6 THEN Score = Score + 8
IF I = 7 OR I = 8 THEN Score = Score + 9
IF I = 9 OR I = 10 THEN Score = Score + 10
END IF
END IF
IF (INT(En(I).X) - INT(Pel(Q).X))^2 + (INT(En(I).Y) - INT(Pel(Q).Y))^2 < (En(I).S + Pel(Q).S/20)^2 AND En(I).S > 0 AND Pel(Q).S > 0 AND AllGone < 1 THEN
Bye.Play
Bye.Position = 0
Pel(Q).S = 0: En(I).S = 0: AllGone = AllGone - 1
IF I = 1 OR I = 2 THEN Score = Score - 6
IF I = 3 OR I = 4 THEN Score = Score - 7
IF I = 5 OR I = 6 THEN Score = Score - 8
IF I = 7 OR I = 8 THEN Score = Score - 9
IF I = 9 OR I = 10 THEN Score = Score - 10
END IF
IF (INT(En(I).X) - INT(InvX))^2 + (INT(En(I).Y) - INT(InvY))^2 < (En(I).S + 5)^2 AND En(I).S > 0 AND Energy > 0 AND Move > -1 AND AllGone > 0 THEN Energy = 0: En(I).S = En(I).S - 1
Q = 6
IF (INT(En(I).X) - INT(Pel(Q).X))^2 + (INT(En(I).Y) - INT(Pel(Q).Y))^2 < (En(I).S + Pel(Q).S/20)^2 AND En(I).S > 0 AND Pel(Q).S > 0 AND AllGone > 0 THEN
En(I).S = En(I).S - Pel(Q).S/50: Pel(Q).S = 0: En(I).VX = (INT(En(I).VX) + INT(Pel(Q).VX))/2: En(I).VY = (INT(En(I).VY) + INT(Pel(Q).VY))/2
Hit.Play
Hit.Position = 0
IF EN(I).S < 1 THEN
Bye.Play
Bye.Position = 0
AllGone = AllGone - 1
IF I = 1 OR I = 2 THEN Score = Score + 6
IF I = 3 OR I = 4 THEN Score = Score + 7
IF I = 5 OR I = 6 THEN Score = Score + 8
IF I = 7 OR I = 8 THEN Score = Score + 9
IF I = 9 OR I = 10 THEN Score = Score + 10
END IF
END IF
IF (INT(En(I).X) - INT(Pel(Q).X))^2 + (INT(En(I).Y) - INT(Pel(Q).Y))^2 < (En(I).S + Pel(Q).S/20)^2 AND En(I).S > 0 AND Pel(Q).S > 0 AND AllGone < 1 THEN
Bye.Play
Bye.Position = 0
Pel(Q).S = 0: En(I).S = 0: AllGone = AllGone - 1
IF I = 1 OR I = 2 THEN Score = Score - 6
IF I = 3 OR I = 4 THEN Score = Score - 7
IF I = 5 OR I = 6 THEN Score = Score - 8
IF I = 7 OR I = 8 THEN Score = Score - 9
IF I = 9 OR I = 10 THEN Score = Score - 10
END IF
IF (INT(En(I).X) - INT(InvX))^2 + (INT(En(I).Y) - INT(InvY))^2 < (En(I).S + 5)^2 AND En(I).S > 0 AND Energy > 0 AND Move > -1 AND AllGone > 0 THEN Energy = 0: En(I).S = En(I).S - 1
Q = 7
IF (INT(En(I).X) - INT(Pel(Q).X))^2 + (INT(En(I).Y) - INT(Pel(Q).Y))^2 < (En(I).S + Pel(Q).S/20)^2 AND En(I).S > 0 AND Pel(Q).S > 0 AND AllGone > 0 THEN
En(I).S = En(I).S - Pel(Q).S/50: Pel(Q).S = 0: En(I).VX = (INT(En(I).VX) + INT(Pel(Q).VX))/2: En(I).VY = (INT(En(I).VY) + INT(Pel(Q).VY))/2
Hit.Play
Hit.Position = 0
IF EN(I).S < 1 THEN
Bye.Play
Bye.Position = 0
AllGone = AllGone - 1
IF I = 1 OR I = 2 THEN Score = Score + 6
IF I = 3 OR I = 4 THEN Score = Score + 7
IF I = 5 OR I = 6 THEN Score = Score + 8
IF I = 7 OR I = 8 THEN Score = Score + 9
IF I = 9 OR I = 10 THEN Score = Score + 10
END IF
END IF
IF (INT(En(I).X) - INT(Pel(Q).X))^2 + (INT(En(I).Y) - INT(Pel(Q).Y))^2 < (En(I).S + Pel(Q).S/20)^2 AND En(I).S > 0 AND Pel(Q).S > 0 AND AllGone < 1 THEN
Bye.Play
Bye.Position = 0
Pel(Q).S = 0: En(I).S = 0: AllGone = AllGone - 1
IF I = 1 OR I = 2 THEN Score = Score - 6
IF I = 3 OR I = 4 THEN Score = Score - 7
IF I = 5 OR I = 6 THEN Score = Score - 8
IF I = 7 OR I = 8 THEN Score = Score - 9
IF I = 9 OR I = 10 THEN Score = Score - 10
END IF
IF (INT(En(I).X) - INT(InvX))^2 + (INT(En(I).Y) - INT(InvY))^2 < (En(I).S + 5)^2 AND En(I).S > 0 AND Energy > 0 AND Move > -1 AND AllGone > 0 THEN Energy = 0: En(I).S = En(I).S - 1
Q = 8
IF (INT(En(I).X) - INT(Pel(Q).X))^2 + (INT(En(I).Y) - INT(Pel(Q).Y))^2 < (En(I).S + Pel(Q).S/20)^2 AND En(I).S > 0 AND Pel(Q).S > 0 AND AllGone > 0 THEN
En(I).S = En(I).S - Pel(Q).S/50: Pel(Q).S = 0: En(I).VX = (INT(En(I).VX) + INT(Pel(Q).VX))/2: En(I).VY = (INT(En(I).VY) + INT(Pel(Q).VY))/2
Hit.Play
Hit.Position = 0
IF EN(I).S < 1 THEN
Bye.Play
Bye.Position = 0
AllGone = AllGone - 1
IF I = 1 OR I = 2 THEN Score = Score + 6
IF I = 3 OR I = 4 THEN Score = Score + 7
IF I = 5 OR I = 6 THEN Score = Score + 8
IF I = 7 OR I = 8 THEN Score = Score + 9
IF I = 9 OR I = 10 THEN Score = Score + 10
END IF
END IF
IF (INT(En(I).X) - INT(Pel(Q).X))^2 + (INT(En(I).Y) - INT(Pel(Q).Y))^2 < (En(I).S + Pel(Q).S/20)^2 AND En(I).S > 0 AND Pel(Q).S > 0 AND AllGone < 1 THEN
Bye.Play
Bye.Position = 0
Pel(Q).S = 0: En(I).S = 0: AllGone = AllGone - 1
IF I = 1 OR I = 2 THEN Score = Score - 6
IF I = 3 OR I = 4 THEN Score = Score - 7
IF I = 5 OR I = 6 THEN Score = Score - 8
IF I = 7 OR I = 8 THEN Score = Score - 9
IF I = 9 OR I = 10 THEN Score = Score - 10
END IF
IF (INT(En(I).X) - INT(InvX))^2 + (INT(En(I).Y) - INT(InvY))^2 < (En(I).S + 5)^2 AND En(I).S > 0 AND Energy > 0 AND Move > -1 AND AllGone > 0 THEN Energy = 0: En(I).S = En(I).S - 1
Q = 9
IF (INT(En(I).X) - INT(Pel(Q).X))^2 + (INT(En(I).Y) - INT(Pel(Q).Y))^2 < (En(I).S + Pel(Q).S/20)^2 AND En(I).S > 0 AND Pel(Q).S > 0 AND AllGone > 0 THEN
En(I).S = En(I).S - Pel(Q).S/50: Pel(Q).S = 0: En(I).VX = (INT(En(I).VX) + INT(Pel(Q).VX))/2: En(I).VY = (INT(En(I).VY) + INT(Pel(Q).VY))/2
Hit.Play
Hit.Position = 0
IF EN(I).S < 1 THEN
Bye.Play
Bye.Position = 0
AllGone = AllGone - 1
IF I = 1 OR I = 2 THEN Score = Score + 6
IF I = 3 OR I = 4 THEN Score = Score + 7
IF I = 5 OR I = 6 THEN Score = Score + 8
IF I = 7 OR I = 8 THEN Score = Score + 9
IF I = 9 OR I = 10 THEN Score = Score + 10
END IF
END IF
IF (INT(En(I).X) - INT(Pel(Q).X))^2 + (INT(En(I).Y) - INT(Pel(Q).Y))^2 < (En(I).S + Pel(Q).S/20)^2 AND En(I).S > 0 AND Pel(Q).S > 0 AND AllGone < 1 THEN
Bye.Play
Bye.Position = 0
Pel(Q).S = 0: En(I).S = 0: AllGone = AllGone - 1
IF I = 1 OR I = 2 THEN Score = Score - 6
IF I = 3 OR I = 4 THEN Score = Score - 7
IF I = 5 OR I = 6 THEN Score = Score - 8
IF I = 7 OR I = 8 THEN Score = Score - 9
IF I = 9 OR I = 10 THEN Score = Score - 10
END IF
IF (INT(En(I).X) - INT(InvX))^2 + (INT(En(I).Y) - INT(InvY))^2 < (En(I).S + 5)^2 AND En(I).S > 0 AND Energy > 0 AND Move > -1 AND AllGone > 0 THEN Energy = 0: En(I).S = En(I).S - 1
Q = 10
IF (INT(En(I).X) - INT(Pel(Q).X))^2 + (INT(En(I).Y) - INT(Pel(Q).Y))^2 < (En(I).S + Pel(Q).S/20)^2 AND En(I).S > 0 AND Pel(Q).S > 0 AND AllGone > 0 THEN
En(I).S = En(I).S - Pel(Q).S/50: Pel(Q).S = 0: En(I).VX = (INT(En(I).VX) + INT(Pel(Q).VX))/2: En(I).VY = (INT(En(I).VY) + INT(Pel(Q).VY))/2
Hit.Play
Hit.Position = 0
IF EN(I).S < 1 THEN
Bye.Play
Bye.Position = 0
AllGone = AllGone - 1
IF I = 1 OR I = 2 THEN Score = Score + 6
IF I = 3 OR I = 4 THEN Score = Score + 7
IF I = 5 OR I = 6 THEN Score = Score + 8
IF I = 7 OR I = 8 THEN Score = Score + 9
IF I = 9 OR I = 10 THEN Score = Score + 10
END IF
END IF
IF (INT(En(I).X) - INT(Pel(Q).X))^2 + (INT(En(I).Y) - INT(Pel(Q).Y))^2 < (En(I).S + Pel(Q).S/20)^2 AND En(I).S > 0 AND Pel(Q).S > 0 AND AllGone < 1 THEN
Bye.Play
Bye.Position = 0
Pel(Q).S = 0: En(I).S = 0: AllGone = AllGone - 1
IF I = 1 OR I = 2 THEN Score = Score - 6
IF I = 3 OR I = 4 THEN Score = Score - 7
IF I = 5 OR I = 6 THEN Score = Score - 8
IF I = 7 OR I = 8 THEN Score = Score - 9
IF I = 9 OR I = 10 THEN Score = Score - 10
END IF
IF (INT(En(I).X) - INT(InvX))^2 + (INT(En(I).Y) - INT(InvY))^2 < (En(I).S + 5)^2 AND En(I).S > 0 AND Energy > 0 AND Move > -1 AND AllGone > 0 THEN Energy = 0: En(I).S = En(I).S - 1
IF En(I).X - En(I).S + En(I).VX < 2 THEN En(I).VX = En(I).VX*-1
IF En(I).X + En(I).S + En(I).VX > 637 THEN En(I).VX = En(I).VX*-1
IF En(I).Y - En(I).S + EN(I).VY < 2 THEN En(I).VY = En(I).VY*-1
IF En(I).Y + En(I).S + En(I).VY > 477 THEN En(I).VY = En(I).VY*-1
En(I).X = En(I).X + En(I).VX: En(I).Y = En(I).Y + En(I).VY
IF AllGone < 1 THEN DXScreen.Circle(En(I).X - En(I).S, En(I).Y - En(I).S, En(I).X + En(I).S, En(I).Y + En(I).S, &H008400, &H00FF00)
IF En(I).S > 0 AND AllGone > 0 AND Leet = 0 THEN DXScreen.Circle(En(I).X - En(I).S, En(I).Y - En(I).S, En(I).X + En(I).S, En(I).Y + En(I).S, &H000084, &H0000FF)
IF En(I).S > 0 AND AllGone > 0 AND Leet = 1 THEN DXScreen.Circle(En(I).X - En(I).S, En(I).Y - En(I).S, En(I).X + En(I).S, En(I).Y + En(I).S, &H008400, &H00FF00)
IF Pel(I).S > 0 THEN Pel(I).S = Pel(I).S - 1
IF Pel(I).X - Pel(I).S/20 + Pel(I).VX < 2 THEN Pel(I).VX = Pel(I).VX*-1
IF Pel(I).X + Pel(I).S/20 + Pel(I).VX > 637 THEN Pel(I).VX = Pel(I).VX*-1
IF Pel(I).Y - Pel(I).S/20 + Pel(I).VY < 2 THEN Pel(I).VY = Pel(I).VY*-1
IF Pel(I).Y + Pel(I).S/20 + Pel(I).VY > 477 THEN Pel(I).VY = Pel(I).VY*-1
Pel(I).X = Pel(I).X + Pel(I).VX: Pel(I).Y = Pel(I).Y + Pel(I).VY
IF AllGone < 1 AND Pel(I).S > 0 THEN DXScreen.Circle(Pel(I).X-Pel(I).S/20, Pel(I).Y-Pel(I).S/20, Pel(I).X+Pel(I).S/20, Pel(I).Y+Pel(I).S/20, &H000084, &H0000FF)
IF AllGone > 0 AND Pel(I).S > 0 AND Leet = 0 THEN DXScreen.Circle(Pel(I).X-Pel(I).S/20, Pel(I).Y-Pel(I).S/20, Pel(I).X+Pel(I).S/20, Pel(I).Y+Pel(I).S/20, &H008400, &H00FF00)
IF AllGone > 0 AND Pel(I).S > 0 AND Leet = 1 THEN DXScreen.Circle(Pel(I).X-Pel(I).S/20, Pel(I).Y-Pel(I).S/20, Pel(I).X+Pel(I).S/20, Pel(I).Y+Pel(I).S/20, &H000084, &H0000FF)
NEXT I
IF Move <> 0 THEN
Multiplier = 0
IF Leet = 0 AND LeetMode = 0 THEN Multiplier = 2
IF Leet = 1 AND LeetMode = 0 THEN Multiplier = 3
IF Leet = 0 AND LeetMode > 0 THEN Multiplier = 3
IF Leet = 1 AND LeetMode > 0 THEN Multiplier = 4.5
IF ABS(Move) < 204 THEN Move = Move - 1
IF InvX - 5 + (COSFAST(Test) * Multiplier) < 2 THEN
IF Test < 180 THEN Test = Test - 90
IF Test > 180 THEN Test = Test + 90
IF Test = 180 THEN Test = Test - 180
IF Test < 1 THEN Test = Test + 360
IF Test > 360 THEN Test = Test - 360
Boing.Play: Boing.Position = 0
END IF
IF InvX + 5 + (COSFAST(Test) * Multiplier) > 638 THEN
IF Test < 360 AND Test > 270 THEN Test = Test - 90
IF Test > 0 AND Test < 90 THEN Test = Test + 90
IF Test = 360 THEN Test = Test - 180
IF Test < 1 THEN Test = Test + 360
IF Test > 360 THEN Test = Test - 360
Boing.Play: Boing.Position = 0
END IF
IF InvY - 5 + (SINFAST(Test) * Multiplier) < 2 THEN
IF Test < 270 THEN Test = Test - 90
IF Test > 270 THEN Test = Test + 90
IF Test = 270 THEN Test = Test - 180
IF Test < 1 THEN Test = Test + 360
IF Test > 360 THEN Test = Test - 360
Boing.Play: Boing.Position = 0
END IF
IF InvY + 5 + (SINFAST(Test) * Multiplier) > 478 THEN
IF Test < 90 THEN Test = Test - 90
IF Test > 90 THEN Test = Test + 90
IF Test = 90 THEN Test = Test - 180
IF Test < 1 THEN Test = Test + 360
IF Test > 360 THEN Test = Test - 360
Boing.Play: Boing.Position = 0
END IF
InvX = InvX + COSFAST(Test) * Multiplier: InvY = InvY + SINFAST(Test) * Multiplier
END IF
IF Move > 0 AND Leet = 0 THEN DXScreen.Line(InvX, InvY, InvX-COSFAST(Test)*7, InvY-SINFAST(Test)*7, &H008400)
IF Move > -1 AND Leet = 0 THEN DXScreen.Line(InvX, InvY, InvX+COSFAST(Test)*15, InvY+SINFAST(Test)*15, &H008400): DXScreen.Circle(InvX-5, InvY-5, InvX+5, InvY+5, &H008400, &H00FF00)
IF Move > 0 AND Leet = 1 THEN DXScreen.Line(InvX, InvY, InvX-COSFAST(Test)*7, InvY-SINFAST(Test)*7, &H000084)
IF Move > -1 AND Leet = 1 THEN DXScreen.Line(InvX, InvY, InvX+COSFAST(Test)*15, InvY+SINFAST(Test)*15, &H000084): DXScreen.Circle(InvX-5, InvY-5, InvX+5, InvY+5, &H000084, &H0000FF)
IF Move < 0 THEN DXScreen.Circle(InvX-5, InvY-5, InvX+5, InvY+5, &H000084, &H0000FF)
DXScreen.Flip
END SUB
|
|
搜索
论坛
Home
回顶部
g.yi.org Hits:0 Last modified:2013-06-19 07:46:35
