Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- alias c1 { return 5 $+ $1- }
- alias c2 { return 3 $+ $1- }
- alias c3 { return 7 $+ $1- }
- on *:JOIN:#: {
- if ($me isop $chan) {
- if ($issupporter($nick)) {
- /mode $chan +o $nick
- }
- if ($address($nick,2) == *!*@my.gf.makes.me.so-happy.org) && ($address($nick,2) == *!*Geheim.users.quakenet.org) || ($address($nick,2) == *!*@Geheim49.users.quakenet.org) {
- /mode $chan +v $nick
- }
- }
- }
- on *:TEXT:*:#: {
- if ($regex($1-,/^[!@](thee)( |$)/Si)) {
- /msg $chan $c3($2) $c1(je kan kiezen uit:) $c2(!rooibos !earlgrey)
- }
- else if ($regex($1-,/^[!@](drinken)( |$)/Si)) {
- /msg $chan $c1(Beste, hier is de drank-kaart voor vandaag:) $2(!thee !koffie !sinas !cola !7-up !bier)
- /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)
- }
- else if ($regex($1-,/^[!@](rooibos)( |$)/Si)) {
- /describe $chan zet de waterkoker aan, en doet thee in het kopje.
- /timer1 1 3 /msg $chan $c1(hier hebt u een kopje rooibos-thee.)
- }
- else if ($regex($1-,/^[!@](earlgrey)( |$)/Si)) {
- /describe $chan zet de waterkoker aan, en doet thee in het kopje.
- /timer1 1 3 /msg $chan $c1(hier hebt u een kopje earlgrey-thee.)
- }
- else if ($regex($1-,/^[!@](sinas)( |$)/Si)) {
- /describe $chan haalt een glas sinas.
- /timer1 1 3 /msg $chan $c1(hier hebt u een glas sinas.)
- }
- else if ($regex($1-,/^[!@](cola)( |$)/Si)) {
- /describe $chan haalt een glas sinas.
- /timer1 1 3 /msg $chan $c1(hier hebt u een glas sinas.)
- }
- else if ($regex($1-,/^[!@](7-up)( |$)/Si)) {
- /describe $chan haalt een glas 7-up.
- /timer1 1 3 /msg $chan $c1(Hier hebt u een glas 7-up.)
- }
- else if ($regex($1-,/^[!@](lunchen)( |$)/Si)) {
- /msg $chan $3(Beste,) $c1(hier is het menu voor vandaag:) $c2(!broodjes)
- }
- else if ($regex($1-,/^[!@](broodjes)( |$)/Si)) {
- /msg $chan $3(Beste), $c1(vandaag kunt u uit deze broodjes kiezen:) $c2(!kaasbroodje !jambroodje !hagelslagbroodje !sauzijzenbroodje)
- }
- else if ($regex($1-,/^[!@](kaasbroodje)( |$)/Si)) {
- /describe $chan pakt brood en kaas, en maakt het broodje klaar.
- /timer1 1 3 /msg $chan $c3(Beste), $c1(hier hebt u een) $c3(broodje kaas.) $c1(Eetsmakelijk)
- }
- else if ($regex($1-,/^[!@](jambroodje)( |$)/Si)) {
- /describe $chan pakt brood en jam, en maakt het broodje klaar.
- /timer1 1 3 /msg $chan $3(Beste), $1(hier hebt u een) $c3(broodje jam.) $c1(Eetsmakelijk)
- }
- else if ($regex($1-,/^[!@](hagelslagbroodje)( |$)/Si)) {
- /describe $chan pakt brood en hagelslag, en maakt het broodje klaar.
- /timer1 1 3 /msg $chan $3(Beste), $1(hier hebt u een) $c3(boterham met hagelslag.) $c1(Eetsmakelijk)
- }
- else if ($regex($1-,/^[!@](sauzijzenbroodje)( |$)/Si)) {
- /describe $chan gaat naar de keuken, en haalt een saucijzenbroodje.
- /timer1 1 3 /msg $chan $3(Beste), $1(hier hebt u uw) $c3(saucijzenbroodje.) $1(Eetsmakelijk)
- }
- else if ($regex($1-,/^[!@](koffie)( |$)/Si)) {
- /msg $chan $2 $c1(U kunt kiezen uit:) $c3(!regular !decaf !expresso !nespresso)
- }
- else if ($regex($1-,/^[!@](regular)( |$)/Si)) {
- /describe $chan zet het koffiezet apparaat aan.
- /timer1 1 3 /msg $chan $c1(hier hebt u een) $c2(kop koffie regular.)
- }
- else if ($regex($1-,/^[!@](decaf)( |$)/Si)) {
- /describe $chan zet het koffiezet apparaat aan.
- /timer1 1 3 /msg $chan $c1(hier hebt u een) $c2(kop koffie decaf.)
- }
- else if ($regex($1-,/^[!@](expresso)( |$)/Si)) {
- /describe $chan zet het koffiezet apparaat aan.
- /timer1 1 3 /msg $chan $c1(hier hebt u een) $c2(kop koffie expresso.)
- }
- else if ($regex($1-,/^[!@](nespresso)( |$)/Si)) {
- /describe $chan zet het koffiezet apparaat aan.
- /timer1 1 3 /msg $chan $c1(hier hebt u een) $c2(kop koffie nespresso.)
- }
- else if ($regex($1-,/^[!@](barhulp)( |$)/Si)) {
- /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)
- }
- else if ($regex($1-,/^[!@](eten)( |$)/Si)) {
- /msg $chan $2 $c1(Wil je) $c3(!lunchen) $c1(of) $c3(!dineren?)
- }
- else if ($regex($1-,/^[!@](ijs)( |$)/Si)) {
- /describe $chan loopt naar de vrieskist en kijkt welk ijs er is.
- /msg $chan $c1(Vandaag kunt u kiezen uit:) $c2(!magnum !minimagnum !waterijs)
- }
- else if ($regex($1-,/^[!@](lunchen)( |$)/Si)) {
- ;Doe alles wat hij moet doen bij !drinken/@drinken
- }
- else if ($regex($1-,/^[!@](dineren)( |$)/Si)) {
- /msg $chan $3(Beste), $c1(dit is het menu van vandaag:) $c3(!patat !lasagne)
- }
- else if ($regex($1-,/^[!@](bier)( |$)/Si)) {
- /msg $chan $c1($2 moet u een) $c3(!klein,) $c1(een) $c3(!normaal,) $c1(of een) $c3(!groot) $c1(glas bier?)
- }
- else if ($regex($1-,/^[!@](klein)( |$)/Si)) {
- /describe $chan haalt een klein glas bier.
- /timer1 1 3 /msg $chan $1(Hier hebt u een) $c2(klein glas bier.)
- }
- else if ($regex($1-,/^[!@](normaal)( |$)/Si)) {
- /describe $chan haalt een normaal glas bier.
- /timer1 1 3 /msg $chan $1(hier hebt u een) $c2(normaal glas bier.)
- }
- else if ($regex($1-,/^[!@](groot)( |$)/Si)) {
- /describe $chan haalt een groot glas bier.
- /timer1 1 3 /msg $chan $1(hier hebt u een) $c2(groot glas bier.)
- }
- else if ($regex($1-,/^[!@](magnum)( |$)/Si)) {
- /msg $chan *kwijl* magnum *kwijl*
- /timer1 1 3 /msg $chan $c1(Door onbekende redenen hebben we vandaag alleen maar) $c3(!magnumgold)
- /timer2 1 100 /msg $chan $c1(Pssst, doe maar eens) $c3(!newmagnumgold)
- }
- else if ($regex($1-,/^[!@](minimagnum)( |$)/Si)) {
- /msg $chan *kwijl* magnum *kwijl*
- /timer1 1 3 /msg $chan $c1(The Magnum Menu:) $c3(!minimagnumpuur !minimagnumnootjes !minimagnumwit)
- }
- else if ($regex($1-,/^[!@](waterijs)( |$)/Si)) {
- /timer1 1 3 /msg $chan $c1(Sjoeeeef, vandaag hebben we) $c3(!raketje !ijslolly)
- }
- else if ($regex($1-,/^[!@](patat)( |$)/Si)) {
- /describe $chan zet de frituur aan, en komt de Bestelling opnemen
- /timer1 1 2 /msg $chan $c1(U kunt kiezen uit) $c3(!kleinp !normaalp !grootp)
- /timer2 1 2 /msg $chan $c1(Verder kunt u bij de patat een) $c3(!frikadel) $c1(en een) $c3(!kroket) $c1(krijgen.)
- }
- else if ($regex($1-,/^[!@](kleinp)( |$)/Si)) {
- /describe $chan loopt naar de keuken, en doet patat in de frituur.
- /timer1 1 3 /msg $chan $1(hier hebt u een klein bakje patat. Eetsmakelijk!)
- }
- else if ($regex($1-,/^[!@](normaalp)( |$)/Si)) {
- /describe $chan loopt naar de keuken, en doet patat in de frituur.
- /timer1 1 3 /msg $chan $1(hier hebt u een klein bakje patat. Eetsmakelijk!)
- }
- else if ($regex($1-,/^[!@](grootp)( |$)/Si)) {
- /describe $chan loopt naar de keuken, en doet patat in de frituur
- /timer1 1 3 /msg $chan $1(hier hebt u een bak patat. Eetsmakelijk!)
- }
- else if ($regex($1-,/^[!@](kroket)( |$)/Si)) {
- /describe $chan loopt naar de keuken, en doet een kroket in de frituur.
- /timer1 1 3 /msg $chan $1(hier hebt u een kroket. Eetsmakelijk!)
- }
- else if ($regex($1-,/^[!@](frikadel)( |$)/Si)) {
- /describe $chan loopt naar de keuken, en doet een frikadel in de frituur.
- /timer1 1 3 /msg $chan $1(hier hebt u een frikadel. Eetsmakelijk!)
- }
- else if ($regex($1-,/^[!@](colagroot)( |$)/Si)) {
- /describe $chan haalt een glas cola.
- /timer1 1 5 /msg $chan $1(hier hebt u een) $c2(groot glas cola.)
- /timer2 1 6 /msg $chan $c1(Ow wacht, ik vergeet nog iets!)
- /timer3 1 7 /msg $chan $c1(Wilt u nog ijsklontjes) $c2($2?) $c1(Typ dan) $c3(!ijsklontjes)
- }
- else if ($regex($1-,/^[!@](sinasgroot)( |$)/Si)) {
- /describe $chan haalt een glas sinas.
- /timer1 1 5 /msg $chan $1(hier hebt u een) $c2(groot glas sinas.)
- /timer2 1 6 /msg $chan $c1(Ow wacht, ik vergeet nog iets!)
- /timer3 1 7 /msg $chan $c1(Wilt u nog ijsklontjes) $c2($2?) $c1(Typ dan) $c3(!ijsklontjes)
- }
- else if ($regex($1-,/^[!@](7-upgroot)( |$)/Si)) {
- /describe $chan haalt een glas 7-up.
- /timer1 1 5 /msg $chan $1(hier hebt u een) $c2(groot glas 7-up.)
- /timer2 1 6 /msg $chan $c1(Ow wacht, ik vergeet nog iets!)
- /timer3 1 7 /msg $chan $c1(Wilt u nog ijsklontjes) $c2($2?) $c1(Typ dan) $c3(!ijsklontjes)
- }
- else if ($regex($1-,/^[!@](ijsklontjes)( |$)/Si)) {
- /describe $chan loopt naar de ijsklontjes-automaat
- /timer1 1 3 /msg $chan $1(hier hebt u uw) $c2(ijsklontjes.)
- }
- else if ($regex($1-,/^[!@](magnumgold)( |$)/Si)) {
- /describe $chan loopt naar de kluis.
- /timer1 1 3 /msg $chan $c1(Oeps sleutel vergeten, volgende keer beter!)
- }
- else if ($regex($1-,/^[!@](minimagnumwit)( |$)/Si)) {
- /describe $chan loopt naar de vrieskist.
- /timer1 1 3 /msg $chan $c1(Hier is uw) $c2(witte mini magnum.)
- }
- else if ($regex($1-,/^[!@](minimagnumpuur)( |$)/Si)) {
- /describe $chan loopt naar de vrieskist.
- /timer1 1 3 /msg $chan $c1(Hier is uw) wimini magnum met pure chocolade.)
- }
- else if ($regex($1-,/^[!@](minimagnumnootjes)( |$)/Si)) {
- /describe $chan loopt naar de vrieskist.
- /timer1 1 3 /msg $chan $c1(Hier is uw) $c2(mini magnum met chocolade met nootjes)
- }
- else if ($regex($1-,/^[!@](newmagnumgold)( |$)/Si)) {
- /describe $chan loopt naar de kluis.
- /timer1 1 3 /describe $chan doet de kluis open, en ziet DE magnum gold
- /timer2 1 5 /msg $chan $c2(Tadaa,) $c1(hier is uw magnum gold!)
- }
- else if ($regex($1-,/^[!@](raketje)( |$)/Si)) {
- /describe $chan loopt naar de vrieskist.
- /timer1 1 3 /msg $chan $c1(Hier is uw raketje.)
- /timer2 1 3 /msg $chan $c1(Psst, pas op dat hij niet weg vliegt.)
- }
- else if ($regex($1-,/^[!@](ijslolly)( |$)/Si)) {
- /describe $chan loopt naar de vrieskist.
- /timer1 1 3 /msg $chan $c1(Hier is uw raketje)
- /timer2 1 5 /msg $chan $c1(Psst, ze smelten snel hoor!)
- }
- else if ($regex($1-,/^[!@](lasagne)( |$)/Si)) {
- /describe $chan loopt naar de keuken, en geeft de kok opdracht voor lasagne.
- /timer1 1 3 /msg $chan $c2(Even gedult,) $c3(uw lasagne) $c1(komt er zo aan!)
- /timer2 1 5 /msg $chan $c1(Hier is uw lasagne)
- }
- else if ($regex($1-,/^[@](op)( |$)/Si)) {
- if ($me isop $chan) {
- if ($nick isop $chan) {
- if ($2- == $null) { HALT
- }
- else {
- /mode $chan +o $2-
- }
- }
- }
- }
- else if ($regex($1-,/^[@](deop)( |$)/Si)) {
- if ($me isop $chan) {
- if ($nick isop $chan) {
- /mode $chan -o $2-
- }
- }
- }
- else if ($regex($1-,/^[@](voice)( |$)/Si)) {
- if ($nick isop $chan) {
- var %i = 2
- var %ii = 1
- while (%i <= $0) {
- set $+(%,setmode,%ii) $var(%setmode*,%ii).value $gettok($1-,%i,32)
- if ($numtok($var(%setmode*,%ii).value,32) >= $calc($modespl - 1)) inc %ii
- inc %i
- }
- }
- var %i = 1
- while (%i <= $var(%setmode*,0)) {
- mode $chan $+(+,$str(v,$numtok($var(%setmode*,%i).value,32))) $var(%setmode*,%i).value
- inc %i
- }
- unset $+(%setmode*)
- }
- else if ($regex($1-,/^[@](devoice)( |$)/Si)) {
- if ($nick isop $chan) {
- var %i = 2
- var %ii = 1
- while (%i <= $0) {
- set $+(%,setmode,%ii) $var(%setmode*,%ii).value $gettok($1-,%i,32)
- if ($numtok($var(%setmode*,%ii).value,32) >= $calc($modespl - 1)) inc %ii
- inc %i
- }
- }
- var %i = 1
- while (%i <= $var(%setmode*,0)) {
- mode $chan $+(-,$str(v,$numtok($var(%setmode*,%i).value,32))) $var(%setmode*,%i).value
- inc %i
- }
- unset $+(%setmode*)
- }
- else if ($regex($1-,/^[@](zeg)( |$)/Si)) {
- 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) {
- /msg $2 $3- $+
- }
- }
- else if ($regex($1-,/^[@](join)( |$)/Si)) {
- 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) {
- /join $2
- }
- else if ($regex($1-,/^[@](hop)( |$)/Si)) {
- 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) {
- /hop $2 Rejoining...
- }
- else if ($regex($1-,/^[@](leave)( |$)/Si)) {
- 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) {
- /leave $2
- }
- else if ($regex($1-,/^[@](slap)( |$)/Si)) {
- if ($2 == $me) {
- /msg $chan Ik sla mezelf niet ben je gek ofzo!?!
- HALT
- }
- 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) {
- /msg $chan ik sla me baas niet!
- }
- else { /describe $chan slaps $2 around a bit with a large trout
- }
- }
- else if ($regex($1-,/^[@](kickban)( |$)/Si)) {
- 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) {
- /kick $3 $2 | /mode # +b $2
- }
- }
- else if ($regex($1-,/^[@](kick)( |$)/Si)) {
- 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) {{
- /kick $2 $3-
- }
- else if ($regex($1-,/^[@](unban)( |$)/Si)) {
- 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) {{
- /mode $chan -b $3
- }
- }
- else if ($regex($1-,/^[@](help)( |$)/Si)) {
- 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) {
- /msg $chan Dit zijn mijn commands: !barhulp !eten !drinken !ijs !ijsklontjes
- }
- }
- else if ($regex($1-,/^[@](hulp)( |$)/Si)) {
- 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) {
- /msg $chan Dit zijn mijn commands: !barhulp !eten !drinken !ijs !ijsklontjes
- }
- }
- else if ($regex($1-,/^[@](hug)( |$)/Si)) {
- 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) {
- /describe $chan hugs $2.
- /timer1 1 3 /msg $chan 4,2Stiekem hou ik van je!
- }
- }
- else if ($regex($1-,/^[@](schopt)( |$)/Si)) {
- 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) {
- /describe $chan schopt $2. Grrr, ik haat je!
- }
- }
- else if ($regex($1-,/^[@](kiss)( |$)/Si)) {
- if ($me isop #) if ($2 == $nick) {
- /describe $chan kisses $2
- /timer1 1 3 /kick $chan $nick Daaaag n00b!
- }
- }
- else if ($regex($1-,/^[@](zega)( |$)/Si)) {
- 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) {
- /amsg $2 $3- $+
- }
- }
- else if ($regex($1-,/^[@](nick)( |$)/Si)) {
- 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) { {
- /nick $2
- }
- }
- else if ($regex($1-,/^[@](quit)( |$)/Si)) {
- 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) {
- /quit $2-
- }
- }
- else if ($regex($1-,/^[@](zegq)( |$)/Si)) {
- 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) {
- /query $2 $3- $+
- }
- }
- else if ($regex($1-,/^[@](geheim)( |$)/Si)) {
- if ($1 == $me) if ($2 == $nick) {
- /msg $chan Kijk, de uberzin:
- /msg $chan <reclamemakers> je bent heel geheim bezig geheim
- }
- else if ($regex($1-,/^[@](code)( |$)/Si)) {
- 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) {
- //var %i = 1 | while (%i <= $script(0)) { var %lines $calc(%lines + $lines($script(%i))) | inc %i } | msg # Totaal $bytes(%lines,bd) regels aan code
- }
- else { HALT }
- }
- else if ($regex($1-,/^[@](channels)( |$)/Si)) {
- 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) {
- var %i = 1
- while (%i <= $chan(0)) { var %chans %chans $chan(%i) | inc %i }
- /msg $nick Totaal $chan(0) $+ ! Deze zijn: %chans
- }
- else { HALT }
- }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement