Ok and that would storing weapons ( i have my weapon maker done but i want it to save and it wont. here it is. only the button collision will be dbp only but rest should be fine
`````````````````````````````````````````````````````````
rem to save a your work ctrl+s
`````````````````````````````````````````````````````````````
`````````````````````````````````````````````````````````
rem to save a your work ctrl+s
`````````````````````````````````````````````````````````````
`````````````````````````````````````````````````````````
rem to save a your work ctrl+s
`````````````````````````````````````````````````````````````
`````````````````````````````````````````````````````````
rem to save a your work ctrl+s
`````````````````````````````````````````````````````````````
dim allequipment$(7,99,4):ce$ = "":b=1:sync on:sync rate 0:set text size 8
b=1
do
cls
`if sprite exist(1) and sprite exist(2) then if sprite collision(99,1) then gosub makeweapon: if sprite collision (99,2) then gosub makearmour
if controlkey()=1 and keystate(31)=1 then gosub save
if upkey()=1 then gosub makeweapon
sync
loop
makeweapon:
a=1
input "Input whether weapon is primary(1) or secondary(2). ",ce$
if lower$(ce$)= "1" then c=6:if lower$(ce$)= "2" then c=7:ce$ = ""
input "Input weapon name. ",ce$
allequipment$(c,b,a)=ce$:inc a:ce$ = ""
input "Input weapon damage. ",ce$
allequipment$(c,b,a)=ce$:inc a:ce$ = ""
input "Input weapon cost. ",ce$
allequipment$(c,b,a)=ce$:inc a:ce$ = ""
input "Input weapon image range. ",ce$
allequipment$(c,b,a)=ce$:inc a:ce$ = ""
cls
for a=1 to 5
print allequipment$(c,b,a)
sync
next a
gosub changesomething
if n=1 then goto makeweapon
return
makearmour:
a=1
n=0
input "Input whether armour is helmet(1), chestplate(2), arms(3), legs(4), and shoes(5). ",ce$
if lower$(ce$)= "1" then c=1:if lower$(ce$)= "2" then c=2:if lower$(ce$)= "3" then c=3:if lower$(ce$)= "4" then c=4:if lower$(ce$)= "5" then c=5:ce$ = ""
input "Input armour name. ",ce$
allequipment$(1,b,a)=ce$:inc a:ce$ = ""
input "Input armour defence rate. ",ce$
allequipment$(1,b,a)=ce$:inc a:ce$ = ""
input "Input armour cost. ",ce$
allequipment$(1,b,a)=ce$:inc a:ce$ = ""
input "Input armour image range. ",ce$
allequipment$(1,b,a)=ce$:inc a:ce$ = ""
cls
for a=1 to 4
print allequipment$(c,b,a)
sync
next a
gosub changesomething
if n=1 then goto makearmour
return
changesomething:
input "Would you like to change anything (y or n). " ,c$
if lower$(c$) = "y" then n=1
if lower$(c$) = "n" then sleep 1:b=b+1 else goto changesomething
return
save:
cls
input "Input file name. ",t$
t$=t$+".txt"
if file exist(t$)=1 then delete file t$
open to write 1,t$
for c=1 to 7
for b=1 to 99
for a=1 to 4
write string 1,allequipment$(c,b,a)
next a
next b
next c
close file 1
t$=""
return
load:
cls
input "Input file name. ",t$
if file exist(t$)
open to read 1,t$
for c=1 to 7
for b=1 to 99
for a=1 to 4
read string 1,allequipment$(c,b,a)
next a
next b
next c
close file 1
t$=""
else
return
endif
return
tell what item mangement would include
All fears must be overcome before feeling true happieness.
By Stefan aka me
