Please help save and load games between State

Author

Message

save load game between state

15

Years of Service

User Offline

Joined: 4th Nov 2010

Location: Thailand

Posted: 4th Nov 2010 15:03

Link

Please introduce code to save and load game between State !! T_T

play_game:
hide all sprites
Stop sound 4

if sound playing(5)=0
      play sound 5
endif

loop sound 5

show object charector
global spd#=0.5
global speedcam# as float =4.0
heroframe#=total object frames(charector)/70.0
position object charector,0,10,-650

global att = 0
global status$="wait"
posx#  = object position x(charector)
posy#  = object position y(charector)
posz#  = object position z(charector)
anglex# = object angle x(charector)
angley# = object angle y(charector)
anglez# = object angle z(charector)
global endatt1# as float = 60.0
global gravity# as float= 90.0
SET OBJECT COLLISION TO SPHERES charector
SET OBJECT RADIUS charector, 2
checkatt = 180
SET OBJECT COLLISION TO SPHERES charector
SET OBJECT RADIUS charector, 2
checkatt = 180
make object cube checkatt,2

hide object checkatt
BulletObj=7 : make object sphere BulletObj,1
scale object BulletObj,500,500,500
hide object BulletObj

do
   goto state1
loop

state1:

gosub _mon1

if le=0

if charector=2
   energy#=500
   limitp#=500
   ex1#=2.4 rem damage
   ex2#=2 rem attack
   ex3#=5.2 rem damage boss
   speed#=2
endif

if charector=3
   energy#=500
   limitp#=500
   ex1#=2.7
   ex2#=1.8
   ex3#=5.4
   speed#=2.3
endif

if charector=4
   energy#=500
   limitp#=500
   ex1#=2.9
   ex2#=1.5
   ex3#=5.6
   speed#=2.5
endif

endif

if le=1

if charector=2
   energy#=500
   limitp#=500
   ex1#=1.5 rem damage
   ex2#=3 rem attack
   ex3#=4.3 rem damage boss
   speed#=2.2
endif

if charector=3
   energy#=500
   limitp#=500
   ex1#=1.8
   ex2#=2.8
   ex3#=4.5
   speed#=2.5
endif

if charector=4
   energy#=500
   limitp#=500
   ex1#=2
   ex2#=2.5
   ex3#=4.7
   speed#=2.7
endif

endif

if le=2

if charector=2
   energy#=500
   limitp#=500
   ex1#=3.3 rem damage
   ex2#=1 rem attack
   ex3#=6.1 rem damage boss
   speed#=1.8
endif

if charector=3
   energy#=500
   limitp#=500
   ex1#=3.6
   ex2#=0.8
   ex3#=6.3
   speed#=2.1
endif

if charector=4
   energy#=500
   limitp#=500
   ex1#=3.8
   ex2#=0.5
   ex3#=6.5
   speed#=2.3
endif

endif

level=1
exp#=0
q1=0
quest=0
item1=0
item2=0
bonus=100

e1#=energy#
e2#=ex1#
e3#=ex2#
e4#=speed#
e5#=bonus
e6#=ex3#

gosub _setup
 rem goto state2
Map=Map1
show object Map

time#=80
t#=8

show sprite 16
position object charector,0,10,-650

do
sprite 2,mousex(),mousey(),2

if q1=0
   show sprite 14
   show sprite 15
   show sprite 2
   if Sprite hit(2,15)
       set Sprite Diffuse 15,255,255,255
         if MouseClick()=1
            hide sprite 14
            hide sprite 15
            hide sprite 2
            show object 8
            q1=1
         endif
   else
         if sprite exist(15)
            set Sprite Diffuse 15,180,180,180
         endif
   endif
endif

if q1=1
   gosub _control

if quest=0
      if object collision(charector,8)

sprite 2,mousex(),mousey(),2
         show sprite 21
         show sprite 15
         show sprite 2
         if Sprite hit(2,15)
            set Sprite Diffuse 15,255,255,255
            if MouseClick()=1
               hide sprite 21
               hide sprite 15
               hide sprite 2
               show object 11
               quest=1
            endif
         else
            if sprite exist(15)
               set Sprite Diffuse 15,180,180,180
            endif
         endif

endif
   endif

rem ------------Time
if quest=1
      gosub _time1

if time#<0
      gosub _endtime
         quest=0
         time#=80
         hide object 11
      endif
 endif
 endif
rem --------------------------- Dead

if energy#<0
     gosub _dead

endif

rem ---------- endstate

if quest<>0
   if object collision(charector,11)

show sprite 2
      show sprite 36
      show sprite 15
      if sprite collision(2,15)
         if mouseclick()
            hide sprite 36
            hide sprite 15
            hide sprite 2
            hide sprite 16
            goto state2
         endif
      endif
   endif
endif

