API tools faq
paste
Guest User

Untitled

a guest
Sep 18th, 2018
75
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
mIRC 7.56 KB | None | 0 0
raw download clone embed print report
  1. ; Contents owned by SVTserv limited, ©2012 Breda The Netherlands.
  2.  
  3. alias dmwin {
  4.   if (%totalwin.idm != $null) {
  5.     echo -a 4You have botted a total of3 $bytes(%totalwin.idm,bd) 4on the iDM game bot so far.
  6.     if (%time.idm) {
  7.       echo -a 4First time you ever botted iDM:3 $duration($calc($ctime - %time.idm)) 4ago.
  8.     }
  9.     if (%b.use.idm) {
  10.       echo -a 4Bot as been on for a total of3 $duration(%b.use.idm) $+ 3.
  11.     }
  12.     halt
  13.   }
  14.   echo -a 4You have botted nothing on the iDM game bot so far.
  15.   halt
  16. }
  17. on *:text:*:#:{
  18.   if (idm isin $nick) && (%dm == $true) {
  19.     if (nobody isin $strip($1-,c)) {
  20.       halt
  21.     }
  22.     if (requested isin $strip($1-,c)) && ($me !isin $1-) && (idm !isin $chan) {
  23.       if ($chan != %chandm) {
  24.         echo -a 11Set channel $chan to DM main channel.
  25.         set %chandm $chan
  26.       }
  27.       msg $chan .dm
  28.     }
  29.     if ($strip($1-) == [DM] Ready.) {
  30.       msg $chan .dm
  31.     }
  32.     if ($strip($1-) == [GWD] Ready.) {
  33.       msg $chan .dm
  34.     }
  35.     if ([KO] $me has received [ isin $strip($1-,c)) {
  36.       if (%time.idm == $null) {
  37.         set %time.idm $ctime
  38.       }
  39.       if (%totalwin.idm != $null) {
  40.         set %totalwin.idm $calc($replace($remove($strip($5,c),$chr(91),$chr(93)),m,*1000000,k,*1000,b,*1000000000) + %totalwin.idm)
  41.       }
  42.       if (%totalwin.idm == $null) {
  43.         set %totalwin.idm $calc($replace($remove($strip($5,c),$chr(91),$chr(93)),m,*1000000,k,*1000,b,*1000000000))
  44.       }
  45.       window -k0 @DMloot
  46.       echo -a 4I won a DM on5 $chan 4at5 $time 4winning:5 $5 $+ 4.
  47.       aline @DMloot 4I won a DM on5 $chan 4at5 $time 4winning:5 $5 $+ 4.
  48.       if (specpot isin $strip($1-)) {
  49.         echo -a 4I won a DM on5 $chan 4at5 $time 4winning: Specpot.
  50.         aline @DMloot 4I won a DM on5 $chan 4at5 $time 4winning:12 Specpot4.
  51.       }
  52.       if (Clue isin $strip($1-)) {
  53.         echo -a 4I won a DM on5 $chan 4at5 $time 4winning: Clue Scroll.
  54.         aline @DMloot I won a DM on5 $chan 4at5 $time 4winning:11 Clue Scroll4.
  55.       }
  56.     }
  57.     if ($me gets the first move. isin $strip($1-,c)) {
  58.       if ($chan != %chandm) {
  59.         echo -a 11Set this channel ( $+ $chan $+ ) to DM main channel.
  60.         set %chandm $chan
  61.       }
  62.       var %x $r(1,15)
  63.       msg $chan . $+ $iif(%x == 1,smoke,$iif(%x == 2,ebolt,$iif(%x == 3,dds,$iif(%x == 4,dbow,$iif(%x == 5,bgs,$iif(%x == 6,mbow,$iif(%x == 7,whip,$iif(%x == 8,esurge,$iif(%x == 9,ice,$iif(%x == 10,gmaul,$iif(%x == 11,smoke,$iif(%x == 12,whip,$iif(%x == 13,ebolt,$iif(%x == 14,onyx,$iif(%x == 15,rknives)))))))))))))))
  64.       echo -a 4Used5 $iif(%x == 1,smoke,$iif(%x == 2,ebolt,$iif(%x == 3,dds,$iif(%x == 4,dbow,$iif(%x == 5,bgs,$iif(%x == 6,mbow,$iif(%x == 7,whip,$iif(%x == 8,esurge,$iif(%x == 9,ice,$iif(%x == 10,gmaul,$iif(%x == 11,smoke,$iif(%x == 12,whip,$iif(%x == 13,ebolt,$iif(%x == 14,onyx,$iif(%x == 15,rknives))))))))))))))) 4on5 $chan 4at5 $time 4(5I got the first move4).
  65.     }
  66.     if (drinks isin $strip($1-,c)) {
  67.       if ($chan != %chandm) {
  68.         echo -a 11Set this channel to DM main channel.
  69.         set %chandm $chan
  70.       }
  71.       var %x $r(1,15)
  72.       msg $chan . $+ $iif(%x == 1,smoke,$iif(%x == 2,ebolt,$iif(%x == 3,dds,$iif(%x == 4,dbow,$iif(%x == 5,bgs,$iif(%x == 6,mbow,$iif(%x == 7,whip,$iif(%x == 8,esurge,$iif(%x == 9,ice,$iif(%x == 10,gmaul,$iif(%x == 11,smoke,$iif(%x == 12,whip,$iif(%x == 13,ebolt,$iif(%x == 14,onyx,$iif(%x == 15,rknives)))))))))))))))
  73.       echo -a 4Used5 $iif(%x == 1,smoke,$iif(%x == 2,ebolt,$iif(%x == 3,dds,$iif(%x == 4,dbow,$iif(%x == 5,bgs,$iif(%x == 6,mbow,$iif(%x == 7,whip,$iif(%x == 8,esurge,$iif(%x == 9,ice,$iif(%x == 10,gmaul,$iif(%x == 11,smoke,$iif(%x == 12,whip,$iif(%x == 13,ebolt,$iif(%x == 14,onyx,$iif(%x == 15,rknives))))))))))))))) 4on5 $chan 4at5 $time 4(5I got the first move4).
  74.     }
  75.     if ($me isin $strip($1-,c)) && ($strip($2,c) != $me) && ($strip($1,c) == [DM]) && ($strip($2,c) ison $chan) {
  76.       if (accepted isin $strip($1-,c)) {
  77.         halt
  78.       }
  79.       if (KO isin $strip($1-)) {
  80.         halt
  81.       }
  82.       if ($chan != %chandm) {
  83.         echo -a 11Set this channel to DM main channel.
  84.         set %chandm $chan
  85.       }
  86.       var %x $r(1,15)
  87.       msg $chan . $+ $iif(%x == 1,onyx,$iif(%x == 2,blood,$iif(%x == 3,dds,$iif(%x == 4,dbow,$iif(%x == 5,bgs,$iif(%x == 6,mbow,$iif(%x == 7,whip,$iif(%x == 8,esurge,$iif(%x == 9,ice,$iif(%x == 10,gmaul,$iif(%x == 11,blood,$iif(%x == 12,guth,$iif(%x == 13,onyx,$iif(%x == 14,sgs,$iif(%x == 15,bbolt)))))))))))))))
  88.       echo -a 4Used5 $iif(%x == 1,onyx,$iif(%x == 2,blood,$iif(%x == 3,dds,$iif(%x == 4,dbow,$iif(%x == 5,bgs,$iif(%x == 6,mbow,$iif(%x == 7,whip,$iif(%x == 8,esurge,$iif(%x == 9,ice,$iif(%x == 10,gmaul,$iif(%x == 11,blood,$iif(%x == 12,guth,$iif(%x == 13,onyx,$iif(%x == 14,sgs,$iif(%x == 15,bbolt))))))))))))))) 4on5 $chan 4at5 $time $+ 4.
  89.     }
  90.   }
  91. }
  92. on *:NOTICE:*:*: {
  93.   if (idm isin $nick) && (notice isin $nick) && (%dm == $true) {
  94.     if ([error] isin $strip($1-,c)) {
  95.       var %x $r(1,15)
  96.       msg %chandm . $+ $iif(%x == 1,surf,$iif(%x == 2,ebolt,$iif(%x == 3,surf,$iif(%x == 4,dh,$iif(%x == 5,rknives,$iif(%x == 6,blood,$iif(%x == 7,whip,$iif(%x == 8,dh,$iif(%x == 9,ice,$iif(%x == 10,onyx,$iif(%x == 11,blood,$iif(%x == 12,guth,$iif(%x == 13,surf,$iif(%x == 14,smoke,$iif(%x == 15,whip)))))))))))))))
  97.       echo -a 4Used5 $iif(%x == 1,surf,$iif(%x == 2,ebolt,$iif(%x == 3,surf,$iif(%x == 4,dh,$iif(%x == 5,rknives,$iif(%x == 6,blood,$iif(%x == 7,whip,$iif(%x == 8,dh,$iif(%x == 9,ice,$iif(%x == 10,onyx,$iif(%x == 11,blood,$iif(%x == 12,guth,$iif(%x == 13,surf,$iif(%x == 14,smoke,$iif(%x == 15,whip))))))))))))))) 4on5 %chandm 4at5 $time 4(5did not have enough spec4).
  98.       halt
  99.     }
  100.     if (frozen isin $strip($1-,c)) {
  101.       var %x $r(1,15)
  102.       msg %chandm . $+ $iif(%x == 1,smoke,$iif(%x == 2,ebolt,$iif(%x == 3,surf,$iif(%x == 4,ice,$iif(%x == 5,rknives,$iif(%x == 6,blood,$iif(%x == 7,blood,$iif(%x == 8,ice,$iif(%x == 9,ice,$iif(%x == 10,onyx,$iif(%x == 11,surf,$iif(%x == 12,onyx,$iif(%x == 13,surf,$iif(%x == 14,smoke,$iif(%x == 15,blood)))))))))))))))
  103.       echo -a 4Used5 $iif(%x == 1,smoke,$iif(%x == 2,ebolt,$iif(%x == 3,surf,$iif(%x == 4,ice,$iif(%x == 5,rknives,$iif(%x == 6,blood,$iif(%x == 7,blood,$iif(%x == 8,ice,$iif(%x == 9,ice,$iif(%x == 10,onyx,$iif(%x == 11,surf,$iif(%x == 12,onyx,$iif(%x == 13,surf,$iif(%x == 14,smoke,$iif(%x == 15,blood))))))))))))))) 4on5 %chandm 4at5 $time 4(5got frozen4).
  104.       halt
  105.     }
  106.   }
  107. }
  108. alias dm {
  109.   if (%dm == $true) && ($1 == on) {
  110.     echo -a 4Already AUTO-DMing.
  111.     halt
  112.   }
  113.   if ($1 == off) {
  114.     if (%l.on.idm != $null) {
  115.       var %x $calc($ctime - %l.on.idm)
  116.       if (%x == $null) {
  117.         var %x 1
  118.       }
  119.       if (%b.use.idm == $null) {
  120.         set %b.use.idm %x
  121.       }
  122.       if (%b.use.idm != $null) {
  123.         set %b.use.idm $calc(%x + %b.use.idm)
  124.       }
  125.     }
  126.     echo -a 4Stopped AUTO-DMing.
  127.     set %dm $false
  128.     halt
  129.   }
  130.   if ($1 == on) {
  131.     set %l.on.idm $ctime
  132.     echo -a 4Started AUTO-DMing.
  133.     set %dm $true
  134.     halt
  135.   }
  136.   echo -a 5ERROR: /dm [on|off].
  137.   halt
  138. }
  139. alias dmchan {
  140.   if ($chan == $null) {
  141.     halt
  142.   }
  143.   set %chandm $chan
  144.   echo -a 11Set this channel ( $+ $chan $+ ) to DM main channel.
  145. }
  146. on *:disconnect: {
  147.   if (%l.on.idm) {
  148.     var %x $calc($ctime - %l.on.idm)
  149.     if (%x == $null) {
  150.       var %x 1
  151.     }
  152.     if (%b.use.idm == $null) {
  153.       set %b.use.idm %x
  154.     }
  155.     if (%b.use.idm != $null) {
  156.       set %b.use.idm $calc(%x + %b.use.idm)
  157.     }
  158.   }
  159.   if (%dm == $true) {
  160.     set %dm $false
  161.   }
  162. }
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!