API tools faq
paste
westor

iTNA.NET AutoBot for Sherby v1.0

westor
Jun 10th, 2020
860
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
mIRC 17.95 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 (*please identify!* iswm $1-) { msg $nick !identify $setread(settings,password) | msg $nick !AI ON }
  26.   if (*you can't use any more finishers* iswm $1-) { .timer 1 2 movetodo large }
  27.   if (*you need to knock* iswm $1-) { movetodo large | check_health }
  28.   if (*pick another move* iswm $1-) { movetodo large }
  29.   if (*still your* iswm $1-) { check_health }
  30.   if (*now your turn* iswm $1-) {
  31.     ; msg $setread(settings,channel) DEBUG: RESET KNOCKED
  32.  
  33.     unset %knocked_opponent
  34.  
  35.     check_health
  36.   }
  37.  
  38.   if (*enough*cash*in*your*bank*account* iswm $1-) {
  39.     msg $setread(settings,channel) 00,03What the hell, fam! I'm too broke for a god damn healme card? WEAK STUFF!
  40.     msg $setread(settings,channel) 00,03Please donate to the *AUTO BOT* fund. Need to buy perks to beat your lame asses! :D
  41.   }
  42.  
  43. }
  44.  
  45. ;;; << Noticing EVENT ;;;
  46.  
  47. ;;; >> Texting EVENT ;;;
  48.  
  49. ON *:TEXT:*:$($setread(settings,channel)): {
  50.   tokenize 32 $strip($1-)
  51.  
  52.   if ($1 == !aimatch) { msg $chan 00,03Match types I can do02:0 Regular02,0 Hardcore02,0 eXtreme02,0 IronMan02,0 KO02,0 FirstBlood02 & 0Roulette02. | msg $setread(settings,channel) 00,03To start a match please use !AutoBot 02<00Match Type02>. }
  53.  
  54.   if ($1 == !AutoBot) {
  55.     if (!$2) { notice $nick 02Correct syntax is: !AutoBot ON/OFF, ID, Regular, Hardcore, eXtreme, IronMan, KO, FirstBlood or Roulette. | return }
  56.  
  57.     if ($2 == id) { msg $setread(settings,refbot) !Identify $setread(settings,password) | msg $setread(settings,channel) 00,03Authentification in progress... }
  58.     if ($2 == regular) { msg $chan !match Regular 1on1 Pentagon $nick crowd/off none none interference:OFF | unsetall }
  59.     if ($2 == hardcore) { msg $chan !match Hardcore 1on1 Pentagon $nick crowd/off none none interference:OFF | unsetall }
  60.     if ($2 == eXtreme) { msg $chan !match eXtreme 1on1 Pentagon $nick crowd/off none none interference:OFF | unsetall }
  61.     if ($2 == knockout) { msg $chan !match ko 1on1 Pentagon $nick crowd/off none none interference:OFF | unsetall }
  62.     if ($2 == firstblood) { msg $chan !match hardcore firstblood 1on1 Pentagon $nick crowd/off none none interference:OFF | unsetall }
  63.     if ($2 == ironman) {
  64.       if ($3 == $null) || ($3 != 15) || ($3 != 30) || ($3 != 40) || ($3 != 60) { msg $chan 00,03Please specify the duration you want for the Iron Man match (15, 30, 40 or 60). | halt }
  65.       if ($3 == 15) { msg $chan !match hardcore ironman 1on1 Pentagon $nick crowd/off none none 15 interference:OFF | unsetall }
  66.       if ($3 == 30) { msg $chan !match hardcore ironman 1on1 Pentagon $nick crowd/off none none 30 interference:OFF | unsetall }
  67.       if ($3 == 40) { msg $chan !match hardcore ironman 1on1 Pentagon $nick crowd/off none none 40 interference:OFF | unsetall }
  68.       if ($3 == 60) { msg $chan !match hardcore ironman 1on1 Pentagon $nick crowd/off none none 60 interference:OFF | unsetall }
  69.     }
  70.     if ($2 == off) && ($nick == $setread(settings,owner)) {
  71.       msg $chan 15,03Setting mode *OFFLINE* by $nick $+ .
  72.  
  73.       away 04I'm now *OFF*, please wait until my owner sets me back *ON*
  74.  
  75.       nick $setread(settings,botnick) $+ [OFF]
  76.     }
  77.  
  78.     if ($2 == on) && ($nick == $setread(settings,owner)) {
  79.       msg $chan 15,03Setting mode *ONLINE* by $nick $+ .
  80.  
  81.       away
  82.  
  83.       nick $setread(settings,botnick)
  84.  
  85.       msg $setread(settings,refbot) !identify $setread(settings,password)
  86.     }
  87.  
  88.     if ($2 == roulette) {
  89.       var %rand = $rand(1,6)
  90.  
  91.       if (%rand == 1) { msg $chan !match regular 1on1 Pentagon $nick crowd/off none none interference:OFF | unsetall }
  92.       if (%rand == 2) { msg $chan !match hardcore 1on1 Pentagon $nick crowd/off none none interference:OFF | unsetall }
  93.       if (%rand == 3) { msg $chan !match eXtreme 1on1 Pentagon $nick crowd/off none none interference:OFF | unsetall }
  94.       if (%rand == 4) { msg $chan !match ko 1on1 Pentagon $nick crowd/off none none interference:OFF | unsetall }
  95.       if (%rand == 5) { msg $chan !match hardcore firstblood 1on1 Pentagon $nick crowd/off none none interference:OFF | unsetall }
  96.       if (%rand == 6) { msg $chan !match ironman 1on1 Pentagon $nick crowd/off none none 15 interference:OFF | unsetall }
  97.     }
  98.   }
  99.  
  100.   if ($1 == !match) {
  101.     if (%match) { return }
  102.     if ($me !isin $1-) { return }
  103.  
  104.     if (health:off isin $1-) { .timer 1 2 msg $chan !stop | .timer 1 2 msg $chan 07,01I am not programmed to do 00health:off07 matches. | return }
  105.     if (Submission isin $1-) { .timer 1 2 msg $chan !stop | .timer 1 2 msg $chan 07,01I am not programmed to do 00Submission07 matches. | return }
  106.     if (interference:OFF !isin $1-) { .timer 1 2 msg $chan !stop | .timer 1 2 msg $chan 07,01I am not programmed to do 00Interference:On07 matches. | return }
  107.  
  108.     var %types = hardcore 1on1,hardcore firstblood,extreme 1on1,regular 1on1,knockout 1on1,Interference:off,ironman 1on1,table 1on1,boilerroom 1on1
  109.  
  110.     if (!$istok(%types,$2-3,44)) {
  111.       .timer 1 2 msg $chan !stop
  112.       .timer 1 2 msg $chan 07,01I am not programmed to do 00this type07 of match.
  113.  
  114.       return
  115.     }
  116.   }
  117.  
  118.   if ($nick !== $setread(settings,refbot)) { return }
  119.  
  120.   if (* $+ $me $+ *Not*Identified* iswm $1-) { msg $nick !identify $setread(settings,password) }
  121.   if (*has locked in a submission on $me $+ * iswm $1-) { set -e %submission 1 | check_health }
  122.   if (%submission) && ($1 == 1) { unset %submission | describe $chan attempts to slip out of the submission. }
  123.   if (*is taking too long to move, $me it's now your turn* iswm $1-) { .timer 1 2 movetodo striking }
  124.   if (*the current match is being called off* iswm $1-) { unsetall }
  125.  
  126.   if (*sustained a mild injury during this match* iswm $1-) && ($me isin $1-) {
  127.     msg $chan !buy HealMe-Card
  128.  
  129.     .timer 1 3 msg $chan !healme
  130.     .timer 1 4 msg $chan 15,03Ahh... feeling much better now! That was a 08MILD15 injury, no biggie!
  131.   }
  132.  
  133.   if (*sustained a serious injury during this match* iswm $1-) && ($me isin $1-) {
  134.     msg $chan !buy HealMe-Card
  135.  
  136.     .timer 1 3 msg $chan !healme
  137.     .timer 1 4 msg $chan 15,03Ahh... feeling much better now. That was a 08SERIOUS15 injury, bruv!
  138.   }
  139.  
  140.   if (*DING...DING...DING... Your Winner:* iswm $1-) {
  141.     .timers off
  142.  
  143.     unsetall
  144.  
  145.     if ($me isin $1-) {
  146.       var %txt = $mircdir $+ ai\GMquote.txt
  147.  
  148.       if (!$file(%txt)) { return }
  149.  
  150.       .timerupdatemsg 1 3 msg $chan  $+ $read(%txt) $+ 
  151.     }
  152.   }
  153.  
  154.   if (*after $me went for the pin* iswm $1-) || (*was unable to make it to his feet and deliver that move. $me should make a move now* iswm $1-) || (* $me saved themselves, getting the shoulder up before the three count* iswm $1-) || (* $me saved themselves, managing to kick out before the three count* iswm $1-) {
  155.     set -e %knocked_opponent 1
  156.  
  157.     ;  msg $chan DEBUG: ENABLED 1 KNOCKED
  158.  
  159.     check_health
  160.   }
  161.  
  162.   if (*has been knocked down* iswm $1-) && (* $+ $me make another move now* iswm $1-) {
  163.     set -e %knocked_opponent 1
  164.  
  165.     ;  msg $chan DEBUG: ENABLED 2 KNOCKED
  166.  
  167.     check_health
  168.   }
  169.  
  170.   if (%match == table) && (* $+ $me just drove* iswm $1-) && (*through the table* iswm $1-) { unset %table_order }
  171.   if (%match == table) && (*stopped $me from getting a table* iswm $1-) || (*stopped $me from setting up a table* iswm $1-) || (*has just cleared a table out the ring* iswm $1-) { unset %table_order }
  172.   if (%match == table) && (*has just brought a table into the ring* iswm $1-) || (*has just knocked a table over* iswm $1-) { set -e %table_order 1 }
  173.   if (%match == table) && (*has just set a table up, watch out* iswm $1-) && ($me !isin $1-) { set -e %table_order 3 }
  174.  
  175.   if (%match == boiler) && (* $+ $me just slammed the steel boiler room door shut* iswm $1-) && (*was unable to escape* iswm $1-) { unset %door }
  176.   if (%match == boiler) && (*stopped $me from opening the door* iswm $1-) { unset %door }
  177.   if (%match == boiler) && (*has just opened the boiler room door* iswm $1-) && ($me !isin $1-) { set -e %door 1 }
  178.  
  179.   if (*vs* iswm $1-) && (*Crowd:* iswm $1-) {
  180.     if (%match) { return }
  181.     if ($me !isin $1-) { return }
  182.  
  183.     unsetall
  184.  
  185.     if (hardcore isin $1-) { set -e %match hardcore }
  186.     if (regular isin $1-) { set -e %match regular }
  187.     if (barbedwire isin $1-) { set -e %match barbedwire }
  188.     if (deathmatch isin $1-) { set -e %match deathmatch }
  189.     if (firstblood isin $1-) { set -e %match firstblood }
  190.     if (knockout isin $1-) { set -e %match knockout }
  191.     if (ironman isin $1-) { set -e %match hardcore }
  192.     if (table isin $1-) { set -e %match table }
  193.     if (boiler room isin $1-) { set -e %match boiler }
  194.     if (strap isin $1-) { set -e %match strap }
  195.     if (eXtreme 1on1 isin $1-) { set -e %match extreme }
  196.     if (Stretcher isin $1-) { set -e %match stretcher }
  197.  
  198.     check_health
  199.   }
  200.  
  201.   if (*Health:* iswm $1-) {
  202.     if (* $+ $me $+ (TURN)* !iswm $1-) { return }
  203.  
  204.     if ($me isin $2) {
  205.       var %opponent = $remove($5,(TURN))
  206.  
  207.       var %myhp = $gettok($gettok($3,2,40),1,91)
  208.       var %myfins = $gettok($gettok($3,2,91),1,93)
  209.  
  210.       var %hp = $gettok($gettok($6,2,40),1,91)
  211.       var %fins = $gettok($gettok($6,2,91),1,93)
  212.     }
  213.  
  214.     else {
  215.       var %opponent = $remove($2,(TURN))
  216.  
  217.       var %myhp = $gettok($gettok($6,2,40),1,91)
  218.       var %myfins = $gettok($gettok($6,2,91),1,93)
  219.  
  220.       var %hp = $gettok($gettok($3,2,40),1,91)
  221.       var %fins = $gettok($gettok($3,2,91),1,93)
  222.     }
  223.  
  224.     ;  msg $chan DEBUG: % $+ opponent == %opponent ----- % $+ hp == %hp ----- % $+ fins == %fins ----- % $+ myhp == %myhp ---- % $+ myfins == %myfins >>>>>>> MATCH: %match
  225.  
  226.     if (%match == boiler) && (%hp > %myhp) && (%knocked_opponent) && (%door) { describe $chan closes boilerroom door | unset %door | return }
  227.     if (%match == boiler) && (%myhp > %hp) {
  228.  
  229.       if (%door) { describe $chan leaves boilerroom | return }
  230.       if (%knocked_opponent) && (!%door) { set -e %door 1 | describe $chan opens boilerroom door | return }
  231.     }
  232.  
  233.     if (%hp isnum 90-100) { movetodo striking | return }
  234.     if (%hp isnum 85-89) { movetodo small | return }
  235.     if (%hp isnum 75-84) { movetodo smallmedium | return }
  236.     if (%hp isnum 70-74) { movetodo medium | return }
  237.     if (%hp isnum 65-69) { movetodo mediumlarge | return }
  238.     if (%hp isnum 34-64) { movetodo large | return }
  239.     if (%hp isnum 33-0) {
  240.       if (%myfins) { movetodo finisher | return }
  241.  
  242.       if (!%knocked_opponent) { movetodo large }
  243.  
  244.       return
  245.     }
  246.  
  247.     if (%hp < 0) {
  248.       if (%hp < %myhp) && (!%knocked_opponent) && (%match == table) && (%table_order >= 2) { describe $chan puts through table | return }
  249.       if (%hp < %myhp) && (%knocked_opponent) {
  250.         if (%match == table) {
  251.           if (!%table_order) || (%table_order < 3) { inc -e %table_order 1 }
  252.  
  253.           if (%table_order == 1) { describe $chan gets table }
  254.           if (%table_order == 2) { describe $chan sets table }
  255.           if (%table_order == 3) { describe $chan puts through table }
  256.  
  257.           return
  258.         }
  259.  
  260.         movetodo pin
  261.  
  262.         return
  263.       }
  264.  
  265.       if (%myfins) { movetodo finisher | return }
  266.       if (%hp >= %myhp) { movetodo large | return }
  267.  
  268.       movetodo large
  269.     }
  270.   }
  271. }
  272.  
  273. ;;; << Texting EVENT ;;;
  274.  
  275. ;;; >> Aliases ;;;
  276.  
  277. alias -l setread { return $readini(settings.ini,n,$1,$2) }
  278.  
  279. alias -l check_health {
  280.   ; /check_health [N]
  281.   ; /check_health
  282.   ; /check_health 5
  283.  
  284.   if ($1) && ($1 isnum) { var %s = $1 }
  285.  
  286.   if (!%s) { var %s = $rand(1,5) }
  287.  
  288.   .timer[CHECK_HEALTH] 1 %s msg $setread(settings,channel) !h
  289. }
  290.  
  291. alias -l movetodo {
  292.   if (!$1) { return }
  293.  
  294.   if ($1 == striking) {
  295.     if (%match == extreme) { var %move = chair }
  296.     if (%match == boiler) { var %move = chair }
  297.     if (%match == firstblood) { var %move = slap }
  298.     if (%match == barbedwire) { var %move = drags face }
  299.     if (%match == deathmatch) { var %move = drags face }
  300.     if (%match == table) { var %move = slap }
  301.     if (%match == hardcore) { var %move = slap }
  302.     if (%match == regular) { var %move = dropkicks }
  303.     if (%match == strap) { var %move = chokes strap }
  304.     if (%match == knockout) { var %move = slaps }
  305.     if (%match == stretcher) { var %move = slaps }
  306.  
  307.     describe $setread(settings,channel) %move
  308.   }
  309.  
  310.   if ($1 == small) {
  311.     if (%match == regular) { describe $setread(settings,channel) trip | return }
  312.     if (%match == deathmatch) { describe $setread(settings,channel) drags face | return }
  313.     if (%match == strap) { var %move = chokes strap }
  314.  
  315.     var %rand = $rand(1,5)
  316.  
  317.     if (%rand == 1) { var %move = $iif(%match == barbedwire,tries to drag his opponent's face across the barbedwire.,chair.) }
  318.     if (%rand == 2) { var %move = $iif(%match == boiler,tries to connect with the steel chair!,chair.) }
  319.     if (%rand == 3) || (%rand == 4) { var %move = $iif(%match = strap,tries to choke his opponent with the leather strap,chair.) }
  320.     if (%rand == 5) { var %move = $iif(%match == firstblood,chair.,tries a headbutt.) }
  321.  
  322.     describe $setread(settings,channel) %move
  323.   }
  324.  
  325.   if ($1 == smallmedium) {
  326.     if (%match == regular) { describe $setread(settings,channel) DDT | return }
  327.     if (%match == deathmatch) { describe $setread(settings,channel) drags face | return }
  328.     if (%match == strap) { var %move = chokes strap }
  329.  
  330.     var %rand = $rand(1,4)
  331.  
  332.     if (%rand == 1) || (%rand == 2) { var %move = $iif(%match == barbedwire,tries to drag his opponent's face across the barbedwire.,chair.) }
  333.     if (%rand == 3) { var %move = $iif(%match == boiler,tries to connect with the steel chair!,chair.) }
  334.     if (%rand == 4) { var %move = $iif(%match = strap,tries to choke his opponent with the leather strap,chair.) }
  335.  
  336.     describe $setread(settings,channel) %move
  337.   }
  338.  
  339.   if ($1 == medium) {
  340.     if (%match == regular) { describe $setread(settings,channel) PowerSlam | return }
  341.     if (%match == deathmatch) { describe $setread(settings,channel) drags face | return }
  342.     if (%match == strap) { var %move = chokes strap }
  343.  
  344.     var %rand = $rand(1,3)
  345.  
  346.     if (%rand == 1) || (%rand == 2) { var %move = $iif(%match == barbedwire,tries to drag his opponent's face across the barbedwire.,chair.) }
  347.     if (%rand == 3) { var %move = $iif(%match = strap,tries to choke his opponent with the leather strap,chair.) }
  348.  
  349.     describe $setread(settings,channel) %move
  350.   }
  351.  
  352.   if ($1 == mediumlarge) {
  353.     if (%match == regular) { describe $setread(settings,channel) brainbuster | return }
  354.     if (%match == deathmatch) { describe $setread(settings,channel) throws barbedwire board | return }
  355.     if (%match == strap) { var %move = chokes strap }
  356.  
  357.     var %rand = $rand(1,5)
  358.  
  359.     if (%rand == 1) || (%rand == 2) || (%rand == 3) { var %move = $iif(%match == barbedwire,tries to drag his opponent's face across the barbedwire.,chair.) }
  360.     if (%rand == 4) { var %move = $iif(%nowhip == on,looks to deliver the fisherman's suplex.,goes for the irish whip.) }
  361.     if (%rand == 5) { var %move = $iif(%match = strap,tries to choke his opponent with the leather strap,chair.) }
  362.  
  363.     describe $setread(settings,channel) %move
  364.   }
  365.  
  366.   if ($1 == large) {
  367.     if (%match == regular) { describe $setread(settings,channel) spear | return }
  368.     if (%match == deathmatch) { describe $setread(settings,channel) throws barbedwire board | return }
  369.     if (%match == stretcher) { var %move = chair | return }
  370.     if (%match == strap) { var %move = spear }
  371.  
  372.     var %rand = $rand(1,8)
  373.  
  374.     if (%rand == 1) { var %move = $iif(%nowhip == on,tries the jackhammer!,goes for the irish whip.) }
  375.     if (%rand == 2) { var %move = $iif(%match == barbedwire,tries to drag his opponent's face across the barbedwire.,is looking to deliver the powerbomb.) }
  376.     if (%rand == 3) { var %move = $iif(%match == barbedwire,tries to drag his opponent's face across the barbedwire.,attempts to go sky high!) }
  377.     if (%rand == 4) { var %move = $iif(%match == barbedwire,tries to drag his opponent's face across the barbedwire.,is going for the lionsault!) }
  378.     if (%rand == 5) { var %move = $iif(%match == boiler,tries to connect with the steel chair!,goes for the tiger driver.) }
  379.     if (%rand == 6) { var %move = $iif(%match == hardcore,tries to connect with the steel chair!,tries to connect with the twist of fate!) }
  380.     if (%rand == 7) { var %move = $iif(%match == hardcore,goes for the chair shot!,is looking to nail the spear!) }
  381.     if (%rand == 8) { var %move = $iif(%match = strap,tries to choke his opponent with the leather strap,spear.) }
  382.  
  383.     describe $setread(settings,channel) %move
  384.   }
  385.  
  386.   if ($1 == finisher) {
  387.     var %rand = $rand(1,7)
  388.  
  389.     if (%rand == 1) { var %move = boots his opponent in the gut, looking for the stone cold stunner! }
  390.     if (%rand == 2) { var %move = boots his opponent in the gut, setting them up for the pedigree! }
  391.     if (%rand == 3) { var %move = is sizing up his opponent, looking to end it with the devastating gore! }
  392.     if (%rand == 4) { var %move = stomps the mat, looking for some sweet chin music! }
  393.     if (%rand == 5) { var %move = goes for the perfectplex! }
  394.     if (%rand == 6) { var %move = $iif(%nowhip == on,goes for the F-5!,stunner.) }
  395.     if (%rand == 7) { var %move = $iif(%match == hardcore,goes for the stunner,stunner!) }
  396.  
  397.     describe $setread(settings,channel) %move
  398.   }
  399.  
  400.   if ($1 == pin) {
  401.     var %rand = $rand(1,3)
  402.  
  403.     if (%rand == 1) { var %move = goes for the sunset flip. }
  404.     if (%rand == 2) { var %move = goes for the schoolboy. }
  405.     if (%rand == 3) { var %move = goes for the cradle pin. }
  406.  
  407.     describe $setread(settings,channel) %move
  408.   }
  409. }
  410.  
  411. ;;; << Aliases ;;;
  412.  
  413. ; -------------- 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!