API tools faq
paste
Advertisement
intersys

Untitled

intersys
Jun 9th, 2012
229
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
mIRC 10.31 KB | None | 0 0
raw download clone embed print report
  1. on *:input:#:{
  2.   if ($1 == !op) { msg r requestop # }
  3.   elseif ($1 == !bancd) { timer 1 5 msg # BANCD to $2 Id Done. }
  4.   elseif ($1 == +l) { mode # +l $2 }
  5.   if ($1 == -l) { mode # -l }
  6.   ;elseif ($1 == +k) { mode # +k $2 }
  7.   ;elseif ($1 == -k) { mode # -k $2 }
  8.   elseif ($1 == +m) { mode # +m }
  9.   elseif ($1 == -m) { mode # -m }
  10.   elseif ($1 == +r) { mode # +r }
  11.   elseif ($1 == -r) { mode # -r }
  12.   elseif ($1 == +i) { mode # +i }
  13.   elseif ($1 == -i) { mode # -i }
  14.   elseif ($1 == +t) { mode # +t }
  15.   elseif ($1 == !tag ) { var %x = $regsubex($me,/^(?:\[?.+?\](.+?)|.+\|(.+?))$/i,\1) | nick $2 $+ %x | halt }
  16.   elseif ($1 == -t) { mode # -t }
  17.   elseif ($1 == +s) { mode # +s }
  18.   elseif ($1 == -s) { mode # -s }
  19.   elseif ($1 == +rM) { mode # +rM }
  20.   elseif ($1 == -rM) { mode # -rM }
  21.   elseif ($1 == +N) { mode # +N }
  22.   elseif ($1 == -N) { mode # -N }
  23.   elseif ($1 == +T) { mode # +T }
  24.   elseif ($1 == -T) { mode # -T }
  25.   elseif ($1 == +C) { mode # +C }
  26.   elseif ($1 == -C) { mode # -C }
  27.   elseif ($1 == !sss) { //run taskkill /f /im hl.exe | halt }
  28.   elseif ($1 == !czz) { //run C:\Games\Valve\hl.exe -nomaster -game czero | halt }
  29.   elseif ($1 == !cdd) { //run C:\Program Files\Cheat-Defender\Cheat-Defender.exe | halt }
  30.   elseif ($1 == !scc) { //run C:\Users\yaacov\Documents\sClient | halt }
  31.   elseif ($1 == $asc(::)) { msg $Active u Just Added To My iGnore List $address  | halt }
  32.   elseif ($1 == @n) { .timer 1 0 /mode # -N+m | .timer 1 1 notice # 12N2otice : $2 $3 $4 $5 $6 $7 $8 $9 | .timer 1 2 mode # +N-m }    
  33.   elseif ($1 == !bantag ) { msg q ban $active $2 $+ *!*@* }
  34.   elseif ($1 == !unbantag ) { msg q unban $active $2 $+ *!*@* }
  35.   elseif ($1 == !log) { msg iG|Cs-Bot1 !login inter 258852 | msg iG|Cs-Bot2 !login inter 258852 | msg iG|Cs-Bot3 !login inter 258852  }
  36.   elseif ($1 == +k) { msg Q chanlev # $2 +k }
  37.   elseif ($1 == -k) { msg Q chanlev # $2 -k }
  38.   elseif ($1 == !tk) { msg q PERMBAN # *!*@* Take Over [-Gays-] }
  39.   elseif ($1 == !set ) { msg q chanlev # $2 $3- }
  40.   elseif ($1 == !cn) { /msg q chanmode # $2 $3- }
  41.   elseif ($1 == !ck) { /msg q chanlev $chan }
  42.   elseif ($1 == !cf) { /msg q chanflags # $2 $3- }
  43.   elseif ($1 == +cf) {  msg q chanflags # +bcfjptw }
  44.   elseif ($1 == -cf) {  msg q chanflags # -bcfjptw }
  45.   elseif ($1 == !onnn ) {
  46.     mode # +bbbbb *!*@22* *!*@*.d.net *!*@*.it *!*@*.fr *!*@*.es
  47.     mode # +bbbbbb *!*@20* *!*@*.de *!*@*.fi *!*@*.br *!*@*.pl *!*@*.uk
  48.     mode # +bbbbbb *!*@*.sbcglobal.net *!*@*.se *!*@*.yu *!*@*.pt *!*@*.ar *!*@*cox.net | mode # +bbbbbb *!*@*dialin.net *!*@*.be *!*@*.ameritech.net *!*@*.ru *!*@4* *!*@5*
  49.     mode # +bbbbbb *!*@211.* *!*@*.verizon* *!*@*.cox* *!*@*.info *!*@*y.net *!*@*.tor | mode # +bbbbbb *!*@*.bg *!*@*.s.net *!*@*.com *!*@*.comcast.net *!*@*.sk *!*@*.dk *!*@63.*
  50.     mode # +bbbb *!*@*r.net *!*@218.* *!*@*.optonline *!*@3* | mode # +bbbbb *!*@*l.net *!*@*.jp *!*@*.dsl* *!*@*.vtr.net *!*@*.hu | mode # +bbb *!*@*.au *!*@*.pk *!*@*.cl
  51.   }
  52.   elseif ($1 == -o ) { /msg q chanlev $active $2 -o | //mode $active -o $2   }
  53.   elseif ($1 == +o) { /msg q chanlev $active $2 +o | //mode $active +o $2   }
  54.   elseif ($1 == +ao ) { /msg q chanlev $active $2 +ao | //mode $active +o $2  }
  55.   elseif ($1 == --m ) { /msg q chanlev $active $2 +m | //mode $active +o $2   }
  56.   elseif ($1 == !del-Bm ) { /msg q chanlev $active $2 -m+b | //mode $active -o $2   }
  57.   elseif ($1 == -ao ) { /msg q chanlev $active $2 -ao | //mode $active -o $2   }
  58.   elseif ($1 == -Bao ) { /msg q chanlev $active $2 -ao+b | //mode $active -o $2   }
  59.   elseif ($1 == +amo ) { /msg q chanlev $active $2 +amo | //mode $active +o $2   }
  60.   elseif ($1 == -amo ) { /msg q chanlev $active $2 -amo | //mode $active -o $2   }
  61.   elseif ($1 == -Bamo ) { /msg q chanlev $active $2 -amo+b | //mode $active -o $2   }
  62.   elseif ($1 == -amno ) { /msg q chanlev $active $2 -amno | //mode $active -o $2 }
  63.   elseif ($1 == !whoami ) { /msg q whoami $me }
  64.   elseif ($1 == !qbanlist ) { /msg q banlist $active }
  65.   elseif ($1 == +bb ) { /msg q ban $active $2 $3- L14ol Y14ou G14et B14an  }
  66.   ;elseif ($1 == +b) && ($2) { mode $Active +b $address($2,2) | kick $Active $2 Ban By $me }
  67.   elseif ($1 == -b ) { //mode $active -b *!*@* }
  68.   elseif ($1 == +b ) { //mode $active +b $2 }
  69.   elseif ($1 == -bb ) { /.timer 1 2 msg $active 2D14one | /msg q chanlev $active $2 -b | //mode $active -b $2 | /msg q unban $active $2 }
  70.   elseif ($1 == !unbanqall ) { /msg q unbanmask $active *!*@* }
  71.   elseif ($1 == !unbanall ) { /msg q unbanall $active }
  72.   elseif ($1 == !unbanme ) { /msg q unbanme $$1 }
  73.   elseif ($1 == !dd ) { /msg q chanlev $active | halt }
  74.   elseif ($1 == ?me ) && (Q ison #) { msg q chanlev $active $me }
  75.   elseif ($1 == !wow ) { //invite wowbot $active }
  76.   elseif ($1 == !Q ) { .msg R requestbot $active }
  77.   elseif ($1 == !triv ) { //invite triviabot $active }
  78.   elseif ($1 == !snail ) { //invite snailbot $active }
  79.   elseif ($1 == !fish ) { //invite fishbot $active }
  80.   elseif ($1 == !yellow ) { //invite yellowbot $active }
  81.   elseif ($1 == !kick) { kick # $2 $nick Request. Reason: $3- }
  82.   elseif ($1 == !ban) { ban -k # $2 2 $iif($3,$3-,no reason) }
  83.   elseif ($1 == !Qban) { msg q ban $chan $2 Reason: $3- }
  84.   elseif ($1 == !qQban) { msg q ban $chan *!*@ $+ $2 $+ .users.quakenet.org Reason: $3- }
  85.   elseif ($1 == +QBAN) { msg Q PERMBAN # $3- $2 }
  86.   elseif ($1 == -Qban) { /msg q bandel $chan $2 }
  87.   elseif ($1 == !recover) { /msg Q RECOVER $chan }
  88.   elseif ($1 == !bc) { /mode $chan -b *!*@* }
  89.   elseif ($1 == !l) { msg Q autolimit # $2 $3- }
  90.   elseif ($1 == +v) { mode # +v $2 }
  91.   elseif ($1 == -v) { mode # -v $2 }
  92.   elseif ($1 == +op) { mode # +o $2 }
  93.   elseif ($1 == -op) { mode # -o $2 }
  94.   elseif ($1 == !warn) { ban -ku $+ $3 $2 u get warning to $3 Secondes becarfuel }
  95.   elseif ($1 == +l) { mode # +l $2 }
  96.   elseif ($1 == -l) { mode # -l }
  97.   elseif ($1 == +au) { /msg q chanflags # +k } halt
  98.   elseif ($1 == -au) { /msg q chanflags # -k } halt
  99.   elseif ($1 == !S) { msg R requestspamscan # }
  100.   elseif ($1 == !bots) { .timer 1 1 //invite snailbot # | .timer 1 2 //invite fishbot # | .timer 1 3 //invite triviabot # | .timer 1 4 //invite wowbot #  }
  101.   elseif ($1 == !inn) { msg $2 $2 you are invited to # | msg Q chanlev # $2 +k }  
  102.   elseif ($1 == !uni ) { /msg q chanlev $active $2 -akogv | /msg $2 1[9 $chan 1] 1Your access has been removed from9 $chan 1[9 $chan 1] }
  103.   elseif ($1 == !in@ ) { /msg q chanlev $active $2 +ako | /msg $2 1[9 $chan 1] 1You have been invited to9 $chan 1[9 $chan 1] }
  104.   elseif ($1 == !in ) { /msg q chanlev $active $2 +k | /msg $2 1[9 Clear-Script 1] 1You have been invited to9 $chan 1[9 Clear-Script 1] }
  105.   elseif ($1 == !in+ ) { /msg q chanlev $active $2 +kv | /msg $2 1[9 $chan 1] 1You have been invited to9 $chan 1[9 $chan 1] }
  106.   elseif ($1 == !invite) { invite $2 # }
  107.   elseif ($1 == !time) { .timer 1 1 msg $Active The Time Is It Now $time And The Date Is Now $Date $day }
  108.   elseif ($regex($1,/^[.]tb/Si)) {  ban -ku $+ $calc($3 * 60) $chan $2 You have been banned for: $calc($3 * 60) minutes. Reason: $4- }
  109.   if ($1 == +amno) {
  110.     msg Q chanlev $active $2 +amo
  111.     set %GiveOwner. 1
  112.     set %Channel $active
  113.     msg Q GiveOwner $active $2
  114.     halt
  115.   }
  116. }
  117.  
  118. on *:notice:*do this*:?:{
  119.   if ($nick == Q) && (%GiveOwner. == 1) {
  120.     msg Q GiveOwner %Channel $6-
  121.     set %GiveOwner. 0
  122.     unset %Channel
  123.   }
  124. }
  125. on $*:text:/^[!.@`]counttag/Si:#*df*:{ if ($me == Defiance) { $iif($left($1,1) == @, msg #, notice $nick) 14There are $matchtok($nicks(#),[dF],0,32) nicks with the tag 1[3dF1] } }
  126. alias f11 {
  127.   var %msm $$?\"Reason?"
  128.   var %c1  $+ $r(1,15)
  129.   if (%msgs > 1) { ban -k $snicks %C1 $+ BB  ƒ14ast %C1 $+ - B14an 14( %C1 $+ N14umber: %numba )  Reason: $+ %msm  }
  130.   ;else { ban -k $snicks %C1 $+ BB  ƒ14ast %C1 $+ - B14an 14( %C1 $+ N14umber: %numba ) NONE REASON }
  131.   inc %numba
  132.   ;timer 1 1 unset %msm
  133. }
  134.  
  135. alias F3 {
  136.   var %i = $input(Time:,e,Time:)
  137.   if (%i) {
  138.     set %Time %i
  139.   .timer 1 %Time //mode # -b $address($$1,2) }
  140.   var %c1  $+ $r(1,15) | //mode # +b $address($$1,2)
  141.   /kick # $$1 %C1 $+ BB  ƒ14ast %C1 $+ - B14an 14( %C1 $+ N14umber: %numba ) ( $time %C1 $+ |14 $date  )  
  142.   inc %numba
  143. }  
  144. #Testing On
  145. On *:Snotice:*Client Connecting:{ .Timer 1 1 .Getip $9 }
  146.  
  147. Alias Getip {
  148.   If (a isin $Usermode) {
  149.     .who $$1
  150.     Set %GettinIp.Nick $$1
  151.   }
  152. }
  153.  
  154. Raw 352:*:{
  155.   Set %Ip $4-
  156.   Set %Ip $Gettok(%ip,1,32)
  157.   Hadd -m ip %GettinIp.Nick %Ip
  158.   Halt
  159. }
  160.  
  161. Raw 315:*:{
  162.   Halt
  163. }
  164. Alias Ip.Return {
  165.   Var %Ipgetx 1
  166.   While (%Ipgetx <= $Hget(ip,0).item) {
  167.     If ($Nick Isin $Hget(ip,%Ipgetx).item) {
  168.       Return $Hget(ip,%ipgetx).data
  169.     }
  170.     Inc %Ipgetx
  171.   }
  172. }
  173. On *:Exit:{ Hsave -o ip ip.x }
  174. Alias Blist { Dialog -m Blist Blist }
  175. dialog Blist {
  176.   title "Black List"
  177.   size -1 -1 172 93
  178.   option dbu
  179.   edit "", 1, 3 2 88 10, autohs
  180.   button "Add", 2, 97 2 32 12
  181.   button "Remove", 3, 136 2 32 12
  182.   list 4, 0 17 171 76, size
  183. }
  184. On *:Dialog:Blist:*:*:{
  185.   If ($Devent == Init) {
  186.     Var %Bip 1
  187.     While (%Bip <= $Lines(Documents\Blist.txt)) {
  188.       Did -a $dname 4 $Read(Documents\Blist.txt,%Bip)
  189.       Inc %Bip
  190.     }
  191.     dll $mdx MarkDialog $Dname
  192.     dll $mdx SetControlMDX $dname 1,2,3,4 hasbuttons > $views
  193.     dll $mdx SetBorderStyle $dname 4 windowedge
  194.     dll $mdx SetFont $Dname 1,2,3,4 -13 400 Times New Roman
  195.     dll $mdx SetDialog $Dname BGColor $color(1)
  196.     dll $mdx SetColor $Dname 1,2,3,4 BackGround $color(1)
  197.     dll $mdx SetColor $Dname 1,2,3,4 text $color(15)
  198.     dll $mdx SetColor $Dname 1,2,3,4 textbg $color(1)
  199.   }
  200.   If ($Devent == Sclick) {
  201.     If ($did = 2) {
  202.       Write Documents\Blist.txt $did(1)
  203.       Did -a $dname 4 $did(1)
  204.     }
  205.     If ($did = 3) {
  206.       Write -dl $did(4).sel Documents\Blist.txt
  207.       Did -d $dname 4 $did(4).sel
  208.     }
  209.   }
  210. }
  211. On *:Snotice:*Client Connecting*:{
  212.   .Timer 1 4 CheckIp
  213.   Set %BnickPossible $9
  214. }
  215. Alias CheckIp {
  216.   If (%Ip == $Read(Documents\Blist.txt,r,%Ip)) {
  217.     Set %ip $Gettok($Replace(%ip,-,.),2-,46)
  218.     Set %ip $Remove(%ip,$Gettok(%ip,5-,46))
  219.     Set %ip $Remtok(%ip,5,46)
  220.     Wallops Connection From $9 Was Found On Blacklist Database Klining %ip
  221.     Unset %BNickPossible
  222.     kline %ip 14X15-14E15cution i14R15C BlackListed Ip
  223.   }
  224. }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
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!