rem ------------------------
gosub _control
gosub _controlAI
gosub _controlAI2
gosub _controlAI3
gosub _controlAI4
gosub _controlAI5
gosub _value1
gosub _upstatus
gosub _uplevel
gosub _skill
gosub _showtext
gosub _camera1

loop

state2:

gosub _mon2

position object charector,-720,10,-630

gosub _setup
Map=Map2
show object Map
hide object Map1
hide object 11
hide object 8
hide sprite 16
show sprite 39

hide object 17
 position object 17,-710,0,29
 scale object 17,3000,2000,2000

quest2=0
q2=0

time#=180
t#=8

energy#=limitp#

for i = startmon2 to endmon2
   hide object i
next i

for i = startmon4 to endmon4
   hide object i
next i

for i = startmon5 to endmon5
   hide object i
next i

for i = startmon6 to endmon6
   hide object i
next i

hide object mon3

do
sprite 2,mousex(),mousey(),2

if q2=0

show sprite 56
   show sprite 15
   show sprite 2
   if Sprite hit(2,15)
       set Sprite Diffuse 15,255,255,255
         if MouseClick()=1
            hide sprite 56
            hide sprite 15
            hide sprite 2
            q2=1
         endif
   else
         if sprite exist(15)
            set Sprite Diffuse 15,180,180,180
         endif
   endif
endif

if q2=1
   if quest2=0
     if object collision(charector,17)
         sprite 2,mousex(),mousey(),2
         show sprite 57
         show sprite 15
         show sprite 2
         if Sprite hit(2,15)
            set Sprite Diffuse 15,255,255,255
            if MouseClick()=1
               hide sprite 57
               hide sprite 15
               hide sprite 2
               quest2=1
            endif
         else
            if sprite exist(15)
               set Sprite Diffuse 15,180,180,180
            endif
         endif
   endif
endif

rem ------------Time
if quest2=1
      gosub _time1

if time#<0
      gosub _endtime2
         quest2=0
         time#=180

endif
 endif
 endif
rem --------------------------- Dead

if energy#<0
     gosub _dead2

endif

if object collision(charector,13)

show sprite 2
      show sprite 58
      show sprite 15
      if sprite collision(2,15)
         if mouseclick()
            hide sprite 58
            hide sprite 15
            hide sprite 2
            rem goto state2
         endif
      endif
   endif

gosub _control
gosub _controlAI6
gosub _controlAI7
gosub _controlAI8
gosub _controlAI9
gosub _controlAI10
gosub _controlAI11
gosub _value1
gosub _upstatus
gosub _uplevel
gosub _skill
gosub _showtext
gosub _camera1

loop

+ Code Snippet

play_game:
hide all sprites
Stop sound 4


if sound playing(5)=0
      play sound 5
endif

loop sound 5


show object charector
global spd#=0.5
global speedcam# as float =4.0
heroframe#=total object frames(charector)/70.0
position object charector,0,10,-650


global att = 0
global status$="wait"
posx#  = object position x(charector)
posy#  = object position y(charector)
posz#  = object position z(charector)
anglex# = object angle x(charector)
angley# = object angle y(charector)
anglez# = object angle z(charector)
global endatt1# as float = 60.0
global gravity# as float= 90.0
SET OBJECT COLLISION TO SPHERES charector
SET OBJECT RADIUS charector, 2
checkatt = 180
SET OBJECT COLLISION TO SPHERES charector
SET OBJECT RADIUS charector, 2
checkatt = 180
make object cube checkatt,2

hide object checkatt
BulletObj=7 : make object sphere BulletObj,1
scale object BulletObj,500,500,500
hide object BulletObj


do
   goto state1
loop



state1:

gosub _mon1


if le=0

if charector=2
   energy#=500
   limitp#=500
   ex1#=2.4 rem damage
   ex2#=2 rem attack
   ex3#=5.2 rem damage boss
   speed#=2
endif

if charector=3
   energy#=500
   limitp#=500
   ex1#=2.7
   ex2#=1.8
   ex3#=5.4
   speed#=2.3
endif

if charector=4
   energy#=500
   limitp#=500
   ex1#=2.9
   ex2#=1.5
   ex3#=5.6
   speed#=2.5
endif

endif


if le=1

if charector=2
   energy#=500
   limitp#=500
   ex1#=1.5 rem damage
   ex2#=3 rem attack
   ex3#=4.3 rem damage boss
   speed#=2.2
endif

if charector=3
   energy#=500
   limitp#=500
   ex1#=1.8
   ex2#=2.8
   ex3#=4.5
   speed#=2.5
endif

if charector=4
   energy#=500
   limitp#=500
   ex1#=2
   ex2#=2.5
   ex3#=4.7
   speed#=2.7
endif

endif


if le=2

if charector=2
   energy#=500
   limitp#=500
   ex1#=3.3 rem damage
   ex2#=1 rem attack
   ex3#=6.1 rem damage boss
   speed#=1.8
