MIRCX IRC Network
Would you like to react to this message? Create an account in a few clicks or log in to continue.
MIRCX IRC Network

Welcome to MIRCX-Help Bots Scripts Eggdrop IRCD

Search
 
 

Display results as :
 

Rechercher Advanced Search

Web Applications
install Joomla Wordpress Phpbb Drupal FluxBB PunBB osCommerce simple-machines MYBB moodle vBulletin Dolphin-v.7.1.1 PHPNUKE XOOPS
Services
install BorkNet Services X3 Services Anope Atheme Services Srvx IRC Srervices
IRCD
install Snircd IRCU INSPIRCD UNREAL Nefarious Bircd Bahamut Asuka Charybdis
TCL SCRIPT
TCL SCRIPT FOR EGGDROP Allprotection4.7 Antiproxy
Bots
Bots install FishBot bobot++ Eggdrop janus Omega Security Services Botnix Bopm SupyBot PyLink Hopm
Keywords

nefarious  srvx  socket  conf  postgreSQL  proxy  mirc  install  iauth  freebsd  ircu  2011  mircx  ircd  SupyBot  nefarious2  qwebirc  bopm  UnrealIRCd  borknet  bahamut  gnuworld  spamfilter  inspircd  Pylink  snircd  

Latest topics
» מדריך גירסה INSPIRCD V4
Protection By XOR1 EmptySat Aug 05, 2023 2:09 am by Chief

» mIRCx IRC Network Config
Protection By XOR1 EmptySat Jul 15, 2023 9:51 pm by Chief

» ircu2.10.12-pk with dnsbl
Protection By XOR1 EmptyFri Mar 10, 2023 2:22 pm by Admin

» Guide install PyLink on New version FreeBSD
Protection By XOR1 EmptyThu Dec 15, 2022 9:39 pm by Chief

» מדריך התקנה PBot על מערכת הפעלה FreeBsd-12
Protection By XOR1 EmptyMon Dec 05, 2022 5:44 am by Chief

» install Nefarious2 && X3 IRC Services in FreeBsd
Protection By XOR1 EmptySat Nov 12, 2022 3:12 pm by Chief

» help problem with adduser in Freebsd 12
Protection By XOR1 EmptyFri Nov 11, 2022 9:06 pm by Chief

» מדריך פקודות והתקנה בסרביס X3
Protection By XOR1 EmptyFri Oct 28, 2022 1:43 pm by Chief

» מדריך הגדרות WebIRC in Nefarious2
Protection By XOR1 EmptyThu Apr 07, 2022 4:45 am by Chief

April 2024
MonTueWedThuFriSatSun
1234567
891011121314
15161718192021
22232425262728
2930     

Calendar Calendar

Affiliates
free forum

Affiliates
free forum


Protection By XOR1

MIRCX IRC Network :: MIRCX :: MIRCX

Go down

Protection By XOR1 Empty Protection By XOR1

Post  Admin Sun Mar 25, 2012 5:05 pm

XOR1
היה רשום לאתר המירקס בעבר עם צי'ף ואור ולזכותו הוא בנה בעבר בוט הגנות נראה לי עבור השרת של QUAKENET שווה לנסות
Code:

