Sorry your browser is not supported!

Sync On:Sync Rate 60:AutoCam Off
Global OSize as Float
Global CSIze as Float
OSize=1
CSize=1

Make Object Cube 1,OSize
Make Object Cube 2,OSize
Position object 1,0,20,50
Position Object 2,0,0,50

Do
Scale Object 1,OSize/CSize*100,100,100
Scale Object 2,OSize/CSize*100,100,100
CSize=CSize+Upkey()-DownKey()*(CSize>1)
Scale Object 1,CSize/OSize*100,100,100
Scale Object 2,CSize/OSize*100,100,100
Sync
Loop

rem this is the battle sequence in the main loop
rem let zee battle commences
loop object 2,(frames(1)+1),frames(2)
do
rem char 1
ink rgb(0,0,0),1 : text 42,752,name$ : text 216,752,"HP:" : text 416,752,"MP:"
ink rgb(255,255,255),1 : text 40,750,name$ : text 214,750,"HP:" : text 414,750,"MP:"
ink rgb(255,255,255),1 : line 239,749,340,749 : line 239,765,340,765 : line 239,749,239,765 : line 340,749,340,765
line 439,749,540,749 : line 439,765,540,765 : line 439,749,439,765 : line 540,749,540,765
if data#(1,1)<>oldhp# or data#(1,3)<>oldmp# then RE_MAKE_BARS()
ink rgb(0,0,0),1 : text 350,752,str$(int((data#(1,1)/data#(1,2))*100))+"%" :  : text 550,752,str$(int((data#(1,3)/data#(1,4))*100))+"%"
ink rgb(255,255,255),1 : text 348,750,str$(int((data#(1,1)/data#(1,2))*100))+"%" : text 548,750,str$(int((data#(1,3)/data#(1,4))*100))+"%"
oldhp#=data#(1,1) : oldmp#=data#(1,3)
if upkey()=1 then data#(1,1)=data#(1,1)+1 : data#(1,3)=data#(1,3)+1
if downkey()=1 then data#(1,1)=data#(1,1)-1 : data#(1,3)=data#(1,3)-1

sprite 1,240,750,3 : sprite 2,440,750,4

if escapekey()=1 then end
sync : loop

function RE_MAKE_BARS()
if data#(1,1)<0 then data#(1,1)=0
if data#(1,1)>data#(1,2) then data#(1,1)=data#(1,2)
if data#(1,3)<0 then data#(1,3)=0
if data#(1,3)>data#(1,4) then data#(1,3)=data#(1,4)
gethp=int((data#(1,1)/data#(1,2))*100) : if gethp<1 then gethp=1
getmp=int((data#(1,3)/data#(1,4))*100) : if getmp<1 then getmp=1
load bitmap "Media/Bitmaps/HP.bmp",1 : set current bitmap 1 : get image 3,0,0,gethp,15 : delete bitmap 1
load bitmap "Media/Bitmaps/MP.bmp",1 : set current bitmap 1 : get image 4,0,0,getmp,15 : delete bitmap 1
endfunction

Type Coordiantes
   x as Float
   y as Float
   z as Float
EndType

Type Characters
   hp as Float
   mp as Float
   St as Integer
   In as Integer
   Wi as Integer
   Co as Integer
   pos as Coordinates
   rot as Coordinates
EndType

Dim Char(20) as Characters

Sync On: Sync Rate 60:Autocam Off:Color Backdrop 0
Dim s(4) as Integer
For i=1 to 4:s(i)=50:Next i
Do
   uk=Upkey()
   dk=Downkey()
   For i = 1 to 4
      s(i)=s(i)+(uk*(s(i)<101))-(dk*(s(i)>1))
      Get_Image(i,s(i),15,(i>2))
      Sprite i,10,i*20,i
   Next i
   Sync
Loop

Function Create_Bitmap(bm)
   If Bitmap Exist(bm) Then Delete Bitmap bm
   Create Bitmap bm,128,32
   Set Current Bitmap bm
   Ink Rgb(Rnd(250)+5,Rnd(250)+5,Rnd(250)+5),0
   Box 0,0,127,31
   Set Current Bitmap 0
EndFunction

Function Get_Image(i,x,y,flag)
   If Bitmap Exist(i)=0 Then Create_Bitmap(i)
   If Image Exist(i) Then Delete Image i
   Set Current Bitmap i
   Get Image i,0,0,x,y,flag
   Set Current Bitmap 0
EndFunction

Type Coordinates
   x as Float
   y as Float
   z as Float
EndType

Type Characters
   hp as Float
   mp as Float
   St as Integer
   In as Integer
   Wi as Integer
   Co as Integer
   pos as Coordinates
   rot as Coordinates
EndType

Dim Char(20) as Characters

` Sample code without using Arrays.

`Code, code, and more code.
CharHit=rnd(19)+1 `Randomly hit character 1 to 20
`Subract 1 from the character that was hit using If/Then
If CharHit=1 Then Char1HP=Char1HP-1
Char2HP=Char2HP-(CharHit=2) `This is more efficient typing than using If/Then, but is minutely slower (not enough to worry about)
Char3HP=Char3HP-(CharHit=3)
Char4HP=Char4HP-(CharHit=4)
Char5HP=Char5HP-(CharHit=5)
Char6HP=Char6HP-(CharHit=6)
Char7HP=Char7HP-(CharHit=7)
Char8HP=Char8HP-(CharHit=8)
Char9HP=Char9HP-(CharHit=9)
Char10HP=Char10HP-(CharHit=10)
Char11HP=Char11HP-(CharHit=11)
Char12HP=Char12HP-(CharHit=12)
Char13HP=Char13HP-(CharHit=13)
Char14HP=Char14HP-(CharHit=14)
Char15HP=Char15HP-(CharHit=15)
Char16HP=Char16HP-(CharHit=16)
Char17HP=Char17HP-(CharHit=17)
Char18HP=Char18HP-(CharHit=18)
Char19HP=Char19HP-(CharHit=19)
Char20HP=Char20HP-(CharHit=20)


`Same code using arrays.
Dim CharHP(20)
`Code, code, and more code.
CharHit=rnd(19)+1 `Randomly hit character 1 to 20
CharHP(CharHit)=CharHP(CharHit)-1
`That's it! 20 lines of code reduces to 1.

`We can also assign the initial values more efficiently.
For i = 1 to 20
   CharHP(i)=20
Next i

` This is just some demo set-up stuff.
Sync On: Sync Rate 60: AutoCam Off

`This Defines my UDT (User Defined Type)
Type Coordinates
   x as Float
   y as Float
   z as Float
EndType

Global Object as Coordinates `This make a Global Variable as Coordinates (my UDT).

`Just some demo code. Making a cube to track with our UDT variable "Object"
Make Object Cube 1,10
Position Object 1,0,5,30

For i = 2 to 10 `Place some spheres around  randomly so we have visual reference points to see our test sphere moving.
   Make Object Sphere i,10
   Position Object i,Rnd(200)-100,5,Rnd(200)-100
Next i

Do
   Move Object 1,Upkey()-DownKey() `Move our demo object forth and back using up/down arrows.
   Turn Object Left 1,LeftKey()-RightKey()
   Return_Object(1) `This runs the function at the bottom of the code.
   Set Cursor 0,0
   Print "x: ";Object.x `This is so much easier to type than "Object Position X(1)"
   Print "y: ";Object.y
   Print "z: ";Object.z
   Point Camera Object.x,Object.y,Object.z
   Sync
Loop
End

`This is one of my favorite functions.
Function Return_Object(ObjectID)
   Object.x=Object Position X(ObjectID):Object.y=Object Position Y(ObjectID):Object.z=Object Position Z(ObjectID)
EndFunction