endif

if charector=3
   energy#=500
   limitp#=500
   ex1#=3.6
   ex2#=0.8
   ex3#=6.3
   speed#=2.1
endif

if charector=4
   energy#=500
   limitp#=500
   ex1#=3.8
   ex2#=0.5
   ex3#=6.5
   speed#=2.3
endif

endif


level=1
exp#=0
q1=0
quest=0
item1=0
item2=0
bonus=100

e1#=energy#
e2#=ex1#
e3#=ex2#
e4#=speed#
e5#=bonus
e6#=ex3#

gosub _setup
 rem goto state2
Map=Map1
show object Map

time#=80
t#=8


show sprite 16
position object charector,0,10,-650


do
sprite 2,mousex(),mousey(),2

if q1=0
   show sprite 14
   show sprite 15
   show sprite 2
   if Sprite hit(2,15)
       set Sprite Diffuse 15,255,255,255
         if MouseClick()=1
            hide sprite 14
            hide sprite 15
            hide sprite 2
            show object 8
            q1=1
         endif
   else
         if sprite exist(15)
            set Sprite Diffuse 15,180,180,180
         endif
   endif
endif

if q1=1
   gosub _control

   if quest=0
      if object collision(charector,8)

         sprite 2,mousex(),mousey(),2
         show sprite 21
         show sprite 15
         show sprite 2
         if Sprite hit(2,15)
            set Sprite Diffuse 15,255,255,255
            if MouseClick()=1
               hide sprite 21
               hide sprite 15
               hide sprite 2
               show object 11
               quest=1
            endif
         else
            if sprite exist(15)
               set Sprite Diffuse 15,180,180,180
            endif
         endif

      endif
   endif


rem ------------Time
if quest=1
      gosub _time1

   if time#<0
      gosub _endtime
         quest=0
         time#=80
         hide object 11
      endif
 endif
 endif
rem --------------------------- Dead

if energy#<0
     gosub _dead

endif


rem ---------- endstate

if quest<>0
   if object collision(charector,11)

      show sprite 2
      show sprite 36
      show sprite 15
      if sprite collision(2,15)
         if mouseclick()
            hide sprite 36
            hide sprite 15
            hide sprite 2
            hide sprite 16
            goto state2
         endif
      endif
   endif
endif


rem ------------------------
gosub _control
gosub _controlAI
gosub _controlAI2
gosub _controlAI3
gosub _controlAI4
gosub _controlAI5
gosub _value1
gosub _upstatus
gosub _uplevel
gosub _skill
gosub _showtext
gosub _camera1


loop




state2:

gosub _mon2

position object charector,-720,10,-630


gosub _setup
Map=Map2
show object Map
hide object Map1
hide object 11
hide object 8
hide sprite 16
show sprite 39

 hide object 17
 position object 17,-710,0,29
 scale object 17,3000,2000,2000

quest2=0
q2=0

time#=180
t#=8

energy#=limitp#



for i = startmon2 to endmon2
   hide object i
next i

for i = startmon4 to endmon4
   hide object i
next i

for i = startmon5 to endmon5
   hide object i
next i

for i = startmon6 to endmon6
   hide object i
next i

hide object mon3


do
sprite 2,mousex(),mousey(),2

if q2=0

   show sprite 56
   show sprite 15
   show sprite 2
   if Sprite hit(2,15)
       set Sprite Diffuse 15,255,255,255
         if MouseClick()=1
            hide sprite 56
            hide sprite 15
            hide sprite 2
            q2=1
         endif
   else
         if sprite exist(15)
            set Sprite Diffuse 15,180,180,180
         endif
   endif
endif

if q2=1
   if quest2=0
     if object collision(charector,17)
         sprite 2,mousex(),mousey(),2
         show sprite 57
         show sprite 15
         show sprite 2
         if Sprite hit(2,15)
            set Sprite Diffuse 15,255,255,255
            if MouseClick()=1
               hide sprite 57
               hide sprite 15
               hide sprite 2
               quest2=1
            endif
         else
            if sprite exist(15)
               set Sprite Diffuse 15,180,180,180
            endif
         endif
   endif
endif



rem ------------Time
if quest2=1
      gosub _time1

   if time#<0
      gosub _endtime2
         quest2=0
         time#=180


      endif
 endif
 endif
rem --------------------------- Dead

if energy#<0
     gosub _dead2

endif




   if object collision(charector,13)

      show sprite 2
      show sprite 58
      show sprite 15
      if sprite collision(2,15)
         if mouseclick()
            hide sprite 58
            hide sprite 15
            hide sprite 2
            rem goto state2
         endif
      endif
   endif


gosub _control
gosub _controlAI6
gosub _controlAI7
gosub _controlAI8
gosub _controlAI9
gosub _controlAI10
gosub _controlAI11
gosub _value1
gosub _upstatus
gosub _uplevel
gosub _skill
gosub _showtext
gosub _camera1


