User:DekeFantle: Difference between revisions
Jump to navigation
Jump to search
No edit summary |
(Replaced content with 'I am the Fentle, unless you played Space Merchant you have no idea what that means. *chuckle* Just writing something to "get the red out". Any old HOA members out there?, l...') |
||
| (One intermediate revision by the same user not shown) | |||
| Line 4: | Line 4: | ||
Any old HOA members out there?, look for a dwarf that has the glint of laser cannons (maybe lightning bolts) in his eyes and give him the high sign. |
Any old HOA members out there?, look for a dwarf that has the glint of laser cannons (maybe lightning bolts) in his eyes and give him the high sign. |
||
<pre> |
|||
#************************************************************************************** |
|||
# SUB_LISTEN |
|||
# |
|||
# USAGE; |
|||
# GoSub SUB_LISTEN |
|||
# [Next Statement/Action] |
|||
# Use SUB_RETURN to exit |
|||
#************************************************************************************** |
|||
SUB_LISTEN: |
|||
GoTo DISCOVER-TEACHER |
|||
DISCOVER-TEACHERW: |
|||
Pause |
|||
DISCOVER-TEACHER: |
|||
SetVariable LISTENING FALSE |
|||
SetVariable PREFERED-TEACHER1 UNKNOWN |
|||
SetVariable PREFERED-TEACHER2 UNKNOWN |
|||
SetVariable PREFERED-TEACHER3 UNKNOWN |
|||
SetVariable PREFERED-TEACHER4 UNKNOWN |
|||
SetVariable PREFERED-TEACHER5 UNKNOWN |
|||
SetVariable PREFERED-TEACHER6 UNKNOWN |
|||
SetVariable TEACHER UNKNOWN |
|||
SetVariable CURRENT-TEACHER UNKNOWN |
|||
action setvariable CURRENT-TEACHER $1 when (.+) is teaching a class .* You are in this class |
|||
action setvariable PREFERED-TEACHER6 $1 when (.+) is teaching a class .* Evasion which is still open to new students |
|||
action setvariable PREFERED-TEACHER5 $1 when (.+) is teaching a class .* Parry which is still open to new students |
|||
action setvariable PREFERED-TEACHER4 $1 when (.+) is teaching a class .* Multi Opponent which is still open to new students |
|||
action setvariable PREFERED-TEACHER3 $1 when (.+) is teaching a class .* Heavy Edged which is still open to new students |
|||
action setvariable PREFERED-TEACHER2 $1 when (.+) is teaching a class .* Disarm Traps which is still open to new students |
|||
action setvariable PREFERED-TEACHER1 $1 when (.+) is teaching a class .* Targeted Magic which is still open to new students |
|||
action setvariable DEFAULT-TEACHER $1 when (.+) is teaching a class |
|||
action SetVariable LISTENING TRUE when You are in this class! |
|||
Match SUB_RETURN You are teaching a class |
|||
Match TRY2TEACH No one seems to be teaching |
|||
Match SET-TEACHER roundtime |
|||
Matchre DISCOVER-TEACHERW /sorry,|\.\.\.wait/i |
|||
put asses teach |
|||
MatchWait 20 |
|||
GoTo DISCOVER-TEACHER |
|||
TRY2TEACH: |
|||
GoSub SUB_TEACH |
|||
return |
|||
SET-TEACHER: |
|||
Pause 3 |
|||
ECHO SET-TEACHER: LISTENING = %LISTENING |
|||
If %LISTENING = "TRUE" then GoTo CHECK-BETTER-TEACHER1 |
|||
If %PREFERED-TEACHER1 != "UNKNOWN" then GoTo SET-PREFERED-TEACHER1 |
|||
If %PREFERED-TEACHER2 != "UNKNOWN" then GoTo SET-PREFERED-TEACHER2 |
|||
If %PREFERED-TEACHER3 != "UNKNOWN" then GoTo SET-PREFERED-TEACHER3 |
|||
If %PREFERED-TEACHER4 != "UNKNOWN" then GoTo SET-PREFERED-TEACHER4 |
|||
If %PREFERED-TEACHER5 != "UNKNOWN" then GoTo SET-PREFERED-TEACHER5 |
|||
If %PREFERED-TEACHER6 != "UNKNOWN" then GoTo SET-PREFERED-TEACHER6 |
|||
If %TEACHER6 != "UNKNOWN" then GoTo SET-DEFAULT-TEACHER |
|||
CHECK-BETTER-TEACHER1: |
|||
ECHO CHECK-BETTER-TEACHER1: |
|||
If %PREFERED-TEACHER1 != "UNKNOWN" && %PREFERED-TEACHER1 = %CURRENT-TEACHER then return |
|||
If %PREFERED-TEACHER1 != "UNKNOWN" && %PREFERED-TEACHER1 != %CURRENT-TEACHER then GoTo STOP-LISTENING |
|||
If %PREFERED-TEACHER2 != "UNKNOWN" && %PREFERED-TEACHER2 = %CURRENT-TEACHER then return |
|||
If %PREFERED-TEACHER2 != "UNKNOWN" && %PREFERED-TEACHER2 != %CURRENT-TEACHER then GoTo STOP-LISTENING |
|||
If %PREFERED-TEACHER3 != "UNKNOWN" && %PREFERED-TEACHER3 = %CURRENT-TEACHER then return |
|||
If %PREFERED-TEACHER3 != "UNKNOWN" && %PREFERED-TEACHER3 != %CURRENT-TEACHER then GoTo STOP-LISTENING |
|||
If %PREFERED-TEACHER4 != "UNKNOWN" && %PREFERED-TEACHER4 = %CURRENT-TEACHER then return |
|||
If %PREFERED-TEACHER4 != "UNKNOWN" && %PREFERED-TEACHER4 != %CURRENT-TEACHER then GoTo STOP-LISTENING |
|||
If %PREFERED-TEACHER5 != "UNKNOWN" && %PREFERED-TEACHER5 = %CURRENT-TEACHER then return |
|||
If %PREFERED-TEACHER5 != "UNKNOWN" && %PREFERED-TEACHER5 != %CURRENT-TEACHER then GoTo STOP-LISTENING |
|||
If %PREFERED-TEACHER6 != "UNKNOWN" && %PREFERED-TEACHER6 = %CURRENT-TEACHER then return |
|||
If %PREFERED-TEACHER6 != "UNKNOWN" && %PREFERED-TEACHER6 != %CURRENT-TEACHER then GoTo STOP-LISTENING |
|||
Else return |
|||
SET-PREFERED-TEACHER1: |
|||
SetVariable WHO2LISTEN2 %PREFERED-TEACHER1 |
|||
GoTo LISTEN-UP |
|||
SET-PREFERED-TEACHER2: |
|||
SetVariable WHO2LISTEN2 %PREFERED-TEACHER2 |
|||
GoTo LISTEN-UP |
|||
SET-PREFERED-TEACHER3: |
|||
SetVariable WHO2LISTEN2 %PREFERED-TEACHER3 |
|||
GoTo LISTEN-UP |
|||
SET-PREFERED-TEACHER4: |
|||
SetVariable WHO2LISTEN2 %PREFERED-TEACHER4 |
|||
GoTo LISTEN-UP |
|||
SET-PREFERED-TEACHER5: |
|||
SetVariable WHO2LISTEN2 %PREFERED-TEACHER5 |
|||
GoTo LISTEN-UP |
|||
SET-PREFERED-TEACHER6: |
|||
SetVariable WHO2LISTEN2 %PREFERED-TEACHER6 |
|||
GoTo LISTEN-UP |
|||
SET-DEFAULT-TEACHER: |
|||
SetVariable WHO2LISTEN2 %DEFAULT-TEACHER |
|||
GoTo LISTEN-UP |
|||
LISTEN-UPW: |
|||
Pause |
|||
LISTEN-UP: |
|||
Match SUB_RETURN closed the class to new students |
|||
Match LISTENING You begin to listen |
|||
Match STOP-LISTENING You are already listening to someone |
|||
Match DISCOVER-TEACHER I could not find who you were referring to |
|||
Matchre LISTEN-UPW /sorry,|\.\.\.wait/i |
|||
put listen to %WHO2LISTEN2 |
|||
MatchWait 20 |
|||
GoTo DISCOVER-TEACHER |
|||
STOP-LISTENINGW: |
|||
Pause |
|||
STOP-LISTENING: |
|||
Match DISCOVER-TEACHER You stop listening |
|||
Match DISCOVER-TEACHER But you aren't listening to anyone |
|||
Matchre STOP-LISTENINGW /sorry,|\.\.\.wait/i |
|||
put stop listen |
|||
MatchWait 20 |
|||
GoTo DISCOVER-TEACHER |
|||
LISTENING: |
|||
action remove (.+) is teaching a class .* You are in this class |
|||
action remove (.+) is teaching a class .* Evasion which is still open to new students |
|||
action remove (.+) is teaching a class .* Parry which is still open to new students |
|||
action remove (.+) is teaching a class .* Multi Opponent which is still open to new students |
|||
action remove (.+) is teaching a class .* Heavy Edged which is still open to new students |
|||
action remove (.+) is teaching a class .* Disarm Traps which is still open to new students |
|||
action remove (.+) is teaching a class .* Targeted Magic which is still open to new students |
|||
action remove (.+) is teaching a class |
|||
action remove You are in this class! |
|||
SetVariable LISTENING TRUE |
|||
return |
|||
# END SUB |
|||
#************************************************************************************** |
|||
#************************************************************************************** |
|||
</pre> |
|||
Latest revision as of 20:32, 7 June 2009
I am the Fentle, unless you played Space Merchant you have no idea what that means. *chuckle*
Just writing something to "get the red out".
Any old HOA members out there?, look for a dwarf that has the glint of laser cannons (maybe lightning bolts) in his eyes and give him the high sign.