Sorry your browser is not supported!

sync rate 60
draw to front
'Prepare the players animations etc...
load bitmap "loading.bmp"
load object "player_static.x",1
append object "player_walk.x",1,1
append object "player_run.x",1,2
append object "player_attack1.x",1,3
append object "player_attack2.x",1,4
append object "player_attack3.x",1,5
append object "player_jump.x",1,6
append object "player_hitweak.x",1,7
append object "player_hitave.x",1,8
append object "player_hitstrong.x",1,9
append object "player_die.x",1,10
append object "player_jumpattack.x",1,11
append object "player_jumphit.x",1,12
append object "player_jumpcast.x",1,13
append object "player_cast.x",1,14
append object "player_talk.x",1,15
append object "player_shrug.x",1,16
append object "player_idle.x",1,17
load object "enemy1_static.x",2
append object "enemy1_move.x",2,1
append object "enemy1_attack.x",2,2
append object "enemy1_impact.x",2,3
append object "enemy1_die.x",2,4
append object "enemy1_idle.x",2,5
load object "world1.x",3
load bitmap "health_back.bmp",1
position object 1,500,60,800
position object 2,400,40,1000
position object 3,-30,500,-80
set object collisions on 3
cls
play object 1,17
'The movement system
do
if upkey()=1 then move object 10 : play object 1,2
if upkey()=0 then play object 1,17
if downkey()=1 then move object -5 : play object 1,1
if downkey()=0 then play object 1,17
if leftkey()=1 then turn object left 1,2 : play object 1,1
if leftkey()=0 then play object 1,17
if rightkey()=1 then turn object right 1,2 : play object 1,1
if rightkey()=0 then play object 1,17
if spacekey()=1 then play object 1,3
if spacekey()=0 then play object 1,17
if returnkey()=1 then gosub _pause
if shiftkey()=1 then play object 1,6
if hit object 1,2 then gosub _enemyatk1
loop
'gosub labels
_pause:
'check to see if key held down at start
do
if returnkey()=1 then wait 0050
else
goto _pause2
endif
loop
'allow enter key to be pressed
_pause2:
repeat
center text 320,240,"PAUSED"
until returnkey()=1
'wait until enterkey is released so pause doesnt repeat
repeat
center text 320,240,"PAUSED"
until returnkey()=0
return
_enemyatk1:
'adding source code, no need for help with this

remstart
the rest is where i get lost, except, i know how to make the health bar variable to increase and decrease unless health has reached its max, and i know how to work with stats, ex: 
ehealth# - patk# if ehealth# = 0 then gosub _enemydie
etc...
so i can work with variables, but i cant work on saving or a battle system like kingdom hearts. That is where i need help

Rem Project: joystickcontrol
Rem Created: 5/22/2005 9:53:32 PM

Rem ***** Main Source File *****
rem Standard Setup Code
rem mouse buttons and Wingman and others controlers
rem simple screen set up
sync on : sync rate 0 :
backdrop on
color backdrop rgb(0,0,0)
hide mouse
set text font "arial"
set text size 12
set text transparent

rem check for type of joystick
ForcePresent=0
empty checklist
PERFORM CHECKLIST FOR CONTROL DEVICES
for c=1 to checklist quantity()
 if checklist value a(c)=1
  SET CONTROL DEVICE checklist string$(c)
  ForcePresent=1
 endif
next c

rem makes number to say what value joy button is
dim number$(32)
for i = 0 to 32
   number$(i)=str$(i+1)
next i

rem turn autocam off and position camera 150 away from object
autocam off
position camera 0,0,0,-150

rem make cube
make object cube 1,30

rem position cube
position object 1,0,0,0

rem start repeat loop
repeat
   mc = mouseclick()
`   cls
   text 0, 10, "mouse CLICK: " + str$(mc)
   if (mc && 1) = 1 then text 0, 50, "LEFT"
   if (mc && 2) = 2 then text 0, 60, "RIGHT"
   if (mc && 3) = 3 then text 0, 70, "both"
   if (mc && 4) = 4 then text 0, 80, "wheel button"
rem && does an LOGICAL AND operation! It's not the same like AND! It compares the values BITWISE...
rem Bits:
rem 010 && 101 = 000
rem 010 && 111 = 010
rem 101 && 101 = 101

rem Decimals:
rem 2 && 5 = 0
rem 2 && 7 = 2
rem 5 && 5 = 5
rem show all 32 bits if on or off
for i = 0 to 32
   text 0+(i*10),120, str$(joystick fire x(i))
   if joystick fire x(i)=1
      text 0, 110, " fire CLICK: "+str$(i)
   else
   text 0, 110, " fire CLICK:    "
   endif
next i
rem check all 32 button
for f=0 to 32
   if (joystick fire x(f) && 1) = 1 then text 0, 150+(f*10)," fire button "+ number$(f)
next f
rem check slider and make it a value from 0 to 256
if joystick slider a() then text 0, 350,"slider a = "+str$(int(abs(joystick slider a()-65536)/256))
rem work out the angle of the hat button
hat=joystick hat angle (0)
text 0,360,"hat angle = "+str$(hat/100)
rem work out the twist angle
tz=joystick twist z()
text 0,380,"Twist z angle = "+str$(tz/256)
rem value of up and down -1000 to 1000
jy=joystick y()
text 0,390,"Joy y up down= "+str$(jy)
rem as above
jx=joystick x()
text 0,400,"Joy x left right= "+str$(jx)
rem if you have it
jz=joystick z()
text 0,410,"Joy z = "+str$(jz)
rem puts in force to stick if a power stick
if ForcePresent=1
   text 300,10,"Press upkey to make force Up "
   if upkey()
      force up 100
   endif
   text 300,20,"Press downkey to make force Down "
   if downkey()
      force down 100
   endif
   text 300,30,"Press Leftkey to make force Left "
   if leftkey()
      force left 100
   endif
   text 300,40,"Press Rightkey to make force Right "
   if rightkey()
      force right 100
   endif
   rem as above but using the hat button
   hat#=joystick hat angle (0)/100
   if hat#<>0
      force angle 100,hat#,10
   endif
endif
yrotate object 1,(jy/100)+object angle y(1)
xrotate object 1,(jx/100)+object angle x(1)
zrotate object 1,jz
rem update screen
sync
until 1=2