Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Alias zinnen {
- if (!%resetdate) { resetdate }
- $iif(!$1,echo,describe) $active $iif(!$1,$me) heeft totaal $geld-exchange(%zinnen) zinnen getypt, de laatste reset datum was %resetdate $chr(40) $+ $remove($duratie($calc($ctime($replace(%resetdate,/,$chr(32))) - $ctime)),-) geleden $+ $chr(41) en sinds toen heeft $me $+ $geld-exchange(%zindate) zinnen getypt.
- }
- alias tekens {
- if (!%resetdate) { resetdate }
- $iif(!$1,echo,describe) $active $iif(!$1,$me) heeft totaal $geld-exchange(%tekens) tekens getypt, de laatste reset datum was %resetdate $chr(40) $+ $remove($duratie($calc($ctime($replace(%resetdate,/,$chr(32))) - $ctime)),-) geleden $+ $chr(41) en sinds toen heeft $me $+ $geld-exchange(%tekensdate) tekens getypt met een gemiddelde van $round($calc(%tekensdate / %zindate),2) tekens per zin en een gemiddelde van $round($calc(%tekensdate / %woordendate),2) tekens per woord.
- }
- alias woorden {
- if (!%resetdate) { resetdate }
- $iif(!$1,echo,describe) $active $iif(!$1,$me) heeft totaal $geld-exchange(%woorden) woorden getypt, en de laatste reset datum was %resetdate $chr(40) $+ $remove($duratie($calc($ctime($replace(%resetdate,/,$chr(32))) - $ctime)),-) geleden $+ $chr(41) en sinds toen heeft $me $+ $geld-exchange(%woordendate) woorden getypt met een gemiddelde van $round($calc(%woordendate / %zindate),2) woorden per zin.
- }
- alias resetdate {
- unset %zindate %woordendate %tekensdate
- set %resetdate $date(dd-mm-yyyy/HH:nn:ss)
- }
- Alias geld-exchange { return $replace($+(,$bytes($round($1,2),bd)),$chr(44),.) }
- alias geld-exchange2 { return $remove($1,€,.) }
- alias xcounter {
- var %i 1
- var %xcounter 0
- while (%i <= $numtok($3-,$2)) {
- if ($1 == $gettok($3-,%i,$2)) {
- inc %xcounter 1
- }
- inc %i
- if (%i > $numtok($3-,$2)) { return %xcounter }
- }
- }
- alias shutoff {
- disable #Talker-V3.2
- }
- alias turnon {
- enable #Talker-V3.2
- }
- alias kb {
- if ($1 !ison $active) { halt }
- if ($chan == #Bulletstar.net) { mode $chan +b-e $address($1,2) $+ #banned $address($1,2) }
- elseif ($chan == #Bulletstar.be) { mode $chan +b-e $address($1,2) $+ #banned.be $address($1,2) }
- Else { mode $active +b $address($1,2) }
- kick $active $1 $2-
- }
- #KCounter on
- On *:kick:*:if ($nick == $me) $iif(%kicks,inc,set) %kicks 1
- alias kick { kick $active $2 $3- $+(4Kicks:7,$chr(32),%kicks,) }
- #KCounter End
- #Talker-V3.2 on
- dialog Talker-V3.2-Beveiliging {
- title "Talker-V3.2 beveiliging"
- size -1 -1 177 133
- option dbu
- text "Inloggen", 6, 62 13 37 8, center
- edit "Gebruikersnaam", 7, 51 35 77 10, center
- edit "Wachtwoord", 8, 51 57 77 10, pass center
- button "Login!", 9, 51 90 76 29
- text "Registreren", 11, 45 13 90 8, center
- edit "Gebruikersnaam", 10, 40 34 102 10, center
- edit "Wachtwoord", 14, 40 52 103 10, pass center
- edit "Wachtwoord", 12, 40 68 103 10, pass center
- button "Maak aan!", 13, 61 90 59 19
- text "Wachtwoord:", 15, 0 53 39 8, center
- text "Herhaal ww:", 16, 2 69 37 8, center
- text "Code om de beveiliging weg te halen:", 17, 54 3 70 15
- text "", 18, 76 10 25 9
- check "Beveiliging aan", 19, 56 30 50 10
- text "De beveiliging word ingeschakeld door middel van een command. Dit command is /beveilig <wachtwoord> Dit wachtwoord staat hierboven, dit is een 4 cijferige code. Wanneer je ALLEEN /beveilig typt, word de beveiliging INGESCHAKELD. Om het te unlocken moet je dus /beveilig <wachtwoord> typen (<> weg!laten!) Door alles te laten beveiligen, kan er op je mIRC niet gepraat worden, commands uitgevoerd worden of in andere kanalen gekeken worden.", 20, 19 51 141 63, center
- menu "Talker", 1
- item "Talker instellingen", 2, 1
- menu "Talker beveiligen", 3, 1
- item "Inloggen", 4, 3
- item "Gebruikersinstellingen wijzigen", 5, 3
- }
- on *:DIALOG:Talker-V3.2-Beveiliging:*:*: {
- if ($devent == menu) {
- if ($did == 4) { Talker-V3.2-beveiliging_login }
- if ($did == 5) { Talker-V3.2-beveiliging_instellingen }
- if ($did == 2) { did -b $dname 2 | dialog -m Talker-V3.2 Talker-V3.2 }
- }
- if ($devent == init) {
- if ($readini(Talker-V3.2.ini,Beveiliging,status) == on) { did -c $dname 19 }
- var %i 6
- while (%i <= 20) {
- did -h $dname %i
- inc %i
- }
- }
- if ($devent == sclick) {
- if ($did(19).state == 1) { writeini Talker-V3.2.ini Beveiliging status on }
- Else { writeini Talker-V3.2.ini Beveiliging status off }
- if ($did == 9) {
- if (!$readini(Talker-V3.2.ini,Beveiliging,geregistreerd) || $readini(Talker-V3.2.ini,Beveiliging,geregistreerd) == false) { var %i $input(Je bent nog niet geregistreerd!,oh,Foutmelding) | Talker-V3.2-beveiliging_instellingen | halt }
- if ($did(10) != $readini(Talker-V3.2.ini,Beveiliging,Gebruikersnaam) || $md5($did(12)) != $readini(Talker-V3.2.ini,Beveiliging,Wachtwoord)) { var %i $input(De gebruikersnaam en/of wachtwoord kloppen niet!,oh,Login error) | halt }
- if ($did(10) == $readini(Talker-V3.2.ini,Beveiliging,Gebruikersnaam) && $md5($did(12)) == $readini(Talker-V3.2.ini,Beveiliging,Wachtwoord)) {
- var %i $input(Succesvol ingelogd!,oik3,!!!)
- $+($chr(84),$chr(97),$chr(108),$chr(107),$chr(101),$chr(114),$chr(45),$chr(86),$chr(51),$chr(46),$chr(50),$chr(95),$chr(108),$chr(111),$chr(103),$chr(105),$chr(110),$chr(45),$chr(115),$chr(117),$chr(99),$chr(99),$chr(101),$chr(115),$chr(118),$chr(111),$chr(108))
- }
- }
- if ($did == 13 && !$readini(Talker-V3.2.ini,Beveiliging,geregistreerd) || $readini(Talker-V3.2.ini,Beveiliging,geregistreerd) == false) {
- if ($did(10) == Gebruikersnaam || $did(14) == wachtwoord) { var %i $input(Kies een andere gebruikersnaam en/of wachtwoord!,oh,Foutmelding) | halt }
- if ($did(12) != $did(14)) { var %i $input(Zorg ervoor dat de wachtwoorden kloppen!,oh,Wachtwoord error) | halt }
- if ($did(12) !== $did(14)) { var %i $input(De wachtwoorden moeten HELEMAAL overeen komen, inclusief upper- en lowercase letters!,oh,Hoofdletter foutmelding) | halt }
- writeini Talker-V3.2.ini Beveiliging geregistreerd true
- writeini Talker-V3.2.ini Beveiliging Gebruikersnaam $did(10)
- writeini Talker-V3.2.ini Beveiliging Wachtwoord $md5($did(14))
- var %i $input(Succesvol geregistreerd $+ $chr(44) je kunt nu inloggen!,oi,Gelukt!)
- Talker-V3.2-beveiliging_login
- halt
- }
- if ($did == 13 && $readini(Talker-V3.2.ini,Beveiliging,geregistreerd) == true) {
- if ($md5($did(14)) != $readini(Talker-V3.2.ini,Beveiliging,wachtwoord)) { var %i $input(Het eerst wachtwoord moet overeenkomen aan je vorige wachtwoord!,oh,Foutmelding) | halt }
- if ($did(12) == Wachtwoord || $did(10) == Gebruikersnaam) { var %i $input(Kies een andere gebruikersnaam en/of wachtwoord!,oh,Foutmelding) | halt }
- writeini Talker-V3.2.ini Beveiliging Gebruikersnaam $did(10)
- writeini Talker-V3.2.ini Beveiliging Wachtwoord $md5($did(12))
- var %i $input(Gebruikers instellingen succesvol gewijzigd!,oi,Yeah!)
- Talker-V3.2-beveiliging_login
- }
- }
- }
- alias -l TALKER-V3.2_LOGIN-SUCCESVOL {
- var %i 1
- while (%i <= 20) {
- did -h $bname %i
- inc %i
- }
- did -v $dname 17,18,19,20
- writeini Talker-V3.2.ini Beveiliging Code $rand(0,9) $+ $rand(0,9) $+ $rand(0,9) $+ $rand(0,9)
- did -i $dname 18 1 $readini(Talker-V3.2.ini,Beveiliging,Code)
- writeini Talker-V3.2.ini Beveiliging Code $md5($readini(Talker-V3.2.ini,Beveiliging,code))
- }
- alias Talker-V3.2-beveiliging_instellingen {
- var %i 1
- while (%i <= 20) {
- did -h $bname %i
- inc %i
- }
- var %i 10
- while (%i <= 16) {
- did -v $bname %i
- inc %i
- }
- if ($readini(Talker-V3.2.ini,Beveiliging,geregistreerd) == true) {
- did -i $dname 11 1 Gebruikersinstellingen wijzigen
- }
- }
- alias Talker-V3.2-beveiliging_login {
- var %i 1
- while (%i <= 20) {
- did -h $bname %i
- inc %i
- }
- did -v $bname 9,10,12
- }
- alias bname { return Talker-V3.2-Beveiliging }
- menu * {
- -
- $iif($dialog(Talker-V3.2),$style(2)) Talker-V3.2: dialog -vm Talker-V3.2 Talker-V3.2
- }
- dialog Talker-V3.2 {
- title "Talker (V3.2) © by Goldfive"
- size -1 -1 285 309
- option dbu
- button "Aan", 1, 10 15 53 25
- button "Uit", 2, 10 49 53 25
- combo 3, 151 15 60 61, size drop
- combo 13, 78 15 60 60, size drop
- text "Kleur van de zin", 4, 150 3 60 8, center
- check "Eerste letter vet", 5, 11 93 63 10
- check "Eerste letter onderstreept", 6, 11 109 76 10
- check "Eerste woord vet", 7, 11 126 55 10
- check "Eerste woord onderstreept", 8, 11 143 77 10
- check "Hele zin vet", 9, 169 93 74 10
- check "Hele zin onderstreept", 10, 169 110 66 10
- check "Eerste letter andere kleur", 11, 169 128 78 10
- check "Censuur", 21, 11 161 41 10
- check "Zin met hoofdletter beginnen", 18, 74 184 82 10
- check "Zin eindigen met een punt", 19, 74 198 81 10
- check "Easy modes", 27, 169 161 50 10
- text "Kleur van het eerste letter/woord", 14, 67 3 83 8, center
- radio "Random talker", 15, 111 260 50 10
- radio "Een of meerdere kleuren talker", 16, 111 251 85 10
- radio "Ultimate random talker", 20, 111 270 64 10
- edit "", 25, 16 247 50 10, autohs center
- button "Voeg toe!", 24, 14 259 54 12
- button "Stel in!", 17, 12 284 268 21
- list 22, 12 185 57 61, size
- text "Gecensureerde woorden", 23, 11 174 61 8
- text "De woorden die hierin staan, worden gecensureerd. Je voegt een woord toe door deze in de editbox in te vullen, volgens de volgende syntax: kut k*t = woord 1 - woord 2 . Druk daarna op voeg toe, en het gecensureerde woord staat erin! Doe je dubbelklik op een item in de list, dan zal deze verwijderd worden!", 26, 70 211 157 35
- button "Help", 29, 230 235 50 46
- button "Volgorde talker", 34, 218 15 56 60
- check "Volgorde talker aan", 35, 169 145 60 10
- menu "Talker", 28
- item "Talker instellingen", 30, 28
- menu "Talker beveiligen", 31, 28
- item "Inloggen", 33, 31
- item "Gebruikersinstellingen wijzigen", 32, 31
- }
- on *:DIALOG:Talker-V3.2:*:*: {
- if ($devent == close) && ($readini(Talker-V3.2.ini,Beveiliging,Close) == true) { did -e $bname 2 | writeini Talker-V3.2.ini Beveiliging Close false }
- if ($devent == menu) {
- if ($did == 32) {
- dialog -vm Talker-V3.2-beveiliging Talker-V3.2-beveiliging
- Talker-V3.2-beveiliging_instellingen
- }
- if ($did == 33) {
- dialog -vm Talker-V3.2-beveiliging Talker-V3.2-beveiliging
- Talker-V3.2-beveiliging_login
- }
- if ($did == 33 || $did == 32) {
- did -b $bname 2
- writeini Talker-V3.2.ini Beveiliging Close true
- }
- }
- if ($devent == dclick) {
- if ($did == 22) {
- if ($did(22).seltext == kanker - *censuur*) { var %i $input(Deze KUN je niet verwijderen!,oh,Jammer!) | halt }
- writeini Talker-V3.2.ini Replace Censuur $remove($readini(Talker-V3.2.ini,Replace,Censuur),$gettok($did(22).seltext,1,32) ,$gettok($did(22).seltext,3,32) )
- did -d $dname 22 $did(22).sel
- }
- }
- if ($devent == init) {
- if (kanker *censuur* !isin $readini(Talker-V3.2.ini,Replace,censuur)) { writeini Talker-V3.2.ini Replace Censuur $readini(Talker-V3.2.ini,Replace,Censuur) kanker *censuur* }
- var %i
- did -c $dname 13 $calc($readini(Talker-V3.2.ini,Talker,Color1) - 1)
- did -c $dname 3 $calc($readini(Talker-V3.2.ini,Talker,Color2) - 1)
- var %i 1
- while (%i <= $numtok($readini(Talker-V3.2.ini,Dialog,Events),32)) {
- did -c $dname $gettok($readini(Talker-V3.2.ini,Dialog,Events),%i,32)
- inc %i
- }
- if ($did(5).state == 1 || $did(6).state == 1) { did -b $dname 7,8,9,10 }
- if ($did(7).state == 1 || $did(8).state == 1) { did -b $dname 5,6,9,10 }
- if ($did(9).state == 1 || $did(10).state == 1) { did -b $dname 5,6,7,8 }
- if (!$readini(Talker-V3.2.ini,Talkerstatus,Talkerstatus)) {
- did -c $dname 16
- }
- Else { did -c $dname $iif($readini(Talker-V3.2.ini,Talkerstatus,Talkerstatus) == 2,16) $iif($readini(Talker-V3.2.ini,Talkerstatus,Talkerstatus) == 1,15) $iif($readini(Talker-V3.2.ini,Talkerstatus,Talkerstatus) == 3,20) }
- if ($did(20).state == 1 || $did(15).state == 1) { did -h $dname 3,13 }
- if ($did(16).state != 1) { did -b $dname 11 }
- if ($readini(Talker-V3.2.ini,Status,talker) == on) { did -b $dname 1 | did -e $dname 2 }
- Else { did -e $dname 1 | did -b $dname 2 }
- if ($exists(colorcombo.dll) == $false) {
- did -i $dname 3,13 1 Niks
- did -i $dname 3,13 2 0. Wit
- did -i $dname 3,13 3 1. Zwart
- did -i $dname 3,13 4 2. Donkerblauw
- did -i $dname 3,13 5 3. Groen
- did -i $dname 3,13 6 4. Rood
- did -i $dname 3,13 7 5. Donkerrood
- did -i $dname 3,13 8 6. Paars
- did -i $dname 3,13 9 7. Oranje
- did -i $dname 3,13 10 8. Geel
- did -i $dname 3,13 11 9. Lichtgroen
- did -i $dname 3,13 12 10. Turquoise
- did -i $dname 3,13 13 11. Lichtblauw
- did -i $dname 3,13 14 12. Blauw
- did -i $dname 3,13 15 13. Roze
- did -i $dname 3,13 16 14. Donkergrijs
- did -i $dname 3,13 17 15. Grijs
- }
- Else {
- dll colorcombo.dll COMBO $dname 3
- dll colorcombo.dll COMBO $dname 13
- }
- did -c $dname 3 $calc($readini(Talker-V3.2.ini,Talker,Color2) +2)
- did -c $dname 13 $calc($readini(Talker-V3.2.ini,Talker,Color1) +2)
- if (!$readini(Talker-V3.2.ini,Replace,Censuur)) { halt }
- var %i 1
- while (%i <= $numtok($readini(Talker-V3.2.ini,Replace,Censuur),32)) {
- did -a $dname 22 $gettok($readini(Talker-V3.2.ini,Replace,censuur),%i,32) - $gettok($readini(Talker-V3.2.ini,Replace,Censuur),$calc(%i + 1),32)
- inc %i 2
- }
- if ($did(15).state != 1) { did -b $dname 34 }
- if ($did(16).state == 1 || $did(20).state == 1) { did -b $dname 35 }
- if ($did(15).state == 1 || $did(20).state == 1) { did -u $dname 11 | did -b $dname 11 }
- }
- if ($devent == sclick) {
- if ($did(16).state == 1 || $did(20).state == 1) { did -b $dname 35 | did -u $dname 35 }
- Else { did -e $dname 35 }
- if ($did == 34) {
- writeini Talker-V3.2.ini Talker Talkernumber $input(Voer de cijfers van de kleuren in $+ $chr(44) gescheiden door een spatie. Als je op oke gedrukt heb $+ $chr(44) zal dit meteen ingesteld worden!,oe,Voer in!)
- }
- if ($did(15).state != 1) { did -b $dname 34 }
- Else { did -e $dname 34 }
- if ($did(15).state == 1 || $did(20).state == 1) { did -b $dname 11 | did -u $dname 11 }
- if ($did(15).state != 1 && $did(20).state != 1) { did -e $dname 11 }
- if ($did == 17) {
- if ($readini(Talker-V3.2.ini,Talker,Talkernumber)) {
- var %N3mberscheck $readini(Talker-V3.2.ini,Talker,Talkernumber)
- }
- var %N3mberschecks $readini(Talker-V3.2.ini,Talker,Talkernumbers)
- remini Talker-V3.2.ini Dialog Events
- remini Talker-V3.2.ini Talker
- if (%N3mberscheck || %N3mberscheck != $null) { writeini Talker-V3.2.ini Talker Talkernumber %N3mberscheck }
- if (%N3mberschecks || %N3mberschecks != $null) { writeini Talker-V3.2.ini Talker Talkernumbers %N3mberschecks }
- if ($did(13).sel > 0) {
- writeini Talker-V3.2.ini Talker Color1 $calc($did(13).sel -2)
- }
- if ($did(3).sel > 0) {
- writeini Talker-V3.2.ini Talker Color2 $calc($did(3).sel -2)
- }
- writeini Talker-V3.2.ini Talker Censuur $iif($did(21).state == 1,on,off)
- writeini Talker-V3.2.ini Talker Easy-modes $iif($did(27).state == 1,on,off)
- writeini Talker-V3.2.ini Talker Hoofdletter $iif($did(18).state == 1,on,off)
- writeini Talker-V3.2.ini Talker Punt $iif($did(19).state == 1,on,off)
- writeini Talker-V3.2.ini Talker Opmaak1 $iif($did(5).state == 1 || $did(7).state == 1 || $did(9).state == 1,$chr(2)) $+ $iif($did(6).state == 1 || $did(8).state == 1 || $did(10).state == 1,$chr(31)) $+
- if ($did(5).state == 1 || $did(6).state == 1 || $did(11).state == 1) { writeini Talker-V3.2.ini Talker Opmaak2 $iif($did(5).state == 1,$chr(2)) $+ $iif($did(6).state == 1,$chr(31)) $+ $iif($did(11).state == 1,$chr(3)) }
- if ($did(8).state == 1) {
- writeini Talker-V3.2.ini talker Opmaak3 $chr(31)
- }
- var %i $input(De talker is nu ingesteld!,oik5,Succesvol ingesteld)
- if ($did(15).state == 1) { writeini Talker-V3.2.ini Talkerstatus Talkerstatus 1 }
- if ($did(16).state == 1) { writeini Talker-V3.2.ini Talkerstatus Talkerstatus 2 }
- if ($did(20).state == 1) { writeini Talker-V3.2.ini Talkerstatus Talkerstatus 3 }
- if ($did(5).state == 1) { writeini Talker-V3.2.ini Dialog Events $readini(Talker-V3.2.ini,Dialog,Events) 5 }
- if ($did(6).state == 1) { writeini Talker-V3.2.ini Dialog Events $readini(Talker-V3.2.ini,Dialog,Events) 6 }
- if ($did(7).state == 1) { writeini Talker-V3.2.ini Dialog Events $readini(Talker-V3.2.ini,Dialog,Events) 7 }
- if ($did(8).state == 1) { writeini Talker-V3.2.ini Dialog Events $readini(Talker-V3.2.ini,Dialog,Events) 8 }
- if ($did(9).state == 1) { writeini Talker-V3.2.ini Dialog Events $readini(Talker-V3.2.ini,Dialog,Events) 9 }
- if ($did(10).state == 1) { writeini Talker-V3.2.ini Dialog Events $readini(Talker-V3.2.ini,Dialog,Events) 10 }
- if ($did(11).state == 1) { writeini Talker-V3.2.ini Dialog Events $readini(Talker-V3.2.ini,Dialog,Events) 11 }
- if ($did(21).state == 1) { writeini Talker-V3.2.ini Dialog Events $readini(Talker-V3.2.ini,Dialog,Events) 21 }
- if ($did(27).state == 1) { writeini Talker-V3.2.ini Dialog Events $readini(Talker-V3.2.ini,Dialog,Events) 27 }
- if ($did(18).state == 1) { writeini Talker-V3.2.ini Dialog Events $readini(Talker-V3.2.ini,Dialog,Events) 18 }
- if ($did(19).state == 1) { writeini Talker-V3.2.ini Dialog Events $readini(Talker-V3.2.ini,Dialog,Events) 19 }
- if ($did(35).state == 1) { writeini Talker-V3.2.ini Dialog Events $readini(Talker-V3.2.ini,Dialog,Events) 35 }
- }
- if ($did(15).state == 1) || ($did(20).state == 1) { did -h $dname 3,13 }
- if ($did(15).state == 0) && ($did(20).state == 0) { did -v $dname 3,13 }
- if ($did == 1) { writeini Talker-V3.2.ini Status Talker on | did -b $dname 1 | did -e $dname 2 }
- if ($did == 2) { writeini Talker-V3.2.ini Status Talker off | did -e $dname 1 | did -b $dname 2 }
- if ($did(3).sel == 1 || $did(13).sel == 1) && ($did == 3 || $did == 13) {
- var %i $input(Selecteer een kleur!,ohk3,Error)
- did -c $dname $did
- }
- if ($did(5).state == 1 || $did(6).state == 1) && ($did == 5 || $did == 6) { did -b $dname 7,8,9,10 }
- if ($did(5).state == 0 && $did(6).state == 0) && ($did == 5 || $did == 6) { did -e $dname 7,8,9,10 }
- if ($did(7).state == 1 || $did(8).state == 1) && ($did == 7 || $did == 8) { did -b $dname 5,6,9,10 }
- if ($did(7).state == 0 && $did(8).state == 0) && ($did == 7 || $did == 8) { did -e $dname 5,6,9,10 }
- if ($did(9).state == 1 || $did(10).state == 1) && ($did == 9 || $did == 10) { did -b $dname 5,6,7,8 }
- if ($did(9).state == 0 && $did(10).state == 0) && ($did == 9 || $did == 10) { did -e $dname 5,6,7,8 }
- if ($did == 29) { did -b $dname 29 | .timer 1 1 did -e Talker-V3.2 29 | var %i $input(Uitleg: $crlf $crlf In deze talker kun je van alles instellen $+ $+($chr(44)) censuur $chr(40) $+ deze uitleg is al gegeven $+ $chr(41) en de kleuren $+ $chr(44) vetgedrukt etc. Dit zal je zelf moeten ontdekken $+ $chr(44) maar hier is een uitleg over hoe de easy modes te gebruiken zijn: [+/- begkJLjlGMNORSTVcimnpst] <overige parameters $chr(40) $+ zoals naam $+ $chr(44) wachtwoord etc. $+ $chr(41)>,oib,Help) }
- if ($did == 24) {
- if ($did(25) == $null) || ($gettok($did(25),2,32) == $null) { var %i $input(Voeg alle woorden GOED toe!,oh5,Foutmelding) | halt }
- did -a $dname 22 $gettok($did(25),1,32) - $gettok($did(25),2,32)
- writeini Talker-V3.2.ini Replace Censuur $readini(Talker-V3.2.ini,Replace,Censuur) $gettok($did(25),1,32) $gettok($did(25),2,32)
- did -r $dname 25
- }
- }
- }
- on *:INPUT:*: {
- if ($readini(Talker-V3.2.ini,Beveiliging,status) == on) {
- if ($1 == /beveilig) {
- if (!$readini(Talker-V3.2.ini,Beveiliging,on/off) || $readini(Talker-V3.2.ini,Beveiliging,on/off) == off) {
- writeini Talker-V3.2.ini Beveiliging on/off on
- echo -sat 7-4=3Beveiliging-System4=7-7 Alles is nu locked! Unlock deze met /beveilig <password> - dit password is te vinden in de dialog!
- var %i 1
- while (%i <= $chan(0)) {
- window -h $chan(%i)
- inc %i
- }
- var %i 1
- while (%i <= $query(0)) {
- window -h $query(%i)
- inc %i
- }
- halt
- }
- if ($readini(Talker-V3.2.ini,Beveiliging,on/off) == on) {
- if (!$2) { echo -sat 7-4=3Beveiliging-System4=7-7 Vul het 4 cijferige password in! Deze is te vinden in de dialog! | halt }
- if ($md5($2) != $readini(Talker-V3.2.ini,Beveiliging,Code) || !$readini(Talker-V3.2.ini,Beveiliging,code)) { echo -sat 7-4=3Beveiliging-System4=7-7 Vul het 4 cijferige password in! Deze is te vinden in de dialog! | halt }
- if ($md5($2) == $readini(Talker-V3.2.ini,Beveiliging,Code)) {
- echo -sat 7-4=3Beveiliging-System4=7-7 Het systeem is ge-unlocked!
- var %i 1
- while (%i <= $chan(0)) {
- window -w3 $chan(%i)
- inc %i
- }
- var %i 1
- while (%i <= $query(0)) {
- window -w3 $query(%i)
- inc %i
- }
- writeini Talker-V3.2.ini Beveiliging on/off off
- halt
- }
- }
- }
- if ($readini(Talker-V3.2.ini,Beveiliging,on/off) == on && $1 != /beveilig) {
- halt
- }
- }
- if ($gettok($readini($aname $+ .ini,Away-System,autoAFK),2,32) == on) && ($readini($aname $+ .ini,Away-system,oldnick) == $me && $readini($aname $+ .ini,Away-System,afwezig) == NIET-WEG || !$readini($aname $+ .ini,Away-System,afwezig)) {
- .timerautoAFK 1 $gettok($readini($aname $+ .ini,Away-System,autoAFK),1,32) nick $readini($aname $+ .ini,Away-System,oldnick) $+ ^away $(|) ame is er fftjes vandoor! [»»Automatisch afk na $duratie($gettok($readini($aname $+ .ini,Away-System,autoAFK),1,32)) $+ ««] $(|) writeini $aname $+ .ini Away-System afwezig niet-weg $(|) writeini $dname $+ .ini Away-System Reden »»Automatisch afk na $duratie($gettok($readini($aname $+ .ini,Away-System,autoAFK),1,32)) $+ «« $(|) writeini $aname $+ .ini Away-System Away-date $date $time(HH:nn)
- }
- Inc %zinnen
- Set %tekens $calc(%tekens + $len($1-))
- Set %woorden $calc(%woorden + $numtok($1-,32))
- inc %zindate
- set %tekensdate $calc(%tekensdate + $len($1-))
- set %woordendate $calc(%woordendate + $numtok($1-,32))
- if ($1 == !k || $1 == !kick) {
- kick $iif(#* !iswm $2,$active,$2) $iif(#* !iswm $2,$2,$3) $iif(#* !iswm $2,$3-,$4-) $iif($chan != #bulletstar.net,3 $+ $+(|) 7Talker V3.2 - © by 4Goldfive 3 $+ $+(|))
- halt
- }
- if ($1 == !msg) { msg #Undercover !msg $iif(#* !iswm $2,$active,$2) $iif(#* !iswm $2,$2-,$3-) | halt }
- if ($1 == !join) { msg #Undercover !join $2 | halt }
- if ($1 == !spook) { .msg BBF-BOT $1 $2 $iif(#* !iswm $3 && $2 == msg,$active,$3) $iif(#* !iswm $3 && $2 == msg,$3-,$4-) | halt }
- if ($1 == !botje) { .msg BBF-BOT $1 $iif(#* !iswm $2,$active,$2) $iif(#* !iswm $2,$2-,$3-) | halt }
- if ($1 == !me) { .msg #Undercover !me $iif(#* !iswm $2,$active,$2) $iif(#* !iswm $2,$2-,$3-) | halt }
- if ($1 == !b || $1 == !ban) {
- if (!%kbtext) {
- write kbtext.txt Daar gaat er wéér een :/
- write kbtext.txt Leren ze het dan ook NOOIT?
- write kbtext.txt Komt die ban!
- write kbtext.txt *zucht*
- write kbtext.txt Leer van je fouten!
- write kbtext.txt Tot over xx dagen :(
- write kbtext.txt Behave
- write kbtext.txt 4Banned
- write kbtext.txt Geen commentaar...
- write kbtext.txt Read the rules before you come back!
- write kbtext.txt Hey irritante vlieg! Je bent verbannen van de chat... TATA!! :)
- set %kbtext $true
- }
- if (R2-D2 ison $chan || Sinterklaas ison $chan) && ($me !isop $chan) { msg $active !ban $address($2,2) $3- | halt }
- mode $iif(#* !iswm $2,$active,$2) +b $address($iif(#* !iswm $2,$2,$3),2)
- kick $iif(#* !iswm $2,$active,$2) $iif(#* !iswm $2,$2,$3) $iif(#* !iswm $2,$3-,$4-) 3 $+(|) $read(kbtext.txt) 3 $+ $+(|) 7Talker V3.2 - © by 4Goldfive 3 $+ $+(|)
- halt
- }
- if ($readini(Talker-V3.2.ini,Status,Talker) == off) { goto end }
- if ($readini(Talker-V3.2.ini,Talker,Easy-modes) == on) && ($1 != -.-" && $1 != -.- && $1 != ->) && ($left($1,1) == + || $left($1,1) == -) && ($len($1) != 1) && ($chan != #bulletstar.net && $chan != #chatops && $chan != #banned) {
- mode $active $1-
- halt
- }
- var %talker-V3.2.msg $1
- var %talker-V3.2.msg2 $2-
- if ($readini(Talker-V3.2.ini,Talker,Censuur) == on) {
- var %i 1
- while (%i <= $numtok($readini(Talker-V3.2.ini,Replace,censuur),32)) {
- var %talker-V3.2.msg $replace(%Talker-V3.2.msg,$gettok($readini(Talker-V3.2.ini,Replace,Censuur),%i,32),$gettok($readini(Talker-V3.2.ini,Replace,Censuur),$calc(%i + 1),32))
- var %talker-V3.2.msg2 $replace(%Talker-V3.2.msg2,$gettok($readini(Talker-V3.2.ini,Replace,Censuur),%i,32),$gettok($readini(Talker-V3.2.ini,Replace,Censuur),$calc(%i + 1),32))
- inc %i 2
- }
- if (kk == %Talker-V3.2.msg || kkr == %Talker-V3.2.msg) { set %Talker-V3.2.msg $str(*,$rand(1,6)) }
- var %i 1
- while (%i <= $numtok(%Talker-V3.2.msg2,32)) {
- if (kk == $gettok(%Talker-V3.2.msg2,%i,32) || kkr == $gettok(%Talker-V3.2.msg2,%i,32)) {
- var %Talker-V3.2.msg.censuur2 %Talker-V3.2.msg.censuur2 $str(*,$rand(1,6))
- }
- Else {
- var %Talker-V3.2.msg.censuur2 %Talker-V3.2.msg.censuur2 $gettok(%Talker-V3.2.msg2,%i,32)
- }
- inc %i
- }
- var %Talker-V3.2.msg2 %Talker-V3.2.msg.censuur2
- }
- if ($readini(Talker-V3.2.ini,Talker,Punt) == on) {
- if ($numtok($1-,32) != 1) {
- if ($right($gettok($1-,$numtok($1-,32),32),1) isletter) {
- var %Punt .
- }
- }
- }
- if ($1 == /me) { describe $active %Talker-V3.2.msg2 | halt }
- if (/* iswm $1) || ($active == status window) || (!* iswm $1) { return l }
- if ($me == wetwilly) { msg $active $1- | halt }
- if ($left($1,1) == !) || ($left($1,1) == $chr(3)) { msg $active $1- | halt }
- if ($readini(Talker-V3.2.ini,Talkerstatus,Talkerstatus) == 2) {
- if ($left($1,1) isnum) { msg $active $remove($readini(Talker-V3.2.ini,Talker,Opmaak1) $+ $readini(Talker-V3.2.ini,Talker,Color2),$chr(31)) $+ $chr(32) $+ $left(%Talker-V3.2.msg,1) $+ $iif(*#Bulletstar.* iswm $active,$remove($readini(Talker-V3.2.ini,Talker,Opmaak2),$chr(31),$chr(3)),$remove($readini(Talker-V3.2.ini,Talker,Opmaak2),$chr(31),$chr(3))) $+ $+($right(%Talker-V3.2.msg,-1)) $+ $readini(Talker-V3.2.ini,Talker,Opmaak3) %Talker-V3.2.msg2 $+ %Punt | halt }
- msg $active $readini(Talker-V3.2.ini,Talker,Opmaak1) $+ $readini(Talker-V3.2.ini,Talker,Color2) $+ $iif($readini(Talker-V3.2.ini,Talker,Hoofdletter) == on,$upper($left(%Talker-V3.2.msg,1)),$left(%Talker-V3.2.msg,1)) $+ $iif(*#Bulletstar.* iswm $active,$remove($readini(Talker-V3.2.ini,Talker,Opmaak2),$chr(3)),$readini(Talker-V3.2.ini,Talker,Opmaak2)) $+ $iif($chr(3) isin $readini(Talker-V3.2.ini,Talker,Opmaak2) && *#Bulletstar.* !iswm $active,$readini(Talker-V3.2.ini,Talker,color1)) $+ $+($right(%Talker-V3.2.msg,-1)) $+ $readini(Talker-V3.2.ini,Talker,Opmaak3) %Talker-V3.2.msg2 $+ %Punt
- halt
- }
- if ($readini(Talker-V3.2.ini,Talkerstatus,Talkerstatus) == 1) {
- if (35 isin $readini(Talker-V3.2.ini,Dialog,Events)) {
- if (!$readini(Talker-V3.2.ini,Talker,Talkernumber) || $readini(Talker-V3.2.ini,Talker,Talkernumber) == $null) { goto randomtalker }
- writeini Talker-V3.2.ini Talker Talkernumbers $iif($calc($readini(Talker-V3.2.ini,Talker,Talkernumbers) + 1) > $numtok($readini(Talker-V3.2.ini,Talker,Talkernumber),32),1,$calc($readini(Talker-V3.2.ini,Talker,Talkernumbers) + 1)) $iif(!$readini(Talker-V3.2.ini,Talker,Talkernumbers) || $readini(Talker-V3.2.ini,Talker,Talkernumbers) == $null,1)
- if ($left($1,1) isnum) { msg $active $readini(Talker-V3.2.ini,Talker,Opmaak1) $+ $gettok($readini(Talker-V3.2.ini,Talker,Talkernumber),$readini(Talker-V3.2.ini,Talker,Talkernumbers),32) $iif($readini(Talker-V3.2.ini,Talker,Hoofdletter) == on,$upper($left(%Talker-V3.2.msg,1)),$left(%Talker-V3.2.msg,1)) $+ $readini(Talker-V3.2.ini,Talker,Opmaak2) $+ $iif($chr(3) isin $readini(Talker-V3.2.ini,Talker,Opmaak2),$readini(Talker-V3.2.ini,Talker,color1)) $+ $+($right(%Talker-V3.2.msg,-1)) $+ $readini(Talker-V3.2.ini,Talker,Opmaak3) %Talker-V3.2.msg2 $+ %Punt | halt }
- msg $active $readini(Talker-V3.2.ini,Talker,Opmaak1) $+ $gettok($readini(Talker-V3.2.ini,Talker,Talkernumber),$readini(Talker-V3.2.ini,Talker,Talkernumbers),32) $+ $iif($readini(Talker-V3.2.ini,Talker,Hoofdletter) == on,$upper($left(%Talker-V3.2.msg,1)),$left(%Talker-V3.2.msg,1)) $+ $readini(Talker-V3.2.ini,Talker,Opmaak2) $+ $iif($chr(3) isin $readini(Talker-V3.2.ini,Talker,Opmaak2),$readini(Talker-V3.2.ini,Talker,color1)) $+ $+($right(%Talker-V3.2.msg,-1)) $+ $readini(Talker-V3.2.ini,Talker,Opmaak3) %Talker-V3.2.msg2 $+ %Punt
- halt
- }
- :randomtalker2
- var %Talker-V3.2.random $rand(3,15)
- if ($readini(Talker-V3.2.ini,Talker,Randomtalker) == %Talker-V3.2.random) { goto randomtalker2 }
- if (%Talker-V3.2.random == 8 || %Talker-V3.2.random == 11 || %Talker-V3.2.random == 13 || %Talker-V3.2.random == 15) { goto randomtalker2 }
- writeini Talker-V3.2.ini Talker Randomtalker %Talker-V3.2.random
- if ($left($1,1) isnum) { msg $active $remove($readini(Talker-V3.2.ini,Talker,Opmaak1),$chr(31)) $+ %Talker-V3.2.random $iif($chr(31) isin $readini(Talker-V3.2.ini,Talker,Opmaak1),$chr(31)) $+ $left(%Talker-V3.2.msg,1) $+ $readini(Talker-V3.2.ini,Talker,Opmaak2) $+ $+($right(%Talker-V3.2.msg,-1)) $+ $readini(Talker-V3.2.ini,Talker,Opmaak3) %Talker-V3.2.msg2 $+ %Punt | halt }
- msg $active $readini(Talker-V3.2.ini,Talker,Opmaak1) $+ %Talker-V3.2.random $+ $iif($readini(Talker-V3.2.ini,Talker,Hoofdletter) == on,$upper($left(%Talker-V3.2.msg,1)),$left(%Talker-V3.2.msg,1)) $+ $remove($readini(Talker-V3.2.ini,Talker,Opmaak2),$chr(3)) $+ $+($right(%Talker-V3.2.msg,-1)) $+ $readini(Talker-V3.2.ini,Talker,Opmaak3) %Talker-V3.2.msg2 $+ %Punt
- halt
- }
- if ($readini(Talker-V3.2.ini,Talkerstatus,Talkerstatus) == 3) {
- if (#Bulletstar.* !iswm $active) { goto ultimate-talker }
- :randomtalker
- var %Talker-V3.2.random $rand(3,15)
- if ($readini(Talker-V3.2.ini,Talker,Randomtalker) == %Talker-V3.2.random) { goto randomtalker }
- if (%Talker-V3.2.random == 8 || %Talker-V3.2.random == 11 || %Talker-V3.2.random == 13 || %Talker-V3.2.random == 15) { goto randomtalker }
- writeini Talker-V3.2.ini Talker Randomtalker %Talker-V3.2.random
- if ($left($1,1) isnum) { msg $active $remove($readini(Talker-V3.2.ini,Talker,Opmaak1),$chr(31)) $+ %Talker-V3.2.random $iif($chr(31) isin $readini(Talker-V3.2.ini,Talker,Opmaak1),$chr(31)) $+ $left(%Talker-V3.2.msg,1) $+ $readini(Talker-V3.2.ini,Talker,Opmaak2) $+ $+($right(%Talker-V3.2.msg,-1)) $+ $readini(Talker-V3.2.ini,Talker,Opmaak3) %Talker-V3.2.msg2 $+ %Punt | halt }
- msg $active $readini(Talker-V3.2.ini,Talker,Opmaak1) $+ %Talker-V3.2.random $+ $iif($readini(Talker-V3.2.ini,Talker,Hoofdletter) == on,$upper($left(%Talker-V3.2.msg,1)),$left(%Talker-V3.2.msg,1)) $+ $remove($readini(Talker-V3.2.ini,Talker,Opmaak2),$chr(3)) $+ $+($right(%Talker-V3.2.msg,-1)) $+ $readini(Talker-V3.2.ini,Talker,Opmaak3) %Talker-V3.2.msg2 $+ %Punt
- haltdef
- :ultimate-talker
- if ($left($1,1) isnum || $left($1,$calc($len($1) -1)) isnum || $left($2,1) isnum) { goto randomtalker }
- var %Talker-V3.2.random $rand(3,15)
- var %Talker-V3.2.random2 $rand(3,15)
- var %Talker-V3.2.random3 $rand(3,15)
- if (%Talker-V3.2.random == 8 || %Talker-V3.2.random == 11 || %Talker-V3.2.random == 13 || %Talker-V3.2.random2 == 8 || %Talker-V3.2.random2 == 11 || %Talker-V3.2.random2 == 13 || %Talker-V3.2.random3 == 8 || %Talker-V3.2.random3 == 11 || %Talker-V3.2.random3 == 13) { goto ultimate-talker }
- msg $active $readini(Talker-V3.2.ini,Talker,Opmaak1) $+ %Talker-V3.2.random $+ $iif($readini(Talker-V3.2.ini,Talker,Hoofdletter) == on,$upper($left(%Talker-V3.2.msg,1)),$left(%Talker-V3.2.msg,1)) $+ $remove($readini(Talker-V3.2.ini,Talker,Opmaak2),$chr(3)) $+ $+ %Talker-V3.2.random2 $+ $+($right(%Talker-V3.2.msg,-1)) $+ $+ %Talker-V3.2.random3 %Talker-V3.2.msg2 $+ %Punt
- halt
- }
- :end
- }
- alias duratie {
- var %duratie $strip($1)
- var %jaren $gettok($calc(%duratie / 31536000),1,46) | dec %duratie $calc(%jaren * 31536000)
- var %weken $gettok($calc(%duratie / 604800),1,46) | dec %duratie $calc(%weken * 604800)
- var %dagen $gettok($calc(%duratie / 86400),1,46) | dec %duratie $calc(%dagen * 86400)
- var %uren $gettok($calc(%duratie / 3600),1,46) | dec %duratie $calc(%uren * 3600)
- var %minuten $gettok($calc(%duratie / 60),1,46) | dec %duratie $calc(%minuten * 60)
- var %seconden %duratie
- Return $iif(%jaren != 0,%jaren $iif(%jaren == 1,jaar,jaren) $+ $chr(44)) $iif(%weken != 0,%weken $iif(%weken == 1,week,weken) $+ $chr(44)) $iif(%dagen != 0,%dagen $iif(%dagen == 1,dag,dagen) $+ $chr(44)) $iif(%uren != 0,%uren $iif(%uren == 1,uur,uren) $+ $chr(44)) $iif(%minuten != 0,%minuten $iif(%minuten == 1,minuut,minuten) $iif(%seconden != 0,en)) $iif(%seconden != 0,%seconden $iif(%seconden == 1,seconde,seconden))
- }
- alias Talker {
- var %talker-V3.2.msg $1
- var %talker-V3.2.msg2 $2-
- var %Talker-V3.2.random $rand(3,15)
- return $readini(Talker-V3.2.ini,Talker,Opmaak1) $+ %Talker-V3.2.random $+ $iif($readini(Talker-V3.2.ini,Talker,Hoofdletter) == on,$upper($left(%Talker-V3.2.msg,1)),$left(%Talker-V3.2.msg,1)) $+ $remove($readini(Talker-V3.2.ini,Talker,Opmaak2),$chr(3)) $+ $+($right(%Talker-V3.2.msg,-1)) $+ $readini(Talker-V3.2.ini,Talker,Opmaak3) %Talker-V3.2.msg2 $+ %Punt
- }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement