Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Start:
- put Go Port
- pause 1
- PUT Search
- waitforre Roundtime:|try again in a bit|need a free hand to|You search around|As you begin to search the area
- if $lefthand != empty then gosub StowStart
- MATCH north : north.
- MATCH northeast : northeast.
- MATCH northwest : northwest.
- MATCH southeast : southeast.
- MATCH southwest : southwest.
- MATCH east : east.
- MATCH west : west.
- MATCH south : south.
- MATCH north north,
- MATCH north north.
- MATCH northeast , northeast
- MATCH northwest , northwest
- MATCH west , west,
- MATCH west , west.
- MATCH east , east,
- MATCH east , east.
- MATCH southeast , southeast
- MATCH southwest , southwest
- MATCH south , south,
- MATCH south , south.
- PUT Stand
- pause 1
- PUT Look
- matchwait
- north:
- Move north
- put search
- waitforre Roundtime:|try again in a bit|need a free hand to|You search around|As you begin to search the area
- if $lefthand != empty then gosub StowStart
- PUT Stand
- pause 1
- if $up = 1 then goto Start
- if $southwest = 1 then goto southwest
- if $west = 1 then goto west
- if $northwest = 1 then goto northwest
- if $north = 1 then goto north
- if $northeast = 1 then goto northeast
- if $east = 1 then goto east
- if $southeast = 1 then goto southeast
- Goto south
- northeast:
- MOVE northeast
- put search
- waitforre Roundtime:|try again in a bit|need a free hand to|You search around|As you begin to search the area
- if $lefthand != empty then gosub StowStart
- PUT Stand
- pause 1
- if $up = 1 then goto Start
- if $west = 1 then goto west
- if $northwest = 1 then goto northwest
- if $north = 1 then goto north
- if $northeast = 1 then goto northeast
- if $east = 1 then goto east
- if $southeast = 1 then goto southeast
- if $south = 1 then goto south
- GOTO southwest
- northwest:
- MOVE northwest
- PUT Search
- waitforre Roundtime:|try again in a bit|need a free hand to|You search around|As you begin to search the area
- if $lefthand != empty then gosub StowStart
- PUT Stand
- pause 1
- if $up = 1 then goto Start
- if $south = 1 then goto south
- if $southwest = 1 then goto southwest
- if $west = 1 then goto west
- if $northwest = 1 then goto northwest
- if $north = 1 then goto north
- if $northeast = 1 then goto northeast
- if $east = 1 then goto east
- GOTO southeast
- west:
- MOVE west
- PUT Search
- waitforre Roundtime:|try again in a bit|need a free hand to|You search around|As you begin to search the area
- if $lefthand != empty then gosub StowStart
- PUT Stand
- pause 1
- if $up = 1 then goto Start
- if $southeast = 1 then goto southeast
- if $south = 1 then goto south
- if $southwest = 1 then goto southwest
- if $west = 1 then goto west
- if $northwest = 1 then goto northwest
- if $north = 1 then goto north
- if $northeast = 1 then goto northeast
- goto east
- east:
- MOVE east
- PUT Search
- waitforre Roundtime:|try again in a bit|need a free hand to|You search around|As you begin to search the area
- if $lefthand != empty then gosub StowStart
- PUT Stand
- pause 1
- if $up = 1 then goto Start
- if $northwest = 1 then goto northwest
- if $north = 1 then goto north
- if $northeast = 1 then goto northeast
- if $east = 1 then goto east
- if $southeast = 1 then goto southeast
- if $south = 1 then goto south
- if $southwest = 1 then goto southwest
- goto west
- south:
- MOVE south
- PUT Search
- waitforre Roundtime:|try again in a bit|need a free hand to|You search around|As you begin to search the area
- if $lefthand != empty then gosub StowStart
- PUT Stand
- pause 1
- if $up = 1 then goto Start
- if $northeast = 1 then goto northeast
- if $east = 1 then goto east
- if $southeast = 1 then goto southeast
- if $south = 1 then goto south
- if $southwest = 1 then goto southwest
- if $west = 1 then goto west
- if $northwest = 1 then goto northwest
- Goto north
- southeast:
- Move southeast
- PUT Search
- waitforre Roundtime:|try again in a bit|need a free hand to|You search around|As you begin to search the area
- if $lefthand != empty then gosub StowStart
- PUT Stand
- pause 1
- if $up = 1 then goto Start
- if $north = 1 then goto north
- if $northeast = 1 then goto northeast
- if $east = 1 then goto east
- if $southeast = 1 then goto southeast
- if $south = 1 then goto south
- if $southwest = 1 then goto southwest
- if $west = 1 then goto west
- goto northwest
- southwest:
- MOVE southwest
- PUT Search
- waitforre Roundtime:|try again in a bit|need a free hand to|You search around|As you begin to search the area
- if $lefthand != empty then gosub StowStart
- PUT Stand
- pause 1
- if $up = 1 then goto Start
- if $east = 1 then goto east
- if $southeast = 1 then goto southeast
- if $south = 1 then goto south
- if $southwest = 1 then goto southwest
- if $west = 1 then goto west
- if $northwest = 1 then goto northwest
- if $north = 1 then goto north
- goto northeast
- StowStart:
- if $lefthandnoun = chain then gosub Stow.left
- if $lefthandnoun = bloodrune then gosub Stow.left
- if $lefthandnoun = sack then gosub Stow.left
- if $lefthandnoun = textbook then gosub Stow.left
- if $lefthandnoun = bloodscrip then gosub Stow.left
- if $lefthand != Empty then gosub empty.left
- return
- Stow.left:
- PUT Stow Left
- waitforre ^Stow what?|^You put your
- return
- empty.left:
- PUT Empty Left
- return
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement