I made a menu for my game and then added the code to my menu and now they don't work. I don't know why but can someone help me please. It's at the loading screen becuase the bitmap says there and you die for no reason. Thxs in advance.
sync on
hide mouse
Menu:
cls
`load menu image
load image "title.bmp",1000
set text size 12
blue=RGB(0,128,255)
white=RGB(255,255,255)
set camera view 0,0,1,1
selectedItem=1
hold=1
do
cls
paste image 1000,0,300
`print menu items
if selectedItem=1 then ink blue,0 else ink white,0
text 50,350,"Play Game"
if selectedItem=2 then ink blue,0 else ink white,0
text 150,350,"Controls and Settings"
if selectedItem=3 then ink blue,0 else ink white,0
text 400,350,"About"
if selectedItem=4 then ink blue,0 else ink white,0
text 475,350,"More Games"
if selectedItem=5 then ink blue,0 else ink white,0
text 600,350,"Exit"
`select menu items
if leftkey()=1 and hold=0 then dec selectedItem : hold=1
if rightkey()=1 and hold=0 then inc selectedItem : hold=1
if scancode()=0 then hold=0
if selectedItem>5 then selectedItem=1
if selectedItem<1 then selectedITem=4
`choose what to do when an item is selected
if returnkey()=1 and hold=0
hold=1
`play game
if selectedItem=1
load image "Dif.bmp",1005
paste image 1005,64,32
suspend for key
sync : sync
goto Dif
endif
`display instructions
if selectedItem=2
gosub Controls
`clear up after myself
delete image 1001
endif
`display information about the game
if selectedItem=3
load image "about.bmp",1001
paste image 1001,64,32
do
If scancode()=14 then goto Menu
If scancode()=205 then gosub About_Company
sync : sync
loop
sync : sync
`clear up after myself
delete image 1001
endif
`display information about other games
if selectedItem=4
load image "More Games.bmp",1001
paste image 1001,64,32
sync : sync
`clear up after myself
delete image 1001
endif
`quit the game
if selectedItem=5
cls
paste image 1000,0,300
load image "quit.bmp",1001
paste image 1001,64,32
sync : sync
sleep 4000
`quit the game
end
endif
endif
sync
loop
return
Dif:
do
`print menu items
sync on
if selectedItem1=1 then ink blue,0 else ink white,0
text 100,150,"Easy - There is a maxium of 10 Cretures"
if selectedItem1=2 then ink blue,0 else ink white,0
text 100,200,"Normal - There is a maxium of 20 Creatures"
if selectedItem1=3 then ink blue,0 else ink white,0
text 100,250,"Hard - There is a maxium of 30 Creatures"
`select menu items
if scancode()=14 then goto Menu
if upkey()=1 and hold=0 then dec selectedItem1 : hold=1
if downkey()=1 and hold=0 then inc selectedItem1 : hold=1
if scancode()=0 then hold=0
if selectedItem1>3 then selectedItem1=1
if selectedItem1<1 then selectedITem1=3
`choose what to do when an item is selected
if returnkey()=1 and hold=0
hold=1
`display information about other games
if selectedItem1=1 then Dif$="Easy"
if selectedItem1=2 then Dif$="Normal"
if selectedItem1=3 then Dif$="Hard"
if selectedItem1=1 then delete image 1005
if selectedItem1=2 then delete image 1005
if selectedItem1=3 then delete image 1005
if selectedItem1=1 then goto Shop
if selectedItem1=2 then goto Shop
if selectedItem1=3 then goto Shop
sync : sync
endif
loop
Shop:
do
sync on
`display instructions
if selectedItem1=1 or selectedItem1=2 or selectedItem1=3
load image "Shop.bmp",1006
paste image 1006,64,32
`print menu items
Reflection$="false"
ExtraArmour$="false"
Grenade$="false"
ExtraAmmo$="false"
Sword$="false"
if selectedItem2=1 then ink blue,0 else ink white,0
text 80,125,"Reflection - This reflects one hit from a Creature back at him"
if selectedItem2=2 then ink blue,0 else ink white,0
text 80,150,"Extra Armour - This equipment blocks two hits on you"
if selectedItem2=3 then ink blue,0 else ink white,0
text 80,175,"Grenade - This equipment kills all things within the area of the explosion"
if selectedItem2=4 then ink blue,0 else ink white,0
text 80,200,"ExtraAmmo - This gives you an extra 10 bullets"
if selectedItem2=5 then ink blue,0 else ink white,0
text 80,225,"Sword - This equips you with a close combat weapon"
`select menu items
if upkey()=1 and hold=0 then dec selectedItem2 : hold=1
if downkey()=1 and hold=0 then inc selectedItem2 : hold=1
if scancode()=0 then hold=0
if selectedItem2>5 then selectedItem2=1
if selectedItem2<1 then selectedITem2=5
`choose what to do when an item is selected
if returnkey()=1 and hold=0
hold=1
`display information about other games
if selectedItem2=1 then Reflection$="true"
if selectedItem2=2 then ExtraArmour$="true"
if selectedItem2=3 then Grenade$="true"
if selectedItem2=4 then ExtraAmmo$="true"
if selectedItem2=5 then Sword$="true"
if selectedItem2=1 then goto Game
if selectedItem2=2 then goto Game
if selectedItem2=3 then goto Game
if selectedItem2=4 then goto Game
if selectedItem2=5 then goto Game
sync : sync
endif
endif
loop
Controls:
sync on
load image "Controls.bmp",1005
paste image 1005,64,32
do
sync : sync
If scancode()=14 then goto Menu
If rightkey()=1 then gosub Settings
loop
Settings:
sync on
load image "Settings.bmp",1006
paste image 1006,64,32
xPos=150
yPos=90
center text xPos, yPos, "Window Mode"
xPos=150
yPos=120
center text xPos, yPos, "Screen Depth:"
xPos=140
yPos=170
center text xPos, yPos, "Resolution:"
xPos=240
yPos=190
center text xPos, yPos, "Warning! If Resolution is higher than your"
xPos=200
yPos=205
center text xPos, yPos, "screen the program will crash"
do
`print menu items
if selectedItem4=1 then ink blue,0 else ink white,0
text 200,90,"On"
if selectedItem4=2 then ink blue,0 else ink white,0
text 220,90,"/Off"
if selectedItem4=3 then ink blue,0 else ink white,0
text 200,120,"16Bit"
if selectedItem4=4 then ink blue,0 else ink white,0
text 240,120,"/32Bit"
if selectedItem4=5 then ink blue,0 else ink white,0
text 100,225,"1366,768"
if selectedItem4=6 then ink blue,0 else ink white,0
text 180,225,"1280,800"
if selectedItem4=7 then ink blue,0 else ink white,0
text 260,225,"1280,1024"
if selectedItem4=8 then ink blue,0 else ink white,0
text 100,260,"1024,768"
if selectedItem4=9 then ink blue,0 else ink white,0
text 180,260,"800,600"
if selectedItem4=10 then ink blue,0 else ink white,0
text 260,260,"680,480"
`select menu items
perform checklist for display modes
If scancode()=14 then goto Menu
if leftkey()=1 and hold=0 then dec selectedItem4 : hold=1
if rightkey()=1 and hold=0 then inc selectedItem4 : hold=1
if scancode()=0 then hold=0
if selectedItem4>10 then selectedItem4=10
if selectedItem4<1 then selectedITem4=10
sync : sync
`choose what to do when an item is selected
if returnkey()=1 and hold=0
hold=1
perform checklist for display modes
x=screen width()
y=screen height()
z=screen depth()
`display information about other games
if selectedItem4=1 then set window on
if selectedItem4=1 then set window size 650,500
if selectedItem4=1 then cls
if selectedItem4=1 then goto Menu
if selectedItem4=2 then set window off
if selectedItem4=2 then cls
if selectedItem4=2 then goto Menu
if selectedItem4=3 then set display mode x,y,16
if selectedItem4=3 then cls
if selectedItem4=3 then goto Menu
if selectedItem4=4 then set display mode x,y,32
if selectedItem4=4 then cls
if selectedItem4=4 then goto Menu
if selectedItem4=5 then set display mode 1366,768,z
if selectedItem4=5 then cls
if selectedItem4=5 then goto Menu
if selectedItem4=6 then set display mode 1280,800,z
if selectedItem4=6 then cls
if selectedItem4=6 then goto Menu
if selectedItem4=7 then set display mode 1280,1024,z
if selectedItem4=7 then cls
if selectedItem4=7 then goto Menu
if selectedItem4=8 then set display mode 1024,768,z
if selectedItem4=8 then cls
if selectedItem4=8 then goto Menu
if selectedItem4=9 then set display mode 800,600,z
if selectedItem4=9 then cls
if selectedItem4=9 then goto Menu
if selectedItem4=10 then set display mode 680,480,z
if selectedItem4=10 then cls
if selectedItem4=10 then goto Menu
endif
loop
return
About_Company:
load image "About Company.bmp",1010
paste image 1010,64,32
do
If scancode()=14 then goto Menu
sync : sync
loop
Game:
rem Setup environment
sync rate 30
autocam off
hide mouse
sync on
rem Decal limit (full version users can set this to 100)
dim decalmax(1)
decalmax(1)=100
rem Game arrays
dim decal#(decalmax(1),20)
dim goblin#(50,20)
dim bullet#(10,10)
dim gunrecoil#(2)
dim fallstart(4)
dim fallend(4)
dim real(5)
dim gpx#(2)
dim gpy#(2)
dim gpz#(2)
If dif$="easy" then enemymax=10
If dif$="Med" then enemymax=20
If dif$="Hard" then enemymax=30
rem Load initial screen and sound effect
cls
load sound "rain.wav",1 : loop sound 1
a=rnd(4)
If A=1 then load bitmap "Loading1.png" : sync
If A=2 then load bitmap "Loading2.png" : sync
If A=3 then load bitmap "Loading3.png" : sync
If A=4 then load bitmap "Loading4.png" : sync
rem Load sounds
load sound "phaser.wav",2 : for s=3 to 12 : clone sound s,2 : next s
for s=1 to enemymax
ss=100+(s*2)
load 3dsound "howl.wav",ss : set sound speed ss,5000+rnd(3000)
load 3dsound "die.wav",ss+1 : set sound speed ss+1,30000+rnd(5000)
next s
for s=1 to 5
ss=1000+(s*2)
load 3dsound "attack.wav",ss : set sound speed ss,15000+rnd(5000)
load 3dsound "thump.wav",ss+1 : set sound speed ss+1,3000
next s
rem Load images
load image "smoke.bmp",1001
rem Create Elements
gosub _generate_goblins
gosub _create_world
gosub _create_enemies
gosub _create_player
disable escapekey
rem Main gameloop
lowmode=0
do
set cursor 535,112
Print "Score: ",PScore
rem Activate low mode
if lower$(inkey$())="l" and lowmode=0
lowmode=1
hide object 52
hide object 53
hide object 80
hide object 81
hide object 82
hide object 83
for e=1 to enemymax : delete object 100+(e*2)+1 : next e
for e=1 to 5 : delete object 1000+(e*2)+1 : next e
color backdrop rgb(255,255,255)
endif
rem Control game elements
gosub _control_player
gosub _control_camera
gosub _control_guns
gosub _control_enemies
gosub _control_weather
rem Controller functions
controldecals(mx#,mz#)
rem Update screen
sync
rem End of gameloop
loop
rem ** Subroutines **
_control_player:
rem Control Player
olx#=x# : olz#=z#
stage=0 : gunlag#=5.0
if upkey()=1
x#=newxvalue(x#,cya#,8.0) : z#=newzvalue(z#,cya#,8.0)
gunlag#=1.1
stage=1
endif
if downkey()=1
x#=newxvalue(x#,cya#,-8.0) : z#=newzvalue(z#,cya#,-8.0)
gunlag#=1.1
stage=1
endif
if leftkey()=1
x#=newxvalue(x#,wrapvalue(cya#-90.0),6.0)
z#=newzvalue(z#,wrapvalue(cya#-90.0),6.0)
gunlag#=1.1
endif
if rightkey()=1
x#=newxvalue(x#,wrapvalue(cya#+90.0),6.0)
z#=newzvalue(z#,wrapvalue(cya#+90.0),6.0)
gunlag#=1.1
endif
rem Walk woddle height
if stage=1
walkha#=wrapvalue(walkha#+16.0)
else
walkha#=curveangle(0.0,walkha#,5.0)
endif
walkh#=(cos(walkha#)*4.5)
rem Ensure player stays on floor
fx#=0 : fz#=0
for r=0 to 35
ex#=newxvalue(x#,r*10,15)
ez#=newzvalue(z#,r*10,15)
eh#=get ground height(1,ex#+mx#,ez#+mz#)
if eh#<-50.0 then eh#=-50.0
force#=(eh#+50.0)/10.0
fx#=fx#+((ex#-x#)*force#)
fz#=fz#+((ez#-z#)*force#)
next r
x#=x#-(fx#/35.0)
z#=z#-(fz#/35.0)
rem Aquire ground height of new position
y#=get ground height(1,x#+mx#,z#+mz#)
if y#<-50.0 then y#=-50.0
rem Place listener
position listener x#,y#,z#
rotate listener 0,wrapvalue(cya#),0
rem Control hurt fog
if returnkey()=1 and hurt#=0.0 then hurt#=100.0
if hurt#>0
dec hurt#,1.0+(100.0-hurt#)
fog on
fog color rgb((255.0/100.0)*hurt#,0,0)
fog distance 50000-((50000.0/100.0)*hurt#)
if hurt#<=0.0
hurt#=0.0
fog off
endif
endif
rem Control compass needle
if closestgoblin>0
g=closestgoblin
dx#=goblin#(g,2)-x#
dz#=goblin#(g,3)-z#
aa#=wrapvalue(cya#-atanfull(dx#,dz#))
compass#=aa#
if compassscale#<25.0 then inc compassscale#
else
compass#=0
if compassscale#>0.0 then dec compassscale#
endif
zrotate object 80,compass#
scale object 80,compassscale#,75,500
return
_control_camera:
rem Control Camera
cya#=wrapvalue(cya#+(mousemovex()/3.0))
cxa#=cxa#+(mousemovey()/3.0)
if cxa#<-45.0 then cxa#=-45.0
if cxa#>45.0 then cxa#=45.0
cx#=newxvalue(x#,cya#,sin(cxa#)*10)
cz#=newzvalue(z#,cya#,sin(cxa#)*10)
position camera cx#,y#+30+walkh#,cz#
rotate camera wrapvalue(cxa#),cya#,0
return
_control_guns:
rem Control gun recoil
for g=0 to 1
if gunrecoil#(g)>0
gunrecoil#(g)=gunrecoil#(g)-1
endif
next g
rem Control Guns
for g=0 to 1
gga#=wrapvalue((cya#-20)+(g*40))
ggx#=newxvalue(x#,gga#,gunrecoil#(g)*-1)
ggz#=newzvalue(z#,gga#,gunrecoil#(g)*-1)
gpdx#=newxvalue(ggx#,wrapvalue((cya#-20)+(g*40)),10)
gpdy#=y#-(sin(cxa#)*10)
gpdz#=newzvalue(ggz#,gga#,10)
gpx#(g)=curvevalue(gpdx#,gpx#(g),gunlag#)
gpy#(g)=curvevalue(gpdy#,gpy#(g),gunlag#)
gpz#(g)=curvevalue(gpdz#,gpz#(g),gunlag#)
position object 2+g,gpx#(g),gpy#(g)+22+walkh#,gpz#(g)
xrotate object 2+g,wrapvalue(0-cxa#)
yrotate object 2+g,wrapvalue(cya#+180)
next g
rem Control Firing
if mouseclick()=1
rem If gun ready
if gunpressed=0
rem Start with prefered gun
gunprefered=1-gunprefered
gunobj=2+gunprefered
gunrecoil#(gunobj-2)=10.0
gunpressed=1
rem Find free bullet
bf=-1
for b=0 to 10
if bullet#(b,1)=0 then bf=b
next b
rem Trigger bullet
if bf>0
objid=4+(bf*2)+0
bullet#(bf,1)=1
bullet#(bf,2)=0
play sound 2+bf
tx#=object position x(gunobj)
ty#=object position y(gunobj)
tz#=object position z(gunobj)
txa#=object angle x(gunobj)
tya#=object angle y(gunobj)
position object objid,tx#,ty#,tz#
rotate object objid,txa#,wrapvalue(tya#+90),0
if gunobj=2
move object objid,2.0
else
move object objid,-2.0
endif
rotate object objid,txa#,tya#,0
move object objid,5
show object objid+0
if object exist(objid+1)=1 then show object objid+1
endif
for adv=1 to 10
objid=3+(adv*2)+0
if adv<>rp and bullet#(adv,1)=1 then move object objid,-25.0
next adv
endif
else
gunpressed=0
endif
rem Control bullet movement
for b=0 to 10
rem Bullet alive
if bullet#(b,1)=1
rem Move bullet
objid=4+(b*2)+0
move object objid,-25.0
ex#=object position x(objid)
eh#=object position y(objid)
ez#=object position z(objid)
position object objid+1,ex#,-50-(eh#+50),ez#
rotate object objid+1,wrapvalue(0-object angle x(objid)),object angle y(objid),0
rem If bullets meet at ice-level, switch
if eh#<-50.0
sx#=object position x(objid)
sy#=object position y(objid)
sz#=object position z(objid)
sxa#=object angle x(objid)
sya#=object angle y(objid)
position object objid,object position x(objid+1),object position y(objid+1),object position z(objid+1)
rotate object objid,object angle x(objid+1),object angle y(objid+1),0
position object objid+1,sx#,sy#,sz#
rotate object objid+1,sxa#,sya#,0
endif
rem Out of Steam
killbullet=0
bullet#(b,2)=bullet#(b,2)+1
if bullet#(b,2)>40 then killbullet=1
rem Collision with ground
if eh#<get ground height(1,ex#+mx#,ez#+mz#)
killbullet=1
endif
rem Collision with goblin
triggerrevenge=-1
for g=1 to enemymax
if killbullet=0
if goblin#(g,1)=1
gobjid=100+(g*2)+0
gx#=goblin#(g,2)-ex#
gy#=get ground height(1,goblin#(g,2)+mx#,goblin#(g,3)+mz#)
if gy#<-50.0 then gy#=-50.0
gy#=gy#+15.0
gz#=goblin#(g,3)-ez#
if sqrt(abs(gx#*gx#)+abs(gz#*gz#))<20.0
if abs(eh#-gy#)<15.0
ss=goblin#(g,12)
if goblin#(g,12)<>2
goblin#(g,12)=2
activate_enemy(g,mx#,mz#)
rg=goblin#(g,11)
if rg>0
rgobj=1000+(rg*2)+0
position sound 100+(g*2)+0,object position x(rgobj),object position y(rgobj),object position z(rgobj)
play sound 100+(g*2)+1
stop sound 100+(g*2)+0
fn=goblin#(g,13)
play object rgobj,fallstart(fn),fallend(fn)
if object exist(rgobj+1)=1 then play object rgobj+1,fallstart(fn),fallend(fn)
killbullet=1
triggerrevenge=g
else
goblin#(g,12)=ss
endif
endif
endif
endif
endif
endif
next g
rem If goblin struck, trigger neighbours to attack
if triggerrevenge>0
PScore=PScore+15
for g=1 to enemymax
ex#=goblin#(g,2)-goblin#(triggerrevenge,2)
ez#=goblin#(g,3)-goblin#(triggerrevenge,3)
d#=sqrt(abs(ex#*ex#)+abs(ez#*ez#))
if d#<200.0
if goblin#(g,12)<=1 and goblin#(g,14)=0
goblin#(g,12)=1
goblin#(g,14)=2 : rem and trigger anger!
activate_enemy(g,x#,z#)
endif
endif
next g
endif
rem Kill bullet
if killbullet=1
move object objid,25.0
ex#=object position x(objid)
ez#=object position z(objid)
makesmoke(ex#,eh#,ez#,3.0)
hide object objid+0
hide object objid+1
bullet#(b,1)=0
endif
endif
next b
return
_control_enemies:
rem AI Control: Always Attack Anywhere
for g=1 to enemymax
initialfind=0
if goblin#(g,12)=0
rem If player within view frustrum, activate
ex#=goblin#(g,2)-x#
ez#=goblin#(g,3)-z#
d#=sqrt(abs(ex#*ex#)+abs(ez#*ez#))
if d#<400.0
rem Goblin finds you
goblin#(g,12)=1
initialfind=1
endif
endif
if goblin#(g,12)>0
activate_enemy(g,x#,z#)
if initialfind=1
rg=goblin#(g,11)
if rg>0
gobjid=1000+(rg*2)+0
position sound 1000+(rg*2)+0,object position x(gobjid),object position y(gobjid),object position z(gobjid)
play sound 1000+(rg*2)+0
loop object gobjid+0,walkstart+5,walkend
if object exist(gobjid+1)=1 then loop object gobjid+1,walkstart+5,walkend
set object frame gobjid+0,walkstart
if object exist(gobjid+1)=1 then set object frame gobjid+1,walkstart
endif
endif
endif
if goblin#(g,1)=0
rem Hide RG
rg=goblin#(g,11)
if rg>0
gobjid=1000+(rg*2)+0
loop object gobjid+0,walkstart+5,walkend
if object exist(gobjid+1)=1 then loop object gobjid+1,walkstart+5,walkend
set object frame gobjid+0,walkstart
if object exist(gobjid+1)=1 then set object frame gobjid+1,walkstart
realtodecal(g,rg)
endif
rem If goblin dead, wait for chance to emerge from doorway
if rnd(1)=0
ex#=850 : eh#=-50 : ez#=300
else
ex#=-650 : eh#=-50 : ez#=850
endif
goblin#(g,1)=1
goblin#(g,2)=ex#
goblin#(g,3)=ez#
goblin#(g,4)=100+rnd(7)
goblin#(g,6)=45+(rnd(3)*90)
goblin#(g,7)=1
goblin#(g,8)=rnd(1000)-500
goblin#(g,9)=rnd(1000)-500
goblin#(g,12)=1
goblin#(g,13)=1+rnd(3)
goblin#(g,14)=0
goblin#(g,15)=0
objid=100+(g*2)
position object objid+0,ex#,eh#,ez#
if object exist(objid+1)=1 then position object objid+1,ex#,eh#,ez#
show object objid+0
if object exist(objid+1)=1 then show object objid+1
endif
next g
rem Reset detection of nearest goblin
closestgoblin=-1
closestgoblin#=9999.0
rem Control enemies
for g=1 to enemymax
rem Goblin Id
objid=100+(g*2)
if goblin#(g,1)=1
if goblin#(g,7)=1
rem Goblin follows Destination Coordinate
tx#=goblin#(g,8) : tz#=goblin#(g,9)
point object objid,tx#,-50,tz#
xrotate object objid,0 : zrotate object objid,0
rem End of Destination Move
cx=goblin#(g,2)/10.0 : cz=goblin#(g,3)/10.0
tx=goblin#(g,8)/10.0 : tz=goblin#(g,9)/10.0
if cx=tx and cz=tz
goblin#(g,7)=0 : goblin#(g,12)=0
rg=goblin#(g,11)
if rg>0
loop object 1000+(rg*2)+0,idlestart,idleend
if object exist(1000+(rg*2)+1)=1 then loop object 1000+(rg*2)+1,idlestart,idleend
set object frame 1000+(rg*2)+0,idlestart
if object exist(1000+(rg*2)+1)=1 then set object frame 1000+(rg*2)+1,idlestart
endif
endif
else
rem Goblin follows Player
point object objid,x#,y#,z#
xrotate object objid,0 : zrotate object objid,0
rem Ensure Goblin has free square
boverlap=0
bx=object position x(objid)/50.0
bz=object position z(objid)/50.0
for bg=1 to enemymax
bgobjid=100+(bg*2)+0
if goblin#(bg,1)=1
tx=object position x(bgobjid)/50.0
tz=object position z(bgobjid)/50.0
if bg>g
if bx=tx and bz=tz then boverlap=bg
endif
endif
next bg
if boverlap>0
bgobjid=100+(boverlap*2)+0
bb=(boverlap/2)
bb=boverlap-(bb*2)
yrotate object objid,wrapvalue((object angle y(objid)-70)+(140*bb))
endif
endif
rem Goblin moves forward
if goblin#(g,12)=1
rem Detect for charge opportunity
dx#=goblin#(g,2)-x#
dz#=goblin#(g,3)-z#
d#=sqrt(abs(dx#*dx#)+abs(dz#*dz#))
if d#<200.0 or goblin#(g,14)=2
rem If not charging, CHARGE!
if goblin#(g,14)<>1
goblin#(g,14)=1
goblin#(g,7)=0
rg=goblin#(g,11)
if rg>0
gobjid=1000+(rg*2)
loop object gobjid+0,chargestart+5,chargeend
if object exist(gobjid+1)=1 then loop object gobjid+1,chargestart+5,chargeend
set object frame gobjid+0,chargestart
if object exist(gobjid+1)=1 then set object frame gobjid+1,chargestart
set object speed gobjid+0,75
if object exist(gobjid+1)=1 then set object speed gobjid+1,75
position sound 1000+(rg*2)+0,object position x(gobjid),object position y(gobjid),object position z(gobjid)
play sound 1000+(rg*2)+0
endif
endif
endif
rem Record cloest goblin for later
if d#<closestgoblin#
if goblin#(g,7)=0
closestgoblin#=d# : closestgoblin=g
endif
endif
rem Special charge mode
if goblin#(g,14)=1
rem Goblin makes a move
move object objid,7.5
else
rem Goblin makes a move
move object objid,2.5
rem Make sound when tracking
dx#=goblin#(g,2)-x#
dz#=goblin#(g,3)-z#
d#=sqrt(abs(dx#*dx#)+abs(dz#*dz#))
if rnd(100)=0 or (rnd(20)=0 and d#<250.0)
if sound playing(100+(g*2)+0)=0
position sound 100+(g*2)+0,object position x(objid),object position y(objid),object position z(objid)
play sound 100+(g*2)+0
endif
endif
endif
endif
rem Update goblin position
goblin#(g,2)=object position x(objid)
goblin#(g,3)=object position z(objid)
rem Goblin falls on floor
if goblin#(g,12)=2
rem Goblin waits for end of fall animation
rg=goblin#(g,11)
if rg>0
gobjid=1000+(rg*2)
fn=goblin#(g,13)
if fn=1 then vanishvalue=45 : cutoff=0
if fn=2 then vanishvalue=45 : cutoff=0
if fn=3 then vanishvalue=45 : cutoff=0
if fn=4 then vanishvalue=45 : cutoff=0
if object frame(gobjid)>=fallstart(fn)+vanishvalue
sc#=100-((object frame(gobjid)-(fallstart(fn)+vanishvalue))*4)
scale object gobjid+0,sc#,sc#,100
if object exist(gobjid+1)=1 then scale object gobjid+1,sc#,sc#*-1,100
if sound playing(1000+(rg*2)+1)=0
position sound 1000+(rg*2)+1,object position x(gobjid),object position y(gobjid),object position z(gobjid)
play sound 1000+(rg*2)+1
endif
endif
if object frame(gobjid)>=fallend(fn)-cutoff
loop object gobjid+0,walkstart+5,walkend
if object exist(gobjid+1)=1 then loop object gobjid+1,walkstart+5,walkend
set object speed gobjid+0,50
if object exist(gobjid+1)=1 then set object speed gobjid+1,50
scale object gobjid,100,100,100
if object exist(gobjid+1)=1 then scale object gobjid+1,100,-100,100
realtodecal(g,rg)
goblin#(g,1)=0
goblin#(g,11)=0
goblin#(g,12)=0
hide object 100+(g*2)+0
if object exist(100+(g*2)+1)=1 then hide object 100+(g*2)+1
endif
endif
endif
rem Goblin is attacking
if goblin#(g,12)=3
rem Goblin waits for end of fall animation
rg=goblin#(g,11)
if rg>0
gobjid=1000+(rg*2)
if object frame(gobjid)>=attackend-2
goblin#(g,12)=1
loop object gobjid+0,walkstart+5,walkend
if object exist(gobjid+1)=1 then loop object gobjid+1,walkstart+5,walkend
endif
if object frame(gobjid)>=attackstart+10 and object frame(gobjid)<=attackstart+20
rem Damage player when anim struck
hurt#=100.0
If hurt#=100.0
if file exist(PScore$) then write to registry "PScore","PScore",1
dim PScore(1)
PScore(1)=score
save array "PScore",PScore(1)
undim PScore()
Goto shop
endif
endif
endif
endif
rem Extra handling for RG goblins
rg=goblin#(g,11)
if rg>0
rem Handle visual RG
gobjid=1000+(rg*2)
ey#=object position y(objid)
position object gobjid,goblin#(g,2),ey#,goblin#(g,3)
rotate object gobjid,object angle x(objid),object angle y(objid),object angle z(objid)
yrotate object gobjid+0,wrapvalue(object angle y(gobjid)+180)
if object exist(gobjid+1)=1 then yrotate object gobjid+1,object angle y(gobjid)
rem Goblin attacks if close to player
dx#=goblin#(g,2)-x#
dz#=goblin#(g,3)-z#
d#=sqrt((dx#*dx#)+(dz#*dz#))
if d#<50.0 and goblin#(g,12)<=1
goblin#(g,12)=3
position sound 1000+(rg*2)+0,object position x(gobjid),object position y(gobjid),object position z(gobjid)
play sound 1000+(rg*2)+0
play object gobjid+0,attackstart,attackend
if object exist(gobjid+1)=1 then play object gobjid+1,attackstart,attackend
endif
endif
endif
next g
rem Control enemies
for g=1 to enemymax
rem Affect goblin by gravity
fx#=0 : fz#=0
for r=0 to 35
ex#=newxvalue(goblin#(g,2),r*10,10)
ez#=newzvalue(goblin#(g,3),r*10,10)
eh#=get ground height(1,ex#+mx#,ez#+mz#)
if eh#<-50.0 then eh#=-50.0
force#=(eh#+50.0)/50.0
fx#=fx#+((ex#-goblin#(g,2))*force#)
fz#=fz#+((ez#-goblin#(g,3))*force#)
next r
ex#=goblin#(g,2)-(fx#/36.0)
ez#=goblin#(g,3)-(fz#/36.0)
goblin#(g,2)=ex# : goblin#(g,3)=ez#
objid=100+(g*2)+0
rem Transfer position to real goblin
rg=goblin#(g,11)
if rg>0
rem Determine whether goblin climbing up or down hill
gobjid=1000+(rg*2)
fa#=object angle y(gobjid)
fx#=newxvalue(goblin#(g,2),fa#,5.0)
fz#=newzvalue(goblin#(g,3),fa#,5.0)
fb#=get ground height(1,goblin#(g,2)+mx#,goblin#(g,2)+mz#)
fa#=get ground height(1,fx#+mx#,fz#+mz#)
rem Position RG goblin
position object gobjid+0,ex#,eh#,ez#
if object exist(gobjid+1)=1 then position object gobjid+1,ex#,-50-(eh#+50),ez#
rem Control RG walk or slide anim
if goblin#(g,12)=1
if force#>1.0 and fb#>fa#
if goblin#(g,15)=0
goblin#(g,15)=1
loop object gobjid+0,slidestart+10,slideend-10
if object exist(gobjid+1)=1 then loop object gobjid+1,slidestart+10,slideend-10
set object frame gobjid+0,slidestart
if object exist(gobjid+1)=1 then set object frame gobjid+1,slidestart
endif
makesmoke(ex#,eh#,ez#,5.0)
else
if goblin#(g,15)=1
goblin#(g,15)=0
loop object gobjid+0,walkstart+5,walkend
if object exist(gobjid+1)=1 then loop object gobjid+1,walkstart+5,walkend
set object frame gobjid+0,walkstart+5
if object exist(gobjid+1)=1 then set object frame gobjid+1,walkstart+5
endif
endif
endif
else
position object objid+0,ex#,eh#+18,ez#
if object exist(objid+1)=1 then position object objid+1,ex#,-68-(eh#+50),ez#
endif
rem Maintain decal goblins
for b=0 to 1
objid=100+(g*2)+b
if object exist(objid)=1
point object objid,x#,y#,z#
xrotate object objid,0 : zrotate object objid,0
goblin#(g,5)=goblin#(g,5)+1
if goblin#(g,5)>3
goblin#(g,5)=0
goblin#(g,4)=goblin#(g,4)+1
if goblin#(g,4)>109 then goblin#(g,4)=100
endif
sighty#=atanfull(x#-goblin#(g,2),z#-goblin#(g,3))
if goblin#(g,12)=1
dirface=4
goblin#(g,5)=goblin#(g,5)+1
else
dirface=wrapvalue(goblin#(g,6)+sighty#)/90.0
endif
image=goblin#(g,4)+(dirface*10)
texture object objid,image
endif
next b
rem Scale decal based on mode
objid=100+(g*2)
if goblin#(g,12)=1
scale object objid,130,100,500
if object exist(objid+1)=1 then scale object objid+1,130,-100,500
else
scale object objid,100,100,500
if object exist(objid+1)=1 then scale object objid+1,100,-100,500
endif
next g
return
_control_weather:
rem Control skycover
scroll object texture 52,0.001,0.0001
scroll object texture 53,0.002,-0.002
if lowmode=0
rem Control rain
for t=1 to 20
makeraindrop(x#,y#,z#)
next t
endif
return
_create_world:
rem Generate random crator
mx#=1000 : mz#=1000
make matrix 1,2000,2000,25,25
position matrix 1,mx#*-1,0,mz#*-1
rem Height map
dim map(25,25)
dim mh(25,25)
rem Load or generate
if 1=1
rem load perimetor
load array "map.dat",map(0)
else
rem Design perimetor
for t=0 to 25
r=50+rnd(50)
map(0,t)=r : map(t,0)=r
map(1,t)=r : map(t,1)=r
map(25,t)=r : map(t,25)=r
next t
for t=1 to 100 : map(rnd(25),rnd(25))=1+rnd(2) : next t
for t=1 to 75 : map(2+rnd(21),2+rnd(21))=100+rnd(50) : next t
for z=2 to 23 step 2
for x=2 to 23 step 2
map(x,z)=0
next x
next z
save array "tempmap.dat",map(0)
endif
rem Texture matrix
load image "floor.bmp",1
prepare matrix texture 1,1,4,4
rem Add hills
for c=1 to 20
for x=0 to 25
for z=0 to 25
if map(x,z)>0
map(x,z)=map(x,z)-1
for tx=-1 to 1
for tz=-1 to 1
gx=x+tx : gz=z+tz
if gx>=0 and gx<=25 and gz>=0 and gz<=25
mh(gx,gz)=mh(gx,gz)+(5-((abs(tx)+abs(tz))/2))
set matrix height 1,gx,gz,mh(gx,gz)
endif
next tz
next tx
else
set matrix height 1,x,z,-100
endif
if x>=0 and x<=24 and z>=0 and z<=24
if x<=2 or x=23 or x=24 or z<=2 or z=23 or z=24
set matrix tile 1,x,z,9+rnd(7)
else
set matrix tile 1,x,z,1+rnd(7)
endif
endif
next z
next x
next c
update matrix 1
rem Create sky
color backdrop 0
rem Create ice-floor
load object "sky.x",51
load image "clouds.bmp",3
scale object 51,500000,500000,500000
position object 51,0,-50,0
texture object 51,3
ghost object on 51
rem Create cloud-cover1
load object "sky.x",52
scale object 52,5000000,5000000,5000000
position object 52,0,550,0
texture object 52,3
ghost object on 52
rem Create cloud-cover2
load object "sky.x",53
scale object 53,5000000,5000000,5000000
position object 53,0,545,0
texture object 53,3
ghost object on 53
scroll object texture 53,0.5,0.2
rem Find lowest point of map
lowest=9999
for x=2 to 24
for z=2 to 24
if mh(x,z)<lowest then lowest=mh(x,z) : lowestx=x : lowestz=z
next z
next x
x#=lowestx*((mx#*2)/25.0)-mx#
z#=lowestz*((mz#*2)/25.0)-mz#
rem Erode path from starting position to center
for x=lowestx to 12
for z=lowestz to 12
set matrix height 1,x,z,-100
next z
next x
update matrix 1
rem Create goblin doorway1
load object "cave.x",91
position object 91,850,-50,300
yrotate object 91,270
fade object 91,200
rem Create goblin doorway2
load object "cave.x",92
position object 92,-650,-50,850
yrotate object 92,180
fade object 92,200
rem Free temp arrays
undim map(0)
undim mh(0)
rem Setup Scene
set camera range 3,10000
set ambient light 50
return
_create_enemies:
rem Create Enemies
for g=1 to enemymax
rem Goblin data
ex#=rnd(1000)-500
ez#=rnd(1000)-500
goblin#(g,1)=1
goblin#(g,2)=ex#
goblin#(g,3)=ez#
goblin#(g,4)=100+rnd(7)
goblin#(g,5)=0
goblin#(g,6)=45+(rnd(3)*90)
goblin#(g,11)=0
goblin#(g,12)=0
goblin#(g,13)=1+rnd(3)
rem Goblin
objid=100+(g*2)+0
make object plain objid,30,40
texture object objid,100
set object objid,1,0,0
eh#=get ground height(1,ex#+mx#,ez#+mz#)
if eh#<-50.0 then eh#=-50.0
position object objid,ex#,eh#+18,ez#
rem Goblin Reflection
objid=100+(g*2)+1
make object plain objid,30,40
texture object objid,100
set object objid,1,0,0
eh#=get ground height(1,ex#+mx#,ez#+mz#)
if eh#<-50.0 then eh#=-50.0
position object objid,ex#,-68-(eh#+50),ez#
scale object objid,100,-100,100
next g
rem Create Real Aliens
for g=1 to 5
rem Borrow goblin positions
ex#=goblin#(g,2)
ez#=goblin#(g,3)
ea#=goblin#(g,6)
ew#=5+rnd(15)
rem Real Goblin
objid=1000+(g*2)+0 : idlestart=0
load object "idle.x",objid : idleend=total object frames(objid)
walkstart=total object frames(objid)+1
append object "walk.x",objid,walkstart : walkend=total object frames(objid)
fallstart(1)=total object frames(objid)+1
append object "die4.x",objid,fallstart(1) : fallend(1)=total object frames(objid)
fallstart(2)=total object frames(objid)+1
append object "die1.x",objid,fallstart(2) : fallend(2)=total object frames(objid)
fallstart(3)=total object frames(objid)+1
append object "die2.x",objid,fallstart(3) : fallend(3)=total object frames(objid)
fallstart(4)=total object frames(objid)+1
append object "die3.x",objid,fallstart(4) : fallend(4)=total object frames(objid)
attackstart=total object frames(objid)+1
append object "punch.x",objid,attackstart : attackend=total object frames(objid)
chargestart=total object frames(objid)+1
append object "charge.x",objid,chargestart : chargeend=total object frames(objid)
slidestart=total object frames(objid)+1
append object "slide.x",objid,slidestart : slideend=total object frames(objid)
`
eh#=get ground height(1,ex#+mx#,ez#+mz#)
if eh#<-50.0 then eh#=-50.0
position object objid,ex#,eh#,ez#
yrotate object objid,ea#
scale object objid,90,90,90
set object speed objid,10
set object rotation zyx objid
set object frame objid,ew#
fn=1 : loop object objid,walkstart+5,walkend
hide object objid
rem Real Goblin Reflection
objid=1000+(g*2)+1
load object "idle.x",objid
append object "walk.x",objid,walkstart
append object "die4.x",objid,fallstart(1)
append object "die1.x",objid,fallstart(2)
append object "die2.x",objid,fallstart(3)
append object "die3.x",objid,fallstart(4)
append object "punch.x",objid,attackstart
append object "charge.x",objid,chargestart
append object "slide.x",objid,slidestart
eh#=get ground height(1,ex#+mx#,ez#+mz#)
if eh#<-50.0 then eh#=-50.0
position object objid,ex#,-50-(eh#+50),ez#
yrotate object objid,ea#
scale object objid,90,-90,90
set object speed objid,10
set object rotation zyx objid
set object frame objid,ew#
fn=1 : loop object objid,walkstart+5,walkend
hide object objid
next g
rem First five are active
for g=1 to 5
goblin#(g,12)=1
rg=g : decaltoreal(g,rg)
next g
return
_create_player:
rem Create Player
make object cube 1,10
hide object 1
rem Create Guns
for g=2 to 3
if g=2
load object "gunR.x",g
else
load object "gunL.x",g
endif
scale object g,200,200,200
set object rotation zyx g
gpx#(g-2)=x# : gpy#(g-2)=y#-100 : gpz#(g-2)=z#
next g
rem Create Laser Bolts
for l=0 to 10
for b=0 to 1
ll=4+(l*2)+b
load object "pulse001.x",ll
scale object ll,500,200,5000
set object rotation zyx ll
hide object ll
next b
next l
rem Create needle for compass
make object plain 80,128,128
load image "needle.bmp",80
texture object 80,80
lock object on 80
set object 80,1,0,0
position object 80,240,165,400
scale object 80,25,75,500
fade object 80,200
rem Create compass
make object plain 81,128,128
load image "compass.bmp",81
texture object 81,81
lock object on 81
set object 81,1,0,0
position object 81,240,165,400
scale object 81,100,100,500
fade object 81,200
rem Create shade compass
make object plain 82,128,128
load image "shade.bmp",82
texture object 82,82
lock object on 82
set object 82,1,0,0
position object 82,240,165,400
scale object 82,100,100,500
fade object 82,200
ghost object on 82
rem Set initial player angle
cya#=90.0
return
_generate_goblins:
rem Create decal images for alien
if 1=1
load bitmap "goblin.bmp",5
gobmax=0
for d=0 to 4
x=0
for f=0 to 19 step 2
rem Modified half-sized final bitmap
get image 100+x+(d*10),(x*81),(d*128),(x*81)+81,(d*128)+128
inc gobmax
inc x
next f
next d
delete bitmap 5
else
autocam on
sync off
backdrop on
set ambient light 50
color backdrop 0
load object "idle.x",100
walkstart=total object frames(100)+1
append object "walk.x",100,walkstart
walkend=total object frames(100)
fade object 100,200
create bitmap 5,(192*10),256*5
gobmax=0
for d=0 to 4
if d<4
yrotate object 100,wrapvalue(45+(d*90))
fstart=0
fmax=20-1
else
yrotate object 100,0
fstart=walkstart+5
fmax=(walkend-walkstart)-6
scale object 100,70,100,100
endif
x=0
for f=0 to fmax step 2
set object frame 100,fstart+f
set current bitmap 0
get image 100+x+(d*10),234,0,234+192,256
set current bitmap 5
paste image 100+x+(d*10),x*192,d*256
inc gobmax
inc x
next f
next d
save bitmap "goblin.bmp",5
delete object 100
delete bitmap 5
gobanim=100
autocam off
sync on
endif
return
rem ** Functions **
function makeraindrop(x#,y#,z#)
` Create fire
decal#(fd,1)=1
decal#(fd,2)=(x#+100)-rnd(200)
decal#(fd,3)=y#+150+rnd(50)
decal#(fd,4)=(z#+100)-rnd(200)
rem Object
objid=10000+fd : dodecal(objid)
endfunction
function makesmoke(x#,y#,z#,size#)
rem Create fire
decal#(fd,1)=2
decal#(fd,2)=(x#+1)-rnd(2)
decal#(fd,3)=(y#+1)-rnd(2)
decal#(fd,4)=(z#+1)-rnd(2)
decal#(fd,5)=rnd(350)
decal#(fd,6)=(2+rnd(2))/10.0
decal#(fd,7)=rnd(10)/10.0
decal#(fd,8)=100-rnd(10)
decal#(fd,9)=size#
rem Object
objid=10000+fd : dodecal(objid)
texture object objid,1001
endfunction
function dodecal(objid)
if object exist(objid)=0 then make object plain objid,10,10
set object objid,1,0,0
ghost object on objid
endfunction
function controldecals(mx#,mz#)
rem All decals
for d=1 to decalmax(1)
rem Object id
objid=10000+d
if object exist(objid)=1
rem Control rain decals
if decal#(d,1)=1
position object objid,decal#(d,2),decal#(d,3),decal#(d,4)
point object objid,camera position x(),camera position y(),camera position z()
xrotate object objid,0 : zrotate object objid,0
scale object objid,3,100,100
decal#(d,3)=decal#(d,3)-15.0
if decal#(d,3)<-50.0
decal#(d,1)=0
endif
show object objid
endif
rem Control smoke decals
if decal#(d,1)=2
position object objid,decal#(d,2),decal#(d,3),decal#(d,4)
point object objid,camera position x(),camera position y(),camera position z()
xrotate object objid,0 : zrotate object objid,0
decal#(d,5)=wrapvalue(decal#(d,5)+2)
decal#(d,2)=decal#(d,2)+(cos(decal#(d,5))*decal#(d,7))
decal#(d,3)=decal#(d,3)+decal#(d,6)
scx#=(150-(decal#(d,8)*1.3))*decal#(d,9)
scz#=(250-decal#(d,8))*decal#(d,9)
scale object objid,scx#,decal#(d,8),scz#
decal#(d,8)=decal#(d,8)-2.0
if decal#(d,8)<=0
decal#(d,1)=0
endif
show object objid
endif
rem Hide unused decals
if decal#(d,1)=0 then hide object objid
endif
rem End of decal loop
next d
endfunction
function activate_enemy(g,x#,z#)
rem If alive
if goblin#(g,1)>0
rem Only if not RG-active
if goblin#(g,11)=0
rem Find spare real goblin
rgfound=-1
for rg=1 to 5
if real(rg)=0 then rgfound=rg
next rg
rem If this enemy is closer than current RG goblins, switch
if rgfound=-1
rem Determine if closer
nx#=goblin#(g,2)-x#
nz#=goblin#(g,3)-z#
nd#=sqrt(abs(nx#*nx#)+abs(nz#*nz#))
for rg=1 to 5
tg=real(rg)
tx#=goblin#(tg,2)-x#
tz#=goblin#(tg,3)-z#
td#=sqrt(abs(tx#*tx#)+abs(tz#*tz#))
if nd#<td# and goblin#(tg,12)=1 then rgfound=rg
next rg
rem If closer, revert current RG holder
if rgfound>0
tg=real(rgfound)
if tg>0 then realtodecal(tg,rgfound)
endif
endif
rem If decal dying, must use real..
if rgfound=-1
if goblin#(g,12)=2 and goblin#(g,11)=0
for rg=1 to 5
tg=real(rg)
if goblin#(tg,12)<>2 then rgfound=rg
next rg
if rgfound>0
tg=real(rgfound)
if tg>0 then realtodecal(tg,rgfound)
decaltoreal(g,rgfound)
rgfound=-1
endif
endif
endif
rem If RG available..
if rgfound>0
decaltoreal(g,rgfound)
endif
endif
endif
endfunction
function decaltoreal(g,rg)
rem Prepare real goblin data
ex#=goblin#(g,2)
eh#=0.0
ez#=goblin#(g,3)
goblin#(g,11)=rg
real(rg)=g
rem Hide decal goblin
hide object 100+(g*2)+0
if object exist(100+(g*2)+1)=1 then hide object 100+(g*2)+1
rem Show real goblin
show object 1000+(rg*2)+0
if object exist(1000+(rg*2)+1)=1 then show object 1000+(rg*2)+1
rem Set speed
set object speed 1000+(rg*2)+0,50
if object exist(1000+(rg*2)+1)=1 then set object speed 1000+(rg*2)+1,50
rem Position goblins
position object 1000+(rg*2)+0,ex#,eh#,ez#
if object exist(1000+(rg*2)+1)=1 then position object 1000+(rg*2)+1,ex#,-50-(eh#+50),ez#
endfunction
function realtodecal(g,rg)
rem Prepare real goblin data
goblin#(g,11)=0
real(rg)=0
rem Show decal goblin
show object 100+(g*2)+0
if object exist(100+(g*2)+1)=1 then show object 100+(g*2)+1
rem Hide real goblin
hide object 1000+(rg*2)+0
if object exist(1000+(rg*2)+1)=1 then hide object 1000+(rg*2)+1
rem Set speed
set object speed 1000+(rg*2)+0,10
if object exist(1000+(rg*2)+1)=1 then set object speed 1000+(rg*2)+1,10
endfunction