loop

...

Back to top

Profile PM Email

TheComet

18

Years of Service

User Offline

Joined: 18th Oct 2007

Location: I`m under ur bridge eating ur goatz.

Posted: 4th Nov 2010 16:06

Link

I can point you in the right direction, but you'll have to code it yourself (unless of course someone out there is actually bored enough to code it for you).

What you have to do is save all of the variables you use in-game to a file, and the next time you load the game, load all of the variables from that file back into the game. So let's say you have variables a,b,c# and d$. To save them use:

+ Code Snippet

rem delete save file if it already exists
if file exist("save.dat") then delete file "save.dat"

rem open the save file for writing
open to write 1,"save.dat"

   rem write variables to file
   write byte 1,a
   write long 1,b
   write float 1,c#
   write string 1,d$

rem close file
close file 1

And to load them back again:

+ Code Snippet

rem load save file for reading
open to read 1,"save.dat"

   rem read variables from file
   read byte 1,a
   read long 1,b
   read float 1,c#
   read string 1,d$

rem close file
close file 1

TheComet

Back to top

Profile PM Email Website

save load game between state

15

Years of Service

User Offline

Joined: 4th Nov 2010

Location: Thailand

Posted: 4th Nov 2010 22:47

Link

If save at the end state ?

For example...
If save at the end state1 ,when load is the playing State 2.

**I've tried to do it. But it is wrong.

**Anyone help out to solve the code.

**I am not strong in English,sorry.

Pleas help, It was a graduation project !!!

...

Back to top

Profile PM Email

baxslash

Valued Member

Bronze Codemaster

19

Years of Service

User Offline

Joined: 26th Dec 2006

Location: Duffield

Posted: 4th Nov 2010 23:56 Edited at: 4th Nov 2010 23:58

Link

Quote: "Pleas help, It was a graduation project !!!"

Not only are you not really trying to solve it yourself you're cheating on a graduation project? My willingness to help just evaporated... sorry.

You could at least put a little effort into getting it working...

Oh, alright I'll help.

[help]
Look into the read/write to file commands
[/help]

EDIT: Oh but I see you already found some help here: http://forum.thegamecreators.com/?m=forum_view&t=177437&b=1

Back to top

Profile PM Email

save load game between state

15

Years of Service

User Offline

Joined: 4th Nov 2010

Location: Thailand

Posted: 5th Nov 2010 08:19

Link

This is a very short time.

I need guidance.

Will take a little time.

Pleas help, Thx.

...

Back to top

Profile PM Email

save load game between state

15

Years of Service

User Offline

Joined: 4th Nov 2010

Location: Thailand

Posted: 5th Nov 2010 09:19

Link

Ok I'll try.

If there is a problem,I would take to code view.

...

Back to top

Profile PM Email

baxslash

Valued Member

Bronze Codemaster

19

Years of Service

User Offline

Joined: 26th Dec 2006

Location: Duffield

Posted: 5th Nov 2010 10:57

Link

Have a go, if you get stuck post what you have here and I'll try to help without writing the code for you.

Sorry if I sound harsh but you really should be writing your own code if it's graduation work.

Back to top

Profile PM Email

save load game between state

15

Years of Service

User Offline

Joined: 4th Nov 2010

Location: Thailand

Posted: 5th Nov 2010 11:25

Link

okay, After trying.

Write the following code.

Save the file sizes is small. right ?

When loaded, It does not load (Load Fail !!!).

Pleas help. T_T

_SaveGame:

if file exist("save\SaveGame.dat")=1 then delete file "save\SaveGame.dat"
open to write 1,"save\SaveGame.dat"

write float 1,object position x(charector)
write float 1,object position y(charector)
write float 1,object position z(charector)
write float 1,object angle x(charector)
write float 1,object angle y(charector)
write float 1,object angle z(charector)

write float 1,energy#
write float 1,limitp#
write float 1,ex1#
write float 1,ex2#
write float 1,ex3#
write float 1,speed#

write float 1,e1#
write float 1,e2#
write float 1,e3#
write float 1,e4#
write float 1,e5#
write float 1,e6#

write float 1,time#
write float 1,t#

write long 1,level
write long 1,item1
write long 1,item2
write long 1,bonus

close file 1
wait 1000

if file exist("save\SaveGame.dat")=1
      center text 320,320," Save Success !!!"
      sync
   wait key

else

center text 320,320," Save Fail !!!"
      sync
   wait key

endif

return

_LoadGame:

filename$= "C:\Program Files\dark\Projects\Mote4\save\SaveGame.dat"

if file exist("filename$")=1

open to read 1,filename$

read float 1,posx#
   read float 1,posy#
   read float 1,posz#
   read float 1,anglex#
   read float 1,angley#
   read float 1,anglez#

position object charector,posx#,posy#,posz#
   xrotate object charector,anglex#
   yrotate object charector,angley#
   zrotate object charector,anglez#

read float 1,posx#
   read float 1,posy#
   read float 1,posz#
   read float 1,anglex#
   read float 1,angley#
   read float 1,anglez#

read float 1,energy#
   read float 1,limitp#
   read float 1,ex1#
   read float 1,ex2#
   read float 1,ex3#
   read float 1,speed#

read float 1,e1#
   read float 1,e2#
   read float 1,e3#
   read float 1,e4#
   read float 1,e5#
   read float 1,e6#

read float 1,time#
   read float 1,t#

read long 1,level
   read long 1,item1
   read long 1,item2
   read long 1,bonus

close file 1
wait 1000
else

if file exist("filename$")=1
      center text 320,320," Load Success !!!"
      sync
   wait key

else

center text 320,320," Load Fail !!!"
      sync
   wait key

endif

endif
return

+ Code Snippet

_SaveGame:

if file exist("save\SaveGame.dat")=1 then delete file "save\SaveGame.dat"
open to write 1,"save\SaveGame.dat"



write float 1,object position x(charector)
write float 1,object position y(charector)
write float 1,object position z(charector)
write float 1,object angle x(charector)
write float 1,object angle y(charector)
write float 1,object angle z(charector)

write float 1,energy#
write float 1,limitp#
write float 1,ex1#
write float 1,ex2#
write float 1,ex3#
write float 1,speed#

write float 1,e1#
write float 1,e2#
write float 1,e3#
write float 1,e4#
write float 1,e5#
write float 1,e6#

write float 1,time#
write float 1,t#



write long 1,level
write long 1,item1
write long 1,item2
write long 1,bonus

close file 1
wait 1000

   if file exist("save\SaveGame.dat")=1
      center text 320,320," Save Success !!!"
      sync
   wait key

   else

      center text 320,320," Save Fail !!!"
      sync
   wait key

   endif

return



_LoadGame:

filename$= "C:\Program Files\dark\Projects\Mote4\save\SaveGame.dat"

if file exist("filename$")=1


   open to read 1,filename$


   read float 1,posx#
   read float 1,posy#
   read float 1,posz#
   read float 1,anglex#
   read float 1,angley#
   read float 1,anglez#

   position object charector,posx#,posy#,posz#
   xrotate object charector,anglex#
   yrotate object charector,angley#
   zrotate object charector,anglez#


   read float 1,posx#
   read float 1,posy#
   read float 1,posz#
   read float 1,anglex#
   read float 1,angley#
   read float 1,anglez#

   read float 1,energy#
   read float 1,limitp#
   read float 1,ex1#
   read float 1,ex2#
   read float 1,ex3#
   read float 1,speed#

   read float 1,e1#
   read float 1,e2#
   read float 1,e3#
   read float 1,e4#
   read float 1,e5#
   read float 1,e6#

   read float 1,time#
   read float 1,t#



   read long 1,level
   read long 1,item1
   read long 1,item2
   read long 1,bonus


close file 1
wait 1000
else


   if file exist("filename$")=1
      center text 320,320," Load Success !!!"
      sync
   wait key

   else

      center text 320,320," Load Fail !!!"
      sync
   wait key

   endif

   endif
return

...

Back to top

Profile PM Email

baxslash

Valued Member

Bronze Codemaster

19

Years of Service

User Offline

Joined: 26th Dec 2006

Location: Duffield

Posted: 5th Nov 2010 11:49 Edited at: 5th Nov 2010 11:51

Link

I noticed a couple of things that might cause issues (your message will appear soon I got it by email):

1-I normally use "write string" just so I can see the results more obviously.

2-

Quote: "write float 1,object position x(charector) write float 1,object position y(charector) write float 1,object position z(charector) write float 1,object angle x(charector) write float 1,object angle y(charector) write float 1,object angle z(charector)"

You need to use colons if you are going to put commands on the same line... like this: "write float 1,object position x(charector): write float 1,object position y(charector)"

3-You are using a complete path in your loadgame code but a relative path in savegame, is the loadgame path correct?

4-You also use the check for whether the file exists twice...

+ Code Snippet

if file exist("filename$")=1 `HERE is the first check


   `blah blah

close file 1
wait 1000
else


   if file exist("filename$")=1 `HERE is the second check, I would just delete this line
      center text 320,320," Load Success !!!" `I would delete this line
      sync `I would delete this line
   wait key `I would delete this line

   else `I would delete this line

      center text 320,320," Load Fail !!!"
      sync
   wait key

   endif `I would delete this line

   endif
return

Back to top

Profile PM Email

TheComet

18

Years of Service

User Offline

Joined: 18th Oct 2007

Location: I`m under ur bridge eating ur goatz.

