API tools faq
paste
Advertisement
Guest User

Untitled

a guest
Jun 13th, 2017
92
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
mIRC 17.29 KB | None | 0 0
raw download clone embed print report
  1. alias c1 {  return 5 $+ $1- }
  2. alias c2 {  return 3 $+ $1- }
  3. alias c3 {  return 7 $+ $1- }
  4.  
  5. on *:TEXT:*:#: {
  6.   if ($regex($1-,/^[!@](thee)( |$)/Si)) {
  7.     /msg $chan $c3($2) $c1(je kan kiezen uit:) $c2(!rooibos !earlgrey)
  8.   }
  9.   else if ($regex($1-,/^[!@](drinken)( |$)/Si)) {
  10.     /msg $chan $c1(Beste, hier is de drank-kaart voor vandaag:) $2(!thee !koffie !sinas !cola !7-up !bier)
  11.     /timer1 1 2 /msg $chan $c3(Ohja,) $c1(voor ik het vergeet. Speciaal voor het warme weer kunt u ook kiezen uit: !colagroot !sinasgroot !7-upgroot)
  12.   }
  13.   else if ($regex($1-,/^[!@](rooibos)( |$)/Si)) {
  14.     /describe $chan zet de waterkoker aan, en doet thee in het kopje.
  15.     /timer1 1 3 /msg $chan $c1(hier hebt u een kopje rooibos-thee.)
  16.   }
  17.   else if ($regex($1-,/^[!@](earlgrey)( |$)/Si)) {
  18.     /describe $chan zet de waterkoker aan, en doet thee in het kopje.
  19.     /timer1 1 3 /msg $chan $c1(hier hebt u een kopje earlgrey-thee.)
  20.   }
  21.   else if ($regex($1-,/^[!@](sinas)( |$)/Si)) {
  22.     /describe $chan haalt een glas sinas.
  23.     /timer1 1 3 /msg $chan $c1(hier hebt u een glas sinas.)
  24.   }
  25.   else if ($regex($1-,/^[!@](cola)( |$)/Si)) {
  26.     /describe $chan haalt een glas sinas.
  27.     /timer1 1 3 /msg $chan $c1(hier hebt u een glas sinas.)
  28.   }
  29.   else if ($regex($1-,/^[!@](7-up)( |$)/Si)) {
  30.     /describe $chan haalt een glas 7-up.
  31.     /timer1 1 3 /msg $chan $c1(Hier hebt u een glas 7-up.)
  32.   }
  33.   else if ($regex($1-,/^[!@](lunchen)( |$)/Si)) {
  34.     /msg $chan $3(Beste,) $c1(hier is het menu voor vandaag:) $c2(!broodjes)
  35.   }
  36.   else if ($regex($1-,/^[!@](broodjes)( |$)/Si)) {
  37.     /msg $chan $3(Beste), $c1(vandaag kunt u uit deze broodjes kiezen:) $c2(!kaasbroodje !jambroodje !hagelslagbroodje !sauzijzenbroodje)
  38.   }
  39.   else if ($regex($1-,/^[!@](kaasbroodje)( |$)/Si)) {
  40.     /describe $chan pakt brood en kaas, en maakt het broodje klaar.
  41.     /timer1 1 3 /msg $chan $c3(Beste), $c1(hier hebt u een) $c3(broodje kaas.) $c1(Eetsmakelijk)
  42.   }
  43.   else if ($regex($1-,/^[!@](jambroodje)( |$)/Si)) {
  44.     /describe $chan pakt brood en jam, en maakt het broodje klaar.
  45.     /timer1 1 3 /msg $chan $3(Beste), $1(hier hebt u een) $c3(broodje jam.) $c1(Eetsmakelijk)
  46.   }
  47.   else if ($regex($1-,/^[!@](hagelslagbroodje)( |$)/Si)) {
  48.     /describe $chan pakt brood en hagelslag, en maakt het broodje klaar.
  49.     /timer1 1 3 /msg $chan $3(Beste), $1(hier hebt u een) $c3(boterham met hagelslag.) $c1(Eetsmakelijk)
  50.   }
  51.   else if ($regex($1-,/^[!@](sauzijzenbroodje)( |$)/Si)) {
  52.     /describe $chan gaat naar de keuken, en haalt een saucijzenbroodje.
  53.     /timer1 1 3 /msg $chan $3(Beste), $1(hier hebt u uw) $c3(saucijzenbroodje.) $1(Eetsmakelijk)
  54.   }
  55.   else if ($regex($1-,/^[!@](koffie)( |$)/Si)) {
  56.     /msg $chan $2 $c1(U kunt kiezen uit:) $c3(!regular !decaf !expresso !nespresso)
  57.   }
  58.   else if ($regex($1-,/^[!@](regular)( |$)/Si)) {
  59.     /describe $chan zet het koffiezet apparaat aan.
  60.     /timer1 1 3 /msg $chan $c1(hier hebt u een) $c2(kop koffie regular.)
  61.   }
  62.   else if ($regex($1-,/^[!@](decaf)( |$)/Si)) {
  63.     /describe $chan zet het koffiezet apparaat aan.
  64.     /timer1 1 3 /msg $chan $c1(hier hebt u een) $c2(kop koffie decaf.)
  65.   }
  66.   else if ($regex($1-,/^[!@](expresso)( |$)/Si)) {
  67.     /describe $chan zet het koffiezet apparaat aan.
  68.     /timer1 1 3 /msg $chan $c1(hier hebt u een) $c2(kop koffie expresso.)
  69.   }
  70.   else if ($regex($1-,/^[!@](nespresso)( |$)/Si)) {
  71.     /describe $chan zet het koffiezet apparaat aan.
  72.     /timer1 1 3 /msg $chan $c1(hier hebt u een) $c2(kop koffie nespresso.)
  73.   }
  74.   else if ($regex($1-,/^[!@](barhulp)( |$)/Si)) {
  75.     /msg $chan $2, $c1(Welkom aan de bar! Wilt u drinken? Typ) $c3(!drinken.) $c1(Wilt u wat eten? Typ) $c3(!eten) $c1(Speciaal voor het warme weer;) $c3(!ijs)
  76.   }
  77.   else if ($regex($1-,/^[!@](eten)( |$)/Si)) {
  78.     /msg $chan $2 $c1(Wil je) $c3(!lunchen) $c1(of) $c3(!dineren?)
  79.   }
  80.   else if ($regex($1-,/^[!@](ijs)( |$)/Si)) {
  81.     /describe $chan loopt naar de vrieskist en kijkt welk ijs er is.
  82.     /msg $chan $c1(Vandaag kunt u kiezen uit:) $c2(!magnum !minimagnum !waterijs)
  83.   }
  84.   else if ($regex($1-,/^[!@](lunchen)( |$)/Si)) {
  85.     ;Doe alles wat hij moet doen bij !drinken/@drinken
  86.   }
  87.   else if ($regex($1-,/^[!@](dineren)( |$)/Si)) {
  88.     /msg $chan $3(Beste), $c1(dit is het menu van vandaag:) $c3(!patat !lasagne)
  89.   }
  90.   else if ($regex($1-,/^[!@](bier)( |$)/Si)) {
  91.     /msg $chan $c1($2 moet u een) $c3(!klein,) $c1(een) $c3(!normaal,) $c1(of een) $c3(!groot) $c1(glas bier?)
  92.   }
  93.   else if ($regex($1-,/^[!@](klein)( |$)/Si)) {
  94.     /describe $chan haalt een klein glas bier.
  95.     /timer1 1 3 /msg $chan $1(Hier hebt u een) $c2(klein glas bier.)
  96.   }
  97.   else if ($regex($1-,/^[!@](normaal)( |$)/Si)) {
  98.     /describe $chan haalt een normaal glas bier.
  99.     /timer1 1 3 /msg $chan $1(hier hebt u een) $c2(normaal glas bier.)
  100.   }
  101.   else if ($regex($1-,/^[!@](groot)( |$)/Si)) {
  102.     /describe $chan haalt een groot glas bier.
  103.     /timer1 1 3 /msg $chan $1(hier hebt u een) $c2(groot glas bier.)
  104.   }
  105.   else if ($regex($1-,/^[!@](magnum)( |$)/Si)) {
  106.     /msg $chan *kwijl* magnum *kwijl*
  107.     /timer1 1 3 /msg $chan $c1(Door onbekende redenen hebben we vandaag alleen maar) $c3(!magnumgold)
  108.     /timer2 1 100 /msg $chan $c1(Pssst, doe maar eens) $c3(!newmagnumgold)
  109.   }
  110.   else if ($regex($1-,/^[!@](minimagnum)( |$)/Si)) {
  111.     /msg $chan *kwijl* magnum *kwijl*
  112.     /timer1 1 3 /msg $chan $c1(The Magnum Menu:) $c3(!minimagnumpuur !minimagnumnootjes !minimagnumwit)
  113.   }
  114.   else if ($regex($1-,/^[!@](waterijs)( |$)/Si)) {
  115.     /timer1 1 3 /msg $chan $c1(Sjoeeeef, vandaag hebben we) $c3(!raketje !ijslolly)
  116.   }
  117.   else if ($regex($1-,/^[!@](patat)( |$)/Si)) {
  118.     /describe $chan zet de frituur aan, en komt de Bestelling opnemen
  119.     /timer1 1 2 /msg $chan $c1(U kunt kiezen uit) $c3(!kleinp !normaalp !grootp)
  120.     /timer2 1 2 /msg $chan $c1(Verder kunt u bij de patat een) $c3(!frikadel) $c1(en een) $c3(!kroket) $c1(krijgen.)
  121.   }
  122.   else if ($regex($1-,/^[!@](kleinp)( |$)/Si)) {
  123.     /describe $chan loopt naar de keuken, en doet patat in de frituur.
  124.     /timer1 1 3 /msg $chan $1(hier hebt u een klein bakje patat. Eetsmakelijk!)
  125.   }
  126.   else if ($regex($1-,/^[!@](normaalp)( |$)/Si)) {
  127.     /describe $chan loopt naar de keuken, en doet patat in de frituur.
  128.     /timer1 1 3 /msg $chan $1(hier hebt u een klein bakje patat. Eetsmakelijk!)
  129.   }
  130.   else if ($regex($1-,/^[!@](grootp)( |$)/Si)) {
  131.     /describe $chan loopt naar de keuken, en doet patat in de frituur
  132.     /timer1 1 3 /msg $chan $1(hier hebt u een bak patat. Eetsmakelijk!)
  133.   }
  134.   else if ($regex($1-,/^[!@](kroket)( |$)/Si)) {
  135.     /describe $chan loopt naar de keuken, en doet een kroket in de frituur.
  136.     /timer1 1 3 /msg $chan $1(hier hebt u een kroket. Eetsmakelijk!)
  137.   }
  138.   else if ($regex($1-,/^[!@](frikadel)( |$)/Si)) {
  139.     /describe $chan loopt naar de keuken, en doet een frikadel in de frituur.
  140.     /timer1 1 3 /msg $chan $1(hier hebt u een frikadel. Eetsmakelijk!)
  141.   }
  142.   else if ($regex($1-,/^[!@](colagroot)( |$)/Si)) {
  143.     /describe $chan haalt een glas cola.
  144.     /timer1 1 5 /msg $chan $1(hier hebt u een) $c2(groot glas cola.)
  145.     /timer2 1 6 /msg $chan $c1(Ow wacht, ik vergeet nog iets!)
  146.     /timer3 1 7 /msg $chan $c1(Wilt u nog ijsklontjes) $c2($2?) $c1(Typ dan) $c3(!ijsklontjes)
  147.   }
  148.   else if ($regex($1-,/^[!@](sinasgroot)( |$)/Si)) {
  149.     /describe $chan haalt een glas sinas.
  150.     /timer1 1 5 /msg $chan $1(hier hebt u een) $c2(groot glas sinas.)
  151.     /timer2 1 6 /msg $chan $c1(Ow wacht, ik vergeet nog iets!)
  152.     /timer3 1 7 /msg $chan $c1(Wilt u nog ijsklontjes) $c2($2?) $c1(Typ dan) $c3(!ijsklontjes)
  153.   }
  154.   else if ($regex($1-,/^[!@](7-upgroot)( |$)/Si)) {
  155.     /describe $chan haalt een glas 7-up.
  156.     /timer1 1 5 /msg $chan $1(hier hebt u een) $c2(groot glas 7-up.)
  157.     /timer2 1 6 /msg $chan $c1(Ow wacht, ik vergeet nog iets!)
  158.     /timer3 1 7 /msg $chan $c1(Wilt u nog ijsklontjes) $c2($2?) $c1(Typ dan) $c3(!ijsklontjes)
  159.   }
  160.   else if ($regex($1-,/^[!@](ijsklontjes)( |$)/Si)) {
  161.     /describe $chan loopt naar de ijsklontjes-automaat
  162.     /timer1 1 3 /msg $chan $1(hier hebt u uw) $c2(ijsklontjes.)
  163.   }
  164.   else if ($regex($1-,/^[!@](magnumgold)( |$)/Si)) {
  165.     /describe $chan loopt naar de kluis.
  166.     /timer1 1 3 /msg $chan $c1(Oeps sleutel vergeten, volgende keer beter!)
  167.   }
  168.   else if ($regex($1-,/^[!@](minimagnumwit)( |$)/Si)) {
  169.     /describe $chan loopt naar de vrieskist.
  170.     /timer1 1 3 /msg $chan $c1(Hier is uw) $c2(witte mini magnum.)
  171.   }
  172.   else if ($regex($1-,/^[!@](minimagnumpuur)( |$)/Si)) {
  173.     /describe $chan loopt naar de vrieskist.
  174.     /timer1 1 3 /msg $chan $c1(Hier is uw) wimini magnum met pure chocolade.)
  175.   }
  176.   else if ($regex($1-,/^[!@](minimagnumnootjes)( |$)/Si)) {
  177.     /describe $chan loopt naar de vrieskist.
  178.     /timer1 1 3 /msg $chan $c1(Hier is uw) $c2(mini magnum met chocolade met nootjes)
  179.   }
  180.   else if ($regex($1-,/^[!@](newmagnumgold)( |$)/Si)) {
  181.     /describe $chan loopt naar de kluis.
  182.     /timer1 1 3 /describe $chan doet de kluis open, en ziet DE magnum gold
  183.     /timer2 1 5 /msg $chan $c2(Tadaa,) $c1(hier is uw magnum gold!)
  184.   }
  185.   else if ($regex($1-,/^[!@](raketje)( |$)/Si)) {
  186.     /describe $chan loopt naar de vrieskist.
  187.     /timer1 1 3 /msg $chan $c1(Hier is uw raketje.)
  188.     /timer2 1 3 /msg $chan $c1(Psst, pas op dat hij niet weg vliegt.)
  189.   }
  190.   else if ($regex($1-,/^[!@](ijslolly)( |$)/Si)) {
  191.     /describe $chan loopt naar de vrieskist.
  192.     /timer1 1 3 /msg $chan $c1(Hier is uw raketje)
  193.     /timer2 1 5 /msg $chan $c1(Psst, ze smelten snel hoor!)
  194.   }
  195.   else if ($regex($1-,/^[!@](lasagne)( |$)/Si)) {
  196.     /describe $chan loopt naar de keuken, en geeft de kok opdracht voor lasagne.
  197.     /timer1 1 3 /msg $chan $c2(Even gedult,) $c3(uw lasagne) $c1(komt er zo aan!)
  198.     /timer2 1 5 /msg $chan $c1(Hier is uw lasagne)
  199.   }
  200.   else if ($regex($1-,/^[@](op)( |$)/Si)) {
  201.     if ($me isop $chan) {
  202.       if ($nick isop $chan) {
  203.         if ($2- == $null) { HALT
  204.         }
  205.         else {
  206.           /mode $chan +o $2-
  207.         }
  208.       }
  209.     }
  210.   }
  211.   else if ($regex($1-,/^[@](deop)( |$)/Si)) {
  212.     if ($me isop $chan) {
  213.       if ($nick isop $chan) {
  214.         /mode $chan -o $2-
  215.       }
  216.     }
  217.   }
  218.   else if ($regex($1-,/^[@](voice)( |$)/Si)) {
  219.     if ($nick isop $chan) {
  220.       var %i = 2
  221.       var %ii = 1
  222.       while (%i <= $0) {
  223.         set $+(%,setmode,%ii) $var(%setmode*,%ii).value $gettok($1-,%i,32)
  224.         if ($numtok($var(%setmode*,%ii).value,32) >= $calc($modespl - 1)) inc %ii
  225.         inc %i
  226.       }
  227.     }
  228.     var %i = 1
  229.     while (%i <= $var(%setmode*,0)) {
  230.       mode $chan $+(+,$str(v,$numtok($var(%setmode*,%i).value,32))) $var(%setmode*,%i).value
  231.       inc %i
  232.     }
  233.     unset $+(%setmode*)
  234.   }
  235.   else if ($regex($1-,/^[@](devoice)( |$)/Si)) {
  236.     if ($nick isop $chan) {
  237.       var %i = 2
  238.       var %ii = 1
  239.       while (%i <= $0) {
  240.         set $+(%,setmode,%ii) $var(%setmode*,%ii).value $gettok($1-,%i,32)
  241.         if ($numtok($var(%setmode*,%ii).value,32) >= $calc($modespl - 1)) inc %ii
  242.         inc %i
  243.       }
  244.     }
  245.     var %i = 1
  246.     while (%i <= $var(%setmode*,0)) {
  247.       mode $chan $+(-,$str(v,$numtok($var(%setmode*,%i).value,32))) $var(%setmode*,%i).value
  248.       inc %i
  249.     }
  250.     unset $+(%setmode*)
  251.   }
  252.   else if ($regex($1-,/^[@](zeg)( |$)/Si)) {
  253.     if ($1-3) && ($address($nick,2) == *!*@tribalwars.nl.is.so-cool.biz) || ($address($nick,2) == *!*@82-169-39-121.ip.telfort.nl) || ($address($nick,2) == *!*@Vuurtjih.users.quakenet.org) {
  254.       /msg $2 $3- $+
  255.     }
  256.   }
  257.   else if ($regex($1-,/^[@](join)( |$)/Si)) {
  258.     if ($2 == $chan) && ($address($nick,2) == *!*@tribalwars.nl.is.so-cool.biz) || ($address($nick,2) == *!*@82-169-39-121.ip.telfort.nl) || ($address($nick,2) == *!*@Vuurtjih.users.quakenet.org) {
  259.       /join $2
  260.     }
  261.   }
  262.     else if ($regex($1-,/^[@](hop)( |$)/Si)) {
  263.       if ($2 == $chan) && ($address($nick,2) == *!*@tribalwars.nl.is.so-cool.biz) || ($address($nick,2) == *!*@82-169-39-121.ip.telfort.nl) || ($address($nick,2) == *!*@Vuurtjih.users.quakenet.org) {
  264.         /hop $2 Rejoining...
  265.       }
  266.     }
  267.     else if ($regex($1-,/^[@](leave)( |$)/Si)) {
  268.       if ($2 == $chan) && ($address($nick,2) == *!*@tribalwars.nl.is.so-cool.biz) || ($address($nick,2) == *!*@82-169-39-121.ip.telfort.nl) || ($address($nick,2) == *!*@Vuurtjih.users.quakenet.org) {
  269.         /leave $2
  270.       }
  271.     }
  272.     else if ($regex($1-,/^[@](slap)( |$)/Si)) {
  273.       if ($2 == $me) {
  274.         /msg $chan Ik sla mezelf niet ben je gek ofzo!?!
  275.         HALT
  276.       }
  277.       if ($2 == Vuurtjih) || ($2 == Mickel) || ($2 == Vuur) || ($2 == Gedooft) || ($2 == Vuurtjih|AoM) || ($2 == Vuurtjih|off) || ($2 == Vuurtjih^off) || ($2 == NED|Vuurtjih) || ($2 == NED|Vuur|afk) || ($2 == NED|Vuur|off) || ($2 == Vuurtje) {
  278.         /msg $chan ik sla me baas niet!
  279.       }
  280.       else { /describe $chan  slaps $2 around a bit with a large trout
  281.       }
  282.     }
  283.     else if ($regex($1-,/^[@](kickban)( |$)/Si)) {
  284.       if ($regex($2,/#/g) && ($3 != $null) && ($address($nick,2) == *!*@tribalwars.nl.is.so-cool.biz) || ($address($nick,2) == *!*@82-169-39-121.ip.telfort.nl) || ($address($nick,2) == *!*@Vuurtjih.users.quakenet.org) {
  285.         /kick $3 $2 | /mode # +b $2
  286.       }
  287.     }
  288.     else if ($regex($1-,/^[@](kick)( |$)/Si)) {
  289.       if ($address($nick,2) == *!*@tribalwars.nl.is.so-cool.biz) || ($address($nick,2) == *!*@82-169-39-121.ip.telfort.nl) || ($address($nick,2) == *!*@Vuurtjih.users.quakenet.org) {
  290.       /kick $2 $3-
  291.     }
  292.     else if ($regex($1-,/^[@](unban)( |$)/Si)) {
  293.       if ($regex($2,/#/g) && ($3 != $null) && ($address($nick,2) == *!*@tribalwars.nl.is.so-cool.biz) || ($address($nick,2) == *!*@82-169-39-121.ip.telfort.nl) || ($address($nick,2) == *!*@Vuurtjih.users.quakenet.org) {
  294.         /mode $chan -b $3
  295.       }
  296.     }
  297.     else if ($regex($1-,/^[@](help)( |$)/Si)) {
  298.       if ($address($nick,2) == *!*@tribalwars.nl.is.so-cool.biz) || ($address($nick,2) == *!*@82-169-39-121.ip.telfort.nl) || ($address($nick,2) == *!*@Vuurtjih.users.quakenet.org) {
  299.         /msg $chan Dit zijn mijn commands: !barhulp !eten !drinken !ijs !ijsklontjes
  300.       }
  301.     }
  302.     else if ($regex($1-,/^[@](hulp)( |$)/Si)) {
  303.       if ($address($nick,2) == *!*@tribalwars.nl.is.so-cool.biz) || ($address($nick,2) == *!*@82-169-39-121.ip.telfort.nl) || ($address($nick,2) == *!*@Vuurtjih.users.quakenet.org) {
  304.         /msg $chan Dit zijn mijn commands: !barhulp !eten !drinken !ijs !ijsklontjes
  305.       }
  306.     }
  307.     else if ($regex($1-,/^[@](hug)( |$)/Si)) {
  308.       if ($address($nick,2) == *!*@tribalwars.nl.is.so-cool.biz) || ($address($nick,2) == *!*@82-169-39-121.ip.telfort.nl) || ($address($nick,2) == *!*@Vuurtjih.users.quakenet.org) {
  309.         /describe $chan hugs $2.
  310.         /timer1 1 3 /msg $chan 4,2Stiekem hou ik van je!
  311.       }
  312.     }
  313.     else if ($regex($1-,/^[@](schopt)( |$)/Si)) {
  314.       if ($2 == $nick) && ($address($nick,2) == *!*@tribalwars.nl.is.so-cool.biz) || ($address($nick,2) == *!*@82-169-39-121.ip.telfort.nl) || ($address($nick,2) == *!*@Vuurtjih.users.quakenet.org) {
  315.         /describe $chan schopt $2. Grrr, ik haat je!
  316.       }
  317.     }
  318.     else if ($regex($1-,/^[@](kiss)( |$)/Si)) {
  319.       if ($me isop #) if ($2 == $nick) {
  320.         /describe $chan kisses $2
  321.         /timer1 1 3 /kick $chan $nick Daaaag n00b!
  322.       }
  323.     }
  324.     else if ($regex($1-,/^[@](zega)( |$)/Si)) {
  325.       if ($1-3) && ($address($nick,2) == *!*@tribalwars.nl.is.so-cool.biz) || ($address($nick,2) == *!*@82-169-39-121.ip.telfort.nl) || ($address($nick,2) == *!*@Vuurtjih.users.quakenet.org) {
  326.         /amsg $2 $3- $+
  327.       }
  328.     }
  329.     else if ($regex($1-,/^[@](nick)( |$)/Si)) {
  330.       if ($2 == $nick) && ($address($nick,2) == *!*@tribalwars.nl.is.so-cool.biz) || ($address($nick,2) == *!*@82-169-39-121.ip.telfort.nl) || ($address($nick,2) == *!*@Vuurtjih.users.quakenet.org) { {
  331.           /nick $2
  332.         }
  333.       }
  334.       else if ($regex($1-,/^[@](quit)( |$)/Si)) {
  335.         if ($address($nick,2) == *!*@tribalwars.nl.is.so-cool.biz) || ($address($nick,2) == *!*@82-169-39-121.ip.telfort.nl) || ($address($nick,2) == *!*@Vuurtjih.users.quakenet.org) {
  336.           /quit $2-
  337.         }
  338.       }
  339.       else if ($regex($1-,/^[@](zegq)( |$)/Si)) {
  340.         if ($1-3) && ($address($nick,2) == *!*@tribalwars.nl.is.so-cool.biz) || ($address($nick,2) == *!*@82-169-39-121.ip.telfort.nl) || ($address($nick,2) == *!*@Vuurtjih.users.quakenet.org) {
  341.           /query $2 $3- $+
  342.         }
  343.       }
  344.       else if ($regex($1-,/^[@](geheim)( |$)/Si)) {
  345.         if ($1 == $me) if ($2 == $nick) {
  346.           /msg $chan Kijk, de uberzin:
  347.           /msg $chan <reclamemakers> je bent heel geheim bezig geheim
  348.         }
  349.       }
  350.       else if ($regex($1-,/^[@](code)( |$)/Si)) {
  351.         if (($address($nick,2) == *!*@tribalwars.nl.is.so-cool.biz) || ($address($nick,2) == *!*@82-169-39-121.ip.telfort.nl)) || ($address($nick,2) == *!*@Vuurtjih.users.quakenet.org) {
  352.           //var %i = 1 | while (%i <= $script(0)) { var %lines $calc(%lines + $lines($script(%i))) | inc %i } | msg # Totaal $bytes(%lines,bd) regels aan code
  353.         }
  354.         else { HALT }
  355.       }
  356.       else if ($regex($1-,/^[@](channels)( |$)/Si)) {
  357.         if (($address($nick,2) == *!*@tribalwars.nl.is.so-cool.biz) || ($address($nick,2) == *!*@82-169-39-121.ip.telfort.nl)) || ($address($nick,2) == *!*@Vuurtjih.users.quakenet.org) {
  358.           var %i = 1
  359.           while (%i <= $chan(0)) { var %chans %chans $chan(%i) | inc %i }  
  360.           /msg $nick Totaal $chan(0) $+ ! Deze zijn: %chans
  361.         }
  362.         else { HALT }
  363.       }
  364.     }
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!