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

Options Results
bufferflush
Signal on ioerr
signal on syntax
signal on error
main:
Dagpath="DAGGERS:"
transmit "Loading Dungeon Options..."
ChooseDungeon:
FILENAMEN=DAGPATH||"text/Dungeonlist"
aa=0
call open(dun,filenamen,"R")
Do until EOF(dun);aa=aa+1;key.aa=readln(dun);dname.aa=readln(dun);dtxt.aa=readln(dun);dpat.aa=Readln(dun);end
max=aa-1
call close dun
Chodun1:
Transmit "c4Work on Which Dungeon?n1 "
DO I=1 to max
Transmit "c7[c2"key.i"c7] c3"dname.i
end
query "c1n1Select Dungeon or (0=Quit): "
xtx=upper(left(result,1))
if xtx="#" then signal quit
if xtx="0" then signal quit
do z=1 to max
if xtx=key.z then Signal Godungeon
end
signal chodun1

GoDungeon:
transmit "f1c1"
sendfile (dtxt.z)
dung=dpat.z;transmit dpat.z
transmit "c1(c2Any Keyc1)g0h9h1"
signal dungeon
dungeon:
query "What Dungeon level[000,001,002 etc..]: "
lv=result
path1=dagpath
path1=path1||dung||"/"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'tgo that way."
transmit "999 denotes a Dungeon exit "
Transmit "998 in an UP spot is Up 1 level"
transmit "998 in a Down spot is Down 1 level"
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 "c1Secret Goes [ex 000] :c3 "
u.6=result
query "c1If Up Exist put 998  :c3 "
u.7=result
query "c1Up goes to? [ex 000] :c3 "
u.9=result
query "c1If Down Exist put 998:c3 "
u.8=result
query "c1Down Goes [ex 000]   :c3 "
u.10=result
query "c1magic works 1=y,0=n  :c3 "
u.16=result
query "c1Fountain 1=y,0=n     :c3 "
u.18=result
transmit  "Room description 3 lines "
query "c11]c3"
u.23=result
query "c12]c3"
u.24=result
query "c13]c3"
u.25=result
query "c1Terrain Type (1=Path,0=Walled):c3 "
u.26=result
transmit "c1c4Verifying Correct data input"
do i=11 to 15;u.i=0;end
u.17=0
u.19=0
u.20=0;u.21=0;u.22=0
do i=1 to 26
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 26
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