; LORDRobo.Scr ; ; "QmodemPro" communications software script to automatically play ; the BBS door game "Legend Of the Red Dragon" (LORD) v3.02. ; Game captured to file "LORDRobo.Cap" in the default directory. ; Your graphics mode must be plain TTY; no ANSI or RIP graphics. ; Activate (Alt-F) this script when in the Town Square. ; ; Modifications needed: ; Need to send witty replies to standard NPC conversation at Inn. ; Need to flee from on-line challenges unless at very end. ; Need to add switching professions. ; Need to improve flirting after old man is rescued. ; Need to intelligently buy panoply (arms and armor). ; Need to slaughter other players of lesser or equal stature. ; Need to alert player to sysop chat mode with beeping. ; ; v1.0 1994/02/27 Deadliner Cognomen -- enters Public Domain ; v1.1 1994/02/28 Deadliner -- minor bug fixes ; v1.2 1994/03/02 Deadliner -- exits Dark Cloak Tavern ; v1.3 1994/03/03 Deadliner -- added Death Knight attacks, ; now only turns in gems when it finds one ; v1.4 1994/03/04 Deadliner -- turns in gems when finds 2nd only, ; converses in Dark Cloak Tavern ; v1.5 1994/03/05 Deadliner -- questions master, fixed gem exchange ; v1.6 1994/03/06 Deadliner -- made healing more efficient; ; wanders into shops for player to manually upgrade panoply; ; gives opportunity for player to slaughter; quits game. ; v1.61 1994/03/07 Deadliner -- bug-fix in healing & withdrawl ; v1.62 1994/03/16 Deadliner -- bug-fix in gem transaction ; v1.62 1994/03/24 Deadliner -- expedited healing Graphics TTY ; You must be in TTY mode before entering door. TurnOFF ECHO TurnON 8_BIT TurnOFF LINEFEED TurnON XON/XOFF TurnON NOISE TurnON MUSIC TurnON SCROLL TurnOFF PRINT TurnOFF SPLIT TurnON STATUSLN TurnOFF DOORWAY TimeOut 120 ; Waitfor 120 seconds maximum before aborting. deletef LORDRobo.Cap ; Starting a new capture file. capture LORDRobo.Cap ;All sub-routines assume starting from Town Square except ; Gems, Name, Recover, and Start. gosub Start gosub Forest gosub Inn gosub Forest gosub Training gosub Stats gosub Panoply gosub Slaughter send "QY^M" turnoff capture display "^MEnd of LORDRobo script." exit Attention: beep 1200 timeout 5 Attention when waitfor "? :" timeout 120 return Bank: when ;Deposits funds into the bank. waitfor "? :" delay 1000 send "Y" waitfor "? :" delay 1000 send "D" waitfor "AMOUNT:" delay 1000 send "1^M" waitfor "? :" delay 1000 send "R" return Cloak: when when "" " " waitfor "? :" ;Converse with the patrons send "C" waitfor "(C)ontinue (A)dd to Conversation [C]:" send "A" waitfor ">" send "Lord Robo rules!^M" send "R" goto Forest Forest: when when "" " " ;going to Forest waitfor "? :" delay 1000 send "F" ;look for something to kill waitfor "? :" delay 1000 send "L" when "(D)eath Knight Attack" "D" when "Dark Cloak Tavern" Cloak when "command, Deadliner? [A] :" "A" when "Do you take the old man? [Y] :" "Y" when "Give her the gem? [N] :" "N" when "? :" Recover when "Gems: 2" Gems waitfor "You are too tired. Try again tomorrow." when when "" " " waitfor "? :" delay 1000 send "R" return Gems: when ;Return to Town Square waitfor "? :" delay 1000 send "R" ;Go to the Inn waitfor "? :" delay 1000 send "I" ;Talk to the Bartender about Gems waitfor "? :" delay 1000 send "T" when when "" " " when "Well?" "G" when "Trade? [Y] :" "Y" when "(H)it Points" "H" waitfor "Find some..." when when "" " " ;Return to the main part of Inn waitfor "? :" delay 1000 send "R" ;Return to the Town Square waitfor "? :" delay 1000 send "R" goto Recover Inn: when when "" " " waitfor "? :" delay 1000 send "I" ;Flirt with Violet waitfor "? :" delay 1000 send "F" when "Your choice? (? for menu) :" "W" waitfor "? :" delay 1000 ;Hear Seth Able the Bard send "H" waitfor "? :" delay 1000 send "A" waitfor "? :" delay 1000 send "R" ;Converse with the patrons send "C" waitfor "(C)ontinue (A)dd to Conversation [C]:" send "A" waitfor ">" send "^M" ;Return to the Town Square. waitfor "? :" delay 1000 send "R" return Name: ;This is a good place for co-authors to add their names. when when "" " " delay 1000 send "Lord Robo^M"; when "(Y/N) [Y] :" Start waitfor "You decide to pick another name." delay 1000 send "Deadliner's Monster^M" when "(Y/N) [Y] :" Start waitfor "You decide to pick another name." delay 1000 send "Cognomen's Contraption^M" when "(Y/N) [Y] :" Start waitfor "You decide to pick another name." display "LORDRobo script: Please enter a name." goto Start Panoply: when when "" " " ;Withdraw funds from the bank. waitfor "? :" delay 1000 send "Y" waitfor "? :" delay 1000 send "W" waitfor "AMOUNT :" delay 1000 send "1^M" waitfor "? :" delay 1000 send "R" ;Upgrade armor waitfor "? :" delay 1000 send "A" waitfor "? :" delay 1000 send "B" display "^MLORDRobo will resume when you return to Town Square." waitfor "Town Square" ;Upgrade weapon waitfor "? :" delay 1000 send "K" waitfor "? :" delay 1000 send "B" display "^MLORDRobo will resume when you return to Town Square." waitfor "Town Square" ;Re-deposit left-over gold. gosub Bank return Recover: when when "" " " ;Heal up delay 1000 send "H" waitfor "Healers" waitfor "? :" delay 1000 send "H" ;Return to Town Square waitfor "? :" delay 1000 send "R" gosub Bank goto Forest Slaughter: delay 1000 send "S" when ;when "" " " waitfor "? :" delay 1000 send "L" display "^MLORDRobo will resume when you return to Town Square." waitfor "Town Square" return Start: ;Handles situation where script activated before Town Square. when when "" " " when "[C] :" "C" when "Your choice, warrior? :" "E" when "Press any key" " " when "Your choice? [Y] :" "Y" when "NAME:" Name when "(Y/N) [Y] :" "Y" when "And your gender? (M/F) [M]:" "M" when "Pick one. (K,D,L) :" "K" waitfor "? :" delay 1000 send "^M" return Stats: when waitfor "? :" delay 1000 send "V" gosub Attention return Training: waitfor "? :" delay 1000 send "T" ;Question the Master. waitfor "? :" delay 1000 send "Q" ;Attack the Master. waitfor "? :" delay 1000 send "A" ;Attack the master when when "" " " when "command, Deadliner? [A] :" "A" ;return to Town Square waitfor "? :" delay 1000 send "R" return