/* WHat the fuck..let us hope this works */

Options Results
bufferflush
Signal on ioerr
signal on syntax
signal on error
main:
path="DAGGERS:FOREST/"
query "Enter Forest level[000,001,002 etc..]: "
lv=result
path1=path||lv
query "Starting with what room?#: "
start=result
query "Ending with what room?#: "
finish=result
current=start
main0:
room=right(current,3,'0')
transmit "f1c3now on Room: "room
roompath=path1||"/rooms/"||"room."||room
transmit "Path is    : "roompath
transmit "Type # on 'Name of Room' line to exit "
transmit "c1000 in a directional denotes Can't go that way."
transmit "999 denotes a Dungeon exit. 998 Up/Down levels."
query "n1c1Name of the Room   :c3 "
u.1=result
if left(result,1)="#" then signal quit
query "c1North goes [ex 000]:c3 "
u.2=result
query "c1South goes [ex 000]:c3 "
u.3=result
query "c1East goes  [ex 000]:c3 "
u.4=result
query "c1West goes  [ex 000]:c3 "
u.5=result
query "c1If Up Exist  [998] :c3 "
u.16=result
query "c1Up goes to [Ex000] :c3 "
u.6=result
query "c1If Down Exist [998]:c3 "
u.17=result
query "c1Down goes   [Ex000]:c3 "
u.7=result
query "c1Secret Goes[ex 000]:c3 "
u.12=result
query "c1magic works 1=y,0=n:c3 "
u.10=result
query "c1Fountain 1=y,0=n   :c3 "
u.11=result
transmit  "Room description 3 lines "
query "c11]c3"
u.13=result
query "c12]c3"
u.14=result
query "c13]c3"
u.15=result
query "c1Terrain Type:(1=Path,0=Walled):c3 "
u.18=result
transmit "c1c4Verifying Correct data input"
do i=8 to 9;u.i=0;end
do i=1 to 18
if u.i="" then signal main0
end

call saveroom
current=current+1
if current>finish then call quit
signal main0

saveroom:
transmit "n1c1r1 Saving room data r0"
call open(roomz,roompath,"W")
signal off error
do i=1 to 18
writeln(roomz,u.i)
end
call close roomz
signal on error
return


quit:
transmit "All Done!"
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