Sorry your browser is not supported!

`RPG Snippet
autocam off
sync on:sync rate 60
color backdrop rgb(50,50,255)
ink rgb(0,0,0),rgb(0,0,0)
randomize timer()
Fog on
Fog distance 15000
Fog Color RGB(100,250,0)


`Light Crap
Set ambient light 70
Color ambient light RGB(200,0,50)
`Set font settings
Set text font "Arial"
Set text size 16
Set text to bold
RemStart
Change this value to change the chance of the enemy casting
magic. Make it bigger to lower the chance and vice versa.
RemEnd
global ChanceOfCast as integer
ChanceOfCast=100

`Set up Map
Make Camera 1
Color Backdrop 1,RGB(10,100,0)
Position camera 1,0,0,0
Point camera 1,0,0,0
Xrotate camera 1,90
Set Camera Range 1,1,50000
`Make Lights
Make light 1
Color Light 1,RGB(250,100,50)

`Load Temple
Make object cone 5,50
Position Object 5,2000,10,500
Scale Object 5,2.5,2.5,2.5
`Enemies
dim key(256)

type enem
   health as integer
   startx as integer
   startz as integer
   endx as integer
   endz as integer
   move as integer
   scale as integer
   cast as integer
   damage as integer
   showdamage as integer
endtype

dim enemy(100) as enem

make object box 9,10000,5,10000
move object down 9,5


for a=10 to 100
   make object sphere a,3,6,6
   position object a,rnd(1000),0,rnd(1000)
   color object a,rgb(0,0,200)
   enemy(a).health=100
   enemy(a).startx=object position x(a)
   enemy(a).startz=object position z(a)
   enemy(a).endx=object position x(a)+rnd(60)
   enemy(a).endz=object position z(a)+rnd(60)
   enemy(a).scale=100
   make object sphere a+100,3,6,6
   texture object a+100,3
   ghost object on a+100
   hide object a+100
next a



make object cube 1,1.5
Color object 1,RGB(150,200,10)
make object cube 3,1.5
Color object 3,RGB(150,200,100)
make object cube 4,1.5
Color object 4,RGB(100,200,10)
playerhealth=100
maxplayerhealth = 100
playerexperience=0
playerlevel=1
playerdamage=0
playershowdamage=0
playershowlevel=0
make object box 2,.2,.2,2.5
color object 2,rgb(20,0,0)
hide object 2
offset limb 2,0,0,0,2
`Magic Blast
Make object sphere 6,.5,.5,.5
color object 6,RGB(20,20,200)
Hide object 6
`Katars
Make object cone 7,.5
xrotate object 7,90
Fix object pivot 7
color object 7,RGB(200,20,200)
Hide object 7

Make object cone 8,.5
xrotate object 8,90
Fix object pivot 8
color object 8,RGB(200,20,200)
Hide object 8

`End Characters
set global collision on

do

`Go to menu
if keystate(25)=1
gosub Menu
endif

`Ally Positions
Position object 3,object position x(1),object position y(1),object position z(1)-10
Position object 4,object position x(1),object position y(1),object position z(3)-10

`Light Settings
Position light 1,object position X(1),object position Y(1),object position z(1)
Point light 1,object position X(1),object position Y(1),object position z(1)
`Gosubs
Gosub huds
Gosub info
Gosub Controls
Gosub Stats
Gosub Slidecollision

`Enemy AI
     for a=10 to 100
     if object exist(a)=1
     if enemy(a).cast=0 and distance(1,a)<50 and attack>0 and attack<8 then move object a,-1
        if distance(1,a)>50
           enemy(a).cast=0
           hide object a+100
           scale object a+100,100,100,100
           patrol(a)
        else
        if enemy(a).cast=0
           set object collision off a+100
           point object a,object position x(1),0,object position z(1)
           move object a,.5
           if object collision(a,1)=1
              playerhealth=playerhealth-5
              playerdamage=-5
              playershowdamage=50
              move object a,-15
              endif
              testforcast=0
              if distance(1,a)<50
              testforcast=rnd(ChanceOfCast)
              endif
              if testforcast=3
              enemy(a).cast=100
              show object a+100
              set object collision on a+100
              endif
              endif
              if enemy(a).cast>0
              enemy(a).cast=enemy(a).cast+3
              scale object a+100,enemy(a).cast,enemy(a).cast,enemy(a).cast
           if object collision(a+100,1)=1
              playerdamage=-1
              playershowdamage=50
              playerhealth=playerhealth-1
              endif
            endif
              if enemy(a).cast>500
              enemy(a).cast=0
              hide object a+100
              endif
           endif
position object a+100,object position x(a),object position y(a)-1.5,object position z(a)
   endif
     next a

  position camera object position x(1),object position y(1)+5,object position z(1)-10
  point camera object position x(1),object position y(1),object position z(1)



   sync
loop



`Gosubs
Huds:
`This gosub deals with the huds and leveling up
`Paste image 1,5,360,1
ink rgb(200,0,0),0
box 146,385,146+(playerhealth*1.567),405
ink rgb(0,255,0),0
box 146,435,146+(playerexperience*1.564),455
if playerhealth<1
playerhealth=0
endif
if playerexperience>100
playerexperience=0
playerlevel=playerlevel+1
playershowlevel=50
maxplayerhealth = maxplayerhealth + (10 * Playerlevel)
playerhealth = maxplayerhealth
endif
ink rgb(0,0,0),0
text 216,365,str$(playerlevel)
`Map
Set Camera View 1,375,365,495,470
Position camera 1,object position x(1),object position y(1)+80,object position z(1)
Point camera 1,object position x(1),object position y(1),object position z(1)
Return

Info:
Ink RGB(0,0,0),0
Text 5,5,"Fps: " +STR$(Screen FPS())
Return

Controls:

up=0
down=0
right=0
left=0
if keystate(17)=1 then up=1
if keystate(31)=1  then down=1
if keystate(32)=1  then right=1
if keystate(30)=1 then left=1
if up=1 and left=0 and right=0 and down=0
OldAng=object angle y(1)
TargetAng=0
yrotate object 1,TargetAng
move object 1,1
yrotate object 1,OldAng
endif
if up=1 and left=1 and right=0 and down=0
OldAng=object angle y(1)
TargetAng=315
yrotate object 1,TargetAng
move object 1,1
yrotate object 1,OldAng
endif
if up=1 and left=0 and right=1 and down=0
OldAng=object angle y(1)
TargetAng=45
yrotate object 1,TargetAng
move object 1,1
yrotate object 1,OldAng
endif
if up=0 and left=1 and right=0 and down=0
OldAng=object angle y(1)
TargetAng=270
yrotate object 1,TargetAng
move object 1,1
yrotate object 1,OldAng
endif
if up=0 and left=0 and right=1 and down=0
OldAng=object angle y(1)
TargetAng=90
yrotate object 1,TargetAng
move object 1,1
yrotate object 1,OldAng
endif
if up=0 and left=0 and right=0 and down=1
OldAng=object angle y(1)
TargetAng=180
yrotate object 1,TargetAng
move object 1,1
yrotate object 1,OldAng
endif
if up=0 and left=0 and right=1 and down=1
OldAng=object angle y(1)
TargetAng=135
yrotate object 1,TargetAng
move object 1,1
yrotate object 1,OldAng
endif
if up=0 and left=1 and right=0 and down=1
OldAng=object angle y(1)
TargetAng=215
yrotate object 1,TargetAng
move object 1,1
yrotate object 1,OldAng
endif
yrotate object 1,curveangle(TargetAng,object angle y(1),5)
`Combat Controls

    if keyready(57)=1 and attack=0
       rotate object 2,object angle x(1),object angle y(1)-70,object angle z(1)
       attack=16
       show object 2
    endif
     if attack>0
        attack=attack-1
        position object 2,object position x(1),0,object position z(1)
        yrotate object 2,object angle y(2)+10
        for a=10 to 100
          if object exist(a)=1
           if object collision(2,a)=1
              playerexperience=playerexperience+rnd(playerlevel*2.5)
              enemy(a).damage=0-playerlevel*10
              enemy(a).showdamage=50
              enemy(a).health=enemy(a).health-playerlevel*8
              move object a,-playerlevel*5
              enemy(a).scale=enemy(a).scale-playerlevel*5
              enemy(a).cast=0
              hide object a+100
         endif
           if enemy(a).health<10 then delete object a : delete object a+100
           endif
        next a
     endif
     if attack=1 then hide object 2
