Access Bot בוט גישות by `vGsus

[Vgsus]

שם הקוד: Access Bot
יוצר: Vgsus
גירסא: 1.1
תיאור: בוט גישות
הפעלה: אתם מכניסים את הקוד ומוסיפים אונר או מסטר ועושים לו !help
דרישות: משתמש q
עזרה: תעשו מקש ימני ו access help ויש שם הסבר קטן

קוד: בחר הכל

~~~~~~~~~~~~~~~~~~~~~~~~~~Access Bot By~~~~~~~~~~~~~~~~~~~~~~~~~~
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~`vGsus~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
~~~~~~~~~~~~~~~~~~~~~~~~~~~Version 1.1~~~~~~~~~~~~~~~~~~~~~~~~~~~
menu * {
  Access Help
  .Help: {
    echo -d 14Welcome to 4`v14Gsus 4A14ccess , 14(Version 1.1)
    echo -d 14<==========[4 Access 14]==========>
    echo -d 14<============[4 By 14]===========>
    echo -d 14<==========[4 `vGsus 14]==========>
    echo -d 14<==========[4 Version 14]==========>
    echo -d 14<===========[4 1.1 14]============>
    echo -d 4Owners 14= / add owners / del owners / add masters / del masters / Show Owners / Show Masters / change nick.
    echo -d 4Owners 14= / ao / -ao / av / banclear / bantag / -bantag / qban / -qban / !nick <nick>.
    echo -d 4Masters 14= / ao / -ao / av / banclear / bantag / -bantag / qban / -qban.
    echo -d 4Credits 14= This Access Bot Made By 4`vGsus 14(Version 1.1)
    echo -d 4Bugs???  14Pme Ty Have Fun !
  }
}

menu * {
  AccessBot
  .channel { set %channel %channel $input(nick channel,e,nick channe) }
  .Owners
  ..add owner { set %Acc.owners %Acc.owners $input(Qaccount,e,Qaccount) $+ .users.quakenet.org }
  ..del owner { set %Acc.owners $remove(%Acc.owners,$input(Qaccount,e,Qaccount remove?) $+ .users.quakenet.org,32) }
  ..Show owners { $input(Owners List (Total Owners: $numtok(%Acc.owners,32) $+ ) $+ : $crlf $+ $replace(%Acc.owners,$chr(32),$crlf),o,Owners) }
  .Masters
  ..add Master { set %Acc.Masters %Acc.Masters $input(Qaccount,e,Qaccount) $+ .users.quakenet.org }
  ..del Master { set %Acc.Masters $remove(%Acc.Masters,$input(Qaccount,e,Qaccount remove?) $+ .users.quakenet.org,32) }
  ..Show Masters { $input(Masters List (Total Masters: $numtok(%Acc.Masters,32) $+ ) $+ : $crlf $+ $replace(%Acc.Masters,$chr(32),$crlf),o,Masters) }
}
on *:Text:*:#:{
  if ($1 == ?owners) && (!%flood) {
  msg %channel 14 The 4Owners 14Are: 14(14 %Acc.Owners 14) | set -u20 %flood 1 }
  if ($1 == !credits) && (!%flood) {
  msg %channel 1 14This Access Bot Made By 4`vGsus 14(Version 1.1) | set -u20 %flood 1 }
}
on *:connect:{
  //username Access By `vGsus (Version 1.1)
  echo -s  4 Hello 14 | echo -s 14 You are connnected to  $network | echo -s 14 for help //msg $me 4!Help or !Commands | echo -s  4Have Fun!
}
on *:text:*:?: {
  if ($istok(%Acc.owners,$gettok($address($nick,2),2,64),32)) {
    if ($1 = !Help) || ($1 == !commands) && (!%flood) { msg $nick 4« 4• 4Owners Commands 14: 4!O14wners / 4!M14asters / 4!A14dd-o Qacc / 4!D14el-o Qacc / 4!A14dd-m Qacc / 4!D14el-m Qacc / 4!c14redits / 4!n14ick <nick> 4• 4» | set -u2 %flood-x 1 }
    if ($1 = !Help) || ($1 == !commands) && (!%flood) { msg $nick 4« 4• 4Access Commands 14: 4!a14o <Nick / #Qacc> 4 !-a14o <Nick / #Qacc> 4!a14v <Nick / #Qacc>4 !-a14v <Nick / #Qacc> 4 !q14Ban <Nick / 14#Qacc> 4 !-q14ban <*!*@#Qacc.users.quakenet.org> 4 !B14antag <Tag> 4 !-14bantag <Tag> 4!q14bc 4(`vGsus Access V1.1) 4• 4» | set -u2 %flood 1 }
    if ($1 = !ao) && ($1) && ($istok(%Acc.owners,$gettok($address($nick,2),2,64),32)) { msg q chanlev %channel $2 +ao | msg $nick 4D15one4! Mr>> $nick | set -u2 %flood 1 }
    if ($1 = !qbc) && ($1) && ($istok(%Acc.owners,$gettok($address($nick,2),2,64),32)) { msg q banclear %channel $2 | msg $nick 4D15one4! Mr>> $nick  | set -u2 %flood 1 }
    if ($1 = !-ao) && ($1) && ($istok(%Acc.owners,$gettok($address($nick,2),2,64),32)) { msg q chanlev %channel $2 -ao | mode %channel -o $2 | msg $nick 4D15one4! Mr>> $nick | set -u2 %flood 1 }
    if ($1 = !av) && ($1) && ($istok(%Acc.owners,$gettok($address($nick,2),2,64),32)) { msg q chanlev %channel $2 +av | msg $nick 4D15one4! Mr>> $nick | set -u2 %Flood 1 }
    if ($1 = !-av) && ($1) && ($istok(%Acc.owners,$gettok($address($nick,2),2,64),32)) { msg q chanlev %channel $2 -av | mode %channel -v $2 | msg $nick 4D15one4! Mr>> $nick | set -u2 %flood 1 }
    if ($1 = !qban) && ($1) && ($istok(%Acc.owners,$gettok($address($nick,2),2,64),32)) { msg Q PERMBAN %channel *!*@ $+ $2 $+ .users.quakenet.org | msg $nick 4D15one4! Mr>> $nick | set -u2 %flood 1 }
    if ($1 = !-qban) && ($1) && ($istok(%Acc.owners,$gettok($address($nick,2),2,64),32)) { msg q bandel %channel $3- $2 | msg $nick 4D15one4! Mr>> $nick | set -u2 %flood 1 }
    if ($1 = !bantag) && ($1) && (!$2) && ($istok(%Acc.owners,$gettok($address($nick,2),2,64),32)) { msg $nick Synex Error: No Tag | set -u2 %flood 1 }
    if ($1 = !bantag) && ($1) && ($2) && ($istok(%Acc.owners,$gettok($address($nick,2),2,64),32)) { msg q ban %channel $2 $+ *!*@* | msg $nick 4D15one4! Mr>> $nick | set -u2 %flood 1 }
    if ($1 = !-bantag) && ($1) && ($istok(%Acc.owners,$gettok($address($nick,2),2,64),32)) { msg q bandel %channel $2 $+ *!*@* | msg $nick 4D15one4! Mr>> $nick | set -u2 %flood 1 }
    if ($1 = !Owners) && (!%flood) { msg $nick 14The 4Owners 14Are: 14( $+ 4 Total: $numtok(14 %Acc.owners,32) $+ 14 ): %Acc.owners | set -u2 %flood 1 }
    if ($1 = !masters) && (!%flood) { msg $nick 14The 4Masters 14Are: 14( $+ 4 Total: $numtok(14 %Acc.Masters,32) $+ 14 ): %Acc.masters | set -u2 %flood 1 }
    if ($1 = !add-o) && ($2 $+ .users.quakenet.org isin %Acc.owners) && (!%flood) { timer 1 0 msg $nick 4 $2 $+ .users.quakenet.org 1is already Owner | set -u2 %flood 1 }
    if ($1 = !add-o) && (!%flood) { set %Acc.owners %Acc.owners $2 $+ .users.quakenet.org | timer 1 0 msg $nick 4 $2 $+ .users.quakenet.org 14is Now Owner  | set -u2 %flood 1 }
    if ($1 = !del-o) && ($2 $+ .users.quakenet.org !isin %Acc.owners) && (!%flood) { timer 1 0 msg $nick 14No Such Q account in Owners. | set -u2 %flood 1 }
    if ($1 = !del-o) && (!%flood) { set %Acc.owners $remove(%Acc.owners,$2 $+ .users.quakenet.org) | timer 1 0 msg $nick 4 $2 4 $+ .users.quakenet.org 14Deleted from Owners list.  | set -u2 %flood 1 }
    if ($1 = !add-m) && ($2 $+ .users.quakenet.org isin %Acc.masters) && (!%flood) { timer 1 0 msg $nick 4 $2 $+ .users.quakenet.org 14is already Master. | set -u2 %flood 1 }
    if ($1 = !add-m) && (!%flood) { set %Acc.masters %Acc.masters $2 $+ .users.quakenet.org | timer 1 0 msg $nick 4 $2 $+ .users.quakenet.org 14is Now Master | set -u2 %flood 1 }
    if ($1 = !del-m) && ($2 $+ .users.quakenet.org !isin %Acc.masters) && (!%flood) { timer 1 0 msg $nick 14No Such Q account in Masters. | set -u2 %flood 1 }
    if ($1 = !del-m) && (!%flood) { set %Acc.masters $remove(%Acc.masters,$2 $+ .users.quakenet.org) | timer 1 0 msg $nick 4 $2 4 $+ .users.quakenet.org 14Deleted from Masters list. | set -u2 %flood 1 }
    if ($1 = !credits) && ($1) && ($istok(%Acc.owners,$gettok($address($nick,2),2,64),32)) { msg $nick  14This Access Bot Made By 4`vGsus 14(Version 1.1) | set -u2 %flood 1 }
    if ($1 = !nick) && ($1) && ($istok(%Acc.owners,$gettok($address($nick,2),2,64),32)) { /nick $2 msg $nick | msg $nick 4D15one4! Mr>> $nick | set -u2 %flood }
  }
  if ($istok(%Acc.masters,$gettok($address($nick,2),2,64),32)) {
    if ($1 = !Help) || ($1 == !commands) && (!%flood) { msg $nick 4« 4• 4Access Commands 14: 4!a14o <Nick / #Qacc> 4 !-a14o <Nick / #Qacc> 4!a14v <Nick / #Qacc>4 !-a14v <Nick / #Qacc> 4 !q14Ban <Nick / 14#Qacc> 4 !-q14ban <*!*@#Qacc.users.quakenet.org> 4 !B14antag <Tag> 4 !-14bantag <Tag> 4!q14bc 4(`vGsus Access V1.1) 4• 4» | set -u2 %flood 1 }
    if ($1 = !ao) && ($1) && ($istok(%Acc.masters,$gettok($address($nick,2),2,64),32)) { msg q chanlev %channel $2 +ao | msg $nick 4D15one4! Mr>> $nick | set -u2 %Flood 1 }
    if ($1 = !qbc) && ($1) && ($istok(%Acc.masters,$gettok($address($nick,2),2,64),32)) { msg q banclear %channel $2 | msg $nick 4D15one4! Mr>> $nick  | set -u2 %Flood 1 }
    if ($1 = !-ao) && ($1) && ($istok(%Acc.masters,$gettok($address($nick,2),2,64),32)) { msg q chanlev %channel $2 -ao | mode %channel -o $2 | msg $nick 4D15one4! Mr>> $nick | set -u2 %flood 1 }
    if ($1 = !av) && ($1) && ($istok(%Acc.masters,$gettok($address($nick,2),2,64),32)) { msg q chanlev %channel $2 +av | msg $nick 4D15one4! Mr>> $nick | set -u2 %Flood 1 }
    if ($1 = !-av) && ($1) && ($istok(%Acc.masters,$gettok($address($nick,2),2,64),32)) { msg q chanlev %channel $2 -av | mode %channel -v $2 | msg $nick 4D15one4! Mr>> $nick | set -u2 %flood 1 }
    if ($1 = !qban) && ($1) && ($istok(%Acc.masters,$gettok($address($nick,2),2,64),32)) { msg Q PERMBAN %channel *!*@ $+ $2 $+ .users.quakenet.org | msg $nick 4D15one4! Mr>> $nick | set -u2 %Flood 1 }
    if ($1 = !-qban) && ($1) && ($istok(%Acc.masters,$gettok($address($nick,2),2,64),32)) { msg q bandel %channel $3- $2 | msg $nick 4D15one4! Mr>> $nick | set -u2 %flood 1 }
    if ($1 = !bantag) && ($1) && (!$2) && ($istok(%Acc.owners,$gettok($address($nick,2),2,64),32)) { msg $nick Synex Error: No Tag | set -u2 %flood 1 }
    if ($1 = !bantag) && ($1) && ($2) && ($istok(%Acc.owners,$gettok($address($nick,2),2,64),32)) { msg q ban %channel $2 $+ *!*@* | msg $nick 4D15one4! Mr>> $nick | set -u2 %flood 1 }
    if ($1 = !-bantag) && ($1) && ($istok(%Acc.owners,$gettok($address($nick,2),2,64),32)) { msg q bandel %channel $2 $+ *!*@* | msg $nick 4D15one4! Mr>> $nick | set -u2 %flood 1 }
    if ($1 = !credits) && ($1) && ($istok(%Acc.masters,$gettok($address($nick,2),2,64),32)) { msg $nick  14This Access Bot Made By 4`vGsus 14(Version 1.1) | set -u20 %flood 1 }
  }