on !*:JOIN:#sohbet: /timer 1 5  /msg $chan mesaj $nick mesaj

On *:join:#sohbet: {
  .msg $active 8,1 ~ Merhaba ~ 4,1 > $nick < 8,1 Sohbetin Tek Adresi 11,1 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
HoşGeldin ~ 
  .timer 1 5 .msg $active $nick Hoş geldin.
}

#sekilliyazı on
on *:input:*:{
  if (!$regex($left($1,1),/^!|[./]|/|/i/)) {
    var %wn $numtok($1-,32)
    while (%wn > 0) {
      if ($gettok($1-,%wn,32) ison #) { set %wm $+($chr(40) $+ $chr(32),,$yr,$gettok($1-,%wn,32),,,$chr(32) $+ $chr(41)) %wm } | else { set %wm $gettok($1-,%wn,32) %wm } | if (%wn == 1) { say $wn(%wm) | unset %wm | halt } | dec %wn
    }
  }
}
alias wn return $replace($+($regsubex($regsubex($1-,/([.,;,!,+,*,?,{,},=,-,:,’,^,%,&,/,_,~,`,”])/g,$+(,$yr,\t,,$chr(15))),/([A-Z])/g,\t),),$chan,$+(<,,$yr,,$chan,,,>))
alias yr return $r(2,6)
#sekilliyazı off
menu menubar,channel,query {
  .-
  .» Sekilli Yazı Menüsü
  ..Aç:!if $group(#sekilliyazı).status = on { echo -a 0,1 Sekilli Yazı Menüsü Zaten AÇIK 0,1  } | else { /.enable #sekilliyazı | echo -a 0,1 Sekilli Yazı Menüsü Açıldı. 0,1 | set %sekilliyazi on  }
  ..Kapat:!if $group(#sekilliyazı).status = off { echo -a 0,1 Sekilli Yazı Menüsü Zaten KAPALI. 0,1  } | else { /.disable #sekilliyazı | echo -a  0,1 Sekilli Yazı Menüsü Kapatıldı. 0,1  | set %sekilliyazi off  }
}