Hi there.
This works for me in windows Vista
Rem ***** Included Source File *****
sav2:
cls
set cursor 20,50
Print "Save As? (Please Include the File Extnsion .dat)"
set cursor 20,70
input ">",savedat$
remstart
if PATH EXIST ("C:\Program Files (x86)")
if PATH EXIST ("C:\Program Files (x86)\Electrasoft\Mages_Might\Saves")
set dir "C:\Program Files (x86)\Electrasoft\Mages_Might\Saves"
else
make directory "C:\Program Files (x86)\Electrasoft\Mages_Might\Saves"
set dir "C:\Program Files (x86)\Electrasoft\Mages_Might\Saves"
endif
else
remend
if path exist ("C:\Program Files\Electrasoft\Mages_Might\Saves")
set dir "C:\Program Files\Electrasoft\Mages_Might\Saves"
else
make directory "C:\Program Files\Electrasoft\Mages_Might\Saves"
set dir "C:\Program Files\Electrasoft\Mages_Might\Saves"
endif
rem endif
`prepare to save ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
if file exist(savedat$) = 1
delete file savedat$
endif
level$ = str$(level)
money$ = str$(money)
xp$ = str$(xp)
mana$ = str$(mana)
health$ = str$(health#)
hand$ = str$(hand#)
staff$ = str$(staff#)
sword$ = str$(sword#)
firebolt$ = str$(firebolt#)
treefall$ = str$(treefall#)
thorns$ = str$(thorns#)
drainlife$ = str$(drainlife#)
heal$ = str$(heal#)
fire_enchant$ = str$(fire_enchant#)
ice_enchant$ = str$(ice_enchant#)
icebolt$ = str$(icebolt#)
lightningbolt$ = str$(lightningbolt#)
lightning_enchant$ = str$(lightning_enchant#)
bow$ = str$(bow#)
renown$ = str$(renown)
ward$ = str$(ward)
whitemage$ = str$(whitemage)
dual_firebolt_unlocked$ = str$(dual_firebolt_unlocked)
dual_firebolt$ = str$(dual_firebolt)
`load list of save names ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
undim savenames$(20)
dim savenames$(20)
if file exist("savenames.txt") = 1
open to read 4,"savenames.txt"
load array "savenames.txt", savenames$()
close file 4
endif
for I = 1 to 10
isnul$ = savenames$(I)
if isnul$ = nul$ or isnul$ = savedat$ then exit
next I
if isnul$ = nul$ then savenames$(I) = savedat$
if file exist("savenames.txt") = 1
delete file "savenames.txt"
endif
open to write 4,"savenames.txt"
save array "savenames.txt", savenames$()
close file 4
`save game ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
open to write 1,savedat$
write string 1,name$
write string 1,class$
write string 1,level$
write string 1,money$
write string 1,xp$
write string 1,mana$
write string 1,health$
write string 1,weapon$
write string 1,hand$
write string 1,staff$
write string 1,sword$
write string 1,firebolt$
write string 1,treefall$
write string 1,thorns$
write string 1,drainlife$
write string 1,heal$
write string 1,fire_enchant$
write string 1,ice_enchant$
write string 1,icebolt$
write string 1,lightningbolt$
write string 1,lightning_enchant$
write string 1,bow$
write string 1,renown$
write string 1,ward$
write string 1,whitemage$
write string 1,dual_firebolt_unlocked$
write string 1,dual_firebolt$
close file 1
returnI'm not a grumpy grandpa
