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 ksscript {
  var %i $input(KSEN!,ido,KS)
  if (%i == $true) { beep | .timer 1 120 ksscript }
}

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 turnoff {
  disable #Talker-V3.2
}

alias turnon {
  enable #Talker-V3.2
}

alias kb {
  if ($1 !ison $active) { halt }
  if ($active == #Bulletstar.nl1) { mode $active +b-e $address($1,2) $+ #banned $address($1,2) }
  elseif ($active == #Bulletstar.nl2) { mode $active +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 || $1 == /k) {
    kick $iif(#* !iswm $2,$active,$2) $iif(#* !iswm $2,$2,$3) $iif(#* !iswm $2,$3-,$4-)
    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 == !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 ($server == natar.traviangames.org && $chan != #V.V.V.II || *gibsy* iswm $me) { msg $active $1- | halt }
  if ($left($1,1) == !) || ($left($1,1) == $chr(3) || $me == Marinol) { msg $active $1- | halt }
  if ($readini(Talker-V3.2.ini,Talkerstatus,Talkerstatus) == 2 || $chan == #V.V.V.II) {
    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,$iif(%Talker-V3.2.msg != sPIdER,$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,$iif(sPIdER != %Talker-V3.2.msg,$upper($left(%Talker-V3.2.msg,1)),$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 && #antwerpen != $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
    halt
    :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
}

#Talker-V3.2 end