Return

Stats:

ink rgb(255,200,0),0
if playershowlevel>0
center text object screen x(1),object screen y(1)-200+(playershowlevel*4),str$(playerlevel)
playershowlevel=playershowlevel-1
endif
ink rgb(200,0,0),0
if playershowdamage>0
center text object screen x(1),object screen y(1)-100+(playershowdamage*2),str$(playerdamage)
playershowdamage=playershowdamage-1
endif
ink rgb(255,255,255),0
for a=10 to 100
if object exist(a)=1 and enemy(a).showdamage>0
center text object screen x(a),object screen y(a)-100+(enemy(a).showdamage*2),str$(enemy(a).damage)
enemy(a).showdamage=enemy(a).showdamage-1
endif
next a
for a = 10 to 100
If Object Exist(a)
if distance(1,a) <100
Ink RGB(0,0,0),0
Box Object Screen X(a),Object screen Y(a),Object Screen X(a)+50,Object Screen Y(a)+10
Ink RGB(100,0,0),0
Box Object Screen X(a)+1,Object screen Y(a)+1,Object Screen X(a)+(enemy(a).health/2)-1,Object Screen Y(a)+9
Endif
Endif
Next a
Return

SlideCollision:
   col_dist=2
   for i=1 to 200
   if object exist(i)=1
      maxtemp#=0
      for j=0 to 360 step 45
         temp#=intersect object (i,tempx#,2,tempz#,newxvalue(tempx#,j,col_dist),2,newzvalue(tempz#,j,col_dist))
         if temp#>maxtemp#
            maxtemp#=temp#
            maxangle#=j
         endif
      next j
      if maxtemp#>0
         tempx#=newxvalue(object position x(1),maxangle#,maxtemp#-col_dist)
         tempz#=newzvalue(object position z(1),maxangle#,maxtemp#-col_dist)
      endif
   endif
   next i
Return

`Functions

function patrol(object)
   if threeD_distance(object position x(object),enemy(object).endx,0,0,object position z(object),enemy(object).endz)<2 then enemy(object).move=1
   if threeD_distance(object position x(object),enemy(object).startx,0,0,object position z(object),enemy(object).startz)<2 then enemy(object).move=0
   if enemy(object).move=0
      point object object,enemy(object).endx,0,enemy(object).endz
      move object object,1
   endif
   if enemy(object).move=1
      point object object,enemy(object).startx,0,enemy(object).startz
      move object object,1
   endif
endfunction




function distance(obj1,obj2)
dist=sqrt(((object position x(obj1)-object position x(obj2))*(object position x(obj1)-object position x(obj2)))+((object position z(obj1)-object position z(obj2))*(object position z(obj1)-object position z(obj2))))
endfunction dist

FUNCTION threeD_distance(x1# AS float, x2# AS float, y1# AS float, y2# AS float, z1# AS float, z2# AS float)

   temp = 1
   null = make vector3(temp)
     set vector3 temp, x1# - x2#, y1# - y2#, z1# - z2#
     length_vector = abs(length vector3(temp))
     null = delete vector3(temp)

ENDFUNCTION length_vector

function keyready(keyz)
vl=0
if keystate(keyz)=1 and key(keyz) = 0
      key(keyz) = 1
      vl=1
   endif
if keystate(keyz)=0
      key(keyz) = 0
      vl = 0
   endif
endfunction vl

Menu:
sync on
sync rate 0
do
rotate camera curveangle(0,camera angle x(),50),curveangle(0,camera angle y(),50),0
if wrapvalue(camera angle x())<0.5 and wrapvalue(camera angle y())<0.5
rotate camera 0,0,0
exit
endif
sync
loop
MaxObject=3
for o=1 to MaxObject
make object plain o+65500,50,10
position object o+65500,camera position x(),camera position y(),camera position z()+100
disable object zdepth o+65500
for r=0 to o-1
if r>0
xrotate object o+65500,wrapvalue(object angle x(o+65500)+15)
move object down o+65500,15
endif
next r
next o
Selected=1
do
if downkey()=1 and Move=0
Selected=Selected+1
if Selected>MaxObject
Selected=MaxObject
else
Move=150
endif
endif
if upkey()=1 and Move=0
Selected=Selected-1
if Selected<1
Selected=1
else
Move=-150
endif
endif
if Move>0
dec Move
for o=1 to MaxObject
xrotate object o+65500,wrapvalue(object angle x(o+65500)-0.1)
move object up o+65500,0.1
next o
endif
if Move<0
inc Move
for o=1 to MaxObject
xrotate object o+65500,wrapvalue(object angle x(o+65500)+0.1)
move object down o+65500,0.1
next o
endif
if returnkey()=1
exit
endif
sync
loop
for o=1 to MaxObject
delete object o+65500
next o
return

`RPG Snippet
autocam off
sync on:sync rate 0
color backdrop rgb(50,50,255)
ink rgb(0,0,0),rgb(0,0,0)
randomize timer()

global StartMenuObject as integer
StartMenuObject=65500
do
rotate camera curveangle(0,camera angle x(),50),curveangle(0,camera angle y(),50),0
if wrapvalue(camera angle x())<0.5 and wrapvalue(camera angle y())<0.5
rotate camera 0,0,0
exit
endif
sync
loop
MaxObject=2
for o=1 to MaxObject
make object plain o+StartMenuObject,50,10
position object o+StartMenuObject,camera position x(),camera position y(),camera position z()+100
disable object zdepth o+StartMenuObject
for r=0 to o-1
if r>0
xrotate object o+StartMenuObject,wrapvalue(object angle x(o+StartMenuObject)+15)
move object down o+StartMenuObject,15
endif
next r
next o
Selected=1
do
if downkey()=1 and Move=0
Selected=Selected+1
if Selected>MaxObject
Selected=MaxObject
else
Move=150
endif
endif
if upkey()=1 and Move=0
Selected=Selected-1
if Selected<1
Selected=1
else
Move=-150
endif
endif
if Move>0
dec Move
for o=1 to MaxObject
xrotate object o+StartMenuObject,wrapvalue(object angle x(o+StartMenuObject)-0.1)
move object up o+StartMenuObject,0.1
next o
endif
if Move<0
inc Move
for o=1 to MaxObject
xrotate object o+StartMenuObject,wrapvalue(object angle x(o+StartMenuObject)+0.1)
move object down o+StartMenuObject,0.1
next o
endif
if returnkey()=1
exit
endif
if keystate(25)=1
exit
Selected=100
endif
sync
loop
for o=1 to MaxObject
delete object o+StartMenuObject
next o
if Selected=2
end
endif

Fog on
Fog distance 15000
Fog Color RGB(100,250,0)


`Light Crap
Set ambient light 70
Color ambient light RGB(200,0,50)
`Set font settings
Set text font "Arial"
Set text size 16
Set text to bold
RemStart
Change this value to change the chance of the enemy casting
magic. Make it bigger to lower the chance and vice versa.
RemEnd
global ChanceOfCast as integer
ChanceOfCast=100

