/* $VER: The Shadow's EdGe Die Roller V1.3 By FishBone 9/8/96 */ /* A dice roller for use with Online RPG's & CNet 3.+ */ options results;signal on SYNTAX;dignal on ERROR;signal on IOERR tr=transmit;gu=getuser;gc=getchar gu 1;han=result;gu 12;dt=result;gu 40;act=result;gu 15;acc=result changewhere 'Rolling Dice!'; dp='gfiles:dice/' /* The path where you put the Dice Directory */ Maint=25 /* Lowest Access group able to edit the Dice Logs */ tr"";prompt 3 yesno ">17}cdWould you like to Muffle All ports?c5[cbYc5/c3nc5]cb";muf=upper(result) if muf='NO' then signal begin;if muf='YES' then bbscommand 'mu *'; begin: call panic tr"@6                         ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»ºººº¼ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍȺººº[R]oll Dice[V]iew Dice Rolls[Q]uit               Die Roller V1.3By FishBone                        The Shadow's EdGe  " tr"" ; tr"" ; tr"" ; prompt 1 normal "c9>30}Your Choice?c1[cbRc1/cbVc1/cbQc1]cb " st=upper(result) if index("R,V,Q",st)=0 & c2d(st)~=27 then do signal begin ; end if st = R then signal setup if st = V then signal view if st = Q then signal out setup: tr"" prompt 3 normal '"caWhat size die Would you like to roll,cd' han'ca?cb(4,6,8,10,12,20,100)ca:c9"' d=result if d='###PANIC' then call panic if index("4,6,8,10,12,20,100,",d)=0 & c2d(d)~=27 then do tr "n1}Please Enter 4,6,8,10,12,20,100" ; signal setup; end if d=100 then signal times ; if d=20 then signal times ; if d=12 then signal times if d=10 then signal times ; if d=8 then signal times ; if d=6 then signal times if d=4 then signal times;else signal inv Times: tr"";query "caHow Many times would you like to roll thec9" d "casided die?c9" t=result if t='###PANIC' then call panic if Index("1,2,3,4,5,6,7,8,9,10,t",t)=0 & c2d(t)~=27 then do tr "cdPlease enter a Number Between one & Ten" ; signal times ; end ok: tr"" ; prompt 1 normal "caYou want to roll ac9" d "caSided diec9" t "catimes?c1[cbYc1/c3nc1/c3qc1]cb " ata=Upper(result) if ata='###PANIC' then call panic if ata='N' then signal setup; if ata='Y' then signal roll;if ata='Q' then signal Begin roll: do i=1 to t ; di.i=random(1,d,time(s)) ; tr"";end i if t=1 then do sin='c9'di.1 tot=di.1 end if t=2 then do sin='c9'di.1 "cf& ac9" di.2 tot=di.1+di.2 end if t=3 then do sin='c9'di.1"cf,c9" di.2 "cf& ac9" di.3 tot=di.1+di.2+di.3 end if t=4 then do sin='c9'di.1"cf,c9" di.2"cf,c9" di.3 "cf& ac9" di.4 tot=di.1+di.2+di.3+di.4 end if t=5 then do sin='c9'di.1"cf,c9" di.2"cf,c9" di.3"cf,c9" di.4 "cf& ac9" di.5 tot=di.1+di.2+di.3+di.4+di.5 end if t=6 then do sin='c9'di.1"cf,c9" di.2"cf,c9" di.3"cf,c9" di.4"cf,c9" di.5 "cf& ac9" di.6 tot=di.1+di.2+di.3+di.4+di.5+di.6 end if t=7 then do sin='c9'di.1"cf,c9" di.2"cf,c9" di.3"cf,c9" di.4"cf,c9" di.5"cf,c9" di.6 "cf& ac9" di.7 tot=di.1+di.2+di.3+di.4+di.5+di.6+di.7 end if t=8 then do sin='c9'di.1"cf,c9" di.2"cf,c9" di.3"cf,c9" di.4"cf,c9" di.5"cf,c9" di.6"cf,c9" di.7 "cf& ac9" di.8 tot=di.1+di.2+di.3+di.4+di.5+di.6+di.7+di.8 end if t=9 then do sin='c9'di.1"cf,c9" di.2"cf,c9" di.3"cf,c9" di.4"cf,c9" di.5"cf,c9" di.6"cf,c9" di.7"cf,c9" di.8 "cf& ac9" di.9 tot=di.1+di.2+di.3+di.4+di.5+di.6+di.7+di.8+di.9 end if t=10 then do sin='c9'di.1"cf,c9" di.2"cf,c9" di.3"cf,c9" di.4"cf,c9" di.5"cf,c9" di.6"cf,c9" di.7"cf,c9" di.8"cf,c9" di.9 "cf& ac9" di.10 tot=di.1+di.2+di.3+di.4+di.5+di.6+di.7+di.8+di.9+di.10 end show: call panic u=t-1;if tb>1 then z="^"u"}";if t=1 then z="" tr z"cfYou rolled a" sin "cffor a total ofc9" tot call open('rolls.dat',dp'rolls.dat','A') call writeln('rolls.dat','n1cfOncc' dt'm, cd'han 'cfRolled a c5't'c7dcd'd 'cf& got an1>20}c9'sin 'cffor a total ofc9' tot'w1') call close('rolls.dat'); tr"" prompt 3 yesno "caWould you like to roll more dice?c1[cbYc1/c3nc1]c9" re=upper(result) if re='###PANIC' then call panic if re='YES' then signal setup ; if re='NO' then signal Begin view: call panic sendstring'f1*0'dp'rolls.dat}' if acc>=maint then signal edit;else tr "cbHit a Keyg1" ; signal begin edit: call panic query "n1ccWould you like to cf[cdCcf]cclear, cf[cdEcf]ccdit, or cf[cdQcf]ccuit the Dice Log?cd " ed=upper(result) if ed='###PANIC' then call panic if index("Q,C,E,ed",ed)=0 & c2d(ed)~=27 then signal edit if ed='Q' then signal begin;if ed='C' then do call open('rolls.dat',dp'rolls.dat','W') call writeln('rolls.dat','>25}cfThe c7o1Shadow''so0 cfEdGe c9Die Roller V1.0');call close('rolls.dat') call open('rolls.dat',dp'rolls.dat','A') call writeln('rolls.dat','>35}cdo1By FishBoneo0') call writeln('rolls.dat','>33}c9o1u1 Die Roller Log u0o0n1');call close('rolls.dat') signal begin;end if ed='E' then do loadeditor dp'rolls.dat';calleditor;if result=1 then saveeditor dp'rolls.dat' if result=1 then cleareditor;signal begin end out: tr"";tr"";tr center("cfThe c7o1Shadow'so0 cfEdGe c9Die Roller V1.3 cdBy FishBone!",102) tr center("cfThanks For Playing!",84) tr center("ccCall cfThe c7o1Shadow'so0 cfEdGe ccBBs!",100) tr center("cd(813)578-5197",80) tr center("cd(813)577-5266",80) tr"" ;cleareditor;if muf='YES' then bbscommand 'mu *';exit inv: tr"" tr"c9Please Enter 4,6,8,10,12,20,100" signal setup Panic: getcarrier if result='TRUE' then return bufferflush exit error: tr center("c9An Error has occured!!!",80) tr center("cdNotify SysOp!!!",80) exit syntax: tr center("c9A Syntax Error has occured!!!",80) tr center("cdNotify SysOp!!!",80) exit ioerr: tr center("c9An I/O Error has occured!!!",80) tr center("cdNotify SysOp!!!",80) exit