I just got DBPro, and tried to use DBClassic source code in a program for it, but it doesn't work! So, could someone 'translate' this code so that it works with DBPro? I know there are things about it I could have written better, but it runs fine (although slowly because of the giant map) in DBClassic...
Rem * Title : Agent X - Jungle Warfare
XRQStartUp:
print "Agent X in:"
print "Jungle Warfare"
print "Version 0.7"
print " "
print "Press any key to start."
suspend for key
cls
XRQLoad:
rem Set Player position
sprite1x = 295
sprite1y = 100
rem Set Bullet position
sprite2x = 295
sprite2y = 100
rem Set Enemy position
sprite3x = 0
sprite3y = 0
sprite4x = 590
sprite4y = 0
sprite5x = 0
sprite5y = 430
sprite6x = 590
sprite6y = 430
rem Set Enemy Bullet position
sprite7x = 0
sprite7y = 0
sprite8x = 590
sprite8y = 0
sprite9x = 0
sprite9y = 430
sprite10x = 590
sprite10y = 430
sprite31x = 195
sprite31y = -700
rem Set saved positions
oldsp1x = sprite1x
oldsp1y = sprite1y
oldsp2x = sprite2x
oldsp2y = sprite2y
oldsp3x = sprite3x
oldsp3y = sprite3y
oldsp4x = sprite4x
oldsp4y = sprite4y
oldsp5x = sprite5x
oldsp5y = sprite5y
oldsp6x = sprite6x
oldsp6y = sprite6y
oldsp7x = sprite7x
oldsp7y = sprite7y
oldsp8x = sprite8x
oldsp8y = spritey8
oldsp9x = sprite9x
oldsp9y = sprite9y
oldsp10x = sprite10x
oldsp10y = sprite10y
oldsp31x = sprite31x
oldsp31y = sprite31y
rem Load Player bitmaps, make sprite
load bitmap "BG1.bmp"
get image 77,0,0,640,480
sprite 31,sprite31x,sprite31y,77
scale sprite 31,200
load bitmap "AgentXUp.bmp"
get image 1,0,0,50,50
sprite 1,sprite1x,sprite1y,1
load bitmap "AgentXLeft.bmp"
get image 2,0,0,50,50
load bitmap "AgentXRight.bmp"
get image 3,0,0,50,50
load bitmap "AgentXDown.bmp"
get image 4,0,0,50,50
rem Load Bullet sprite, make sprite
load bitmap "Bullet.bmp"
get image 9,0,0,50,50
get image 19,0,0,50,50
sprite 2,sprite2x,sprite2y,9
sprite 7,sprite7x,sprite7y,12
sprite 8,sprite8x,sprite8y,12
sprite 9,sprite9x,sprite9y,12
sprite 10,sprite10x,sprite10y,12
rem Load Enemy sprite, make sprite
load bitmap "EnemyUp.bmp"
get image 11,0,0,50,50
load bitmap "EnemyLeft.bmp"
get image 12,0,0,50,50
load bitmap "EnemyRight.bmp"
get image 13,0,0,50,50
load bitmap "EnemyDown.bmp"
get image 14,0,0,50,50
sprite 3,sprite3x,sprite3y,11
sprite 4,sprite4x,sprite4y,11
sprite 5,sprite5x,sprite5y,11
sprite 6,sprite6x,sprite6y,11
load bitmap "Black.bmp"
rem Set Bullet firing status and Bullet countdown status
bulletfire = 0
bullettime = 5
rem Set Enemy Bullet firing status and Enemy Bullet countdown status
e3bulletfire = 0
e3bullettime = 4
e4bulletfire = 0
e4bullettime = 4
e5bulletfire = 0
e5bullettime = 4
e6bulletfire = 0
e6bullettime = 4
rem Set initial Player orientation
orient = 1
rem Set initial Enemy orientation
e3orient = 5
e4orient = 6
e5orient = 7
e6orient = 8
rem Set whether Enemy exists or not
enemy3 = 1
enemy4 = 1
enemy5 = 1
enemy6 = 1
rem Make sure all sprites are displayed
show all sprites
rem Set Player health
playerhealth = 1000
XRQMainRoutine:
wait 1
cls
rem wait 1
rem Set 'new' saved positions
oldsp1x = sprite1x
oldsp1y = sprite1y
oldsp2x = sprite2x
oldsp2y = sprite2y
oldsp3x = sprite3x
oldsp3y = sprite3y
oldsp4x = sprite4x
oldsp4y = sprite4y
oldsp5x = sprite5x
oldsp5y = sprite5y
oldsp6x = sprite6x
oldsp6y = sprite6y
oldsp7x = sprite7x
oldsp7y = sprite7y
oldsp8x = sprite8x
oldsp8y = sprite8y
oldsp9x = sprite9x
oldsp9y = sprite9y
oldsp10x = sprite10x
oldsp10y = sprite10y
oldsp31x = sprite31x
oldsp31y = sprite31y
rem Set Enemy firing randomness
rem Check Player Health
if playerhealth sprite1x and enemy3 = 1 then e3orient = 2 else
if sprite3x sprite1y and enemy3 = 1 then e3orient = 1 else
if sprite3y sprite1x and enemy4 = 1 then e4orient = 2 else
if sprite4x sprite1y and enemy4 = 1 then e4orient = 1 else
if sprite4y sprite1x and enemy5 = 1 then e5orient = 2 else
if sprite5x sprite1y and enemy5 = 1 then e5orient = 1 else
if sprite5y sprite1x and enemy6 = 1 then e6orient = 2 else
if sprite6x sprite1y and enemy6 = 1 then e6orient = 1 else
if sprite6y sprite1x and sprite3y > sprite1y and enemy3 = 1 then e3orient = 5 else
if sprite3x sprite1y and enemy3 = 1 then e3orient = 6 else
if sprite3x > sprite1x and sprite3y sprite1x and sprite4y > sprite1y and enemy4 = 1 then e4orient = 5 else
if sprite4x sprite1y and enemy4 = 1 then e4orient = 6 else
if sprite4x > sprite1x and sprite4y sprite1x and sprite5y > sprite1y and enemy5 = 1 then e5orient = 5 else
if sprite5x sprite1y and enemy5 = 1 then e5orient = 6 else
if sprite5x > sprite1x and sprite5y sprite1x and sprite6y > sprite1y and enemy6 = 1 then e6orient = 5 else
if sprite6x sprite1y and enemy6 = 1 then e6orient = 6 else
if sprite6x > sprite1x and sprite6y sprite1x and enemy3 = 1 and sprite collision(3,31) sprite1y and enemy3 = 1 and sprite collision(3,31) sprite1x and enemy4 = 1 and sprite collision(4,31) sprite1y and enemy4 = 1 and sprite collision(4,31) sprite1x and enemy5 = 1 and sprite collision(5,31) sprite1y and enemy5 = 1 and sprite collision(5,31) sprite1x and enemy6 = 1 and sprite collision(6,31) sprite1y and enemy6 = 1 and sprite collision(6,31)0 and orient = 3 then sprite1x = oldsp1x - 10
if sprite collision(1,31)>0 and orient = 1 then sprite1y = oldsp1y - 10
if sprite collision(1,31)>0 and orient = 2 then sprite1x = oldsp1x + 10
if sprite collision(1,31)>0 and orient = 4 then sprite1y = oldsp1y + 10
if sprite collision(1,31)>0 and orient = 5 then sprite1x = oldsp1x + 10
if sprite collision(1,31)>0 and orient = 5 then sprite1y = oldsp1y + 10
if sprite collision(1,31)>0 and orient = 6 then sprite1x = oldsp1x - 10
if sprite collision(1,31)>0 and orient = 6 then sprite1y = oldsp1y + 10
if sprite collision(1,31)>0 and orient = 7 then sprite1x = oldsp1x + 10
if sprite collision(1,31)>0 and orient = 7 then sprite1y = oldsp1y - 10
if sprite collision(1,31)>0 and orient = 8 then sprite1x = oldsp1x - 10
if sprite collision(1,31)>0 and orient = 8 then sprite1y = oldsp1y - 10
if sprite collision(2,31)>0 then sprite2x = sprite1x
if sprite collision(2,31)>0 then sprite2y = sprite1y
if sprite collision(1,3)>0 then playerhealth = playerhealth - 1 else
if sprite collision(2,3)>0 and bulletfire = 1 then enemy3 = 0 else
if sprite collision(2,3)>0 then delete sprite 2
if sprite collision(1,4)>0 then playerhealth = playerhealth - 1 else
if sprite collision(2,4)>0 and bulletfire = 1 then enemy4 = 0 else
if sprite collision(2,4)>0 then delete sprite 2
if sprite collision(1,5)>0 then playerhealth = playerhealth - 1 else
if sprite collision(2,5)>0 and bulletfire = 1 then enemy5 = 0 else
if sprite collision(2,5)>0 then delete sprite 2
if sprite collision(1,6)>0 then playerhealth = playerhealth - 1 else
if sprite collision(2,6)>0 and bulletfire = 1 then enemy6 = 0 else
if sprite collision(2,6)>0 then delete sprite 2
if sprite collision(1,7)>0 then playerhealth = playerhealth - 10
if sprite collision(1,8)>0 then playerhealth = playerhealth - 10
if sprite collision(1,9)>0 then playerhealth = playerhealth - 10
if sprite collision(1,10)>0 then playerhealth = playerhealth - 10
rem Determine if enemies have hit map
if sprite collision(3,31)>0 and e3orient = 3 then sprite3x = oldsp3x + 10
if sprite collision(3,31)>0 and e3orient = 1 then sprite3y = oldsp3y + 10
if sprite collision(4,31)>0 and e4orient = 3 then sprite4x = oldsp4x + 10
if sprite collision(4,31)>0 and e4orient = 1 then sprite4y = oldsp4y + 10
if sprite collision(5,31)>0 and e5orient = 3 then sprite5x = oldsp5x + 10
if sprite collision(5,31)>0 and e5orient = 1 then sprite5y = oldsp5y + 10
if sprite collision(6,31)>0 and e6orient = 3 then sprite6x = oldsp6x + 10
if sprite collision(6,31)>0 and e6orient = 1 then sprite6y = oldsp6y + 10
if sprite collision(3,31)>0 and e3orient = 2 then sprite3x = oldsp3x - 10
if sprite collision(3,31)>0 and e3orient = 4 then sprite3y = oldsp3y - 10
if sprite collision(4,31)>0 and e4orient = 2 then sprite4x = oldsp4x - 10
if sprite collision(4,31)>0 and e4orient = 4 then sprite4y = oldsp4y - 10
if sprite collision(5,31)>0 and e5orient = 2 then sprite5x = oldsp5x - 10
if sprite collision(5,31)>0 and e5orient = 4 then sprite5y = oldsp5y - 10
if sprite collision(6,31)>0 and e6orient = 2 then sprite6x = oldsp6x - 10
if sprite collision(6,31)>0 and e6orient = 4 then sprite6y = oldsp6y - 10
if sprite collision(3,31)>0 and e3orient = 5 then sprite3x = oldsp3x - 10
if sprite collision(3,31)>0 and e3orient = 5 then sprite3y = oldsp3y - 10
if sprite collision(4,31)>0 and e4orient = 5 then sprite4x = oldsp4x + 10
if sprite collision(4,31)>0 and e4orient = 5 then sprite4y = oldsp4y + 10
if sprite collision(5,31)>0 and e5orient = 5 then sprite5x = oldsp5x + 10
if sprite collision(5,31)>0 and e5orient = 5 then sprite5y = oldsp5y + 10
if sprite collision(6,31)>0 and e6orient = 5 then sprite6x = oldsp6x + 10
if sprite collision(6,31)>0 and e6orient = 5 then sprite6y = oldsp6y + 10
if sprite collision(3,31)>0 and e3orient = 6 then sprite3x = oldsp3x + 10
if sprite collision(3,31)>0 and e3orient = 6 then sprite3y = oldsp3y - 10
if sprite collision(4,31)>0 and e4orient = 6 then sprite4x = oldsp4x - 10
if sprite collision(4,31)>0 and e4orient = 6 then sprite4y = oldsp4y + 10
if sprite collision(5,31)>0 and e5orient = 6 then sprite5x = oldsp5x - 10
if sprite collision(5,31)>0 and e5orient = 6 then sprite5y = oldsp5y + 10
if sprite collision(6,31)>0 and e6orient = 6 then sprite6x = oldsp6x - 10
if sprite collision(6,31)>0 and e6orient = 6 then sprite6y = oldsp6y + 10
if sprite collision(3,31)>0 and e3orient = 7 then sprite3x = oldsp3x - 10
if sprite collision(3,31)>0 and e3orient = 7 then sprite3y = oldsp3y + 10
if sprite collision(4,31)>0 and e4orient = 7 then sprite4x = oldsp4x + 10
if sprite collision(4,31)>0 and e4orient = 7 then sprite4y = oldsp4y - 10
if sprite collision(5,31)>0 and e5orient = 7 then sprite5x = oldsp5x + 10
if sprite collision(5,31)>0 and e5orient = 7 then sprite5y = oldsp5y - 10
if sprite collision(6,31)>0 and e6orient = 7 then sprite6x = oldsp6x + 10
if sprite collision(6,31)>0 and e6orient = 7 then sprite6y = oldsp6y - 10
if sprite collision(3,31)>0 and e3orient = 8 then sprite3x = oldsp3x + 10
if sprite collision(3,31)>0 and e3orient = 8 then sprite3y = oldsp3y + 10
if sprite collision(4,31)>0 and e4orient = 8 then sprite4x = oldsp4x - 10
if sprite collision(4,31)>0 and e4orient = 8 then sprite4y = oldsp4y - 10
if sprite collision(5,31)>0 and e5orient = 8 then sprite5x = oldsp5x - 10
if sprite collision(5,31)>0 and e5orient = 8 then sprite5y = oldsp5y - 10
if sprite collision(6,31)>0 and e6orient = 8 then sprite6x = oldsp6x - 10
if sprite collision(6,31)>0 and e6orient = 8 then sprite6y = oldsp6y - 10
rem Determine if one Enemy has hit another +
if sprite collision(3,4)>0 and e3orient = 3 then sprite3x = oldsp3x + 10
if sprite collision(3,4)>0 and e3orient = 1 then sprite3y = oldsp3y + 10
if sprite collision(3,5)>0 and e3orient = 3 then sprite3x = oldsp3x + 10
if sprite collision(3,5)>0 and e3orient = 1 then sprite3y = oldsp3y + 10
if sprite collision(3,6)>0 and e3orient = 3 then sprite3x = oldsp3x + 10
if sprite collision(3,6)>0 and e3orient = 1 then sprite3y = oldsp3y + 10
if sprite collision(4,3)>0 and e4orient = 3 then sprite4x = oldsp4x - 10
if sprite collision(4,3)>0 and e4orient = 1 then sprite4y = oldsp4y - 10
if sprite collision(4,5)>0 and e4orient = 3 then sprite4x = oldsp4x + 10
if sprite collision(4,5)>0 and e4orient = 1 then sprite4y = oldsp4y + 10
if sprite collision(4,6)>0 and e4orient = 3 then sprite4x = oldsp4x + 10
if sprite collision(4,6)>0 and e4orient = 1 then sprite4y = oldsp4y + 10
if sprite collision(5,3)>0 and e5orient = 3 then sprite5x = oldsp5x - 10
if sprite collision(5,3)>0 and e5orient = 1 then sprite5y = oldsp5y - 10
if sprite collision(5,4)>0 and e5orient = 3 then sprite5x = oldsp5x - 10
if sprite collision(5,4)>0 and e5orient = 1 then sprite5y = oldsp5y - 10
if sprite collision(5,6)>0 and e5orient = 3 then sprite5x = oldsp5x + 10
if sprite collision(5,6)>0 and e5orient = 1 then sprite5y = oldsp5y + 10
if sprite collision(6,3)>0 and e6orient = 3 then sprite6x = oldsp6x - 10
if sprite collision(6,3)>0 and e6orient = 1 then sprite6y = oldsp6y - 10
if sprite collision(6,4)>0 and e6orient = 3 then sprite6x = oldsp6x - 10
if sprite collision(6,4)>0 and e6orient = 1 then sprite6y = oldsp6y - 10
if sprite collision(6,5)>0 and e6orient = 3 then sprite6x = oldsp6x - 10
if sprite collision(6,5)>0 and e6orient = 1 then sprite6y = oldsp6y - 10
if sprite collision(3,4)>0 and e3orient = 2 then sprite3x = oldsp3x - 10
if sprite collision(3,4)>0 and e3orient = 4 then sprite3y = oldsp3y - 10
if sprite collision(3,5)>0 and e3orient = 2 then sprite3x = oldsp3x - 10
if sprite collision(3,5)>0 and e3orient = 4 then sprite3y = oldsp3y - 10
if sprite collision(3,6)>0 and e3orient = 2 then sprite3x = oldsp3x - 10
if sprite collision(3,6)>0 and e3orient = 4 then sprite3y = oldsp3y - 10
if sprite collision(4,3)>0 and e4orient = 2 then sprite4x = oldsp4x + 10
if sprite collision(4,3)>0 and e4orient = 4 then sprite4y = oldsp4y + 10
if sprite collision(4,5)>0 and e4orient = 2 then sprite4x = oldsp4x - 10
if sprite collision(4,5)>0 and e4orient = 4 then sprite4y = oldsp4y - 10
if sprite collision(4,6)>0 and e4orient = 2 then sprite4x = oldsp4x - 10
if sprite collision(4,6)>0 and e4orient = 4 then sprite4y = oldsp4y - 10
if sprite collision(5,3)>0 and e5orient = 2 then sprite5x = oldsp5x + 10
if sprite collision(5,3)>0 and e5orient = 4 then sprite5y = oldsp5y + 10
if sprite collision(5,4)>0 and e5orient = 2 then sprite5x = oldsp5x + 10
if sprite collision(5,4)>0 and e5orient = 4 then sprite5y = oldsp5y + 10
if sprite collision(5,6)>0 and e5orient = 2 then sprite5x = oldsp5x - 10
if sprite collision(5,6)>0 and e5orient = 4 then sprite5y = oldsp5y - 10
if sprite collision(6,3)>0 and e6orient = 2 then sprite6x = oldsp6x + 10
if sprite collision(6,3)>0 and e6orient = 4 then sprite6y = oldsp6y + 10
if sprite collision(6,4)>0 and e6orient = 2 then sprite6x = oldsp6x + 10
if sprite collision(6,4)>0 and e6orient = 4 then sprite6y = oldsp6y + 10
if sprite collision(6,5)>0 and e6orient = 2 then sprite6x = oldsp6x + 10
if sprite collision(6,5)>0 and e6orient = 4 then sprite6y = oldsp6y + 10
if sprite collision(3,4)>0 and e3orient = 5 then sprite3x = oldsp3x + 10
if sprite collision(3,4)>0 and e3orient = 5 then sprite3y = oldsp3y + 10
if sprite collision(3,5)>0 and e3orient = 5 then sprite3x = oldsp3x + 10
if sprite collision(3,5)>0 and e3orient = 5 then sprite3y = oldsp3y + 10
if sprite collision(3,6)>0 and e3orient = 5 then sprite3x = oldsp3x + 10
if sprite collision(3,6)>0 and e3orient = 5 then sprite3y = oldsp3y + 10
if sprite collision(4,3)>0 and e4orient = 5 then sprite4x = oldsp4x - 10
if sprite collision(4,3)>0 and e4orient = 5 then sprite4y = oldsp4y - 10
if sprite collision(4,5)>0 and e4orient = 5 then sprite4x = oldsp4x + 10
if sprite collision(4,5)>0 and e4orient = 5 then sprite4y = oldsp4y + 10
if sprite collision(4,6)>0 and e4orient = 5 then sprite4x = oldsp4x + 10
if sprite collision(4,6)>0 and e4orient = 5 then sprite4y = oldsp4y + 10
if sprite collision(5,3)>0 and e5orient = 5 then sprite5x = oldsp5x - 10
if sprite collision(5,3)>0 and e5orient = 5 then sprite5y = oldsp5y - 10
if sprite collision(5,4)>0 and e5orient = 5 then sprite5x = oldsp5x - 10
if sprite collision(5,4)>0 and e5orient = 5 then sprite5y = oldsp5y - 10
if sprite collision(5,6)>0 and e5orient = 5 then sprite5x = oldsp5x + 10
if sprite collision(5,6)>0 and e5orient = 5 then sprite5y = oldsp5y + 10
if sprite collision(6,3)>0 and e6orient = 5 then sprite6x = oldsp6x - 10
if sprite collision(6,3)>0 and e6orient = 5 then sprite6y = oldsp6y - 10
if sprite collision(6,4)>0 and e6orient = 5 then sprite6x = oldsp6x - 10
if sprite collision(6,4)>0 and e6orient = 5 then sprite6y = oldsp6y - 10
if sprite collision(6,5)>0 and e6orient = 5 then sprite6x = oldsp6x - 10
if sprite collision(6,5)>0 and e6orient = 5 then sprite6y = oldsp6y - 10
if sprite collision(3,4)>0 and e3orient = 6 then sprite3x = oldsp3x - 10
if sprite collision(3,4)>0 and e3orient = 6 then sprite3y = oldsp3y + 10
if sprite collision(3,5)>0 and e3orient = 6 then sprite3x = oldsp3x - 10
if sprite collision(3,5)>0 and e3orient = 6 then sprite3y = oldsp3y + 10
if sprite collision(3,6)>0 and e3orient = 6 then sprite3x = oldsp3x - 10
if sprite collision(3,6)>0 and e3orient = 6 then sprite3y = oldsp3y + 10
if sprite collision(4,3)>0 and e4orient = 6 then sprite4x = oldsp4x + 10
if sprite collision(4,3)>0 and e4orient = 6 then sprite4y = oldsp4y - 10
if sprite collision(4,5)>0 and e4orient = 6 then sprite4x = oldsp4x - 10
if sprite collision(4,5)>0 and e4orient = 6 then sprite4y = oldsp4y + 10
if sprite collision(4,6)>0 and e4orient = 6 then sprite4x = oldsp4x - 10
if sprite collision(4,6)>0 and e4orient = 6 then sprite4y = oldsp4y + 10
if sprite collision(5,3)>0 and e5orient = 6 then sprite5x = oldsp5x + 10
if sprite collision(5,3)>0 and e5orient = 6 then sprite5y = oldsp5y - 10
if sprite collision(5,4)>0 and e5orient = 6 then sprite5x = oldsp5x + 10
if sprite collision(5,4)>0 and e5orient = 6 then sprite5y = oldsp5y - 10
if sprite collision(5,6)>0 and e5orient = 6 then sprite5x = oldsp5x - 10
if sprite collision(5,6)>0 and e5orient = 6 then sprite5y = oldsp5y + 10
if sprite collision(6,3)>0 and e6orient = 6 then sprite6x = oldsp6x + 10
if sprite collision(6,3)>0 and e6orient = 6 then sprite6y = oldsp6y - 10
if sprite collision(6,4)>0 and e6orient = 6 then sprite6x = oldsp6x + 10
if sprite collision(6,4)>0 and e6orient = 6 then sprite6y = oldsp6y - 10
if sprite collision(6,5)>0 and e6orient = 6 then sprite6x = oldsp6x + 10
if sprite collision(6,5)>0 and e6orient = 6 then sprite6y = oldsp6y - 10
if sprite collision(3,4)>0 and e3orient = 7 then sprite3x = oldsp3x + 10
if sprite collision(3,4)>0 and e3orient = 7 then sprite3y = oldsp3y - 10
if sprite collision(3,5)>0 and e3orient = 7 then sprite3x = oldsp3x + 10
if sprite collision(3,5)>0 and e3orient = 7 then sprite3y = oldsp3y - 10
if sprite collision(3,6)>0 and e3orient = 7 then sprite3x = oldsp3x + 10
if sprite collision(3,6)>0 and e3orient = 7 then sprite3y = oldsp3y - 10
if sprite collision(4,3)>0 and e4orient = 7 then sprite4x = oldsp4x - 10
if sprite collision(4,3)>0 and e4orient = 7 then sprite4y = oldsp4y + 10
if sprite collision(4,5)>0 and e4orient = 7 then sprite4x = oldsp4x + 10
if sprite collision(4,5)>0 and e4orient = 7 then sprite4y = oldsp4y - 10
if sprite collision(4,6)>0 and e4orient = 7 then sprite4x = oldsp4x + 10
if sprite collision(4,6)>0 and e4orient = 7 then sprite4y = oldsp4y - 10
if sprite collision(5,3)>0 and e5orient = 7 then sprite5x = oldsp5x - 10
if sprite collision(5,3)>0 and e5orient = 7 then sprite5y = oldsp5y + 10
if sprite collision(5,4)>0 and e5orient = 7 then sprite5x = oldsp5x - 10
if sprite collision(5,4)>0 and e5orient = 7 then sprite5y = oldsp5y + 10
if sprite collision(5,6)>0 and e5orient = 7 then sprite5x = oldsp5x + 10
if sprite collision(5,6)>0 and e5orient = 7 then sprite5y = oldsp5y - 10
if sprite collision(6,3)>0 and e6orient = 7 then sprite6x = oldsp6x - 10
if sprite collision(6,3)>0 and e6orient = 7 then sprite6y = oldsp6y + 10
if sprite collision(6,4)>0 and e6orient = 7 then sprite6x = oldsp6x - 10
if sprite collision(6,4)>0 and e6orient = 7 then sprite6y = oldsp6y + 10
if sprite collision(6,5)>0 and e6orient = 7 then sprite6x = oldsp6x - 10
if sprite collision(6,5)>0 and e6orient = 7 then sprite6y = oldsp6y + 10
if sprite collision(3,4)>0 and e3orient = 8 then sprite3x = oldsp3x - 10
if sprite collision(3,4)>0 and e3orient = 8 then sprite3y = oldsp3y - 10
if sprite collision(3,5)>0 and e3orient = 8 then sprite3x = oldsp3x - 10
if sprite collision(3,5)>0 and e3orient = 8 then sprite3y = oldsp3y - 10
if sprite collision(3,6)>0 and e3orient = 8 then sprite3x = oldsp3x - 10
if sprite collision(3,6)>0 and e3orient = 8 then sprite3y = oldsp3y - 10
if sprite collision(4,3)>0 and e4orient = 8 then sprite4x = oldsp4x + 10
if sprite collision(4,3)>0 and e4orient = 8 then sprite4y = oldsp4y + 10
if sprite collision(4,5)>0 and e4orient = 8 then sprite4x = oldsp4x - 10
if sprite collision(4,5)>0 and e4orient = 8 then sprite4y = oldsp4y - 10
if sprite collision(4,6)>0 and e4orient = 8 then sprite4x = oldsp4x - 10
if sprite collision(4,6)>0 and e4orient = 8 then sprite4y = oldsp4y - 10
if sprite collision(5,3)>0 and e5orient = 8 then sprite5x = oldsp5x + 10
if sprite collision(5,3)>0 and e5orient = 8 then sprite5y = oldsp5y + 10
if sprite collision(5,4)>0 and e5orient = 8 then sprite5x = oldsp5x + 10
if sprite collision(5,4)>0 and e5orient = 8 then sprite5y = oldsp5y + 10
if sprite collision(5,6)>0 and e5orient = 8 then sprite5x = oldsp5x - 10
if sprite collision(5,6)>0 and e5orient = 8 then sprite5y = oldsp5y - 10
if sprite collision(6,3)>0 and e6orient = 8 then sprite6x = oldsp6x + 10
if sprite collision(6,3)>0 and e6orient = 8 then sprite6y = oldsp6y + 10
if sprite collision(6,4)>0 and e6orient = 8 then sprite6x = oldsp6x + 10
if sprite collision(6,4)>0 and e6orient = 8 then sprite6y = oldsp6y + 10
if sprite collision(6,5)>0 and e6orient = 8 then sprite6x = oldsp6x + 10
if sprite collision(6,5)>0 and e6orient = 8 then sprite6y = oldsp6y + 10
XRQDrawSprites:
sprite 31,sprite31x,sprite31y,77
rem Draw existing sprites
if orient = 1 then sprite 1,sprite1x,sprite1y,1
if orient = 2 then sprite 1,sprite1x,sprite1y,2
if orient = 3 then sprite 1,sprite1x,sprite1y,3
if orient = 4 then sprite 1,sprite1x,sprite1y,4
if orient = 5 then sprite 1,sprite1x,sprite1y,1
if orient = 6 then sprite 1,sprite1x,sprite1y,3
if orient = 7 then sprite 1,sprite1x,sprite1y,2
if orient = 8 then sprite 1,sprite1x,sprite1y,4
sprite 2,sprite2x,sprite2y,9
rem *
if enemy3 = 0 then sprite3x = -100000
if enemy3 = 0 then sprite3y = -100000
if enemy4 = 0 then sprite4x = -100000
if enemy4 = 0 then sprite4y = 100000
if enemy5 = 0 then sprite5x = 100000
if enemy5 = 0 then sprite5y = -100000
if enemy6 = 0 then sprite6x = 100000
if enemy6 = 0 then sprite6y = 100000
if enemy3 = 0 then oldsp3x = -100000
if enemy3 = 0 then oldsp3y = -100000
if enemy4 = 0 then oldsp4x = -100000
if enemy4 = 0 then oldsp4y = 100000
if enemy5 = 0 then oldsp5x = 100000
if enemy5 = 0 then oldsp5y = -100000
if enemy6 = 0 then oldsp6x = 100000
if enemy6 = 0 then oldsp6y = 100000
rem *
if e3orient = 1 then sprite 3,sprite3x,sprite3y,11
if e3orient = 2 then sprite 3,sprite3x,sprite3y,12
if e3orient = 3 then sprite 3,sprite3x,sprite3y,13
if e3orient = 4 then sprite 3,sprite3x,sprite3y,14
if e3orient = 5 then sprite 3,sprite3x,sprite3y,11
if e3orient = 6 then sprite 3,sprite3x,sprite3y,13
if e3orient = 7 then sprite 3,sprite3x,sprite3y,12
if e3orient = 8 then sprite 3,sprite3x,sprite3y,14
if e4orient = 1 then sprite 4,sprite4x,sprite4y,11
if e4orient = 2 then sprite 4,sprite4x,sprite4y,12
if e4orient = 3 then sprite 4,sprite4x,sprite4y,13
if e4orient = 4 then sprite 4,sprite4x,sprite4y,14
if e4orient = 5 then sprite 4,sprite4x,sprite4y,11
if e4orient = 6 then sprite 4,sprite4x,sprite4y,13
if e4orient = 7 then sprite 4,sprite4x,sprite4y,12
if e4orient = 8 then sprite 4,sprite4x,sprite4y,14
if e5orient = 1 then sprite 5,sprite5x,sprite5y,11
if e5orient = 2 then sprite 5,sprite5x,sprite5y,12
if e5orient = 3 then sprite 5,sprite5x,sprite5y,13
if e5orient = 4 then sprite 5,sprite5x,sprite5y,14
if e5orient = 5 then sprite 5,sprite5x,sprite5y,11
if e5orient = 6 then sprite 5,sprite5x,sprite5y,13
if e5orient = 7 then sprite 5,sprite5x,sprite5y,12
if e5orient = 8 then sprite 5,sprite5x,sprite5y,14
if e6orient = 1 then sprite 6,sprite6x,sprite6y,11
if e6orient = 2 then sprite 6,sprite6x,sprite6y,12
if e6orient = 3 then sprite 6,sprite6x,sprite6y,13
if e6orient = 4 then sprite 6,sprite6x,sprite6y,14
if e6orient = 5 then sprite 6,sprite6x,sprite6y,11
if e6orient = 6 then sprite 6,sprite6x,sprite6y,13
if e6orient = 7 then sprite 6,sprite6x,sprite6y,12
if e6orient = 8 then sprite 6,sprite6x,sprite6y,14
sprite 7,sprite7x,sprite7y,19
sprite 8,sprite8x,sprite8y,19
sprite 9,sprite9x,sprite9y,19
sprite 10,sprite10x,sprite10y,19
goto XRQMainRoutine
XRQPlayerHit:
hide sprite 3
wait 100
hide sprite 4
wait 100
hide sprite 5
wait 100
hide sprite 6
wait 1
hide sprite 2
wait 500
hide sprite 1
wait 500
print "Game Over"