Posted: 5th Nov 2010 14:16

Link

What't this?

filename$= "C:\Program Files\dark\Projects\Mote4\save\SaveGame.dat"

shouldn't that be the following?

filename$="save\SaveGame.dat"

TheComet

Back to top

Profile PM Email Website

save load game between state

15

Years of Service

User Offline

Joined: 4th Nov 2010

Location: Thailand

Posted: 5th Nov 2010 14:17

Link

Yeah,It works.

Thank you very much for the advice. Mr.baxslash

**My project will use the load game on the first page(main menu). It would be a problem ?,If there is a problem pleas help me.

** I'm not understand, My post is not show.

...

Back to top

Profile PM Email

save load game between state

15

Years of Service

User Offline

Joined: 4th Nov 2010

Location: Thailand

Posted: 5th Nov 2010 14:59

Link

1)If save and exit the game
2)load the game to play in main menu, It error !!!

What's important to keep variables ?

Pleas help me.

...

Back to top

Profile PM Email

baxslash

Valued Member

Bronze Codemaster

19

Years of Service

User Offline

Joined: 26th Dec 2006

Location: Duffield

Posted: 5th Nov 2010 15:10

Link

Post your current code I'll take another look...

Back to top

Profile PM Email

IanM

Retired Moderator

23

Years of Service