`Set up Map
Make Camera 1
Color Backdrop 1,RGB(10,100,0)
Position camera 1,0,0,0
Point camera 1,0,0,0
Xrotate camera 1,90
Set Camera Range 1,1,50000
`Make Lights
Make light 1
Color Light 1,RGB(250,100,50)

`Load Temple
Make object cone 5,50
Position Object 5,2000,10,500
Scale Object 5,2.5,2.5,2.5
`Enemies
dim key(256)

type enem
   health as integer
   startx as integer
   startz as integer
   endx as integer
   endz as integer
   move as integer
   scale as integer
   cast as integer
   damage as integer
   showdamage as integer
endtype

dim enemy(100) as enem

make object box 9,10000,5,10000
move object down 9,5


for a=10 to 100
   make object sphere a,3,6,6
   position object a,rnd(1000),0,rnd(1000)
   color object a,rgb(0,0,200)
   enemy(a).health=100
   enemy(a).startx=object position x(a)
   enemy(a).startz=object position z(a)
   enemy(a).endx=object position x(a)+rnd(60)
   enemy(a).endz=object position z(a)+rnd(60)
   enemy(a).scale=100
   make object sphere a+100,3,6,6
   texture object a+100,3
   ghost object on a+100
   hide object a+100
next a



make object cube 1,1.5
Color object 1,RGB(150,200,10)
make object cube 3,1.5
Color object 3,RGB(150,200,100)
make object cube 4,1.5
Color object 4,RGB(100,200,10)
playerhealth=100
maxplayerhealth = 100
playerexperience=0
playerlevel=1
playerdamage=0
playershowdamage=0
playershowlevel=0
make object box 2,.2,.2,2.5
color object 2,rgb(20,0,0)
hide object 2
offset limb 2,0,0,0,2
`Magic Blast
Make object sphere 6,.5,.5,.5
color object 6,RGB(20,20,200)
Hide object 6
`Katars
Make object cone 7,.5
xrotate object 7,90
Fix object pivot 7
color object 7,RGB(200,20,200)
Hide object 7

Make object cone 8,.5
xrotate object 8,90
Fix object pivot 8
color object 8,RGB(200,20,200)
Hide object 8

`End Characters
set global collision on

sync on
sync rate 60

do

`Go to menu
if keystate(25)=1
gosub Menu
endif

`Ally Positions
Position object 3,object position x(1),object position y(1),object position z(1)-10
Position object 4,object position x(1),object position y(1),object position z(3)-10

`Light Settings
Position light 1,object position X(1),object position Y(1),object position z(1)
Point light 1,object position X(1),object position Y(1),object position z(1)
`Gosubs
Gosub huds
Gosub info
Gosub Controls
Gosub Stats
Gosub Slidecollision

`Enemy AI
     for a=10 to 100
     if object exist(a)=1
     if enemy(a).cast=0 and distance(1,a)<50 and attack>0 and attack<8 then move object a,-1
        if distance(1,a)>50
           enemy(a).cast=0
           hide object a+100
           scale object a+100,100,100,100
           patrol(a)
        else
        if enemy(a).cast=0
           set object collision off a+100
           point object a,object position x(1),0,object position z(1)
           move object a,.5
           if object collision(a,1)=1
              playerhealth=playerhealth-5
              playerdamage=-5
              playershowdamage=50
              move object a,-15
              endif
              testforcast=0
              if distance(1,a)<50
              testforcast=rnd(ChanceOfCast)
              endif
              if testforcast=3
              enemy(a).cast=100
              show object a+100
              set object collision on a+100
              endif
              endif
              if enemy(a).cast>0
              enemy(a).cast=enemy(a).cast+3
              scale object a+100,enemy(a).cast,enemy(a).cast,enemy(a).cast
           if object collision(a+100,1)=1
              playerdamage=-1
              playershowdamage=50
              playerhealth=playerhealth-1
              endif
            endif
              if enemy(a).cast>500
              enemy(a).cast=0
              hide object a+100
              endif
           endif
position object a+100,object position x(a),object position y(a)-1.5,object position z(a)
   endif
     next a

  position camera object position x(1),object position y(1)+5,object position z(1)-10
  point camera object position x(1),object position y(1),object position z(1)



   sync
loop



`Gosubs
Huds:
`This gosub deals with the huds and leveling up
`Paste image 1,5,360,1
ink rgb(200,0,0),0
box 146,385,146+(playerhealth*1.567),405
ink rgb(0,255,0),0
box 146,435,146+(playerexperience*1.564),455
if playerhealth<1
playerhealth=0
endif
if playerexperience>100
playerexperience=0
playerlevel=playerlevel+1
playershowlevel=50
maxplayerhealth = maxplayerhealth + (10 * Playerlevel)
playerhealth = maxplayerhealth
endif
ink rgb(0,0,0),0
text 216,365,str$(playerlevel)
`Map
Set Camera View 1,375,365,495,470
Position camera 1,object position x(1),object position y(1)+80,object position z(1)
Point camera 1,object position x(1),object position y(1),object position z(1)
Return

Info:
Ink RGB(0,0,0),0
Text 5,5,"Fps: " +STR$(Screen FPS())
Return

Controls:

up=0
down=0
right=0
left=0
if keystate(17)=1 then up=1
if keystate(31)=1  then down=1
if keystate(32)=1  then right=1
if keystate(30)=1 then left=1
if up=1 and left=0 and right=0 and down=0
OldAng=object angle y(1)
TargetAng=0
yrotate object 1,TargetAng
move object 1,1
yrotate object 1,OldAng
endif
if up=1 and left=1 and right=0 and down=0
OldAng=object angle y(1)
TargetAng=315
yrotate object 1,TargetAng
move object 1,1
yrotate object 1,OldAng
endif
if up=1 and left=0 and right=1 and down=0
OldAng=object angle y(1)
TargetAng=45
yrotate object 1,TargetAng
move object 1,1
yrotate object 1,OldAng
endif
if up=0 and left=1 and right=0 and down=0
OldAng=object angle y(1)
TargetAng=270
yrotate object 1,TargetAng
move object 1,1
yrotate object 1,OldAng
endif
if up=0 and left=0 and right=1 and down=0
OldAng=object angle y(1)
TargetAng=90
yrotate object 1,TargetAng
move object 1,1
yrotate object 1,OldAng
endif
if up=0 and left=0 and right=0 and down=1
OldAng=object angle y(1)
TargetAng=180
yrotate object 1,TargetAng
move object 1,1
yrotate object 1,OldAng
endif
if up=0 and left=0 and right=1 and down=1
OldAng=object angle y(1)
TargetAng=135
yrotate object 1,TargetAng
move object 1,1
yrotate object 1,OldAng
endif
if up=0 and left=1 and right=0 and down=1
OldAng=object angle y(1)
TargetAng=215
yrotate object 1,TargetAng
move object 1,1
yrotate object 1,OldAng
endif
yrotate object 1,curveangle(TargetAng,object angle y(1),5)
`Combat Controls

    if keyready(57)=1 and attack=0
       rotate object 2,object angle x(1),object angle y(1)-70,object angle z(1)
       attack=16
       show object 2
    endif
     if attack>0
        attack=attack-1
        position object 2,object position x(1),0,object position z(1)
        yrotate object 2,object angle y(2)+10
        for a=10 to 100
          if object exist(a)=1
           if object collision(2,a)=1
              playerexperience=playerexperience+rnd(playerlevel*2.5)
              enemy(a).damage=0-playerlevel*10
              enemy(a).showdamage=50
              enemy(a).health=enemy(a).health-playerlevel*8
              move object a,-playerlevel*5
              enemy(a).scale=enemy(a).scale-playerlevel*5
              enemy(a).cast=0
              hide object a+100
         endif
           if enemy(a).health<10 then delete object a : delete object a+100
           endif
        next a
     endif
     if attack=1 then hide object 2
Return

Stats:

ink rgb(255,200,0),0
if playershowlevel>0
center text object screen x(1),object screen y(1)-200+(playershowlevel*4),str$(playerlevel)
playershowlevel=playershowlevel-1
endif
ink rgb(200,0,0),0
if playershowdamage>0
center text object screen x(1),object screen y(1)-100+(playershowdamage*2),str$(playerdamage)
playershowdamage=playershowdamage-1
endif
ink rgb(255,255,255),0
for a=10 to 100
if object exist(a)=1 and enemy(a).showdamage>0
center text object screen x(a),object screen y(a)-100+(enemy(a).showdamage*2),str$(enemy(a).damage)
enemy(a).showdamage=enemy(a).showdamage-1
endif
next a
for a = 10 to 100
If Object Exist(a)
if distance(1,a) <100
Ink RGB(0,0,0),0
Box Object Screen X(a),Object screen Y(a),Object Screen X(a)+50,Object Screen Y(a)+10
Ink RGB(100,0,0),0
Box Object Screen X(a)+1,Object screen Y(a)+1,Object Screen X(a)+(enemy(a).health/2)-1,Object Screen Y(a)+9
Endif
Endif
Next a
Return

SlideCollision:
   col_dist=2
   for i=1 to 200
   if object exist(i)=1
      maxtemp#=0
      for j=0 to 360 step 45
         temp#=intersect object (i,tempx#,2,tempz#,newxvalue(tempx#,j,col_dist),2,newzvalue(tempz#,j,col_dist))
         if temp#>maxtemp#
            maxtemp#=temp#
            maxangle#=j
         endif
      next j
      if maxtemp#>0
         tempx#=newxvalue(object position x(1),maxangle#,maxtemp#-col_dist)
         tempz#=newzvalue(object position z(1),maxangle#,maxtemp#-col_dist)
      endif
   endif
   next i
Return

`Functions

