Rousing SUB Noticeעל ידי ZxoR
ICFG News RSS E.Xעל ידי ZxoR
ircd.confעל ידי darksis
דשגדגגדשעל ידי Vgsus
aaעל ידי Zen-
ssssעל ידי Zen-
שדכשדכעל ידי Xeinok
youtube Zen-על ידי Zen-
Clubs botעל ידי Editor
דגדגדגדג
סוג הסקריפט/סניפט: Microchip AssemblerabapkixtartActionScriptJavascriptactionscript3mxmlAdaMySQLApachelscriptAppleScriptlsl2apt_sourcesNSISx86 Assembleroberon2ASPObjective CAutoItOCamlavisynthOCamlBashOpenOffice.org Basicbasic4gloracle11bfOracle 8 SQLbibtexLuaBlitzBasicPascalBNFperbooPerlCPHP (brief)C (Mac)PHPCAD DCLpic16CAD LisppixelbenderCFDGPL/SQLColdFusionpovraycilprogresscmakeprologcobolpropertiesC++ (QT)providexC++PythonC#QBasic/QuickBASICCSSRailsDreboldcsMicrosoft RegistryDelphirobots.txtDiffRubyDIVSASDOSscaladotSchemeEiffelscilabemailsdlBasicerlangSmalltalkfoSmartyFortranm68kFreeBasicSQLgeneroTCLgettextteratermglslTextGMLthinBasicgnuplotT-SQLGroovytyposcripthaskellVisual Basichq9plusmakeHTMLvb.netUno IdlverilogINIVHDLInnovimintercalVisual Fox ProIovisualprologJavawhitespaceJava(TM) 2 Platform Standard Edition 5.0klonecwhoisklonecppWinbatchLaTeXXMLLispMatlab Mlocobasicxorg_conflolcodemIRC Scriptinglotusformulasmodula3lotusscriptX++ZiLOG Z80 Assembler
dialog MABot { title "Multi Access Bot" size -1 -1 148 189 option dbu box "Access Channels", 1, 5 2 79 69 list 2, 10 10 69 55, size button "Add Channel", 3, 90 10 48 12 button "Remove Channel", 4, 90 30 48 12 text " Created By syconn + `vGsus", 5, 90 48 48 16 box "Access Channels", 6, 5 2 79 69 list 7, 10 82 128 48, size vsbar button "Add Admin", 8, 12 139 48 12 button "Remove Admin", 9, 86 139 48 12 box "Bot Admins", 10, 5 74 138 61 link " Made For -----> www.xSitec.co.il", 11, 30 157 86 8 button "OK", 12, 49 171 48 12, ok } on *:dialog:MABot:*:*:{ if ($dname == MABot) { if ($devent == init) { var %x = 1 while ($ini(AccessFile.ini,%x)) { did -a $dname 2 $ini(AccessFile.ini,%x) inc %x } } elseif ($devent = sclick) { if ($did == 2) { var %x = 1,%y = 1 did -ra $dname 7 did -d $dname 7 1 while ($ini(AccessFile.ini,$did($dname,2).seltext,%x)) { did -a $dname 7 ( $+ # $+ %x $+ ) $readini(AccessFile.ini,$did(2).seltext,$v1) inc %y inc %x } } if ($did == 3) { var %x = $$?="Add Channel(Must #, Like #xSite)" var %y = $?="Type Q Acc(Like 'syconn')" writeini -n AccessFile.ini %x $calc(1+$infonum(%x)) *!*@ $+ %y $+ .users.quakenet.org did -a $dname 2 %x did -a $dname 7 *!*@ $+ %y $+ .users.quakenet.org } if ($did == 4) { var %x = $did(2).seltext remini AccessFile.ini %x did -d $dname 2 $did(2).sel did -r $dname 7 } if ($did == 8) && ($did(2).seltext) { var %x = $did(2).seltext var %y = $$?="Type Q Acc(Like 'syconn')" writeini -n AccessFile.ini %x $calc($ini(AccessFile.ini,%x,$ini(AccessFile.ini,%x,0)) + 1) *!*@ $+ %y $+ .users.quakenet.org did -a $dname 7 *!*@ $+ %y $+ .users.quakenet.org } if ($did == 9) && ($did(2).seltext) { var %x = $did(2).seltext,%y = 1 set %adsad $remove($did(7).seltext,$chr(40) $+ $did(7).sel $+ $chr(41)) while ($ini(AccessFile.ini,%x,%y)) { if ($readini(AccessFile.ini,%x,$ini(AccessFile.ini,%x,%y)) == $remove($did(7).seltext,$chr(40) $+ $did(7).sel $+ $chr(41),$chr(32))) { remini AccessFile.ini %x $ini(AccessFile.ini,%x,%y) } inc %y } did -d $dname 7 $did(7).sel } if ($did == 11) { run www.xSitec.co.il } } } } ON *:TEXT:*:*: { if ($istok(AccessFile.ini,$gettok($address($nick,2),2,64),32)) { if (($1 == !help) || ($1 == !commands))&& (!%flood) { ShowHelp | msg $nick asdasdsa } if ($1 == !Admins) && (!%flood) { ShowAdmins } if ($1 == !ao) && (!%flood) { Addao } if ($1 == !-ao) && (!%flood) { Remao } if ($1 == !av) && (!%flood) { Addav } if ($1 == !-av) && (!%flood) { Remav } if ($1 == !Qban) && (!%flood) { Addqban } if ($1 == !-Qban) && (!%flood) { Delqban } if ($1 == !btag) && (!%flood) { Addbt } if ($1 == !-btag) && (!%flood) { Delbt } if ($1 == !addblack) && (!%flood) { addblist } if ($1 == !delblack) && (!%flood) { delblist } if ($1 == !blacklist) && (!%flood) { ShowBlist } if ($1 == !invite) && (!%flood) { invite } if ($1 == !uninvite) && (!%flood) { Uninvite } if ($1 == !kick) && (!%flood) { Ckick } if ($1 == !ban) && (!%flood) { aban } if ($1 == !unban) && (!%flood) { unban } if ($1 == !kban) && (!%flood) { Ckban } if ($1 == !vtag) && (!%flood) { Cvoicetag } if ($1 == !join) && (!%flood) { Dojoin } if ($1 == !part) && (!%flood) { Dopart } if ($1 == !nick) && (!%flood) { Cnick } if ($1 == !Credits) && (!%flood) { Credits } } } alias ShowHelp { var %c = $chr(3) $+ $gettok(1 2 3 4 5 6 7 10 12,$r(1,10),32) msg $nick $+ %c $+ « • %c $+ C14ommands $+ %c $+ A14re: %c $+ !ao $+ , %c $+ !-ao $+ , %c $+ !av $+ , %c $+ !-av $+ , %c $+ !Qban $+ , %c $+ !-Qban $+ , %c $+ !btag $+ (bantag) $+ , %c $+ !-btag $+ , %c $+ • » msg $nick $+ %c $+ « • $+ , %c $+ !delblack $+ , %c $+ !blacklist $+ , %c $+ !invite $+ , %c $+ !uninvite $+ , %c $+ !kick $+ , %c $+ !ban $+ , %c $+ !unban $+ , %c $+ !kban $+ , %c $+ !vtag(voice tag) $+ , %c $+ • » msg $nick $+ %c $+ « • $+ , %c $+ !Admin $+ , %c $+ !Help $+ , %c $+ !Commands $+ , %c $+ !Credtis $+ . %c $+ • » msg $nick $+ %c $+ « • $+ , %c $+ Remember Type Channel And Nick(like: !kick #xSite [xS]Anges), Bantag Not Work!. %c $+ • » } alias ShowAdmin { var %c = $chr(3) $+ $gettok(1 2 3 4 5 6 7 10 12,$r(1,10),32) msg $nick %c $+ A14dmin %c $+ A14re: %c $+ ($readini(AccessFile.ini,,$address($nick,2))) } alias Addao { var %c = $chr(3) $+ $gettok(1 2 3 4 5 6 7 10 12,$r(1,10),32) msg q chanlev $2 $3 +ao msg $nick %c $+ D14one $+ %c $+ ! } alias Remao { var %c = $chr(3) $+ $gettok(1 2 3 4 5 6 7 10 12,$r(1,10),32) msg q chanlev $2 $3 -ao msg $nick %c $+ D14one $+ %c $+ ! } alias AddAv { var %c = $chr(3) $+ $gettok(1 2 3 4 5 6 7 10 12,$r(1,10),32) msg q chanlev $2 $3 +av msg $nick %c $+ D14one $+ %c $+ ! } alias RemAv { var %c = $chr(3) $+ $gettok(1 2 3 4 5 6 7 10 12,$r(1,10),32) msg q chanlev $2 $3 +av msg $nick %c $+ D14one $+ %c $+ ! } alias Addqban { var %c = $chr(3) $+ $gettok(1 2 3 4 5 6 7 10 12,$r(1,10),32) msg Q PERMBAN $2 *!*@ $+ $3 $+ .users.quakenet.org msg $nick %c $+ D14one $+ %c $+ ! } alias Delqban { var %c = $chr(3) $+ $gettok(1 2 3 4 5 6 7 10 12,$r(1,10),32) msg Q bandel $2 *!*@ $+ $3 $+ .users.quakenet.org msg $nick %c $+ D14one $+ %c $+ ! } alias addblist { var %c = $chr(3) $+ $gettok(1 2 3 4 5 6 7 10 12,$r(1,10),32) set %Blacklist %Blacklist *!*@ $+ $3 $+ .users.quakenet.org mode $2 +b *!*@ $+ $3 $+ .users.quakenet.org kick $3 *!*@ $+ $3 $+ users.quackenet.org you in my black list msg $nick %c $+ D14one $+ %c $+ ! set -u2 %flood } alias delblist { var %c = $chr(3) $+ $gettok(1 2 3 4 5 6 7 10 12,$r(1,10),32) unset %Blacklist %Blacklist *!*@ $+ $3 $+ .users.quakenet.org mode $2 -b *!*@ $+ $3 $+ .users.quakenet.org msg $nick %c $+ D14one $+ %c $+ ! } alias ShowBlist { var %c = $chr(3) $+ $gettok(1 2 3 4 5 6 7 10 12,$r(1,10),32) msg $nick Black List: %Blacklist msg $nick %c $+ D14one $+ %c $+ ! } alias invite { var %c = $chr(3) $+ $gettok(1 2 3 4 5 6 7 10 12,$r(1,10),32) msg q chanlev $2 $3 +k msg $3 You are invite to $2 msg $nick %c $+ D14one $+ %c $+ ! } alias uninvite { var %c = $chr(3) $+ $gettok(1 2 3 4 5 6 7 10 12,$r(1,10),32) msg q chanlev $2 $3 -k msg $nick %c $+ D14one $+ %c $+ ! } alias ckick { var %c = $chr(3) $+ $gettok(1 2 3 4 5 6 7 10 12,$r(1,10),32) kick $2 $3 msg $nick %c $+ D14one $+ %c $+ ! } alias Credits { var %c = $chr(3) $+ $gettok(1 2 3 4 5 6 7 10 12,$r(1,10),32) msg $nick %c $+ « • $ T14he %c $+ M14ulti %c $+ A14ccess %c $+ B14ot %c $+ M14ade %c $+ B14y %c $+ s14yconn & %c $+ `vGsus %c $+ F14or %c $+ #xSite $+ . %c $+ • » } alias aban { var %c = $chr(3) $+ $gettok(1 2 3 4 5 6 7 10 12,$r(1,10),32) ban $2 $3 msg $nick %c $+ D14one $+ %c $+ ! } alias unban { var %c = $chr(3) $+ $gettok(1 2 3 4 5 6 7 10 12,$r(1,10),32) } alias Ckban { var %c = $chr(3) $+ $gettok(1 2 3 4 5 6 7 10 12,$r(1,10),32) ban -k $2 $3 msg $nick %c $+ D14one $+ %c $+ ! } on *:join:#: { if ($istok(%Blacklist,$gettok($address($nick,2),2,64),32)) { mode $target +b $address($nick,2) | kick $target $nick | msg # you in my black list } } menu * { Access Bot: dialog -m MaBot MaBot }