User Offline

Joined: 11th Sep 2002

Location: In my moon base

Posted: 5th Nov 2010 15:25

Link

Quote: "It error !!!"

You seriously want help from an 'error report' like that?

What error?

If you wrote the original code, then you should know exactly which variables are important to save and exactly which objects/sprites you need to save the settings of.

Then you save them.

When you load, you recreate all of the objects and sprites, applying settings from the saved data, and then restoring your variables.

After that, you should be pretty much ready to play again.

Utility plug-ins (26-JUL-2010)
I'm applying terms of use that require you to wear a red nose and honk a horn whenever you use the Internet

Back to top

Profile PM Email Website

baxslash

Valued Member

Bronze Codemaster

19

Years of Service

User Offline

Joined: 26th Dec 2006

Location: Duffield

Posted: 5th Nov 2010 15:33

Link

Ian is right, you need to think "How can I get my game back to the exact place it is at right now?"

Also make absolutely sure you are reading them back in the same order you saved them...

Back to top

Profile PM Email

save load game between state

15

Years of Service

User Offline

Joined: 4th Nov 2010

Location: Thailand

Posted: 5th Nov 2010 15:39

Link

ok, I will try.

If the problem is asking you.

...

Back to top

Profile PM Email

baxslash

Valued Member

Bronze Codemaster

19

Years of Service

User Offline

Joined: 26th Dec 2006

Location: Duffield

Posted: 5th Nov 2010 15:49

Link

Quote: "If the problem is asking you."

I'm not sure I understand what you mean?

Back to top

Profile PM Email

save load game between state

15

Years of Service

User Offline

Joined: 4th Nov 2010

Location: Thailand

Posted: 5th Nov 2010 22:56

Link

Now,loadgame while playing,I can do
I want loadgame after exit game.

What are the key variables that must be stored ? ,loadgame after exit game, Pleas help.

Quote: "If you wrote the original code, then you should know exactly which variables are important to save and exactly which objects/sprites you need to save the settings of.
"

I'm not understand, write sprite and object to save.

+ Code Snippet


------ sprite ---------
load image "img/next.png",8
load image "img/back.png",9
load image "img/play.png",10
load image "img/backmenu.png",13
sprite 8,850,700,8
sprite 9,680,700,9
sprite 10,510,700,10
sprite 13,340,700,13

------- object --------
load object "3ds/model1.x",2
load object "3ds/model2.x",3
load object "3ds/model3.x",4
hide object 2
hide object 3
hide object 4

write long 1,....
write long 1,....

Pleas help me.

...

Back to top

Profile PM Email

IanM

Retired Moderator

23

Years of Service

User Offline

Joined: 11th Sep 2002

Location: In my moon base

Posted: 6th Nov 2010 00:09

Link

It's very simple.

When you load your game, you check to see if the sprite exists. If it doesn't, then you create it.

And you STILL haven't told anyone what the error is!

Utility plug-ins (26-JUL-2010)
I'm applying terms of use that require you to wear a red nose and honk a horn whenever you use the Internet

Back to top

Profile PM Email Website

save load game between state

15

Years of Service

User Offline

Joined: 4th Nov 2010

Location: Thailand

Posted: 6th Nov 2010 06:47

Link

Quote: "
It's very simple.

When you load your game, you check to see if the sprite exists. If it doesn't, then you create it.

And you STILL haven't told anyone what the error is!
"

I want to sample for ideas in making.

...

Back to top

Profile PM Email

save load game between state

15

Years of Service

User Offline

Joined: 4th Nov 2010

Location: Thailand

Posted: 6th Nov 2010 06:56

Link

