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

Options Results
bufferflush
Signal on ioerr
signal on syntax
signal on error
main:
path="DAGGERS:text/Weaponlist"
main0:
Transmit "f1c1r1 Create a Weapon r0n1"
transmit "c2On weapon name line, enter # to abort program.n1"
query "c3r1 Key Press to Select weapon:r0c1 "
u.1=result
query "c3r1 Weapon Name               :r0c1 "
u.2=result
if left(result,1)="#" then signal quit
query "c3r1 Cost of Weapon            :r0c1 "
u.3=result
query "c3r1 Power of Weapon(NOt >40!!):r0c1 "
u.4=result
query "c3r1 Weapon Damage Capacity    :r0c1 "
u.5=result
Transmit "n1c7 Weapon Type----------------"
transmit "c4 0=Body Part"
transmit "c4 1=Edged Weapon"
transmit "c4 2=Bashing Weapon"
transmit "c4 3=Ranged Weapon"
transmit "c4 4=Vapor(Breath Weapon)"
transmit "c4 5=Poison"
transmit "c4 6=Heat"
transmit "c4 7=Cold"
transmit "c4 8=Pole-Arm"
query "n1c7r1 Select Weapon classification:r0c7 "
u.6=result            
transmit "n1c4Verifying information........."
do i=1 to 6
if u.i="" then do;Transmit "Information Not Complete!w1";signal main0;end
end
call saveroom
signal main0

saveroom:
transmit "n1c1r1 Saving weapon data r0"
call open(roomz,path,"A")
signal off error
do i=1 to 6
writeln(roomz,u.i)
end
call close roomz
signal on error
return


quit:
transmit "c7All Done!"
Transmit "c1Be sure to Change the MaxMonsters in your DDCONFIG File."
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