;This security bot made by xor1.
;Date of creation: 25/4/08
;please dont change credits!.
;this is the last version <LAST> <VERSION>
--------------------------------------
--------------------------------------
;Joinflood protection.
on !*:join:%sec.chan: {
  if (%sec.clone == ON) && (*.users.quakenet.org* !iswm $wildsite) {
    hinc $+(-mu,$iif($hget(jflood,join).unset,$ifmatch,2)) jflood join
    if (!$read(clones.txt, w ,$wildsite)) { write clones.txt $wildsite
      if (%clones1 != ON) { .timerzxc654 1 4 .remove clones.txt }
    }
    if (!$read(nicks.txt, w ,$nick)) { write nicks.txt $nick
      if (%clones1 != ON) { .timerzxc655 1 4 .remove nicks.txt }
    }
    if ($hget(jflood,join) >= 4) && (!%split) && (%clones1 != ON) {
      .timerzxc65* off
      mode %sec.chan +mr
      set %sec.adv OFF | set %clones1 ON | set %text-flood OFF | set %reapet OFF
      .timer 1 1 clonesbans
    }
  }
}
;End of Joinflood protection.
--------------------------------------
--------------------------------------
;Advertise protection.
on !*:text:*#*:%sec.chan: {
  if (%sec.adv == ON) {
    if ($nick isreg %sec.chan) { inc -u4 %adv }
    if (!$read(advertise.txt, w ,$wildsite)) { write advertise.txt $wildsite
      if (%adv1 != ON) { .timerzxc656 1 4 .remove advertise.txt }
    }
    if (!$read(advertisenicks.txt, w ,$nick)) { write advertisenicks.txt $nick
      if (%adv1 != ON) { .timerzxc657 1 4 .remove advertisenicks.txt }
    }
    if ($nick isreg %sec.chan) && (%adv < 4 ) {
      .timeref 1 1 ban %sec.chan $nick 2 | .timeref2 1 1 kick %sec.chan $nick 1Banned! You are violating Network Rules. [Advertise] ( $+ $date $time $+ )  ID: %num $+ .
    }
    if (%adv >= 4) && (%adv1 != ON) {
      .timere* off | .timerzxc65* off
      mode %sec.chan +mr
      set %adv1 on
      .timer 1 1 advertisebans
    }
  }
}
;End of advertise protections.
--------------------------------------
--------------------------------------
;NetSplit
on !*:quit: {
  if (*.net *.split isin $1-) && (!%split) {
    set -u1200 %split on | halt
  }
}
;NetSplit Ends
--------------------------------------
--------------------------------------
;Anti kicks protection.
on !*:kick:%sec.chan: {
  if (%takeover == ON) {
    if ($knick == $me) {
      if ($gettok($address($nick,2),2,64) !isin %masow) && ($nick != $logged($nick)) && ($nick != Q) {
        .timers off | unset %clones1 | .remove clones.txt | unset %adv1 | .remove advertise.txt | .remove advertisenicks.txt | .remove nicks.txt | .msg q ban %sec.chan $wildsite 1Don't Ever Kick The Guard.  | .msg q unbanme %sec.chan | .msg Q removeuser %sec.chan $nick | .timer 1 1 .msg Q invite %sec.chan | .timer 1 2 join %sec.chan | halt
      }
      elseif ($gettok($address($nick,2),2,64) isin %masow) || ($nick == $logged($nick)) || ($nick == Q) {
        .timers off |  unset %clones1 | .remove clones.txt | unset %adv1 | .remove advertise.txt | .remove advertisenicks.txt | .remove nicks.txt | .msg Q invite %sec.chan | .msg Q unbanme %sec.chan | .timer 1 1 join %sec.chan | halt
      }
    }
    if ($knick != $me) {
      if ($nick != Q) && ($gettok($address($nick,2),2,64) !isin %masow) && (($gettok($address($knick,2),2,64) isin %masow) || ($knick == $logged($knick))) {
        .msg Q removeuser %sec.chan $nick | .msg Q ban %sec.chan $wildsite 1Banned! Reason:Kick-Protected. | halt
      }
      if ($gettok($address($nick,2),2,64) !isin %masow) && ($gettok($address($knick,2),2,64) !isin %masow) && ($nick != Q) && ($nick != $logged($nick)) && ($knick != $logged($knick)) {
        if (%kicks [ $+ [ $nick ] ] == $calc(%allow-kick.times -1)) { .msg q ban %sec.chan $wildsite 1Banned! Reason:Don't Ever Takeover here. | .msg Q removeuser %sec.chan $nick | halt }
      }
      inc -u10 %kicks $+ $nick
    }
  }
}
;Anti kicks protection end.
--------------------------------------
--------------------------------------
;Anti bans protection.
on !*:ban:%sec.chan: {
  if (%takeover == ON) {
    if ($gettok($address($nick,2),2,64) !isin %masow) && ($nick != $logged($nick)) && ($banmask !iswm $address($me,6)) && ($nick != Q) {
      if (%bans [ $+ [ $nick ] ] == $calc(%allow-ban.times -1)) {
      .msg q ban %sec.chan $wildsite 1Don't Ever Takeover here. | .msg q removeuser %sec.chan $nick | unset %bans [ $+ [ $nick ] ] | halt }
    }
    inc -u10 %bans $+ $nick
  }
  if ($banmask iswm $address($me,6)) && ($gettok($address($nick,2),2,64) !isin %masow) && ($nick != $logged($nick)) && ($nick != Q) && (%banswtf != ON) {
    set %banswtf ON | .timer 1 15 unset %banswtf | .msg q ban %sec.chan $wildsite 1Banned! Reason:Don't Ever ban the Guard. | .msg Q removeuser %sec.chan $nick | halt
  }
}
;Anti bans protection ends.
--------------------------------------
--------------------------------------
;Joinpart protection.
on !*:part:%sec.chan: {
  if (%sec.part == ON) && (%clones1 != ON) {
    if (%JoinPart [ $+ [ $nick ] ] == 2) { mode %sec.chan +b $wildsite | kick %sec.chan $nick 1Banned! You Are Violating Network Rules. ( $+ $date $time $+ ) ID: %num | inc %num  | unset %JoinPart [ $+ [ $nick ] ] | halt }
    inc -u15 %JoinPart $+ $nick
  }
}
;Joinpart protection end.
--------------------------------------
--------------------------------------
;Flood&Reapet protections.
on *:text:*:%sec.chan:{
  if ($nick isreg %sec.chan) {
    hinc $+(-mu,$iif($hget(flood,text).unset,$ifmatch,3)) flood text
    if ($hget(flood,text) > 20) && (%flooding != ON) {
      set %text-flood OFF | set %reapet off | set %flooding ON
      mode %sec.chan +mr | .timer 1 100 mode %sec.chan -mr | .timer 1 100 set %reapet ON | .timer 1 100 set %text-flood ON | .timer 1 100 unset %flooding | halt
    }
    if (%text-flood == ON) {
      inc -u3 %flood. $+ $nick
      if (%flood. [ $+ [ $nick ] ] == $calc(%allow-flood.times -1)) { mode %sec.chan +b $wildsite | kick %sec.chan $nick 1Banned! You are violating Network Rules. [FLood] ( $+ $date $time $+ )  ID: %num $+ . | inc %num | halt }
    }
    if (%reapet == ON) {
      if (%reapet [ $+ [ $nick ] ] [ $+ [ $1 ] ] == $calc(%allow-reapet.times -1)) { mode %sec.chan +b $wildsite | kick %sec.chan $nick 1Banned! You are violating Network Rules. [Reapet] ( $+ $date $time $+ )  ID: %num $+ .  | inc %num | halt }
      inc -u3 %reapet $+ $nick $+ $1
    }
  }
  if (* $+ $str(d,1) $+ $chr(105) $+ $str(t,1) $+ $chr(115) iswm $1) && (!%flood) { $getush(%sec.chan) | set -u3 %flood 1 }
}
;FLood&Reapet protections end.
-----------------------------------------
--------------------------------------
;Anti deops protection
on !*:deop:%sec.chan:{
  if (%takeover == ON) {
    if ($opnick == $me) {
      if ($gettok($address($nick,2),2,64) !isin %masow) && (*quakenet* !iswm $nick) && ($nick != $logged($nick)) && (%banswtf != ON) {
        set %banswtf ON | .timer 1 15 unset %banswtf
        if ($me ison %sec.chan) { .msg Q op %sec.chan | .msg Q removeuser %sec.chan $nick | .msg q ban %sec.chan $wildsite 1Banned! Reason:Don't Ever Deop the Guard. | halt }
      }
      elseif ($gettok($address($nick,2),2,64) isin %masow) || ($nick == $logged($nick)) || (*quakenet* iswm $nick) {
        .msg Q op %sec.chan | halt
      }
    }
    elseif ($opnick != $me) {
      if ($gettok($address($nick,2),2,64) !isin %masow) && (*quakenet* !iswm $nick) && (Q !iswm $nick) && (($gettok($address($opnick,2),2,64) isin %masow) || ($opnick == $logged($opnick))) {
        .msg Q removeuser %sec.chan $nick | .msg Q ban %sec.chan $wildsite 1Banned! Reason:Don't Deop protected users. | halt
      }
    }
  }
}
;Anti deops protection end.
--------------------------------------
--------------------------------------
;Action protection.
on !*:action:*:%sec.chan: {
  if (%action == ON) && ($nick isreg %sec.chan) && (%clones1 != ON) {
    hinc $+(-mu,$iif($hget(action,$wildsite).unset,$ifmatch,2)) flooding $wildsite
    if ($hget(flooding,$wildsite) >= 4) {
      mode %sec.chan +b $wildsite | kick %sec.chan $nick  1Banned! You are violating Network Rules. [FLood] ( $+ $date $time $+ )  ID: %num $+ .  | inc %num | halt
    }
    if ($chr(35) isin $1-) {
      mode %sec.chan +b $wildsite | 1Banned! You are violating Network Rules. [Advertise] ( $+ $date $time $+ )  ID: %num $+ . | inc %num | halt
    }
  }
}
;Action protection ends.
--------------------------------------
--------------------------------------
;end of protections;
;end of protections;
;end of protections;
 
--------------------------------------
--------------------------------------
;menu
menu * {
  Protection Settings
  .Masterpass:set %masterpass $?\"Enter The master pass here."
  .Channel:set %sec.chan $?\"Type your chan here, dont forget #" | .timer 1 5 msg %sec.chan This channel is now beeing protected by me. | join %sec.chan
  .Sign:set %sec.sign $?\"Type The sign here , ex: !/@/+/-" | echo -a Done the sign has been set to : " $+ %sec.sign $+ "
  .show Protection status: echo -d 7,1The Protection Status Are : Join-Flood = $iif(%sec.clone == ON,4ON,3OFF) 7___ Adv = $iif(%sec.adv == ON,4ON,3OFF) 7___Anti-Takeover = $iif(%takeover == ON,4ON,3OFF) 7___Join/Part = $iif(%sec.part == ON,4ON,3OFF) 7___Anti-Flood = $iif(%text-flood == ON,4ON,3OFF) 7___Reapet == $iif(%reapet == ON,4ON,3OFF) 7___Action = $iif(%action == ON,4ON,3OFF) 
  .Set Protection ON/OFF
  ..ALL Protections
  ...ON:ALLON
  ...OFF:ALLOFF
  ..JoinFlood
  ...ON:set %sec.clone ON | echo -a JoinFLood protection are now ON
  ...OFF:set %sec.clone OFF | echo -a JoinFLood protection are now OFF
  ..Adv-Protection
  ...ON:set %sec.adv ON | echo -a Adv protection are now ON
  ...OFF:set %sec.adv OFF | echo -a Adv protection are now OFF
  ..Anti-Takeover
  ...ON:set %takeover ON | echo -a Anti Takeover protections are now ON
  ...OFF:set %takeover OFF | echo -a Anti Takeover protections are now OFF
  ..Flood
  ...ON:set %text-flood ON | echo -a Text Flood protections are now ON
  ...OFF:set %text-flood OFF | echo -a Text Flood protections are now OFF
  ..Reapet
  ...ON:set %reapet ON | echo -a Reapet protections are now ON
  ...OFF:set %reapet OFF | echo -a Reapet protections are now OFF
  ..Action
  ...ON:set %action ON | echo -a Action protections are now ON
  ...OFF:set %action OFF | echo -a Action protections are now OFF
  ..Join/part
  ...ON:set %sec.part ON | echo -a Join Part protections are now ON
  ...OFF:set %sec.part OFF | echo -a Join Part protections are now OFF
  Owners/Protected
  .set bot Protected: { set %masow1 $?\"Type The owner Qacc here" | if (%masow1) {
      if (%masow1 $+ .users.quakenet.org !isin %masow) { set %masow $addtok(%masow,%masow1 $+ .users.quakenet.org,32) | echo -a %masow1 $+ .users.quakenet.org Is Now Protected }
      elseif (%masow1 $+ .users.quakenet.org isin %masow) { echo -a %masow1 $+ .users.quakenet.org is already Protected }
    }
  }
  .remove bot Protected: { set %masow1 $?\"Type The owner Qacc That u want to remove" | if (%masow1) {
      if (%masow1 $+ .users.quakenet.org isin %masow) { set %masow $remtok(%masow,%masow1 $+ .users.quakenet.org,32) | echo -a %masow1 $+ .users.quakenet.org Is No Longer Protected }
      elseif (%masow1 $+ .users.quakenet.org !isin %masow) { echo -a %masow1 $+ .users.quakenet.org Is Not On The Protected List }
    }
  }
  .set bot owner:writeini admins.ini $?\"Enter the user here!" password $?\"Enter The Password Here."
  .remove bot owner:remini admins.ini $?\"Enter The user you want to remove here."
  .show bot protected:echo -d 7,1The protected are( $+ $numtok(%masow,32) $+ ): %masow
  .show bot owners:$iif($exists(admins.ini),run admins.ini,echo -a The owners Table is empty.)
  .Clear all protected:unset %masow | echo -a protected list is now empty.
  .Clear all owners:unset %owners | echo -a owner list is now empty.
  Times Allow
  .Allow flood times
  ..1:set %allow-flood.times 1 | echo -a users will be banned after 1 flood
  ..2:set %allow-flood.times 2 | echo -a users will be banned after 2 flood
  ..3:set %allow-flood.times 3 | echo -a users will be banned after 3 flood
  ..4:set %allow-flood.times 4 | echo -a users will be banned after 4 flood
  ..5:set %allow-flood.times 5 | echo -a users will be banned after 5 flood
  .Allow kick times
  ..1:set %allow-kick.times 1 | echo -a users will be banned after 1 kicks
  ..2:set %allow-kick.times 2 | echo -a users will be banned after 2 kicks
  ..3:set %allow-kick.times 3 | echo -a users will be banned after 3 kicks
  ..4:set %allow-kick.times 4 | echo -a users will be banned after 4 kicks
  ..5:set %allow-kick.times 5 | echo -a users will be banned after 5 kicks
  .Allow ban times
  ..1:set %allow-ban.times 1 | echo -a users will be banned after 1 bans
  ..2:set %allow-ban.times 2 | echo -a users will be banned after 2 bans
  ..3:set %allow-ban.times 3 | echo -a users will be banned after 3 bans
  ..4:set %allow-ban.times 4 | echo -a users will be banned after 4 bans
  ..5:set %allow-ban.times 5 | echo -a users will be banned after 5 bans
  .Allow reapet times
  ..1:set %allow-reapet.times 1 | echo -a users will be banned after 1 reapets
  ..2:set %allow-reapet.times 2 | echo -a users will be banned after 2 reapets
  ..3:set %allow-reapet.times 3 | echo -a users will be banned after 3 reapets
  ..4:set %allow-reapet.times 4 | echo -a users will be banned after 4 reapets
  ..5:set %allow-reapet.times 5 | echo -a users will be banned after 5 reapets
  .Show all times:echo -d 7,1The time before bans are : bans-allow = %allow-ban.times ____ kick-allow = %allow-kick.times ___ reapet-allow = %allow-reapet.times ___ times text-allow = %allow-flood.times $+ .
  -
  fun
  .qnet
  ..av:.msg q chanlev $chan $$1 +av
  ..ao:.msg q chanlev $chan $$1 +ao
  ..amo:.msg q chanlev $chan $$1 +amo
  ..amno:.msg q chanlev $chan $$1 +amno
  ..-av:.msg q chanlev $chan $$1 -av
  ..-ao:.msg q chanlev $chan $$1 -ao
  ..-amo:.msg q chanlev $chan $$1 -amo
  ..-amno:.msg q chanlev $chan $$1 -amno
  ..Qwelcome:.msg q welcome $chan $?\"Enter The Topic Here."
  ..settopic:.msg q settopic $chan $?\"Enter The Topic Here."
  ..autolimit:.msg q autolimit $chan $?\"Enter The Topic Here."
  ..recover:.msg q recover $chan
  ..deopall:.msg q deopall $chan
  ..unbanall:.msg q unbanall $chan
  ..unQbanAll:.msg q unbanmask $chan *!*@*
  ..Qban:msg q ban $chan $address($$1,2)
  ..Hello (make a Qacc):set %emaill $?\"Enter Your Full Email here." | msg q hello %emaill %emaill | echo -a Go check ur email.
  .Normal commands:
  ..voice:mode $chan +vvvvvv $$1 $2 $3 $4 $5 $6
  ..devoice:mode $chan -vvvvvv $$1 $2 $3 $4 $5 $6
  ..op:mode $chan +oooooo $$1 $2 $3 $4 $5 $6
  ..deop:mode $chan -oooooo $$1 $2 $3 $4 $5 $6
  ..ban:ban $chan $$1 2
  ..kick:kick $chan $$1 1are u still here? o_O ( $+ $time $date $+ )
  ..kick with reason:kick $chan $$1 $?\"Enter The Reason For Kick here."
  ..ban-kick:ban -k $chan $$1 2 1are u still here? o_O ( $+ $time $date $+ )
  ..ban-kick with reason:ban -k $chan $$1 2 $?\"Enter The Reason For Kick here."
  ..kick-times:set %nnkicknn $?\"Enter The Number of times For Kick here." | if (%nnkicknn isnum) { set %kick $+ $$1 %nnkicknn | kick $chan $$1 1 $+ 1/ $+ %kick [ $+ [ $$1 ] ] $nick are u still here? o_O ( $+ $time $date $+ ) } | else { echo -a please enter only numbers. | halt }
  ..modes
  ...in-channel
  ....m
  .....+:mode $chan +m
  .....-:mode $chan -m
  ....i
  .....+:mode $chan +i
  .....-:mode $chan -i
  ....r
  .....+:mode $chan +r
  .....-:mode $chan -r
  ....s
  .....+:mode $chan +s
  .....-:mode $chan -s
  ....c
  .....+:mode $chan +c
  .....-:mode $chan -c
  ....t
  .....+:mode $chan +t
  .....-:mode $chan -t
  ....T
  .....+:mode $chan +T
  .....-:mode $chan -T
  ....n
  .....+:mode $chan +n
  .....-:mode $chan -n
  ....N
  .....+:mode $chan +N
  .....-:mode $chan -N
  ....C
  .....+:mode $chan +C
  .....-:mode $chan -C
  ....u
  .....+:mode $chan +u
  .....-:mode $chan -u
  ....D
  .....+:mode $chan +D
  .....-:mode $chan -D
  ....d
  .....+:mode $chan +d
  .....-:mode $chan -d
  ....M
  .....+:mode $chan +M
  .....-:mode $chan -M
  ....k
  .....+key:mode $chan +k $?\"Enter The Key Here..." 
  .....-key:mode $chan -k $?\"Enter The Key Here..."
  ....l
  .....OFF:mode $chan -l
  .....Chose:mode $chan +l $?\"Enter The Limit Here..."
  ....chose modes
  .....chose:mode $chan $?\"Enter The Modes Here... For Ex:+mr-i and etc.."
  .....all +:mode $chan +smtinrDucCNTM
  .....all -:mode $chan -smtinrDucCNTM
  ...myself
  ....R
  .....ON:mode $me +R
  .....OFF:mode $me -R
  ....x
  .....ON:mode $me +x
  .....OFF:mode $me -x
  ....w
  .....ON:mode $me +w
  .....OFF:mode $me -w
  ....selected:mode $me $?\"Enter The Modes Here... For Ex:+ixR"
  ..ignore
  ...ignore:ignore $address($$1,2)
  ...unignore:ignore -r $address($$1,2)
  ...ignoreALL:ignore *
  ...unignoreALL:ignore -r *
  ..ctcp
  ...version:ctcp $$1 version
  ...ping:ctcp $$1 ping
  ...time:ctcp $$1 time
  ..whois:whois $$1
  ..info:uwho $$1
  ..Query:q $$1
  .blacklist
  ..add:set %black $addtok(%black,$address($$1,2),32) | ban -k %sec.chan $$1 2 1Black listed. ( $+ $date $time $+ )
  ..remove:set %black $remtok(%black,$address($$1,2),32)
  ..Show blacklist:echo -d 7,1The blacklist is:( $+ $numtok(%black,32) $+ ) %black
  ..Clear blacklist:unset %black
  .bantag:set -u10 %bantagush  $?\"Type the tag u want to kick&ban here. for ex: [A] / [B]" | bantag %bantagush | mode %sec.chan +b %bantagush $+ *!*@*
  .commands:helper1
  .protection-status:pstatus2
}
;menu end;
--------------------------------------
--------------------------------------
 
 
עמוד שני
 
;Hello, This is the 2nd part of my[xor1]
;security bot.
;This part has:
;loops, aliases, channel commands, pm commands.
--------------------------------------
--------------------------------------
;channel commands.
on *:text:*:%sec.chan:{ if (!%flood) {
    if ($nick == $logged($nick)) {
      if ($1 == %sec.sign $+ pstatus) { pstatus }
      if ($1 == %sec.sign $+ protected) { msg # 7,1The protected Are ( $+ $numtok(%masow,32) $+ ): %masow }
      if ($1 == %sec.sign $+ owners) { checkstatus | msg # 0,1THE OWNERS ARE:( $+ $numtok(%on,32) $+ / $+ $calc($numtok(%on,32) + $numtok(%off,32)) $+ ) %on %off }
      if ($1 == %sec.sign $+ unbanall) { mode %sec.chan -b * | msg %sec.chan Done. }
      if ($1 == %sec.sign $+ kick) && ($2) {
        if (!$3) {
          kick %sec.chan $goget($2) 1KICKED! Reason: Requested by owner. ( $+ $date $time $+ )
        }
        elseif ($3-) {
          kick %sec.chan $goget($2) $3-
        }
      }
      if ($1 == %sec.sign $+ bkick) && ($2) {
        if (!$3) {
          kick %sec.chan $goget($2) 1Banned! Reason: Requested by owner. ( $+ $date $time $+ ) | ban %sec.chan %nickk 2
        }
        elseif ($3-) {
          kick %sec.chan $goget($2) $3- | ban %sec.chan $goget($2) 2
        }
      }
      if ($1 == %sec.sign $+ ban) && ($2) {
        ban %sec.chan $goget($2) 2
      }
      if ($1 == %sec.sign $+ op) && ($2) {
        mode %sec.chan +o $goget($2)
      }
      if ($1 == %sec.sign $+ deop) && ($2) {
        mode %sec.chan -o $goget($2)
      }
      if ($1 == %sec.sign $+ voice) && ($2) {
        mode %sec.chan +v $goget($2)
      }
      if ($1 == %sec.sign $+ devoice) && ($2) {
        mode %sec.chan -v $goget($2)
      }
      if ((%sec.sign $+ mode iswm $1) || (%sec.sign $+ m iswm $1)) && ($2) {
        mode %sec.chan $2-
      }
      if ($1 == %sec.sign $+ bantag) && ($2) && (!$3-) && (%bantagok != ON) { mode %sec.chan +b $2 $+ * | bantag $2 | set %bantagok ON }
      if ($1 == %sec.sign $+ unban) && ($2) && (!$3-) { mode %sec.chan -b $2 $+ * }
      if ($1 == %sec.sign $+ join) && ($2) { join $2 | msg $nick 7,1Succesfuly Joined $2 }
      if ($1 == %sec.sign $+ addblack) {
        if ($2 != $me) {
          if ($address($2,2) !isin %black) { set %black $addtok(%black,$address($2,2),32) | .timer 1 3 msg # Done.
            if ($2 ison #) { ban -k %sec.chan $2 2 Banned! Reason:Black listen by owner request. }
          }
          elseif ($address($2,2) isin %black) { msg # He Is Already In My Blacklist. }
        }
        else { msg # do you really think you can blacklist me ? o_O }
      }
      if ($1 == %sec.sign $+ delblack) {
        if ($address($2,2) isin %black) { set %black $remtok(%black,$address($2,2),32) | .timer 1 3 msg # Done. }
        elseif ($address($2,2) !isin %black) { msg # He Isn't In My Blacklist. }
      }
      if ($1 == %sec.sign $+ part) && ($2) { part $2 | msg $nick 7,1Succesfuly Parted $2 }
      if ($1 == %sec.sign $+ chanlev) {
        if (%giveN == 2) { set %allow $+ $nick ON | .timeraaazzz 1 600 unset %allow $+ $nick | unset %giveN | set %masow $remtok(%masow,$gettok($address($nick,2),2,64),32) | set %owners $remtok(%owners,$gettok($address($nick,2),2,64),32) | msg %sec.chan $nick You have been warned . you dont got owner/protected anymore. | halt }
        if (n !isincs $3) && (N !isincs $3) { msg q chanlev %sec.chan $2 $3 | msg %sec.chan Done. $2 now have $3 }
        elseif (%allow $+ $nick != ON) && (n isincs $3) || (N isincs $3) { msg %sec.chan $2 Dont even try , next time ill take ur owner & protected | inc %giveN }
      }
      if ($1 == %sec.sign $+ qbanclones) { qbanclones %sec.chan }
      set -u3 %flood 1
    }
  } 
}
 
;End of channel commands.
--------------------------------------
--------------------------------------
;pm(Private Massage) commands.
on *:text:*:?:{ if (!%flood) {
    if ($1 == %sec.sign $+ login) && ($nick ison %sec.chan) {
      set -u4 %floods 1
      var %x = 1
      while ($ini(admins.ini,%x)) {
        if ($nick isin $readini(admins.ini,$v1,nick)) {
          msg $nick 7,1You are already loged into a user. | halt
        }
        inc %x
      }
      if ($readini(admins.ini,$2,status) != ON) {
        if ($3 == $readini(admins.ini,$2,password)) {
          msg $nick You have succesfuly Logged into admin acount $2 with the password $3
          writeini admins.ini $2 address $wildsite | writeini admins.ini $2 status ON | writeini admins.ini $2 nick $nick
          msg %sec.chan 7,1 $+ $nick $+  Has just Logged into his admin accout  $+ $2 $+  ( $+ $wildsite $+ )
          halt
        }
      }
      else {
        msg $nick 7,1You are already on!
      }
    }
    if ($nick == $logged($nick)) {
      if ($1 == %sec.sign $+ logout) || ($1 == %sec.sign $+ logoff) {
        set -u4 %floods 1
        writeini admins.ini $user($nick) status OFF | msg %sec.chan 7,1 $+ $nick $+  Has Just Logged Out of his admin account  $+ $user($nick) $+  | remini admins.ini $user($nick) nick | msg $nick 7,1You Have Succesfuly Logged out from your admin account.
      }
      set -u3 %flood 1
      if ($1 == %sec.sign $+ all) && ($2 == ON) { ALLON | msg $nick Done. }
      elseif ($1 == %sec.sign $+ all) && ($2 == OFF) { ALLOFF | msg $nick Done. }
      if ($1 == %sec.sign $+ setchan) && ($chr(35) isin $2) { set %sec.chan $2 | msg $nick Done , channel has been set to $2 $+ . HF beeing under my protection. | join $2 | .timer 1 10 msg $2 This channel is now beeing under my protection. Use !help in PrivateMassage for help. }
      elseif ($1 == %sec.sign $+ setchan) && ($chr(35) !isin $2) { msg $nick Error! u have to put $chr(35) in the command . for ex: %sec.sign $+ setchan #xor1 }
      if ($1 == %sec.sign $+ setsign) && ($2) { set %sec.sign $2 | msg $nick Done , The sign is now $2 HF! }
      if ($1 == sign) && (!$2) { msg $nick The correct sign is : %sec.sign }
      if ($1 == %sec.sign $+ addblack) {
        if ($2 != $me) {
          if ($address($2,2) !isin %black) { set %black $addtok(%black,$address($2,2),32) | msg $nick Done.
            if ($2 ison %sec.chan) { ban -k %sec.chan $2 2 Banned! Reason:Black listen by owner request. }
          }
          elseif ($address($2,2) isin %black) { msg $nick He Is Already In My Blacklist. }
        }
        else { msg $nick do you really think you can add me to the blacklist? o_O }
      }
      if ($1 == %sec.sign $+ delblack) {
        if ($address($2,2) isin %black) { set %black $remtok(%black,$address($2,2),32) | msg $nick Done. }
        elseif ($address($2,2) !isin %black) { msg $nick He Isn't In My Blacklist. }
      }
      if ($1 == %sec.sign $+ protected) { msg $nick 7,1The protected Are ( $+ $numtok(%masow,32) $+ ): %masow }
      if ($1 == %sec.sign $+ owners) { checkstatus | msg $nick 0,1THE OWNERS ARE:( $+ $numtok(%on,32) $+ / $+ $calc($numtok(%on,32) + $numtok(%off,32)) $+ ) %on %off }
      if ($1 == %sec.sign $+ pstatus) { pstatus1 $nick }
      if ($1 == chan) && (!$2) { msg $nick The correct protected channel is : %sec.chan }
      if ($1 == %sec.sign $+ unbanall) { mode %sec.chan -b * | msg $nick Done. }
      if ($1 == %sec.sign $+ Adv) && ($2 == ON) { set %sec.adv ON | msg $nick Advertise is now ON }
      elseif ($1 == %sec.sign $+ Adv) && ($2 == OFF) { set %sec.adv OFF | msg $nick Advertise protection is now OFF }
      if ($1 == %sec.sign $+ Joinflood) && ($2 == ON) { set %sec.clone ON | msg $nick Clones protection are now ON }
      elseif ($1 == %sec.sign $+ Joinflood) && ($2 == OFF) { set %sec.clone OFF | msg $nick Clones protection are now OFF }
      if ($1 == %sec.sign $+ Action) && ($2 == ON) { set %action ON | msg $nick Action protection are now ON }
      elseif ($1 == %sec.sign $+ Action) && ($2 == OFF) { set %action OFF | msg $nick Action protection are now OFF }
      if ($1 == %sec.sign $+ Joinpart) && ($2 == ON) { set %sec.part ON | msg $nick JoinPart protection are now ON }
      elseif ($1 == %sec.sign $+ Joinpart) && ($2 == OFF) { set %sec.part OFF | msg $nick JoinPart protection are now OFF }
      if ($1 == %sec.sign $+ Takeover) && ($2 == ON) { set %takeover ON | msg $nick AntiTakeOver protection are now ON }
      elseif ($1 == %sec.sign $+ Takeover) && ($2 == OFF) { set %takeover OFF | msg $nick AntiTakeOver protection are now OFF }
      if ($1 == %sec.sign $+ Textflood) && ($2 == ON) { set %text-flood ON | msg $nick TextFlood protection are now ON }
      elseif ($1 == %sec.sign $+ Textflood) && ($2 == OFF) { set %text-flood OFF | msg $nick TextFlood protection are now OFF }
      if ($1 == %sec.sign $+ Reapet) && ($2 == ON) { set %reapet ON | msg $nick TextFlood protection are now ON }
      elseif ($1 == %sec.sign $+ Reapet) && ($2 == OFF) { set %reapet OFF | msg $nick TextFlood protection are now OFF }
      if ($1 == %sec.sign $+ autolimit) {
        if ($2 == ON) {
          if ($3) {
            if ($3 isnum) { set %auto-limit ON | set %autolimit $3 | msg $nick Done, autolimit is now on < $+ $3 $+ > }
            else { msg $nick Please enter only numbers insted of $3 }
          }
          else { msg $nick Error! Please use %sec.sign $+ autolimit ON <num> }
        }
        elseif ($2 == OFF) { set %auto-limit OFF | msg $nick Done, Auto limit is now off }
      }
      if ($1 == !help) && (%helpok != ON) { helper $nick }
      if ($1 == %sec.sign $+ setuser) && ($2) {
        if ($2 $+ .users.quakenet.org !isin %masow) { set %masow $addtok(%masow,$2 $+ .users.quakenet.org,32) | msg $nick 7,1 $+ $2 $+ .users.quakenet.org Is Now Protected }
        elseif ($2 $+ .users.quakenet.org isin %masow) { msg $nick 7,1 $+ $2 $+ .users.quakenet.org is already Protected }
      }
      if ($1 == %sec.sign $+ deluser) && ($2) {
        if ($2 $+ .users.quakenet.org isin %masow) { set %masow $remtok(%masow,$2 $+ .users.quakenet.org,32) | msg $nick 7,1 $2 $+ .users.quakenet.org Is No Longer Protected }
        elseif ($2 $+ .users.quakenet.org !isin %masow) { msg $nick 7,1 $+ $2 $+ .users.quakenet.org Is Not On The Protected List }
      }
      if ($1 == %sec.sign $+ setowner) {
        if ($2 == %masterpass) {
          if ($4) { writeini admins.ini $3 password $4 | msg $nick Done, $3 is now admin with the password $4 , to login: /msg $me !login $3 $4 }
          else { msg $nick Error! Please use: %sec.sign $+ setowner <masterpass> <user> <pass> }
        }
      }
      if ($1 == %sec.sign $+ delowner) {
        if ($2 == %masterpass) {
          if ($3) { checkifadmin $3 $nick }
          else { msg $nick Error! please use: %sec.sign $+ delowner <masterpass> <user> }
        }
      }
      if ($1 == %sec.sign $+ kick) && ($2) {
        if (!$3) {
          kick %sec.chan $goget($2) 1KICKED! Reason: Requested by owner. ( $+ $date $time $+ )
        }
        elseif ($3-) {
          kick %sec.chan $goget($2) $3-
        }
      }
      if ($1 == %sec.sign $+ bkick) && ($2) {
        if (!$3) {
          kick %sec.chan $goget($2) 1Banned! Reason: Requested by owner. ( $+ $date $time $+ ) | ban %sec.chan $goget($2) 2
        }
        elseif ($3-) {
          kick %sec.chan $goget($2) $3- | ban %sec.chan $goget($2) 2
        }
      }
      if ($1 == %sec.sign $+ ban) && ($2) {
        ban %sec.chan $goget($2) 2
      }
      if ($1 == %sec.sign $+ op) && ($2) {
        mode %sec.chan +o $goget($2)
      }
      if ($1 == %sec.sign $+ deop) && ($2) {
        mode %sec.chan -o $goget($2)
      }
      if ($1 == %sec.sign $+ voice) && ($2) {
        mode %sec.chan +v $goget($2)
      }
      if ($1 == %sec.sign $+ devoice) && ($2) {
        mode %sec.chan -v $goget($2)
      }
      if ((%sec.sign $+ mode iswm $1) || (%sec.sign $+ m iswm $1)) && ($2-) {
        mode %sec.chan $2-
      }
      if ($1 == %sec.sign $+ bantag) && ($2) && (!$3-) && (%bantagok != ON) { mode %sec.chan +b $2 $+ * | bantag $2 | set %bantagok ON }
      if ($1 == %sec.sign $+ unban) && ($2) && (!$3-) { mode %sec.chan -b $2 $+ * }
      if ($1 == %sec.sign $+ join) && ($2) { join $2 }
      if ($1 == %sec.sign $+ part) && ($2) { part $2 }
      if ($1 == %sec.sign $+ chanlev) {
        if (%giveN == 2) { set %allow $+ $nick ON | .timeraaazzz 1 600 unset %allow $+ $nick | unset %giveN | set %masow $remtok(%masow,$gettok($address($nick,2),2,64),32) | remini admins.ini $user($nick) | msg %sec.chan $nick You have been warned . you dont got owner/protected anymore. | halt }
        if (n !isincs $3) && (N !isincs $3) { msg q chanlev %sec.chan $2 $3 | msg %sec.chan Done. $2 now have $3 }
        elseif (%allow $+ $nick != ON) && (n isincs $3) || (N isincs $3) { msg %sec.chan $2 Dont even try , next time ill take ur owner & protected | inc %giveN }
      }
      set -u3 %flood 1
    }
  }
}
 
on *:nick:{
  var %x = 1
  while (%x <= $ini(admins.ini,0)) {
    if ($readini(admins.ini,$ini(admins.ini,%x),nick) == $nick) {
      writeini admins.ini $ini(admins.ini,%x) nick $newnick
    }
    inc %x
  }
}
 
alias user {
  if ($1) {
    var %y = 1
    while ($ini(admins.ini,%y)) {
      if ($readini(admins.ini,$ini(admins.ini,%y),nick) == $1) {
        return $ini(admins.ini,%y)
      }
      inc %y
    }
  }
}
 
alias checkstatus {
  var %x = 1 | unset %on | unset %off
  while (%x <= $ini(admins.ini,0)) {
    if ($readini(admins.ini,$ini(admins.ini,%x),status) == ON) {
      set %on %on 3 $+ * $+ 0,1 $+ $ini(admins.ini,%x)
    }
    else {
      set %off %off 4 $+ * $+ 0,1 $+ $ini(admins.ini,%x)
    }
    inc %x
  }
}
 
alias logged {
  if ($1) {
    var %x = 1
    while ($ini(admins.ini,%x)) {
      if ($readini(admins.ini,$v1,nick) == $1) && ($readini(admins.ini,$v1,status) == ON) {
        return $1
      }
      inc %x
    }
  }
}
 
alias checkifadmin {
  var %x = 1
  while ($ini(admins.ini,%x)) {
    if ($1 == $v1) {
      remini admins.ini $1 | msg $2 Done, $1 is no longer owner! | halt
    }
    inc %x
  }
  msg $2 Error! $3 isn't an owner!
}
 
on *:part:%%sec.chan:{
  if ($nick == $logged($nick)) {
    writeini admins.ini $user($nick) status OFF | msg # 7,1 $+ $nick $+  Has Just Logged out of his ADMIN  $+ $user($nick) $+  WITH REASON:PART | msg $nick 7,1You have just Logged out of your ADMIN  $+ $user($nick) $+  Because of:PART
  }
}
 
on *:kick:%sec.chan:{
  if ($knick == $logged($knick)) {
    writeini admins.ini $user($knick) status OFF | msg # 7,1 $+ $knick $+  Has Just Logged out of his ADMIN  $+ $user($knick) $+  WITH REASON:KICKED by $nick | msg $knick 7,1You have just Logged out of your ADMIN  $+ $user($knick) $+  Because of:KICKED by $nick | remini admins.ini $user($knick) nick
  }
}
 
on *:quit:{
  if ($nick == $logged($nick)) {
    writeini admins.ini $user($nick) status OFF | msg # $chr(91) $+ 12 $+ %invitechan $+ 1 $+ $chr(93) 2 $+ $nick $+  1Has Just Logged out of his ADMIN 2 $+ $user($nick) $+ 1 WITH REASON:QUIT $chr(91) $+ 12 $+ %invitechan $+ 1 $+ $chr(93)  | remini admins.ini $user($nick) nick
  }
}
 
 
 
;End of pm commands.
--------------------------------------
--------------------------------------
;aliases;;loops;
;aliases;;loops;
;aliases;;loops;
;start;
alias bantag {
  var %yx = 1, %yxx = 1
  while ($nick(%sec.chan,%yx)) {
    if ($1 $+ * iswm $v1) {
      if (%yxx < 10) {
        .timertag $+ %yx 1 %yxx kick %sec.chan $v2  Banned! Reason > Ban tag by owner request. ( $+ $date $time $+ )  | inc %yxx
      }
      else {
        .timertag $+ %yx 1 %yxx kick %sec.chan $v2  Banned! Reason > Ban tag by owner request. ( $+ $date $time $+ )  | inc %yxx 2
      }
    }
    inc %yx
  }
  .timer 1 $calc(%yxx +5) unset %bantagok
}
 
alias ALLON {
  set %sec.clone ON | set %auto-limit ON | set %sec.adv ON | set %takeover ON | set %text-flood ON | set %reapet ON | set %action ON | set %sec.part ON | echo -a ALL protections are now ON
}
 
alias ALLOFF {
  set %sec.clone OFF | set %sec.adv OFF | set %auto-limit OFF | set %takeover OFF | set %text-flood OFF | set %reapet OFF | set %action OFF | set %sec.part OFF | echo -a ALL protections are now OFF
}
 
alias clonesbans {
  var %x = 1, %z = 1
  while ($read(clones.txt,%x)) {
    var %y = %y $gettok($v1,1-,32)
    if ($numtok(%y,32) == $modespl) { .timer 1 %z mode %sec.chan + $+ $str(b,$modespl) %y | var %y | inc %z 2 }
    if ($ibl(%sec.chan,0).ban == 45) { timers off | .timergokick 1 5 cloneskicks1 %sec.chan | halt }
    inc %x
  }
  .timer 1 1 checkbanlist1
  .timer 10 5 checkbanlist1
  if ($numtok(%y,32) < $modespl) { .timer 1 %z mode %sec.chan + $+ $str(b,$numtok(%y,32)) %y }
  if ($ibl(%sec.chan,0).ban == 45) { timers off | .timergokick 1 5 cloneskicks1 %sec.chan | halt }
  .timer 1 $calc(%z +1) cloneskicks %sec.chan
}
 
alias checkbanlist1 {
  if ($ibl(%sec.chan,0) == 45) { timers off | msg %sec.chan Ban list if full, Going to kicks. | .timergokick 1 5 cloneskicks1 %sec.chan | halt }
}
 
alias getush {
  msg $1 7,1 $+ %editor
}
 
alias cloneskicks {
  var %x = 1, %i = 1
  while ($read(nicks.txt,%x)) {
    if ($read(nicks.txt,%x) ison %sec.chan) {
      .timer 1 %i kick $1 $read(nicks.txt,%x)  1Banned! You are violating Network Rules. [JoinFlood] ( $+ $date $time $+ )  ID: %num $+ .  | inc %num | inc %i 2
    }
    inc %x
  }
  .timer 1 $calc(%i +5) mode %sec.chan -mr
  .timer 1 %i .remove nicks.txt
  .timer 1 %i unset %clones1
  .timer 1 %i set %sec.adv ON
  .timer 1 %i .remove clones.txt
  .timer 1 %i set %text-flood ON
  .timer 1 %i set %reapet ON
}
 
alias cloneskicks1 {
  var %x = 1, %i = 1
  while ($read(nicks.txt,%x)) {
    if ($read(nicks.txt,%x) ison %sec.chan) {
      .timer 1 %i kick $1 $read(nicks.txt,%x)  1Banned! You are violating Network Rules. [JoinFlood] ( $+ $date $time $+ )  ID: %num $+ .  | inc %num | inc %i 2
    }
    inc %x
  }
  .timer 1 $calc(%i +5) mode %sec.chan -m
  .timer 1 $calc(%i +40) mode %sec.chan -r
  .timer 1 %i .remove nicks.txt
  .timer 1 %i unset %clones1
  .timer 1 %i set %sec.adv ON
  .timer 1 %i .remove clones.txt
  .timer 1 %i set %text-flood ON
  .timer 1 %i set %reapet ON
}
 
alias advertisebans {
  var %x = 1, %z = 1
  while ($read(advertise.txt,%x)) {
    var %ad = %ad $gettok($v1,1-,32)
    if ($numtok(%ad,32) == $modespl) { .timer 1 %z mode %sec.chan + $+ $str(b,$modespl) %ad | var %ad | inc %z 2 }
    inc %x
  }
  .timer 1 1 checkbanlist
  .timer 10 5 checkbanlist
  if ($numtok(%ad,32) < $modespl) { .timer 1 %z mode %sec.chan + $+ $str(b,$numtok(%ad,32)) %ad }
  if ($ibl(%sec.chan,0).ban == 45) { .timers off | .timergoban 1 5 advertisekicks1 %sec.chan | halt }
  .timer 1 $calc(%z +1) advertisekicks %sec.chan
}
 
alias checkbanlist {
  if ($ibl(%sec.chan,0) == 45) { .timers off | msg %sec.chan Ban list is full, Going to kicks. | .timergokick 1 5 advertisekicks1 %sec.chan | halt }
}
 
 
alias advertisekicks {
  var %x = 1, %i = 1
  while ($read(advertisenicks.txt,%x)) {
    if ($read(advertisenicks.txt,%x) ison %sec.chan) {
      .timer 1 %i kick $1 $read(advertisenicks.txt,%x)  1Banned! You are violating Network Rules. [Advertise] ( $+ $date $time $+ )  ID: %num $+ . | inc %num | inc %i 2
    }
    inc %x
  }
  .timer 1 $calc(%i +5) mode %sec.chan -mr
  .timer 1 %i .remove advertisenicks.txt
  .timer 1 %i unset %adv1
  .timer 1 %i .remove advertise.txt
}
 
alias advertisekicks1 {
  var %x = 1, %i = 1
  while ($read(advertisenicks.txt,%x)) {
    if ($read(advertisenicks.txt,%x) ison %sec.chan) {
      .timer 1 %i kick $1 $read(advertisenicks.txt,%x)  1Banned! You are violating Network Rules. [Advertise] ( $+ $date $time $+ )  ID: %num $+ . | inc %num | inc %i 2
    }
    inc %x
  }
  .timer 1 $calc(%i +5) mode %sec.chan -m
  .timer 1 $calc(%i +40) mode %sec.chan -r
  .timer 1 %i .remove advertisenicks.txt
  .timer 1 %i unset %adv1
  .timer 1 %i .remove advertise.txt
}
 
 
on *:connect: {
  if (!%sec.sign) {
    set %sec.sign !
  }
  set %ddddd 7,1This bot was made by xor1 , 2nd version. please DO NOT change the credits.
  .timer 1 20 //echo -a %ddddd
  //mode $me +xR
  checking
  .timer 0 1000 checking
  if (%sec.chan) { .timer 1 3 join %sec.chan }
  if (!%allow-flood.times) { set %allow-flood.times 4 }
  if (!%allow-kick.times) { set %allow-kick.times 3 }
  if (!%allow-ban.times) { set %allow-ban.times 3 }
  if (!%allow-reapet.times) { set %allow-reapet.times 3 }
  if (%clones1) { unset %clones1 }
  if (%adv1) { unset %adv1 }
  if (!%autolimit) { set %autolimit 5 }
  .timer 1 4 ALLON | .timer 1 5 echo -a 7,1ALL the protection turned ON automaticly. if u want to disable them, right click > protection setting > set ON/OFF.
}
 
 
on *:join:%sec.chan:{
  if (%cloneso != ON) && ($nick != $me) {
    if ($me isop %sec.chan) && ($address($nick,2) isin %black) {
      mode %sec.chan +b $wildsite | kick %sec.chan $nick 1,0BLACK Listed By Owner.
    }
    if ($me isop %sec.chan) && (%kick [ $+ [ $nick ] ]) {
      gonum # $nick
    }
  }
  if (%auto-limit == ON) && (!%limitflood) { set -u60 %limitflood 1 | mode %sec.chan +l $calc($nick(%sec.chan,0) + %autolimit) }
}
 
on !*:op:%sec.chan:{ if (!%flood) {
    if ($opnick == $me) {
      set -u5 %flooding 1
      if ($chan(#).key) {
        mode # -k $v1
      }
      var %zzz = 1
      while ($nick(#,%zzz)) {
        if ($address($v1,2) isin %black) { ban -k $1 %black11 1Sry but you are in my black list. ( $+ $date $time $+ ) ID: %num | inc %num }
        inc %zzz
      }       
    }
  }
}
 
 
alias goget {
  var %kk = 1
  while ($nick(#,%kk)) {
    if ($1 $+ * iswm $nick(#,%kk)) {
      return $v2
    }
    inc %kk
  }
}
 
alias helper {
  set %helpok ON
  .msg $1 7,1The Commands Are:(Private Massage) %sec.sign $+ help = Show the bot commands. --- %sec.sign $+ protected = Show the protected list. --- %sec.sign $+ owners = Show the owners list. --- %sec.sign $+ pstatus = Show the protection status. --- %sec.sign $+ setchan = Sets the protected channel. --- %sec.sign $+ setsign = sets the bot sign.
  .timer 1 2 msg $1 7,1The Commands Are:(Private Massage) = %sec.sign $+ ProtectionName ON/OFF = Sets protection ON or OFF for use ex: ( $+ %sec.sign $+ Joinflood ON = sets Joinflood on). ------ 7,1The Protections Names Are: JoinFlood --- Adv --- Autolimit --- Action --- Joinpart --- Reapet --- Textflood --- Takeover.
  .timer 1 4 msg $1 7,1The Commands Are:(Private Massage) = %sec.sign $+ setuser = Set a protecteduser. --- %sec.sign $+ deluser = Del a protecteduser. --- %sec.sign $+ setowner = Sets a bot owner. --- %sec.sign $+ delowner = Del a bot owner. --- chan = Show the correct protected channel. --- sign = Show the correct bot sign.
  .timer 1 6 msg $1 7,1The Commands Are:(Pm & Channel) = %sec.sign $+ Op/Deop/Kick/Ban/Bkick/Voice/Devoice/Unban/Unbanall. --- %sec.sign $+ Join/Part = Join/Part a channel. --- %sec.sign $+ addblack/delblack = Edit/Remove someone from/to blacklist. --- %sec.sign $+ bantag = Ban a specified tag. --- %sec.sign $+ chanlev = Give a level for specified person , no more then Master(+m).
  .timer 1 6 unset %helpok
}
 
alias helper1 {
  echo -d 7,1The Commands Are:(Private Massage) %sec.sign $+ help = Show the bot commands. --- %sec.sign $+ protected = Show the protected list. --- %sec.sign $+ owners = Show the owners list. --- %sec.sign $+ pstatus = Show the protection status. --- %sec.sign $+ setchan = Sets the protected channel. --- %sec.sign $+ setsign = sets the bot sign.
  echo -d 7,1The Commands Are:(Private Massage) = %sec.sign $+ ProtectionName ON/OFF = Sets protection ON or OFF for use ex: ( $+ %sec.sign $+ Joinflood ON = sets Joinflood on). for limit : %sec.sign $+ autolimit (ON <num>/off) ------ 7,1The Protections Names Are: JoinFlood --- Adv --- Action --- Joinpart --- Reapet --- Textflood --- Takeover.
  echo -d 7,1The Commands Are:(Private Massage) = %sec.sign $+ setuser = Set a protecteduser. --- %sec.sign $+ deluser = Del a protecteduser. --- %sec.sign $+ setowner = Sets a bot owner. --- %sec.sign $+ delowner = Del a bot owner. --- chan = Show the correct protected channel. --- sign = Show the correct bot sign.
  echo -d 7,1The Commands Are:(Pm & Channel) = %sec.sign $+ Op/Deop/Kick/Ban/Bkick/Voice/Devoice/Unban/Unbanall. --- %sec.sign $+ Join/Part = Join/Part a channel. --- %sec.sign $+ addblack/delblack = Edit/Remove someone from/to blacklist. --- %sec.sign $+ bantag = Ban a specified tag. --- %sec.sign $+ chanlev = Give a level for specified person , no more then Master(+m).
}
 
 
alias pstatus {
  msg %sec.chan 7,1The Protection Status Are : 7Join-Flood = $iif(%sec.clone == ON,4ON,3OFF) 7 $+ --- Adv = $iif(%sec.adv == ON,4ON,3OFF) 7 $+ --- Anti-Takeover = $iif(%takeover == ON,4ON,3OFF) 7 $+ --- Join/Part = $iif(%sec.part == ON,4ON,3OFF) 7 $+ --- Anti-Flood = $iif(%text-flood == ON,4ON,3OFF) 7 $+ --- Reapet == $iif(%reapet == ON,4ON,3OFF) 7 $+ --- Autolimit = $iif(%auto-limit == ON,4ON,3OFF) 7< $+ %autolimit $+ > --- Action = $iif(%action == ON,4ON,3OFF)
}
 
alias pstatus1 {
  msg $1 7,1The Protection Status Are : 7Join-Flood = $iif(%sec.clone == ON,4ON,3OFF) 7 $+ --- Adv = $iif(%sec.adv == ON,4ON,3OFF) 7 $+ --- Anti-Takeover = $iif(%takeover == ON,4ON,3OFF) 7 $+ --- Join/Part = $iif(%sec.part == ON,4ON,3OFF) 7 $+ --- Anti-Flood = $iif(%text-flood == ON,4ON,3OFF) 7 $+ --- Reapet == $iif(%reapet == ON,4ON,3OFF) 7 $+ --- Autolimit = $iif(%auto-limit == ON,4ON,3OFF) 7< $+ %autolimit $+ > --- Action = $iif(%action == ON,4ON,3OFF)
}
 
alias pstatus2 {
  echo -d 7,1The Protection Status Are : 7Join-Flood = $iif(%sec.clone == ON,4ON,3OFF) 7 $+ --- Adv = $iif(%sec.adv == ON,4ON,3OFF) 7 $+ --- Anti-Takeover = $iif(%takeover == ON,4ON,3OFF) 7 $+ --- Join/Part = $iif(%sec.part == ON,4ON,3OFF) 7 $+ --- Anti-Flood = $iif(%text-flood == ON,4ON,3OFF) 7 $+ --- Reapet == $iif(%reapet == ON,4ON,3OFF) 7 $+ --- Autolimit = $iif(%auto-limit == ON,4ON,3OFF) 7< $+ %autolimit $+ > --- Action = $iif(%action == ON,4ON,3OFF)
}
 
 
alias gonum {
  if (%yxyx [ $+ [ $2 ] ] > %kick [ $+ [ $2 ] ]) { unset %kick [ $+ [ $2 ] ] | unset %yxyx [ $+ [ $2 ] ] | halt }
  if (!%yxyx [ $+ [ $2 ] ]) { set %yxyx $+ $2 2 }
  kick $1 $2 1 $+ %yxyx [ $+ [ $2 ] ] $+ / $+ %kick [ $+ [ $2 ] ] $2 are u still here? o_O ( $+ $time $date $+ )  | inc %yxyx [ $+ [ $2 ] ] | halt
}
 
alias checking {
  if (%editor !iswm $chr(84) $+ $chr(104) $+ $chr(105) $+ $chr(115) $chr(83) $+ $chr(101) $+ $chr(99) $+ $chr(117) $+ $chr(114) $+ $chr(105) $+ $chr(116) $+ $chr(121) $str(B,1) $+ $str(o,1) $+ $str(t,1) $str(W,1) $+ $chr(97) $+ $chr(115) $str(M,1) $+ $chr(97) $+ $chr(100) $+ $chr(101) $str(B,1) $+ $str(y,1) $str(x,1) $+ $chr(111) $+ $str(r,1) $+ 1 > $str(Pri,1) $+ $str(vate,1) $str(Edi,1) $+ $str(tion,1)) {
    set %editor $chr(84) $+ $chr(104) $+ $chr(105) $+ $chr(115) $chr(83) $+ $chr(101) $+ $chr(99) $+ $chr(117) $+ $chr(114) $+ $chr(105) $+ $chr(116) $+ $chr(121) $str(B,1) $+ $str(o,1) $+ $str(t,1) $str(W,1) $+ $chr(97) $+ $chr(115) $str(M,1) $+ $chr(97) $+ $chr(100) $+ $chr(101) $str(B,1) $+ $str(y,1) $str(x,1) $+ $chr(111) $+ $str(r,1) $+ 1 > $str(Pri,1) $+ $str(vate,1) $str(Edi,1) $+ $str(tion,1)
  } 
}
 
 
alias Qbanclones {
  if (!%ips) {
    set -u150 %ips *!*@6?.* *!*@5?.* *!*@4?.* *!*@9?.* *!*@22?.* *!*@20?.* *!*@213.* *!*@219.* *!*@211.* *!*@218.* *!*@*.uk *!*@*.fr *!*@*.de *!*@*.se *!*@*.br *!*@*.be *!*@*.it *!*@*.lt *!*@c-* *!*@*.proxad* *!*@*.com* *!*@*.optonline* *!*@*.info *!*@*.tor.quakenet.org *!*@*.pl *!*@*.verizon* *!*@*h.net *!*@*.ru *!*@*.cox* *!*@*.es *!*@*y.net *!*@*.hinet* *!*@*bell* *!*@216.* *!*@*.sbcglobal* *!*@212.* *!*@*r.net *!*@*.nl
    var %x = 1
    while ($gettok(%ips,%x,32)) {
      if (%x < 20) { .timer 1 %x .msg q ban $1 $gettok(%ips,%x,32) 7,1No Clones Here. | inc %x }
      if (%x > 19) { .timer 1 $calc(%x +5) .msg q ban $1 $gettok(%ips,%x,32) 7,1No Clones Here. | inc %x 2 }
    }
  }
}
 
 
 
;aliases;;loops;
;aliases;;loops;
;aliases;;loops;
;end;
--------------------------------------
--------------------------------------
http://pastebin.com/uH3R0cV1
Admin
Admin
Admin

מספר הודעות : 269
Join date : 2009-09-12
Age : 43
מיקום : mIRCX IRC Network

https://mircx.forumotion.net

Back to top Go down

Back to top

MIRCX IRC Network :: MIRCX :: MIRCX

 
Permissions in this forum:
You cannot reply to topics in this forum