/* Make Special Item For Double Daggers II */

Options Results
bufferflush
Signal on ioerr
signal on syntax
signal on error

Dagpath="DAGGERS:"
query "Path:(ie. DUNGEON/): "
path1=result
query "path2:(ie.000/): "
path2=result
path=dagpath||path1||path2||"Tres/Room."
transmit "Enter # here to Exit Program!"
Whatroom:
query "c7Add item to What Room??ie.(001):c3 "
start=result
if start="#" then signal quit
inky=start
main0:
gampath=path||right(inky,3,"0")
transmit "n1c3Working on: c7"gampath
Transmit "Treasure Type:1=Chest,2=Magic Item,3=Sign/Doc,4=Coins,5=Misc"
query "What type is this Item?: "
dt.1=result
query "What is the Gold Value of this Item?: "
dt.2=result
query "1 Line Description of the Item(Include Item's Name here!):n1c3 "
dt.3=result
query "c7Can this item be taken? or is it Permanent(1=taken,0=Perm): "
dt.4=result
query "Path of Action: (if Doc then readme, if Magic then Path of Item):n1c3 "
dt.5=result
query "c7Is it Locked? (1=yes,0=No): "
dt.6=result
query "Is it Trapped? (1=Yes,0=No): "
dt.7=result
transmit "if it is not Trapped,then put 5 here."
query "If it is Trapped, what is the Max Damage it will do(2-100): "
dt.8=result
transmit "c1r1 Verifying Data Input! r0"
do i=1 to 8
if dt.i="#" then do;transmit "Incorrect Input!";signal Quit;end
if dt.i="" then do;transmit "Incorrect Input!";signal Main0;end
end
transmit "c7n1Saving..."
call open(fle,gampath,"W")
signal off error
do i=1 to 8
writeln(fle,dt.i)
end
signal on error
call close fle
transmit "h7ed!"
again:
sendstring "c4Do Another Item?(y/n):c4 "
getchar
xtx=upper(result)
if xtx="Y" then do;transmit "Yes";signal whatroom;end
if xtx="N" then do;Transmit "No";signal quit;end
transmit "Huh"
signal again

quit:
shutdown
exit




ERROR:
Logentry 'Fucked up error Line# 'SIGL
exit

IOERR:
logentry 'Fucked up IOERR line# 'SIGL
exit

SYNTAX:
logentry 'Fucked up Syntax Line# 'SIGL
exit