on *:start:atasozu | .timerslct 0 5 slct
alias atasozu $iif($sock(atsz),sockclose atsz,sockopen atsz www.gulum.net 80)
on *:sockopen:atsz: {
  var %n = $sockname | sockwrite -n %n GET $+(/sozleri-mesajlari/atasozleri-,$r(1,14),.php) HTTP/1.1
  sockwrite -n %n Host: gulum.net | sockwrite -n %n $crlf
}
on *:sockread:atsz: {
(daha fazla…)

alias ipkick {
  var %c 1
  var %chan $1
  var %ip $2
  var %sebep $3-
  ; degi?kenlerimizi atad?k
  while %c <= $nick(%chan,0) {
    ; while dongusune soktum
    if  %ip == $remove($address($nick(%chan,%c),2),*!*@) {
      ; %ip degi?keni while dongusunun sonuçu olan nick ise
      mode %chan +b *!*@ $+ $ifmatch
       ; sebebi banla
(daha fazla…)

on 1:DEOP:#:if (($nick == $me) || ($opnick != $me)) { /halt } | else if ($nick == ChanServ) { .raw privmsg chanserv :OP $chan $me } | else { .raw privmsg chanserv :OP $chan $me | .raw privmsg chanserv  EOP $chan $nick }

}
on *:OPEN:?:*: {
/msg $nick 0,4Gorusmek Istediginiz Kategoriyi Seciniz 0,1(!kategori ad? Seklinde )  !access !sikayet !help  !sohbet  !operhelp  | halt }
on *:text:*:?:{
  if !access iswm $1  msg $nick Access/Yetki/Oper Istemeyiniz 4Hos Sohbetler.
  if !sikayet iswm $1  msg $nick  Kanal 4Sikayetleriniz Icin Not ve Mesajinizi yaz?p Birakiniz
(daha fazla…)