AdventureMaker.com

Code: Select all

UnloadControl TextBoxObject(1)
UnloadControl TextBoxObject(2)
Hotspot(26).Enabled=False
Text(26).caption=""
Hotspot(27).Enabled=False
Text(27).caption=""
Hotspot(29).Enabled=False
Text(29).caption=""
Hotspot(30).Enabled=False
Text(30).caption=""

Action.GoToFrame "Main_Menu",1,1

Code: Select all

UnloadControl TextBoxObject(1)
UnloadControl TextBoxObject(2)
Hotspot(26).Enabled=False
Text(26).caption=""
Hotspot(27).Enabled=False
Text(27).caption=""
Hotspot(29).Enabled=False
Text(29).caption=""
Hotspot(30).Enabled=False
Text(30).caption=""

Action.GoToFrame Action.ReadINI(filename+".room",1,1),1,1

Imari wrote:LOADING THE THUMBNAIL ONTO THE PROPER HOTSPOT

AM is politely asking for a "sub" in here.
____________________________________________________________

6. Make a thumbnail for each of the frames in your game from which the player can save. Add the thumbnails to the your Areas and your External folder. I made mine 160 x 90 pixels.

7. On the Advanced tab of the Save-Load frame, add this code

'read the INI file to determine the frame to save from

Code: Select all

frametosave=Action.ReadINI(filename+".room",1,1)

'match up your thumbnails with youtr frames

Code: Select all

   If frametosave = "Scene1" then framethumbnail = "Th_Sc1.jpg"
   If frametosave = "Scene2" then framethumbnail = "Th_Sc2.jpg"
   If frametosave = "Scene3" then framethumbnail = "Th_Sc3.jpg"
   If frametosave = "Scene4" then framethumbnail = "Th_Sc4.jpg"
   If frametosave = "Scene5" then framethumbnail = "Th_Sc5.jpg"

'[etc. etc.]

' Make 12 integer variables, one for each save slot and picture spot and call it SAVESPOT1 thru SAVESPOT12

Code: Select all

savespot1 = Hotspot(1)
savespot2 = Hotspot(2)
savespot3 = Hotspot(3)
savespot4 = Hotspot(4)
savespot5 = Hotspot(5)
savespot6 = Hotspot(6)
savespot7 = Hotspot(7)
savespot8 = Hotspot(8)
savespot9 = Hotspot(9)
savespot10 = Hotspot(10)
savespot11 = Hotspot(11)
savespot12 = Hotspot(12)

'make a "highlight" GIF a little bit latger than your thumbnails and with an invisible center the size of your thumbnails. Put one on each hotspot and make it invisible with a corresponding variable -

Code: Select all

highlight1=Hotspot(13)
highlight2=Hotspot(14)
highlight3=Hotspot(15)
highlight4=Hotspot(16)
highlight5=Hotspot(17)
highlight6=Hotspot(18)
highlight7=Hotspot(19)
highlight8=Hotspot(20)
highlight9=Hotspot(21)
highlight10=Hotspot(22)
highlight11=Hotspot(23)
highlight12=Hotspot(24)

'using the above info, load the proper thumbnail onto the NEXT hotspot on the save-load frame and highlight it

Code: Select all

If savespot1=0 then Action.LoadAPicture Hotspot(1), framethumbnail
savespot1=1
highlight1=1
end if

If savespot1=1 & savespot2=0 then Action.LoadAPicture Hotspot(2), framethumbnail
savespot2=1
highlight2=1
end if

If savespot2=1 & savespot3=0 then Action.LoadAPicture Hotspot(3), framethumbnail
savespot3=1
highlight3=1
end if

If savespot3=1 & savespot4=0 then Action.LoadAPicture Hotspot(4), framethumbnail
savespot4=1
highlight4=1
end if

If savespot4=1 & savespot5=0 then Action.LoadAPicture Hotspot(5), framethumbnail
savespot5=1
highlight5=1
end if

If savespot5=1 & savespot6=0 then Action.LoadAPicture Hotspot(6), framethumbnail
savespot6=1
highlight6=1
end if

If savespot6=1 & savespot7=0 then Action.LoadAPicture Hotspot(7), framethumbnail
savespot7=1
highlight7=1
end if

If savespot7=1 & savespot8=0 then Action.LoadAPicture Hotspot(8), framethumbnail
savespot8=1
highlight8=1
end if

If savespot8=1 & savespot9=0 then Action.LoadAPicture Hotspot(9), framethumbnail
savespot9=1
highlight9=1
end if

If savespot9=1 & savespot10=0 then Action.LoadAPicture Hotspot(10), framethumbnail
savespot10=1
highlight10=1
end if

If savespot10=1 & savespot11=0 then Action.LoadAPicture Hotspot(11), framethumbnail
savespot11=1
highlight11=1
end if

If savespot11=1 & savespot12=0 then Action.LoadAPicture Hotspot(12), framethumbnail
savespot12=1
highlight12=1
end if

'if you've reached the limit of saves, then a hotspot JPG that says "NoMoreSaves" controlled by a variable becomes visible

Code: Select all

If savespot11=1 & savespot12=1 then NoMoreSaves=0
end if

'make the SAVE OKAY and save NOT okay buttons invisible

Code: Select all

Hotspot(26).enabled=False
text(26).caption=""
Hotspot(27).enabled=False
text(27).caption=""

'Load Text Box 1 & 2 and Place them where you want them LoadControl

Code: Select all

TextBoxObject(1)
TextBoxObject(1).move 231,627,212,30
TextBoxObject(1).visible=False

LoadControl TextBoxObject(2)
TextBoxObject(2).move 533,627,212,30
TextBoxObject(2).visible=False

This needs fixing:
The integers savespot1 to 12 can't be equal to a hotspot...

Well, as some guys and girls here know (including mercedes ) I work better when I have a sample project.

This needs fixing:
The integers savespot1 to 12 can't be equal to a hotspot...

Code: Select all

savespot# = Hotspot(#)

Code: Select all

highlight# = Hotspot(#)

Code: Select all

frametosave = Action.GetCurrentFrameName
Action.WriteINI filename+".room",1,1,frametosave

Code: Select all

Action.GoToFrame Action.ReadINI(filename+".room",1,1)

Code: Select all

frametosave = Action.ReadINI(filename+".room",1,1)

Code: Select all

If frametosave = "Scene1" then framethumbnail = "Th_Sc1.jpg"
   If frametosave = "Scene1a" then framethumbnail = "Th_Sc1a.jpg"

Code: Select all

roomtosave = Action.ReadINI(filename+".room",1,1)

Code: Select all

If roomtosave = "Scene1" then framethumbnail = "Th_Sc1.jpg"
   If roomtosave = "Scene1a" then framethumbnail = "Th_Sc1a.jpg"