Talker

Platform: mIRC

Published Mar 26, 2004

Updated Mar 08, 2005

486 4

A Talker That Makes You Talk With A Capital Letter At The Start Of Every Word

on 1:INPUT:*: {

  set %Var3 $1-

  unset %Var1 %Var2

  set %Var1 1 | set %Var2 $upper($mid(%Var3,1,1))

  if ($mid(%Var3,1,1) == $chr(47)) { goto ServerCommand }

  if ($len(%Var3) == 1) { set %Var2 $upper(%Var2) | say %Var2 | halt }

  :Start1

  inc %Var1 1

  if ($mid(%Var3,%Var1,1) != $chr(32)) { set %Var2 %Var2 $+ $mid(%Var3,%Var1,1) | if ($len(%Var3) < %Var1) { goto Start1 } }

  if ($mid(%Var3,%Var1,1) == $chr(32)) { set %Var2 %Var2 $+ $upper($mid(%Var3,%Var1,2)) | inc %Var1 1 | if ($len(%Var3) < %Var1) { goto Start1 } }

  if ($len(%Var3) != %Var1) { goto Start1 }

  say %Var2

  halt

  :ServerCommand

}

Comments

CRadle_of_filth - Apr 13, 2004

why would you want a Cap Talker when u can get kick off for it ?lol

Respond

SeiferAlmasy - Mar 31, 2004

have a cry

Respond

ghmm - Mar 29, 2004

I think it\'s pointless... All it does is give out very annoying captial letters on each of the first letters, and EVERYONE hates it when people talk like that.

Respond

AnTi-s0cIaL - Mar 26, 2004

it doesnt work for me but i use a tag

Respond