I want to know, Can I save label ? , Then label will work ?

Ex.

+ Code Snippet

_setup:

for i = startmon2 to endmon2
   HPmon#(i)=50
next i

global staskill1$="wait"
global staskill2$="wait"

return

If I could save by writing this.

write long 1,_setup

label will work ?

...

Back to top

Profile PM Email

BillR

23

Years of Service

User Offline

Joined: 19th Mar 2003

Location: United States

Posted: 6th Nov 2010 09:07

Link

You will have to save EVERY kind of data you want to remember and load in!

Arrays are a good way to do this

Here is an example of saving red boxes to a file then reading them in
the next time you run the program

Rem Project: Dark Basic Pro Project
Rem Created: Friday, November 05, 2010

Rem ***** Main Source File *****
sync on
sync rate 0
sync
autocam off

dim cubes(101,5)
dim boxes(101,5)     :`sving our red boxes here
global nboxes=0      :`number of red boxes
global newboxptr=0   :`next box pointer
global SC

MouseDown = 0
X = 0
Y = 0
SC = 0x80ff0000   ` half alpha, full red

input "Do you want to load a file in (y/n) - ";a$
sync
if lower$(a$)="y"
   	nboxes=_read_data()
   	newboxptr=nboxes+1
else
   	newboxptr=1
endif

cubeptr=1
for i = 1 to 100
   inc cubeptr
   make object cube i, 1.0
   x=rnd(100)-50
   y=rnd(100)-50
   z=50
   position object i, x,y,z
   cubes(cubeptr,1)=x
   cubes(cubeptr,2)=y
   cubes(cubeptr,3)=z
next
cubes(1,1)=cubeptr

do
   if mouseclick() = 1
   if MouseDown = 0  ` Mouse clicked for the first time, so set start coords
      MouseDown = 1
      inc newboxptr
      nboxes=boxes(1,1)
      inc nboxes
      boxes(1,1)=nboxes
      X = mousex()
      Y = mousey()
   endif
      box X, Y, mousex(), mousey(), SC, SC, SC, SC
      boxes(newboxptr,1)=X
      boxes(newboxptr,2)=Y
      boxes(newboxptr,3)=mousex()
      boxes(newboxptr,4)=mousey()
      
      nboxes=boxes(1,1)
      if nboxes>0 then _draw_boxes(nboxes)
   else
      MouseDown = 0
      nboxes=boxes(1,1)
      if nboxes>0 then _draw_boxes(nboxes)      :`need to draw red boxes every loop
   endif
      
   if spacekey()=1 then _save_data()            :`SPACEKEY will save data to test.dat file
   set cursor 0,0
   print "Draw red boxes with Left mouse button"
   print "Press Spacekey to SAVE data"
   print "  "
   print "numboxes=";nboxes
   print "newboxptr=";newboxptr
   for i=1 to 10
      print "box (";i;")=";boxes(i,1);",";boxes(i,2);",";boxes(i,3);",";boxes(i,4)
   next i   
   sync
loop
end

function _draw_boxes(nboxes)
   if nboxes>0
      for i=2 to nboxes+1
         box boxes(i,1),boxes(i,2), boxes(i,3),boxes(i,4), SC, SC, SC, SC
      next i
   endif

endfunction

`Thanks TDK for your tutorial on file saving of multi-dimensional arrays!
function _save_data()
filename$="test.dat"
if file exist(filename$) then delete file filename$
nboxes=boxes(1,1)
open to write 1,filename$
write string 1,str$(nboxes)      :`first entry in file in number of red boxes drawn

`SAVING multi-dimensional array as strings
For Nx=2 To nboxes+1
  For Ny=1 To 4
    Write String 1,Str$(boxes(Nx,Ny))
  Next Ny
Next Nx
close file 1
print "filename=";filename$
print "FILE SAVED!!!!!!!!"
print "Press return to continue"
sync
wait key
endfunction

`READING multi-dimensional array as strings, converting to integers
function _read_data()
filename$="test.dat"
if file exist(filename$)
open to read 1,filename$
   Read String 1,T$
   nboxes=Val(T$)          :`first entry in file in number of red boxes saved
   newboxptr=nboxes+1
   boxes(1,1)=nboxes
   
   For Nx=2 To nboxes+1
     For Ny=1 To 4
       Read String 1,T$
       boxes(Nx,Ny)=Val(T$)
     Next Ny
   Next Nx
   close file 1
endif
endfunction nboxes

+ Code Snippet

Rem Project: Dark Basic Pro Project
Rem Created: Friday, November 05, 2010

Rem ***** Main Source File *****
sync on
sync rate 0
sync
autocam off

dim cubes(101,5)
dim boxes(101,5)     :`sving our red boxes here
global nboxes=0      :`number of red boxes
global newboxptr=0   :`next box pointer
global SC

MouseDown = 0
X = 0
Y = 0
SC = 0x80ff0000   ` half alpha, full red

