Regenboog talker

[Miyako]

IK DACHT: Laat ik eens het eerste mIRC script dignes posten!!

Code: [Selecteer]

;; Regenboogtalker
on *:INPUT:*: {
  var %a $active

;; Hier verander je de uitzonderingen van waar de talker niet mag tevoorschijn komen
  if (!$regex($1-,[\/!@].*)) && (#*help* !iswm %a) && (!$wildtokcs($gettok($chan(%a).mode,1,32),*c*,1,32)) {

  ;; Hier blijf je beter vanaf tenzij je er iets van kent
    say $checkNickColor($setTalker($strip($1-)))
    haltdef
  }
}


;; Hier pas je de talker aan
alias -l setTalker {
  var %a 1, %b 1
  while (%b <= $len($1)) {
    var %d = $mid($1,%b,1)
    if (%d == $chr(32)) var %str %str $chr(32)
    else {
      if (%a == 1) var %c 04
      if (%a == 2) var %c 07
      if (%a == 3) var %c 08
      if (%a == 4) var %c 09
      if (%a == 5) var %c 03
      if (%a == 6) var %c 10
      if (%a == 7) var %c 11
      if (%a == 7) var %c 12
      if (%a == 8) var %c 02
      if (%a == 9) var %c 06
      if (%a == 10) var %c 13
      inc %a
      if (%a == 11) var %a 1
      var %str = $+(%str,%c,%d)
    }
    inc %b
  }
  return %str
}

;; Hier moet je afblijven, dit controleert of er een nick in je tekst staat
alias -l checkNickColor {
  var %a 1, %str $null
  while (%a <= $numtok($1,32)) {
    var %w = $gettok($1,%a,32)
    if ($strip(%w) ison #) var %str %str $setNickColor($strip(%w))
    else var %str %str %w
    inc %a
  }
  return %str
}

;; Hier kan je veranderen hoe de nick-kleur-dinges eruit zien
alias -l setNickColor {
  var %a $rand(1,10)
  if (%a == 1) var %c 04
  if (%a == 2) var %c 07
  if (%a == 3) var %c 08
  if (%a == 4) var %c 09
  if (%a == 5) var %c 03
  if (%a == 6) var %c 10
  if (%a == 7) var %c 11
  if (%a == 7) var %c 12
  if (%a == 8) var %c 02
  if (%a == 9) var %c 06
  if (%a == 10) var %c 13
  return $+(,%c,$1,)
}

[Eelko]

En waar moet dit komen voor de mensen die het niet weten?

[Marr]

DANKJEWEL MIYAKOOOOOOO

Ik ga hem NU testen. XDDD
Klachten mag je vanmiddag aanhoren ;$
[Als ik die hebt XD]



EDIT:
Ohjeetje, dit kan niet wachten.
Kan ik ook zeg maar dat de talker eruit wordt gegooit, dus dat ik wel me eigen talker heb.
Maar dat ie dan wel bij als je een nick zegt zo doet als bij jou.

Dit is by the way mijn talker.

Code: [Selecteer]

menu * {
  WisselTalker
  . $iif($group(#talker) == on,$style(1) Enabled,Enabled): enable #talker
  . $iif($group(#talker) == off,$style(1) Disabled,Disabled): disable #talker
}

#talker on

on *:input:*: {
  if ($chan == #kinderchat) || ($chan == #bananaroom) || ($chan == #ChatNetwerk-Casino) || ($chan == #heartbeats) || ($chan == #lara) || ($chan == #TMF) || ($chan == #chatfun) || ($chan == #games) || ($chan == #Trivia) || ($chan == #chatfun-ops) || ($chan == #tmf-ops) || ($chan == #camspam) || ($chan == #temptations) || ($chan == #Help) || ($chan == #lobby) || ($chan == #teen-chat) { }
  else {
    if ($left($1,1) == /) { return }
    if ($left($1,1) == !) { return }
    if ($left($1,1) == <) { return }
    if ($left($1,1) == [) { return }
    if ($left($1,1) == http) { return }
    if (help isin $chan) { goto none }
    else {
      set %max.len $len($1-)
      :loop
      while (%max.len > 0) {
        if ($ [ $+ [ %max.len ] ] == $null) { set %max.len $calc(%max.len - 1) | goto loop }
        else {
          set %zeg-zin 14,01  $+ $left($ [ $+ [ %max.len ] ] ,1) $+ 0,01 $+ $mid($ [ $+ [ %max.len ] ] ,2) %zeg-zin
          set %max.len $calc(%max.len - 1) | goto loop
        }
      }
      if ($rand(1,6) == 1) { msg $active 04,01** %zeg-zin 04** $+(14,$left(%teller,1),15,$mid(%teller,2,-1),04,$right(%teller,1)) }
      else { msg $active 04,01** %zeg-zin 04,01** %woord [ $+ [ $r(1,6) ] ] }
      unset %zeg-zin
      halt
    }
  }
}
#talker end

En in variables staat ook nog wat talkershit

[Miyako]

Je hebt in je talker een lijntje van:

Code: [Selecteer]

else { msg $active 04,01** %zeg-zin 04,01** %woord [ $+ [ $r(1,6) ] ] }
Vervang:

Code: [Selecteer]

%zeg-zin
Door:

Code: [Selecteer]

$checkNickColor(%zeg-zin)
Dan krijg je:

Code: [Selecteer]

else { msg $active 04,01** $checkNickColor(%zeg-zin) 04,01** %woord [ $+ [ $r(1,6) ] ] }
Je moet er wel op letten dat al die alias-dingen die in dat scriptje hierboven staan in hetzelfde script staan als je talker
En @ Eelko Alt + R :$

[Marr]

DAAAAANKJEEEWEEL MIYAKO
[eeuwig dankbaar enzo ]