function patrol(object)
   if threeD_distance(object position x(object),enemy(object).endx,0,0,object position z(object),enemy(object).endz)<2 then enemy(object).move=1
   if threeD_distance(object position x(object),enemy(object).startx,0,0,object position z(object),enemy(object).startz)<2 then enemy(object).move=0
   if enemy(object).move=0
      point object object,enemy(object).endx,0,enemy(object).endz
      move object object,1
   endif
   if enemy(object).move=1
      point object object,enemy(object).startx,0,enemy(object).startz
      move object object,1
   endif
endfunction




function distance(obj1,obj2)
dist=sqrt(((object position x(obj1)-object position x(obj2))*(object position x(obj1)-object position x(obj2)))+((object position z(obj1)-object position z(obj2))*(object position z(obj1)-object position z(obj2))))
endfunction dist

FUNCTION threeD_distance(x1# AS float, x2# AS float, y1# AS float, y2# AS float, z1# AS float, z2# AS float)

   temp = 1
   null = make vector3(temp)
     set vector3 temp, x1# - x2#, y1# - y2#, z1# - z2#
     length_vector = abs(length vector3(temp))
     null = delete vector3(temp)

ENDFUNCTION length_vector

function keyready(keyz)
vl=0
if keystate(keyz)=1 and key(keyz) = 0
      key(keyz) = 1
      vl=1
   endif
if keystate(keyz)=0
      key(keyz) = 0
      vl = 0
   endif
endfunction vl

Menu:
autocam off
sync on
sync rate 0
do
if keystate(25)=0
exit
endif
loop
do
rotate camera curveangle(0,camera angle x(),50),curveangle(0,camera angle y(),50),0
if wrapvalue(camera angle x())<0.5 and wrapvalue(camera angle y())<0.5
rotate camera 0,0,0
exit
endif
sync
loop
MaxObject=2
for o=1 to MaxObject
make object plain o+StartMenuObject,50,10
position object o+StartMenuObject,camera position x(),camera position y(),camera position z()+100
disable object zdepth o+StartMenuObject
for r=0 to o-1
if r>0
xrotate object o+StartMenuObject,wrapvalue(object angle x(o+StartMenuObject)+15)
move object down o+StartMenuObject,15
endif
next r
next o
Selected=1
do
if downkey()=1 and Move=0
Selected=Selected+1
if Selected>MaxObject
Selected=MaxObject
else
Move=150
endif
endif
if upkey()=1 and Move=0
Selected=Selected-1
if Selected<1
Selected=1
else
Move=-150
endif
endif
if Move>0
dec Move
for o=1 to MaxObject
xrotate object o+StartMenuObject,wrapvalue(object angle x(o+StartMenuObject)-0.1)
move object up o+StartMenuObject,0.1
next o
endif
if Move<0
inc Move
for o=1 to MaxObject
xrotate object o+StartMenuObject,wrapvalue(object angle x(o+StartMenuObject)+0.1)
move object down o+StartMenuObject,0.1
next o
endif
if returnkey()=1
exit
endif
if keystate(25)=1
exit
Selected=100
endif
sync
loop
for o=1 to MaxObject
delete object o+StartMenuObject
next o
if Selected=2
end
endif
do
if keystate(25)=0
exit
endif
loop
sync on
sync rate 60
return

do
if keystate(25)=0
exit
endif
loop

`RPG Snippet
autocam off
sync on:sync rate 0
color backdrop rgb(50,50,255)
ink rgb(0,0,0),rgb(0,0,0)
randomize timer()

rem Value telling the program which object to start making the menu plains at
global StartMenuObject as integer
StartMenuObject=65500
do
rotate camera curveangle(0,camera angle x(),50),curveangle(0,camera angle y(),50),0
if wrapvalue(camera angle x())<0.5 and wrapvalue(camera angle y())<0.5
rotate camera 0,0,0
exit
endif
sync
loop
rem Number of menu items to make
MaxObject=2
for o=1 to MaxObject
make object plain o+StartMenuObject,50,10
position object o+StartMenuObject,camera position x(),camera position y(),camera position z()+100
disable object zdepth o+StartMenuObject
for r=0 to o-1
if r>0
xrotate object o+StartMenuObject,wrapvalue(object angle x(o+StartMenuObject)+15)
move object down o+StartMenuObject,15
endif
next r
next o
rem Variable to hold the value of the selected menu items
Selected=1
rem Values of the menu items
Start=1
Quit=2
do
if downkey()=1 and Move=0
Selected=Selected+1
if Selected>MaxObject
Selected=MaxObject
else
Move=150
endif
endif
if upkey()=1 and Move=0
Selected=Selected-1
if Selected<1
Selected=1
else
Move=-150
endif
endif
if Move>0
dec Move
for o=1 to MaxObject
xrotate object o+StartMenuObject,wrapvalue(object angle x(o+StartMenuObject)-0.1)
move object up o+StartMenuObject,0.1
next o
endif
if Move<0
inc Move
for o=1 to MaxObject
xrotate object o+StartMenuObject,wrapvalue(object angle x(o+StartMenuObject)+0.1)
move object down o+StartMenuObject,0.1
next o
endif
if returnkey()=1
exit
endif
if keystate(25)=1
exit
Selected=100
endif
sync
loop
for o=1 to MaxObject
delete object o+StartMenuObject
next o
rem Check that the selected menu item=Quit
if Selected=Quit
end
endif

Fog on
Fog distance 15000
Fog Color RGB(100,250,0)


`Light Crap
Set ambient light 70
Color ambient light RGB(200,0,50)
`Set font settings
Set text font "Arial"
Set text size 16
Set text to bold
RemStart
Change this value to change the chance of the enemy casting
magic. Make it bigger to lower the chance and vice versa.
RemEnd
global ChanceOfCast as integer
ChanceOfCast=100

`Set up Map
Make Camera 1
Color Backdrop 1,RGB(10,100,0)
Position camera 1,0,0,0
Point camera 1,0,0,0
Xrotate camera 1,90
Set Camera Range 1,1,50000
`Make Lights
Make light 1
Color Light 1,RGB(250,100,50)

`Load Temple
Make object cone 5,50
Position Object 5,2000,10,500
Scale Object 5,2.5,2.5,2.5
`Enemies
dim key(256)

type enem
   health as integer
   startx as integer
   startz as integer
   endx as integer
   endz as integer
   move as integer
   scale as integer
   cast as integer
   damage as integer
   showdamage as integer
endtype

dim enemy(100) as enem

make object box 9,10000,5,10000
move object down 9,5


for a=10 to 100
   make object sphere a,3,6,6
   position object a,rnd(1000),0,rnd(1000)
   color object a,rgb(0,0,200)
   enemy(a).health=100
   enemy(a).startx=object position x(a)
   enemy(a).startz=object position z(a)
   enemy(a).endx=object position x(a)+rnd(60)
   enemy(a).endz=object position z(a)+rnd(60)
   enemy(a).scale=100
   make object sphere a+100,3,6,6
   texture object a+100,3
   ghost object on a+100
   hide object a+100
next a



make object cube 1,1.5
Color object 1,RGB(150,200,10)
make object cube 3,1.5
Color object 3,RGB(150,200,100)
make object cube 4,1.5
Color object 4,RGB(100,200,10)
playerhealth=100
maxplayerhealth = 100
playerexperience=0
playerlevel=1
playerdamage=0
playershowdamage=0
playershowlevel=0
make object box 2,.2,.2,2.5
color object 2,rgb(20,0,0)
hide object 2
offset limb 2,0,0,0,2
`Magic Blast
Make object sphere 6,.5,.5,.5
color object 6,RGB(20,20,200)
Hide object 6
`Katars
Make object cone 7,.5
xrotate object 7,90
Fix object pivot 7
color object 7,RGB(200,20,200)
Hide object 7

Make object cone 8,.5
xrotate object 8,90
Fix object pivot 8
color object 8,RGB(200,20,200)
Hide object 8

`End Characters
set global collision on

sync on
sync rate 60

do

`Go to menu
if keystate(25)=1
gosub Menu
endif

`Ally Positions
Position object 3,object position x(1),object position y(1),object position z(1)-10
Position object 4,object position x(1),object position y(1),object position z(3)-10

`Light Settings
Position light 1,object position X(1),object position Y(1),object position z(1)
Point light 1,object position X(1),object position Y(1),object position z(1)
`Gosubs
Gosub huds
Gosub info
Gosub Controls
Gosub Stats
Gosub Slidecollision

`Enemy AI
     for a=10 to 100
     if object exist(a)=1
     if enemy(a).cast=0 and distance(1,a)<50 and attack>0 and attack<8 then move object a,-1
        if distance(1,a)>50
           enemy(a).cast=0
           hide object a+100
           scale object a+100,100,100,100
           patrol(a)
        else
        if enemy(a).cast=0
           set object collision off a+100
           point object a,object position x(1),0,object position z(1)
           move object a,.5
           if object collision(a,1)=1
              playerhealth=playerhealth-5
              playerdamage=-5
              playershowdamage=50
              move object a,-15
              endif
              testforcast=0
              if distance(1,a)<50
              testforcast=rnd(ChanceOfCast)
              endif
              if testforcast=3
              enemy(a).cast=100
              show object a+100
              set object collision on a+100
              endif
              endif
              if enemy(a).cast>0
              enemy(a).cast=enemy(a).cast+3
              scale object a+100,enemy(a).cast,enemy(a).cast,enemy(a).cast
           if object collision(a+100,1)=1
              playerdamage=-1
              playershowdamage=50
              playerhealth=playerhealth-1
              endif
            endif
              if enemy(a).cast>500
              enemy(a).cast=0
              hide object a+100
              endif
           endif
position object a+100,object position x(a),object position y(a)-1.5,object position z(a)
   endif
     next a

  position camera object position x(1),object position y(1)+5,object position z(1)-10
  point camera object position x(1),object position y(1),object position z(1)



   sync
loop



`Gosubs
Huds:
`This gosub deals with the huds and leveling up
`Paste image 1,5,360,1
ink rgb(200,0,0),0
box 146,385,146+(playerhealth*1.567),405
ink rgb(0,255,0),0
box 146,435,146+(playerexperience*1.564),455
if playerhealth<1
playerhealth=0
endif
if playerexperience>100
playerexperience=0
playerlevel=playerlevel+1
playershowlevel=50
maxplayerhealth = maxplayerhealth + (10 * Playerlevel)
playerhealth = maxplayerhealth
endif
ink rgb(0,0,0),0
text 216,365,str$(playerlevel)
`Map
Set Camera View 1,375,365,495,470
Position camera 1,object position x(1),object position y(1)+80,object position z(1)
Point camera 1,object position x(1),object position y(1),object position z(1)
Return

Info:
Ink RGB(0,0,0),0
Text 5,5,"Fps: " +STR$(Screen FPS())
Return

Controls:

up=0
down=0
right=0
left=0
if keystate(17)=1 then up=1
if keystate(31)=1  then down=1
if keystate(32)=1  then right=1
if keystate(30)=1 then left=1
if up=1 and left=0 and right=0 and down=0
OldAng=object angle y(1)
TargetAng=0
yrotate object 1,TargetAng
move object 1,1
yrotate object 1,OldAng
endif
if up=1 and left=1 and right=0 and down=0
OldAng=object angle y(1)
TargetAng=315
yrotate object 1,TargetAng
move object 1,1
yrotate object 1,OldAng
endif
if up=1 and left=0 and right=1 and down=0
OldAng=object angle y(1)
TargetAng=45
yrotate object 1,TargetAng
move object 1,1
yrotate object 1,OldAng
endif
if up=0 and left=1 and right=0 and down=0
OldAng=object angle y(1)
TargetAng=270
yrotate object 1,TargetAng
move object 1,1
yrotate object 1,OldAng
endif
if up=0 and left=0 and right=1 and down=0
OldAng=object angle y(1)
TargetAng=90
yrotate object 1,TargetAng
move object 1,1
yrotate object 1,OldAng
endif
if up=0 and left=0 and right=0 and down=1
OldAng=object angle y(1)
TargetAng=180
yrotate object 1,TargetAng
move object 1,1
yrotate object 1,OldAng
endif
if up=0 and left=0 and right=1 and down=1
OldAng=object angle y(1)
TargetAng=135
yrotate object 1,TargetAng
move object 1,1
yrotate object 1,OldAng
endif
if up=0 and left=1 and right=0 and down=1
OldAng=object angle y(1)
TargetAng=215
yrotate object 1,TargetAng
move object 1,1
yrotate object 1,OldAng
endif
yrotate object 1,curveangle(TargetAng,object angle y(1),5)
`Combat Controls

    if keyready(57)=1 and attack=0
       rotate object 2,object angle x(1),object angle y(1)-70,object angle z(1)
       attack=16
       show object 2
    endif
     if attack>0
        attack=attack-1
        position object 2,object position x(1),0,object position z(1)
        yrotate object 2,object angle y(2)+10
        for a=10 to 100
          if object exist(a)=1
           if object collision(2,a)=1
              playerexperience=playerexperience+rnd(playerlevel*2.5)
              enemy(a).damage=0-playerlevel*10
              enemy(a).showdamage=50
              enemy(a).health=enemy(a).health-playerlevel*8
              move object a,-playerlevel*5
              enemy(a).scale=enemy(a).scale-playerlevel*5
              enemy(a).cast=0
              hide object a+100
         endif
           if enemy(a).health<10 then delete object a : delete object a+100
           endif
        next a
     endif
     if attack=1 then hide object 2
Return

Stats:

ink rgb(255,200,0),0
if playershowlevel>0
center text object screen x(1),object screen y(1)-200+(playershowlevel*4),str$(playerlevel)
playershowlevel=playershowlevel-1
endif
ink rgb(200,0,0),0
if playershowdamage>0
center text object screen x(1),object screen y(1)-100+(playershowdamage*2),str$(playerdamage)
playershowdamage=playershowdamage-1
endif
ink rgb(255,255,255),0
for a=10 to 100
if object exist(a)=1 and enemy(a).showdamage>0
center text object screen x(a),object screen y(a)-100+(enemy(a).showdamage*2),str$(enemy(a).damage)
enemy(a).showdamage=enemy(a).showdamage-1
endif
next a
for a = 10 to 100
If Object Exist(a)
if distance(1,a) <100
Ink RGB(0,0,0),0
Box Object Screen X(a),Object screen Y(a),Object Screen X(a)+50,Object Screen Y(a)+10
Ink RGB(100,0,0),0
Box Object Screen X(a)+1,Object screen Y(a)+1,Object Screen X(a)+(enemy(a).health/2)-1,Object Screen Y(a)+9
Endif
Endif
Next a
Return

SlideCollision:
   col_dist=2
   for i=1 to 200
   if object exist(i)=1
      maxtemp#=0
      for j=0 to 360 step 45
         temp#=intersect object (i,tempx#,2,tempz#,newxvalue(tempx#,j,col_dist),2,newzvalue(tempz#,j,col_dist))
         if temp#>maxtemp#
            maxtemp#=temp#
            maxangle#=j
         endif
      next j
      if maxtemp#>0
         tempx#=newxvalue(object position x(1),maxangle#,maxtemp#-col_dist)
         tempz#=newzvalue(object position z(1),maxangle#,maxtemp#-col_dist)
      endif
   endif
   next i
Return

`Functions

function patrol(object)
   if threeD_distance(object position x(object),enemy(object).endx,0,0,object position z(object),enemy(object).endz)<2 then enemy(object).move=1
   if threeD_distance(object position x(object),enemy(object).startx,0,0,object position z(object),enemy(object).startz)<2 then enemy(object).move=0
   if enemy(object).move=0
      point object object,enemy(object).endx,0,enemy(object).endz
      move object object,1
   endif
   if enemy(object).move=1
      point object object,enemy(object).startx,0,enemy(object).startz
      move object object,1
   endif
endfunction




function distance(obj1,obj2)
dist=sqrt(((object position x(obj1)-object position x(obj2))*(object position x(obj1)-object position x(obj2)))+((object position z(obj1)-object position z(obj2))*(object position z(obj1)-object position z(obj2))))
endfunction dist

FUNCTION threeD_distance(x1# AS float, x2# AS float, y1# AS float, y2# AS float, z1# AS float, z2# AS float)

   temp = 1
   null = make vector3(temp)
     set vector3 temp, x1# - x2#, y1# - y2#, z1# - z2#
     length_vector = abs(length vector3(temp))
     null = delete vector3(temp)

ENDFUNCTION length_vector

function keyready(keyz)
vl=0
if keystate(keyz)=1 and key(keyz) = 0
      key(keyz) = 1
      vl=1
   endif
if keystate(keyz)=0
      key(keyz) = 0
      vl = 0
   endif
endfunction vl

Menu:
autocam off
sync on
sync rate 0
do
if keystate(25)=0
exit
endif
loop
do
rotate camera curveangle(0,camera angle x(),50),curveangle(0,camera angle y(),50),0
if wrapvalue(camera angle x())<0.5 and wrapvalue(camera angle y())<0.5
rotate camera 0,0,0
exit
endif
sync
loop
rem number of plains/menu items to make
MaxObject=2
for o=1 to MaxObject
make object plain o+StartMenuObject,50,10
position object o+StartMenuObject,camera position x(),camera position y(),camera position z()+100
disable object zdepth o+StartMenuObject
for r=0 to o-1
if r>0
xrotate object o+StartMenuObject,wrapvalue(object angle x(o+StartMenuObject)+15)
move object down o+StartMenuObject,15
endif
next r
next o
rem Start off the variable that will hold the value of the selected item
Selected=1
rem The value of each option
Resume=1
Quit=2
do
if downkey()=1 and Move=0
Selected=Selected+1
if Selected>MaxObject
Selected=MaxObject
else
Move=150
endif
endif
if upkey()=1 and Move=0
Selected=Selected-1
if Selected<1
Selected=1
else
Move=-150
endif
endif
if Move>0
dec Move
for o=1 to MaxObject
xrotate object o+StartMenuObject,wrapvalue(object angle x(o+StartMenuObject)-0.1)
move object up o+StartMenuObject,0.1
next o
endif
if Move<0
inc Move
for o=1 to MaxObject
xrotate object o+StartMenuObject,wrapvalue(object angle x(o+StartMenuObject)+0.1)
move object down o+StartMenuObject,0.1
next o
endif
if returnkey()=1
exit
endif
if keystate(25)=1
exit
Selected=100
endif
sync
loop
for o=1 to MaxObject
delete object o+StartMenuObject
next o
rem Check if the selected menu option=Quit
if Selected=Quit
end
endif
do
if keystate(25)=0
exit
endif
loop
sync on
sync rate 60
return

if upkey()=0
   rem stop the object of playing
   stop object ObjNum
 
   rem restore the animation to the very first one
   set object frame ObjNum,0.0
endif

rem Setup global stuff
set display mode 640,480,32
autocam off
randomize timer()
hide mouse

rem Speed up loading
sync on
sync rate 0

rem Make blood texture
cls
for s=0 to 64
ink rgb(55+rnd(200),0,0),0
TempX=2+rnd(28)
TempY=2+rnd(28)
for r#=0.1 to 2 step 0.1
circle TempX,TempY,r#
next r#
next s
get image 1,0,0,32,32

rem Make floor texture
cls
for x=0 to 32
for y=0 to 32
ink rgb(0,100+rnd(155),0),0
dot x,y
next y
next x
get image 2,0,0,32,32

rem Make floor object
make object plain 1,25,25
xrotate object 1,90
texture object 1,2
scale object texture 1,5,5
set object ambient 1,0

rem Make blood plains
for p=2 to 10
make object plain p,5+rnd(5),5+rnd(5)
xrotate object p,90
fix object pivot p
yrotate object p,rnd(360)
texture object p,1
set object transparency p,4
fade object p,100
set object ambient p,0
set object fog p,0
set object cull p,0
ghost object on p
position object p,0,0.25,0
next p

rem Make body
rem Head
make object box 11,1,1,1
position object 11,0,0.5,-3
rem Body
make object box 12,2.5,0.75,4
position object 12,0,0.375,-0.5
rem Arms
make object box 13,0.5,0.5,4
yrotate object 13,45
position object 13,2.5,0.25,-1
make object box 14,0.5,0.5,4
yrotate object 14,315
position object 14,-2.5,0.25,-1
rem Legs
make object box 15,0.5,0.5,4
yrotate object 15,15
position object 15,1.0,0.25,3
make object box 16,0.5,0.5,4
yrotate object 16,345
position object 16,-1.0,0.25,3

rem Make particles
type Particle
X as float
Y as float
Z as float
XVelocity as float
YVelocity as float
ZVelocity as float
Life as integer
endtype
global dim Particle(300) as Particle
global NumberOfParticles as integer
NumberOfParticles=100
global FirstParticle as integer
FirstParticle=50
for p=1 to 100
make object plain p+FirstParticle,1,1
texture object p+FirstParticle,1
set object transparency p+FirstParticle,2
`disable object zwrite p+FirstParticle
fade object p+FirstParticle,100
set object ambient p+FirstParticle,0
set object fog p+FirstParticle,0
set object cull p+FirstParticle,0
`ghost object on p+FirstParticle
rotate limb p+FirstParticle,0,0,0,rnd(360)
hide object p+FirstParticle
set object collision off p+FirstParticle
next p

rem Position camera
position camera 25,12.5,-12.5
point camera 0,0,0
Locked=1

rem Ink color
ink rgb(255,0,0),0

rem Synchronisation
sync on
sync rate 100

rem Start main loop
do

rem Show info
set cursor 0,0
print "Frame rate: ",screen fps()
if Locked=1
print "Frame rate locked at 100 - Press Space to unlock."
else
print "Frame rate unlocked - Press Space to lock."
endif
if spacekey()=1 and OldSpace=0
OldSpace=1
if Locked=0
Locked=1
sync rate 100
else
Locked=0
sync rate 0
endif
endif
if spacekey()=0
OldSpace=0
endif
print "Click on the body to make him bleed!"
print "Move with arrow keys and mouse."

rem Show crosshair
circle 320,240,10
box 319,225,321,255
box 305,239,335,241

rem Blood!!!
if mouseclick()=1 and OldClick=0
OldClick=1
p=pick object(320,240,11,16)
if p>0
ex#=object position x(p)
ey#=object position y(p)
ez#=object position z(p)
particles=25
intensity#=2.0
life=50
RequestBlood(ex#,ey#,ez#,particles,intensity#,life)
endif
endif
if mouseclick()=0
OldClick=0
endif

rem Control camera
xrotate camera camera angle x()+mousemovey()
yrotate camera camera angle y()+mousemovex()
if upkey()=1
move camera 0.2
endif
if downkey()=1
move camera -0.2
endif

rem Handle blood
HandleBlood()

rem Update screen
sync

rem End the loop
loop

rem RequestBlood function
function RequestBlood(ex#,ey#,ez#,particles,intensity#,life)
t=0
p=0
repeat
   t=t+1
   if Particle(t).Life=0
      p=p+1
      Particle(t).Life=life + rnd(life/5)
      Particle(t).X=ex#
      Particle(t).Y=ey#
      Particle(t).Z=ez#
      Particle(t).XVelocity=rnd(intensity#)-(intensity#/2)
      Particle(t).YVelocity=rnd(intensity#)-(intensity#/2)
      Particle(t).ZVelocity=rnd(intensity#)-(intensity#/2)
      show object (FirstParticle+t)
   endif
   if p>=particles then exit
until t>=NumberOfParticles
endfunction

rem HandleBlood function
function HandleBlood()
for t=1 to NumberOfParticles
   if Particle(t).Life>1
      Particle(t).Life=Particle(t).Life-1
      position object FirstParticle+t,Particle(t).X,Particle(t).Y,Particle(t).Z
      Particle(t).XVelocity=Particle(t).XVelocity*0.85
      Particle(t).YVelocity=Particle(t).YVelocity*0.85
      Particle(t).ZVelocity=Particle(t).ZVelocity*0.85
      Particle(t).YVelocity=Particle(t).YVelocity-0.01
      Particle(t).X=Particle(t).X+Particle(t).XVelocity
      Particle(t).Y=Particle(t).Y+Particle(t).YVelocity
      Particle(t).Z=Particle(t).Z+Particle(t).ZVelocity
      point object t+FirstParticle,camera position x(),camera position y(),camera position z()
      rotate limb (FirstParticle+t),0,0,0,limb angle z((FirstParticle+t),0)+0.5
   endif
   if Particle(t).Life=1
      Particle(t).Life=0
      hide object FirstParticle+t
   endif
next t
endfunction

 fps sword and shield weapon demo
` setup
sync on: sync rate 0

` make world
make matrix 1,1000,1000,10,10
` make shield and sword
make object box 10,2,20,2
make mesh from object 1,10:delete object 10
make object cube 10,5:add limb 10,1,1:offset limb 10,1,7,-7,15
add limb 10,2,1:offset limb 10,2,0,10,0
link limb 10,0,1:link limb 10,1,2
hide limb 10,1
delete mesh 1
` shield
make object plain 11,12,20
make mesh from object 1,11:delete object 11
make object cube 11,10:add limb 11,1,1
offset limb 11,1,-7,-16,15
set object cull 11,0
link limb 11,0,1
hide limb 10,0:hide limb 11,0

do
` scancoe
set cursor 0,0
print scancode()
` move and camera
vx#=mousemovex():vy#=mousemovey()
ax#=wrapvalue(ax#+vy#)
ay#=wrapvalue(ay#+vx#)
cay#=curveangle(ay#,camera angle y(),20)
cax#=curveangle(ax#,camera angle x(),20)
` rotate camera
rotate camera cax#,cay#,0
` move
ox#=x#:oz#=z#:move=0
if keystate(17)=1 then x#=newxvalue(x#,cay#,d#):z#=newzvalue(z#,cay#,d#):move=1
if keystate(31)=1 then x#=newxvalue(x#,cay#+180,d#):z#=newzvalue(z#,cay#+180,d#):move=1
if keystate(32)=1 then x#=newxvalue(x#,cay#+90,d#):z#=newzvalue(z#,cay#+90,d#):move=1
if keystate(30)=1 then x#=newxvalue(x#,cay#-90,d#):z#=newzvalue(z#,cay#-90,d#):move=1
d#=1
` limit
if move>0
walk#=walk#+d#*4
endif
` position
y#=curvevalue(60,y#,20)
if controlkey()=1 then y#=curvevalue(15,y#,20):d#=0.5
position camera x#,y#+sin(walk#)*3,z#
` sword position
position object 10,camera position x(),camera position y(),camera position z()
` sword fighting
if mouseclick()=1
if swingx#=0 then swingx#=1
  lax#=wrapvalue(limb angle x(10,1)-90)
  if lax#>180 then lax#=lax#-360
  if lax#<-15 or lax#>15
    if lax#<0 then swingx#=swingx#+0.03
    if lax#>0 then swingx#=swingx#-0.03
  else
    swingx#=swingx#/1.01
  endif
  lay#=wrapvalue(limb angle y(10,1))
  if lay#>180 then lay#=lay#-360
  if lay#<-15 or lay#>15
    if lay#<0 then swingy#=swingy#+0.03
    if lay#>0 then swingy#=swingy#-0.03
  else
    swingy#=swingy#/1.01
  endif
  swordax#=(swordax#-vy#)+swingx#
  sworday#=(sworday#-vx#)+swingy#
else
  swordax#=curveangle(0,limb angle x(10,1),20)
  sworday#=0
  swingy#=0:swingx#=0
endif
  say#=curveangle(cay#,say#,10)
  sax#=curveangle(cax#,sax#,10)
  rotate limb 10,0,sax#,say#,0
rotate limb 10,1,swordax#,sworday#,0
` shield
position object 11,camera position x(),camera position y(),camera position z()
rotate limb 11,0,sax#,say#,0
`  shielded
if mouseclick()=2
  ofx#=curvevalue(-2,ofx#,10)
  ofy#=curvevalue(-10,ofy#,10)
  ofz#=curvevalue(7,ofz#,10)
  d#=d#/2
else
  ofx#=curvevalue(-7,ofx#,10)
  ofy#=curvevalue(-16,ofy#,10)
  ofz#=curvevalue(15,ofz#,10)
endif
offset limb 11,1,ofx#,ofy#,ofz#
sync
loop

` fps sword and shield weapon demo
` setup
sync on: sync rate 0
` Make blood texture
cls
for s=0 to 64
ink rgb(55+rnd(200),0,0),0
TempX=2+rnd(28)
TempY=2+rnd(28)
for r#=0.1 to 2 step 0.1
circle TempX,TempY,r#
next r#
next s
get image 1,0,0,32,32
` make world
make matrix 1,1000,1000,10,10
` make shield and sword
make object box 10,2,20,2
make mesh from object 1,10:delete object 10
make object cube 10,5:add limb 10,1,1:offset limb 10,1,7,-7,15
add limb 10,2,1:offset limb 10,2,0,10,0
link limb 10,0,1:link limb 10,1,2
hide limb 10,1
delete mesh 1
` shield
make object plain 11,12,20
make mesh from object 1,11:delete object 11
make object cube 11,10:add limb 11,1,1
offset limb 11,1,-7,-16,15
set object cull 11,0
link limb 11,0,1
hide limb 10,0:hide limb 11,0
` Particles
type Particle
X as float
Y as float
Z as float
XVelocity as float
YVelocity as float
ZVelocity as float
Life as integer
endtype
global dim Particle(300) as Particle
global NumberOfParticles as integer
NumberOfParticles=100
global FirstParticle as integer
FirstParticle=50
for p=1 to 100
make object plain p+FirstParticle,10,10
texture object p+FirstParticle,1
set object transparency p+FirstParticle,2
`disable object zwrite p+FirstParticle
fade object p+FirstParticle,100
set object ambient p+FirstParticle,0
set object fog p+FirstParticle,0
set object cull p+FirstParticle,0
`ghost object on p+FirstParticle
rotate limb p+FirstParticle,0,0,0,rnd(360)
hide object p+FirstParticle
set object collision off p+FirstParticle
next p

do

`Request blood
if rnd(100)=5
ex#=newxvalue(camera position x(),camera angle y(),100)
ey#=25
ez#=newzvalue(camera position z(),camera angle y(),100)
particles=25
intensity#=5.0
life=50
RequestBlood(ex#,ey#,ez#,particles,intensity#,life)
endif

` scancode
set cursor 0,0
print scancode()
` move and camera
vx#=mousemovex():vy#=mousemovey()
ax#=wrapvalue(ax#+vy#)
ay#=wrapvalue(ay#+vx#)
cay#=curveangle(ay#,camera angle y(),20)
cax#=curveangle(ax#,camera angle x(),20)
` rotate camera
rotate camera cax#,cay#,0
` move
ox#=x#:oz#=z#:move=0
if keystate(17)=1 then x#=newxvalue(x#,cay#,d#):z#=newzvalue(z#,cay#,d#):move=1
if keystate(31)=1 then x#=newxvalue(x#,cay#+180,d#):z#=newzvalue(z#,cay#+180,d#):move=1
if keystate(32)=1 then x#=newxvalue(x#,cay#+90,d#):z#=newzvalue(z#,cay#+90,d#):move=1
if keystate(30)=1 then x#=newxvalue(x#,cay#-90,d#):z#=newzvalue(z#,cay#-90,d#):move=1
d#=1
` limit
if move>0
walk#=walk#+d#*4
endif
` position
y#=curvevalue(60,y#,20)
if controlkey()=1 then y#=curvevalue(15,y#,20):d#=0.5
position camera x#,y#+sin(walk#)*3,z#
` sword position
position object 10,camera position x(),camera position y(),camera position z()
` sword fighting
if mouseclick()=1
if swingx#=0 then swingx#=1
  lax#=wrapvalue(limb angle x(10,1)-90)
  if lax#>180 then lax#=lax#-360
  if lax#<-15 or lax#>15
    if lax#<0 then swingx#=swingx#+0.03
    if lax#>0 then swingx#=swingx#-0.03
  else
    swingx#=swingx#/1.01
  endif
  lay#=wrapvalue(limb angle y(10,1))
  if lay#>180 then lay#=lay#-360
  if lay#<-15 or lay#>15
    if lay#<0 then swingy#=swingy#+0.03
    if lay#>0 then swingy#=swingy#-0.03
  else
    swingy#=swingy#/1.01
  endif
  swordax#=(swordax#-vy#)+swingx#
  sworday#=(sworday#-vx#)+swingy#
else
  swordax#=curveangle(0,limb angle x(10,1),20)
  sworday#=0
  swingy#=0:swingx#=0
endif
  say#=curveangle(cay#,say#,10)
  sax#=curveangle(cax#,sax#,10)
  rotate limb 10,0,sax#,say#,0
rotate limb 10,1,swordax#,sworday#,0
` shield
position object 11,camera position x(),camera position y(),camera position z()
rotate limb 11,0,sax#,say#,0
`  shielded
if mouseclick()=2
  ofx#=curvevalue(-2,ofx#,10)
  ofy#=curvevalue(-10,ofy#,10)
  ofz#=curvevalue(7,ofz#,10)
  d#=d#/2
else
  ofx#=curvevalue(-7,ofx#,10)
  ofy#=curvevalue(-16,ofy#,10)
  ofz#=curvevalue(15,ofz#,10)
endif
offset limb 11,1,ofx#,ofy#,ofz#
HandleBlood()
sync
loop

rem RequestBlood function
function RequestBlood(ex#,ey#,ez#,particles,intensity#,life)
t=0
p=0
repeat
   t=t+1
   if Particle(t).Life=0
      p=p+1
      Particle(t).Life=life + rnd(life/5)
      Particle(t).X=ex#
      Particle(t).Y=ey#
      Particle(t).Z=ez#
      Particle(t).XVelocity=rnd(intensity#)-(intensity#/2)
      Particle(t).YVelocity=rnd(intensity#)-(intensity#/2)
      Particle(t).ZVelocity=rnd(intensity#)-(intensity#/2)
      show object (FirstParticle+t)
   endif
   if p>=particles then exit
until t>=NumberOfParticles
endfunction

rem HandleBlood function
function HandleBlood()
for t=1 to NumberOfParticles
   if Particle(t).Life>1
      Particle(t).Life=Particle(t).Life-1
      position object FirstParticle+t,Particle(t).X,Particle(t).Y,Particle(t).Z
      Particle(t).XVelocity=Particle(t).XVelocity*0.85
      Particle(t).YVelocity=Particle(t).YVelocity*0.85
      Particle(t).ZVelocity=Particle(t).ZVelocity*0.85
      Particle(t).YVelocity=Particle(t).YVelocity-0.01
      Particle(t).X=Particle(t).X+Particle(t).XVelocity
      Particle(t).Y=Particle(t).Y+Particle(t).YVelocity
      Particle(t).Z=Particle(t).Z+Particle(t).ZVelocity
      point object t+FirstParticle,camera position x(),camera position y(),camera position z()
      rotate limb (FirstParticle+t),0,0,0,limb angle z((FirstParticle+t),0)+0.5
   endif
   if Particle(t).Life=1
      Particle(t).Life=0
      hide object FirstParticle+t
   endif
next t
endfunction

NumberOfEnemies=rnd(5)
for e=1 to NumerOfEnemies
   EnemyType=rnd(3)
   if EnemyType=1
      LoadRat
   endif
   if EnemyType=2
      LoadWasp
   endif
next e