API tools faq
paste
westor

iTNA.NET GameBot fix for Sherby v2.2

westor
May 31st, 2020
722
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
mIRC 24.50 KB | None | 0 0
raw download clone embed print report
  1. ;;; >> Connection EVENT ;;;
  2.  
  3. ON *:CONNECT: {
  4.   if ($setread(settings,password)) { .timer 1 2 .msg NickServ identify $v1 }
  5.   if ($setread(settings,channel)) { .timer 1 3 join $v1 }
  6. }
  7.  
  8. ;;; << Connection EVENT ;;;
  9.  
  10. ;;; >> Joining EVENT ;;;
  11.  
  12. ON *:JOIN:$($setread(settings,channel)): {
  13.   if ($nick == $setread(settings,refbot)) { msg $nick !identify $setread(settings,password) }
  14. }
  15.  
  16. ;;; << Joining EVENT ;;;
  17.  
  18. ;;; >> Noticing EVENT ;;;
  19.  
  20. ON *:NOTICE:*:?: {
  21.   if ($nick !== $setread(settings,refbot)) { return }
  22.  
  23.   tokenize 32 $strip($1-)
  24.  
  25.   if (*pick another move* iswm $1-) { unset %down | movetodo large }
  26.   if (*please identify!* iswm $1-) { msg $nick !identify $setread(settings,password) | msg $nick !AI ON }
  27.   if (*any more finishers*different move* iswm $1-) { unset %down | set %finishers used | .timer 1 2 movetodo large }
  28.   if (*now your turn* iswm $1-) { unset %down %knocked_opponent | .timer 1 3 msg $setread(settings,channel) !h }
  29.   if (*you need to knock* iswm $1-) { set %movetodo large | unset %down | .timer 1 3 msg $setread(settings,channel) !h }
  30.   if (*still your* iswm $1-) { unset %down | .timer 1 3 msg $setread(settings,channel) !h }
  31.  
  32.   if (*enough*cash*in*your*bank*account* iswm $1-) {
  33.     msg $setread(settings,channel) 00,03What the hell, fam! I'm too broke for a god damn healme card? WEAK STUFF!
  34.     msg $setread(settings,channel) 00,03Please donate to the *AUTO BOT* fund. Need to buy perks to beat your lame asses! :D
  35.   }
  36.  
  37. }
  38.  
  39. ;;; << Noticing EVENT ;;;
  40.  
  41. ;;; >> Texting EVENT ;;;
  42.  
  43. ON *:TEXT:*:$($setread(settings,channel)): {
  44.   tokenize 32 $strip($1-)
  45.  
  46.   if ($1 == !aimatch) { msg $chan 01,07Match types I can do:0 !KnockOut01,0 !Hardcore01,0 !eXtreme01,0 !Regular01,0 !BarbedWire01, 0!FirstBlood01. }
  47.  
  48.   if ($1 == !AutoBot) {
  49.     if (!$2) { notice $nick 02Correct syntax is: !AutoBot ON/OFF, ID , Regular, Hardcore, eXtreme or Roulette. | return }
  50.  
  51.     if ($2 == id) { msg $setread(settings,refbot) !Identify $setread(settings,password) | msg $setread(settings,channel) 00,03Authentification in progress... }
  52.     if ($2 == regular) { msg $setread(settings,channel) !match Regular 1on1 Pentagon $nick crowd/off none none | unsetall }
  53.     if ($2 == hardcore) { msg $setread(settings,channel) !match Hardcore 1on1 Pentagon $nick crowd/off none none | unsetall }
  54.     if ($2 == eXtreme) { msg $setread(settings,channel) !match eXtreme 1on1 Pentagon $nick crowd/off none none }
  55.     if ($2 == Table) { msg $setread(settings,channel) !match Table 1on1 Pentagon $nick crowd/off none none }
  56.     if ($2 == BoilerRoom) { msg $setread(settings,channel) !match BoilerRoom 1on1 Pentagon $nick crowd/off none none }
  57.  
  58.     if ($2 == off) && ($nick == $setread(settings,owner)) {
  59.       msg $setread(settings,channel) 15,03Setting mode *OFFLINE* by $nick $+ .
  60.  
  61.       away 04I'm now *OFF*, please wait until my owner sets me back *ON*
  62.  
  63.       nick $setread(settings,botnick) $+ [OFF]
  64.     }
  65.  
  66.     if ($2 == on) && ($nick == $setread(settings,owner)) {
  67.       msg $setread(settings,channel) 15,03Setting mode *ONLINE* by $nick $+ .
  68.  
  69.       away
  70.  
  71.       nick $setread(settings,botnick)
  72.  
  73.       nsident
  74.  
  75.       msg $setread(settings,refbot) !identify $setread(settings,password)
  76.     }
  77.  
  78.     if ($2 == roulette) {
  79.       var %rand = $rand(1,3)
  80.  
  81.       if (%rand == 1) { msg $setread(settings,channel) !match regular 1on1 Pentagon $nick crowd/off none none }
  82.       if (%rand == 2) { msg $setread(settings,channel) !match hardcore 1on1 Pentagon $nick crowd/off none none }
  83.       if (%rand == 3) { msg $setread(settings,channel) !match eXtreme 1on1 Pentagon $nick crowd/off none none }
  84.     }
  85.   }
  86.  
  87.   if ($1 == !match) {
  88.     if ($chr(36) isin $1-) { return }
  89.  
  90.     set %int interference:off
  91.  
  92.     if (%match) { return }
  93.     if ($me !isin $1-) { return }
  94.  
  95.     if (%off) { .timer 1 2 msg $chan !stop | return }
  96.  
  97.     if (health:off isin $1-) { .timer 1 2 msg $chan !stop | .timer 1 2 msg $chan 07,01I cannot fight 00health:off07 matches. | return }
  98.     if (FlamingTable isin $1-) { .timer 1 2 msg $chan !stop | .timer 1 2 msg $chan 07,01I cannot fight 00FlamingTable07 matches. | return }
  99.     if (Casket isin $1-) { .timer 1 2 msg $chan !stop | .timer 1 2 msg $chan 07,01I cannot fight 00Casket07 matches. | return }
  100.     if (Submission isin $1-) { .timer 1 2 msg $chan !stop | .timer 1 2 msg $chan 07,01I cannot fight 00Submission07 matches. | return }
  101.     if (interference:off !isin $1-) { .timer 1 2 msg $chan !stop | .timer 1 2 msg $chan 07,01I cannot fight 00Interference:On07 matches. | return }
  102.  
  103.     if (hardcore 1on1 !isin $1-) && (hardcore barbedwire !isin $1-) && (hardcore submission !isin $1-) && (boilerroom 1on1 !isin $1-) && (hardcore firstblood !isin $1-) && (regular 1on1 !isin $1-) && (knockout 1on1 !isin $1-) && (table 1on1 !isin $1-) && (Interference:off !isin $1-) && (ironman 1on1 !isin $1-) && (strap 1on1 !isin $1-) {
  104.       .timer 1 2 msg $chan !stop
  105.       .timer 1 2 msg $chan 07,01I cannot fight 00This type07 of match.
  106.  
  107.       return
  108.     }
  109.   }
  110.  
  111.   if ($nick !== $setread(settings,refbot)) { return }
  112.  
  113.   if (* $+ $me $+ *Not*Identified* iswm $1-) { msg $nick !identify $setread(settings,password) }
  114.   if (*submission on $me $+ * iswm $1-) { .timer 1 4 describe $chan attempts to slip out of the submission. | .timersubbycheck 1 3 msg $chan !h }
  115.   if (*slammed the steel boiler room door shut*unable to escape* iswm $1-) { unset %down | set %boilerdoor closed }
  116.   if (*has just opened the boiler room door* iswm $1-) { unset %down | set %boilerdoor open }
  117.   if (*has just closed the boiler room door* iswm $1-) { unset %down | set %boilerdoor closed }
  118.   if (*just put his opponent on the stretcher* iswm $1-) { unset %down | set %stretcher on | describe $chan climbs off the stretcher }
  119.   if (*managed to get off the stretcher* iswm $1-) { unset %down %stretcher }
  120.   if (*managed to avoid being pushed over the line* iswm $1-) { unset %down | describe $chan climbs off the stretcher | set %stretcher on }
  121.   if (*has just shoved the referee down* iswm $1-) { unset %down | describe $chan wakes ref }
  122.   if (*is taking too long to move* $+ $me $+ *turn* iswm $1-) { unset %down | .timer 1 2 movetodo striking }
  123.   if (*sent reeling* $+ $me $+ *another move* iswm $1-) { unset %down | .timer 1 3 msg $chan !h }
  124.   if (* $+ $me $+ *whipped*into the ropes*next move* iswm $1-) { unset %down | .timer 1 6 msg $chan !h }
  125.   if (*wasn't able to get that weapon move off* $+ $me make a move now* iswm $1-) { unset %down }
  126.   if (*DING*DING*Your*Winner* iswm $1-) && (!%entrancescam) { unsetall }
  127.   if (*has just brought a table into the ring* iswm $1-) { unset %down | inc %tablein }
  128.   if (*the current match is being called off* iswm $1-) { unsetall }
  129.   if (* $+ $me was able*to*stay*offensive* iswm $1-) { unset %down | .timer 1 3 msg $chan !h }
  130.   if (* $+ $me make a move now* iswm $1-) { set %down on | .timer 1 3 msg $chan !h }
  131.  
  132.   if (*sustained a mild injury during this match* iswm $1-) && ($me isin $1-) {
  133.     msg $setread(settings,channel) !buy HealMe-Card
  134.  
  135.     .timer 1 10 msg $setread(settings,channel) !healme
  136.     .timer 1 11 msg $setread(settings,channel) 15,03Ahh... feeling much better now! That was a 08MILD15 injury, no biggie!
  137.   }
  138.  
  139.   if (*sustained a serious injury during this match* iswm $1-) && ($me isin $1-) {
  140.     msg $setread(settings,channel) !buy HealMe-Card
  141.  
  142.     .timer 1 10 msg $setread(settings,channel) !healme
  143.     .timer 1 11 msg $setread(settings,channel) 15,03Ahh... feeling much better now. That was a 08SERIOUS15 injury, bruv!
  144.   }
  145.  
  146.   if (*DING...DING...DING...*Your Winner* $+ $me $+ * iswm $1-) {
  147.     unsetall
  148.  
  149.     unset %movetodo
  150.     unset %downsick
  151.     unset %down
  152.  
  153.     var %txt = $mircdir $+ ai\GMquote.txt
  154.  
  155.     if (!$file(%txt)) { return }
  156.  
  157.     .timerupdatemsg 1 3 msg $chan  $+ $read(%txt) $+ 
  158.   }
  159.  
  160.   if (*knocked* $+ $me $+ *another move* iswm $1-) {
  161.     set %down on
  162.     set %knocked_opponent 1
  163.  
  164.     if (%match == table) { .timer 1 5 msg $chan !h | return }
  165.     if (%match == strap) { .timer 1 3 describe $chan tries to touch a turnbuckle. | return }
  166.  
  167.     .timer 1 2 msg $chan !h
  168.   }
  169.  
  170.   if (*unable*deliver that move.* $+ $me $+ *should make a move now* iswm $1-) {
  171.     set %down on
  172.  
  173.     if (%match == table) { .timer 1 8 msg $chan !h | return }
  174.     if (%match == strap) { .timer 1 3 describe $chan tries to touch a turnbuckle. | return }
  175.  
  176.     .timer 1 3 msg $chan !h
  177.   }
  178.  
  179.   if (*from getting off the stretcher* iswm $1-) {
  180.     unset %down
  181.  
  182.     describe $chan climbs of the stretcher
  183.     describe $chan pushes his opponents stretcher accross the finish line
  184.  
  185.     set %stretcher on
  186.   }
  187.  
  188.   if (*match*called off* iswm $1-) { unsetall | unset %move }
  189.  
  190.   if (*vs*crowd*title* iswm $1-) {
  191.     if ($chr(36) isin $1-) { return }
  192.  
  193.     if (%match) { return }
  194.     if ($me !isin $1-) { return }
  195.  
  196.     unsetall
  197.  
  198.     if (hardcore isin $1-) { set %match hardcore }
  199.     if (regular isin $1-) { set %match regular }
  200.     if (barbedwire isin $1-) { set %match barbedwire }
  201.     if (deathmatch isin $1-) { set %match deathmatch | set %nopin on }
  202.     if (firstblood isin $1-) { set %match firstblood | set %nopin on }
  203.     if (knockout isin $1-) { set %match knockout | set %nopin on }
  204.     if (ironman isin $1-) { set %match hardcore }
  205.     if (table isin $1-) { set %match table | set %nopin on | set %tablein 0 | set %tableset 0 }
  206.     if (strap isin $1-) { set %match strap | set %nopin on | set %nowhip on }
  207.     if (boiler room isin $1-) { set %match boiler | set %nopin on | set %boilerdoor closed }
  208.     if (eXtreme 1on1 isin $1-) { set %match extreme | .timercheck 1 3 msg $setread(settings,channel) !h }
  209.     if (Stretcher isin $1-) { set %match stretcher | set %nopin on }
  210.  
  211.     .timer 1 4 movetodo striking
  212.  
  213.     set -u10 %entrancescam activated
  214.   }
  215.  
  216.   if (*has just set a table up*watch out* iswm $1-) {
  217.     unset %down
  218.  
  219.     inc %tableset
  220.     dec %tablein
  221.  
  222.     if (%tablein < 0) { set %tablein 0 }
  223.   }
  224.  
  225.   if (*just cleared*table out of the ring* iswm $1-) {
  226.     unset %down
  227.  
  228.     dec %tablein
  229.  
  230.     if (%tablein < 0) { set %tablein 0 }
  231.   }
  232.  
  233.   if (*has just knocked*table over* iswm $1-) {
  234.     unset %down
  235.  
  236.     dec %tablese
  237.  
  238.     if (%tableset < 0) { set %tableset 0 }
  239.   }
  240.  
  241.   if (*has been put through a table* iswm $1-) {
  242.     unset %down
  243.  
  244.     dec %tableset
  245.  
  246.     if (%tableset < 0) { set %tableset 0 }
  247.   }
  248.  
  249.   if (*Health:* iswm $1-) {
  250.     if ($chr(36) isin $1-) { return }
  251.     if (* $+ $me $+ (TURN)* !iswm $1-) { return }
  252.  
  253.     if ($removecs($gettok($1-,2,32),(TURN)) == $me) {
  254.       var %opponent = $removecs($gettok($gettok($1-,4,58),2,32),(TURN))
  255.       var %hp = $remove($gettok($gettok($1-,5,58),1,91),$chr(40))
  256.       var %myhp = $remove($gettok($gettok($1-,3,58),1,91),$chr(40))
  257.       var %fins = $remove($gettok($gettok($1-,6,32),2,91),$chr(93),$chr(41))
  258.       var %myfins = $remove($gettok($gettok($1-,3,32),2,91),$chr(93),$chr(41))
  259.     }
  260.     else {
  261.       var %opponent = $removecs($gettok($gettok($1-,2,58),1,32),(TURN))
  262.       var %hp = $remove($gettok($gettok($1-,3,58),1,91),$chr(40))
  263.       var %myhp = $remove($gettok($gettok($1-,5,58),1,91),$chr(40))
  264.       var %fins = $remove($gettok($gettok($1-,3,32),2,91),$chr(93),$chr(41))
  265.       var %nyfins = $remove($gettok($gettok($1-,6,32),2,91),$chr(93),$chr(41))
  266.     }
  267.  
  268.     ; msg $chan DEBUG: % $+ opponent == %opponent ----- % $+ hp == %hp ----- % $+ fins == %fins ----- % $+ myhp == %myhp ---- % $+ myfins == %myfins
  269.  
  270.     if (%hp isnum 90-100) { movetodo striking | return }
  271.     if (%hp isnum 85-89) { movetodo small | return }
  272.     if (%hp isnum 75-84) { movetodo smallmedium | return }
  273.     if (%hp isnum 70-74) { movetodo medium | return }
  274.     if (%hp isnum 65-69) { movetodo mediumlarge | return }
  275.     if (%hp isnum 34-64) { movetodo large | return }
  276.     if (%hp isnum 33-0) {
  277.       if (%myfins) { movetodo finisher | return }
  278.  
  279.       if (!%knocked_opponent) { movetodo large }
  280.  
  281.       return
  282.     }
  283.  
  284.     if (%hp < 0) {
  285.  
  286.       ; msg $chan % $+ hp IS LOWER THAN 0 --- TRIGGER! ----- % $+ myhp == %myhp ---- % $+ hp == %hp ----
  287.  
  288.       if (%hp < %myhp) && (%knocked_opponent) {
  289.  
  290.         ; msg $chan TRIGGER LOWER LIFE -- % $+ knocked_opponent == %knocked_opponent --- % $+ nopin == %nopin
  291.  
  292.         if (!%nopin) { movetodo pin }
  293.  
  294.         return
  295.       }
  296.  
  297.       if (%finishers !== used) { movetodo finisher | return }
  298.  
  299.       if (%hp >= %myhp) {
  300.         if (%match == boiler) { boilerchecklose | return }
  301.         if (%match == stretcher) { stretcherchecklose | return }
  302.         if (%match == deathmatch) { describe $chan $iif(%down == on,throws barbedwire board,throws barbedwire) | return }
  303.  
  304.         if (%match == table) {
  305.           var %rand = $rand(1,6)
  306.  
  307.           if (%rand == 1) { movetodo large }
  308.           else { tablechecklose }
  309.  
  310.           return
  311.         }
  312.  
  313.         movetodo large
  314.         ;movetodo $iif(%nopin == on,large,pin)
  315.  
  316.         return
  317.       }
  318.  
  319.       if (%match == boiler) { boilercheckwin | return }
  320.       if (%match == stretcher) { stretchercheckwin | return }
  321.       if (%match == deathmatch) { describe $chan $iif(%down == on,asks to quit,throws barbedwire board) | return }
  322.  
  323.       if (%match == table) {
  324.         var %rand = $rand(1,6)
  325.  
  326.         if (%rand == 1) { movetodo large }
  327.         else { tablecheckwin }
  328.  
  329.         return
  330.       }
  331.  
  332.       movetodo $iif(%nopin == on,large,pin)
  333.     }
  334.   }
  335. }
  336.  
  337. ;;; << Texting EVENT ;;;
  338.  
  339. ;;; >> Aliases ;;;
  340.  
  341. alias setread { return $readini(settings.ini,n,$1,$2) }
  342.  
  343. alias movetodo {
  344.   unset %down
  345.  
  346.   if ($1 == striking) {
  347.     if (%match == extreme) { set %move chair }
  348.     if (%match == boiler) { set %move chair }
  349.     if (%match == firstblood) { set %move slap }
  350.     if (%match == barbedwire) { set %move drags face }
  351.     if (%match == deathmatch) { set %move drags face }
  352.     if (%match == table) { set %move slap }
  353.     if (%match == hardcore) { set %move slap }
  354.     if (%match == regular) { set %move dropkicks }
  355.     if (%match == strap) { set %move chokes strap }
  356.     if (%match == knockout) { set %move slaps }
  357.     if (%match == stretcher) { set %move slaps }
  358.  
  359.     describe $setread(settings,channel) %move
  360.   }
  361.  
  362.   if ($1 == small) {
  363.     if (%match == regular) { describe $setread(settings,channel) trip | return }
  364.     if (%match == deathmatch) { describe $setread(settings,channel) drags face | return }
  365.     if (%match == strap) { set %move chokes strap }
  366.  
  367.     var %rand = $rand(1,5)
  368.  
  369.     if (%rand == 1) { set %move $iif(%match == barbedwire,tries to drag his opponent's face across the barbedwire.,chair.) }
  370.     if (%rand == 2) { set %move $iif(%match == boiler,tries to connect with the steel chair!,chair.) }
  371.     if (%rand == 3) || (%rand == 4) { set %move $iif(%match = strap,tries to choke his opponent with the leather strap,chair.) }
  372.     if (%rand == 5) { set %move $iif(%match == firstblood,chair.,tries a headbutt.) }
  373.  
  374.     describe $setread(settings,channel) %move
  375.   }
  376.  
  377.   if ($1 == smallmedium) {
  378.     if (%match == regular) { describe $setread(settings,channel) DDT | return }
  379.     if (%match == deathmatch) { describe $setread(settings,channel) drags face | return }
  380.     if (%match == strap) { set %move chokes strap }
  381.  
  382.     var %rand = $rand(1,4)
  383.  
  384.     if (%rand == 1) || (%rand == 2) { set %move $iif(%match == barbedwire,tries to drag his opponent's face across the barbedwire.,chair.) }
  385.     if (%rand == 3) { set %move $iif(%match == boiler,tries to connect with the steel chair!,chair.) }
  386.     if (%rand == 4) { set %move $iif(%match = strap,tries to choke his opponent with the leather strap,chair.) }
  387.  
  388.     describe $setread(settings,channel) %move
  389.   }
  390.  
  391.   if ($1 == medium) {
  392.     if (%match == regular) { describe $setread(settings,channel) PowerSlam | return }
  393.     if (%match == deathmatch) { describe $setread(settings,channel) drags face | return }
  394.     if (%match == strap) { set %move chokes strap }
  395.  
  396.     var %rand = $rand(1,3)
  397.  
  398.     if (%rand == 1) || (%rand == 2) { set %move $iif(%match == barbedwire,tries to drag his opponent's face across the barbedwire.,chair.) }
  399.     if (%rand == 3) { set %move $iif(%match = strap,tries to choke his opponent with the leather strap,chair.) }
  400.  
  401.     describe $setread(settings,channel) %move
  402.   }
  403.  
  404.   if ($1 == mediumlarge) {
  405.     if (%match == regular) { describe $setread(settings,channel) brainbuster | return }
  406.     if (%match == deathmatch) { describe $setread(settings,channel) throws barbedwire board | return }
  407.     if (%match == strap) { set %move chokes strap }
  408.  
  409.     var %rand = $rand(1,5)
  410.  
  411.     if (%rand == 1) || (%rand == 2) || (%rand == 3) { set %move $iif(%match == barbedwire,tries to drag his opponent's face across the barbedwire.,chair.) }
  412.     if (%rand == 4) { set %move $iif(%nowhip == on,looks to deliver the fisherman's suplex.,goes for the irish whip.) }
  413.     if (%rand == 5) { set %move $iif(%match = strap,tries to choke his opponent with the leather strap,chair.) }
  414.  
  415.     .timer 1 3 describe $setread(settings,channel) %move
  416.   }
  417.  
  418.   if ($1 == large) {
  419.     if (%match == regular) { describe $setread(settings,channel) spear | return }
  420.     if (%match == deathmatch) { describe $setread(settings,channel) throws barbedwire board | return }
  421.     if (%match == stretcher) { set %move chair | return }
  422.     if (%match == strap) { set %move spear }
  423.  
  424.     var %rand = $rand(1,8)
  425.  
  426.     if (%rand == 1) { set %move $iif(%nowhip == on,tries the jackhammer!,goes for the irish whip.) }
  427.     if (%rand == 2) { set %move $iif(%match == barbedwire,tries to drag his opponent's face across the barbedwire.,is looking to deliver the powerbomb.) }
  428.     if (%rand == 3) { set %move $iif(%match == barbedwire,tries to drag his opponent's face across the barbedwire.,attempts to go sky high!) }
  429.     if (%rand == 4) { set %move $iif(%match == barbedwire,tries to drag his opponent's face across the barbedwire.,is going for the lionsault!) }
  430.     if (%rand == 5) { set %move $iif(%match == boiler,tries to connect with the steel chair!,goes for the tiger driver.) }
  431.     if (%rand == 6) { set %move $iif(%match == hardcore,tries to connect with the steel chair!,tries to connect with the twist of fate!) }
  432.     if (%rand == 7) { set %move $iif(%match == hardcore,goes for the chair shot!,is looking to nail the spear!) }
  433.     if (%rand == 8) { set %move $iif(%match = strap,tries to choke his opponent with the leather strap,spear.) }
  434.  
  435.     .timer 1 3 describe $setread(settings,channel) %move
  436.   }
  437.  
  438.   if ($1 == finisher) {
  439.     var %rand = $rand(1,7)
  440.  
  441.     if (%rand == 1) { set %move boots his opponent in the gut, looking for the stone cold stunner! }
  442.     if (%rand == 2) { set %move boots his opponent in the gut, setting them up for the pedigree! }
  443.     if (%rand == 3) { set %move is sizing up his opponent, looking to end it with the devastating gore! }
  444.     if (%rand == 4) { set %move stomps the mat, looking for some sweet chin music! }
  445.     if (%rand == 5) { set %move goes for the perfectplex! }
  446.     if (%rand == 6) { set %move $iif(%nowhip == on,goes for the F-5!,stunner.) }
  447.     if (%rand == 7) { set %move $iif(%match == hardcore,goes for the stunner,stunner!) }
  448.  
  449.     .timer 1 3 describe $setread(settings,channel) %move
  450.   }
  451.  
  452.   if ($1 == pin) {
  453.     var %rand = $rand(1,3)
  454.  
  455.     if (%rand == 1) { set %move goes for the sunset flip. }
  456.     if (%rand == 2) { set %move goes for the schoolboy. }
  457.     if (%rand == 3) { set %move goes for the cradle pin. }
  458.  
  459.     .timer 1 3 describe $setread(settings,channel) %move
  460.  
  461.     unset %down
  462.   }
  463. }
  464.  
  465. alias tablecheckwin {
  466.   if (%tableset >= 1) {
  467.     unset %down
  468.  
  469.     set %move tables
  470.  
  471.     .timer 1 3 describe $setread(settings,channel) %move
  472.  
  473.     if (%finishers == used) { movetodo large }
  474.   }
  475.  
  476.   if (%tableset < 1) {
  477.     if (%down !== on) { movetodo large | return }
  478.  
  479.     unset %down
  480.  
  481.     if (%tablein < 1) { set %move tries to get a table. }
  482.     if (%tablein >= 1) { set %move tries to set a table. }
  483.  
  484.     .timer 1 3 describe $setread(settings,channel) %move
  485.   }
  486. }
  487.  
  488. alias tablechecklose {
  489.   if (%down !== on) { movetodo large | return }
  490.  
  491.   unset %down
  492.  
  493.   if (%tableset < 1) && (%tablein < 1) { movetodo large | return }
  494.  
  495.   if (%tableset >= 1) {
  496.     var %rand = $rand(1,3)
  497.  
  498.     if (%rand == 1) { movetodo large }
  499.     else { set %move tries to knock a table over. }
  500.   }
  501.  
  502.   if (%tableset < 1) && (%tablein >= 1) {
  503.     var %rand = $rand(1,3)
  504.  
  505.     if (%rand == 1) { movetodo large }
  506.     else { set %move tries to clear a table from the ring. }
  507.   }
  508.  
  509.   .timer 1 3 describe $setread(settings,channel) %move
  510. }
  511.  
  512. alias boilercheckwin {
  513.   if (%boilerdoor == open) {
  514.     unset %down
  515.  
  516.     var %rand = $rand(1,8)  
  517.  
  518.     if (%rand == 1) { movetodo large }
  519.     else { set %move heads for the door, trying to leave the boiler room. }
  520.  
  521.     .timer 1 3 describe $setread(settings,channel) %move
  522.   }
  523.  
  524.   if (%down !== on) { movetodo large | return }
  525.  
  526.   unset %down
  527.  
  528.   set %move opens the boiler room door.
  529.  
  530.   .timer 1 3 describe $setread(settings,channel) %move
  531. }
  532.  
  533. alias stretchercheckwin {
  534.   if (%stretcher == on) {
  535.     unset %down
  536.  
  537.     var %rand = $rand(1,8)
  538.  
  539.     if (%rand == 1) { movetodo large }
  540.     else { set %move pushes his opponent's stretcher accross the finish line. }
  541.  
  542.     .timer 1 3 describe $setread(settings,channel) %move
  543.   }
  544.  
  545.   if (%down !== on) { movetodo large | return }
  546.  
  547.   unset %down
  548.  
  549.   set %move puts his opponent onto the stretcher.
  550.  
  551.   .timer 1 3 describe $setread(settings,channel) %move
  552. }
  553.  
  554. alias stretcherchecklose {
  555.   if (%stretcher !== on) { movetodo large | return }
  556.   if (%stretcher == on) && (%down !== on) { movetodo large | return }
  557.  
  558.   if (%stretcher == on) && (%down == on) {
  559.     unset %down
  560.  
  561.     var %rand = $rand(1,6)
  562.  
  563.     if (%rand == 1) { movetodo large | return }
  564.     if (%rand == 2) { set %move pushes his opponents stretcher accross the finish line. }
  565.     if (%rand >= 3) { set %move climbs off the stretcher. }
  566.  
  567.     .timer 1 3 describe $setread(settings,channel) %move
  568.   }
  569.  
  570. }
  571.  
  572. alias boilerchecklose {
  573.   if (%boilerdoor !== open) { movetodo large | return }
  574.   if (%boilerdoor == open) && (%down !== on) { movetodo large | return }
  575.  
  576.   if (%boilerdoor == open) && (%down == on) {
  577.     unset %down
  578.  
  579.     var %rand = $rand(1,6)  
  580.  
  581.     if (%rand == 1) { movetodo large | return }
  582.     if (%rand == 2) { set %move heads for the door, trying to leave the boiler room. }
  583.     if (%rand >= 3) { set %move tries to close the door. }
  584.  
  585.     .timer 1 3 describe $setread(settings,channel) %move
  586.   }
  587.  
  588. }
  589.  
  590. ;;; << Aliases ;;;
  591.  
  592. ; -------------- eof ------------
Add Comment
Please, Sign In to add comment
Public Pastes
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!