input "Do you want to load a file in (y/n) - ";a$
sync
if lower$(a$)="y"
   	nboxes=_read_data()
   	newboxptr=nboxes+1
else
   	newboxptr=1
endif

cubeptr=1
for i = 1 to 100
   inc cubeptr
   make object cube i, 1.0
   x=rnd(100)-50
   y=rnd(100)-50
   z=50
   position object i, x,y,z
   cubes(cubeptr,1)=x
   cubes(cubeptr,2)=y
   cubes(cubeptr,3)=z
next
cubes(1,1)=cubeptr

do
   if mouseclick() = 1
   if MouseDown = 0  ` Mouse clicked for the first time, so set start coords
      MouseDown = 1
      inc newboxptr
      nboxes=boxes(1,1)
      inc nboxes
      boxes(1,1)=nboxes
      X = mousex()
      Y = mousey()
   endif
      box X, Y, mousex(), mousey(), SC, SC, SC, SC
      boxes(newboxptr,1)=X
      boxes(newboxptr,2)=Y
      boxes(newboxptr,3)=mousex()
      boxes(newboxptr,4)=mousey()
      
      nboxes=boxes(1,1)
      if nboxes>0 then _draw_boxes(nboxes)
   else
      MouseDown = 0
      nboxes=boxes(1,1)
      if nboxes>0 then _draw_boxes(nboxes)      :`need to draw red boxes every loop
   endif
      
   if spacekey()=1 then _save_data()            :`SPACEKEY will save data to test.dat file
   set cursor 0,0
   print "Draw red boxes with Left mouse button"
   print "Press Spacekey to SAVE data"
   print "  "
   print "numboxes=";nboxes
   print "newboxptr=";newboxptr
   for i=1 to 10
      print "box (";i;")=";boxes(i,1);",";boxes(i,2);",";boxes(i,3);",";boxes(i,4)
   next i   
   sync
loop
end


function _draw_boxes(nboxes)
   if nboxes>0
      for i=2 to nboxes+1
         box boxes(i,1),boxes(i,2), boxes(i,3),boxes(i,4), SC, SC, SC, SC
      next i
   endif

endfunction


`Thanks TDK for your tutorial on file saving of multi-dimensional arrays!
function _save_data()
filename$="test.dat"
if file exist(filename$) then delete file filename$
nboxes=boxes(1,1)
open to write 1,filename$
write string 1,str$(nboxes)      :`first entry in file in number of red boxes drawn

`SAVING multi-dimensional array as strings
For Nx=2 To nboxes+1
  For Ny=1 To 4
    Write String 1,Str$(boxes(Nx,Ny))
  Next Ny
Next Nx
close file 1
print "filename=";filename$
print "FILE SAVED!!!!!!!!"
print "Press return to continue"
sync
wait key
endfunction

`READING multi-dimensional array as strings, converting to integers
function _read_data()
filename$="test.dat"
if file exist(filename$)
open to read 1,filename$
   Read String 1,T$
   nboxes=Val(T$)          :`first entry in file in number of red boxes saved
   newboxptr=nboxes+1
   boxes(1,1)=nboxes
   
   For Nx=2 To nboxes+1
     For Ny=1 To 4
       Read String 1,T$
       boxes(Nx,Ny)=Val(T$)
     Next Ny
   Next Nx
   close file 1
endif
endfunction nboxes

Back to top

Profile PM Email

save load game between state

15

Years of Service

User Offline

Joined: 4th Nov 2010

Location: Thailand

Posted: 6th Nov 2010 22:44

Link

Thank you. Mr.BillR.

I'm not understand, Write sprite and object to save

I want loadgame after exit game.

I want sample for ideas in make.

Help me !!

...

Back to top

Profile PM Email

BillR

23

Years of Service

User Offline

Joined: 19th Mar 2003

Location: United States

Posted: 6th Nov 2010 23:36

Link

1) Save EVERYTHING you want to load later, variable values, arrays, etc.
2) Save everything as a string so you can debug your saved file easily
3) Organize your code so it's easy to keep track of loading and saving everything you need
4) In my example program I keep track and save the number of boxes created, as well as all the data for each box. Read through my program and study it until you understand saving EVERYTHING you want to load in later - this may take some time, but you will need to invest time in learning, don't be so impatient wanting a quick answer.
5) SHOW us your program so we can help. If you don't have a program to share, then you are not putting in enough effort and time to learn what you need to do.

Back to top

Profile PM Email

save load game between state

15

Years of Service

User Offline

Joined: 4th Nov 2010

Location: Thailand

Posted: 7th Nov 2010 08:51

Link

Thank you. Mr.BillR.

Ok I'll try.

...

Back to top

Profile PM Email

Sorry your browser is not supported!

DarkBASIC Professional Discussion / Please help save and load games between State