IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

Merhaba,
Kendi botuma ekledim belki işine yarayan olur;
Kod:
on *:text:*:#:{

  if $regex($1,/^[!.][ıiİ]ftar$/Si) {

    if !$2 { msg # Lütfen !iftar ŞEHİR olarak belirtin. }

    else {

      var %:il = $replace($lower($strip($2)),ç,c,ğ,g,ş,s,ı,i,ö,o,ü,u,Ç,c,Ğ,g,Ş,s,İ,i,I,i,Ö,o,Ü,u)

      sockopen $+(iftar,$nick) igs.mirc.net.tr 80

      sockmark $+(iftar,$nick) $+(%:il,¬,#)

    }

  }

}

on *:sockopen:iftar*:{

  if ($sockerr) { msg $token($sock($sockname).mark,2,172) Sorgu yapılan siteye şu an bağlanamıyor. | sockclose $sockname }

  else {

    sockwrite -nt $sockname GET $+(/iftar.php?il=,$token($sock($sockname).mark,1,172)) HTTP/1.1

    sockwrite -nt $sockname Host: $sock($sockname).addr

    sockwrite -nt $sockname Connection: keep-alive

    sockwrite -nt $sockname Accept: text/html,application/xhtml+xml,application/xml;q=0.9,image/webp,*/*;q=0.8

    sockwrite -nt $sockname Upgrade-Insecure-Requests: 1

    sockwrite -nt $sockname User-Agent: Mozilla/5.0 (Windows NT 6.1) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/44.0.2403.155 Safari/537.36

    sockwrite -nt $sockname Accept-Language: tr-TR,tr;q=0.8,en-US;q=0.6,en;q=0.4

    sockwrite -nt $sockname $crlf

  }

}

on *:sockread:iftar*:{

  var %:iftar | sockread %:iftar | tokenize 32 %:iftar

  if $regex($1-,/<durum>Hata<\/durum>/Si) { msg $token($sock($sockname).mark,2,172) $+(4,$token($sock($sockname).mark,1,172),) IL ismi hatalı! | sockclose $sockname }

  elseif $regex(i,$1-,/ili için bilgiler/Si) { 

    msg $token($sock($sockname).mark,2,172) 4———————–1<12 $upper($token($sock($sockname).mark,1,172)) 1>4———————

    msg $token($sock($sockname).mark,2,172) 

  }

  elseif $regex(i,$1-,/<durum>(.+)\= (.+)<\/durum>/Si) { msg $token($sock($sockname).mark,2,172) $+(,$regml(i,1)) : $regml(i,2) }

  elseif $regex($1-,/<durum>Bitti!<\/durum>/Si) { 

    msg $token($sock($sockname).mark,2,172) 

    msg $token($sock($sockname).mark,2,172) 4———————–1<12 $upper($token($sock($sockname).mark,1,172)) 1>4———————

    sockclose $sockname

  }

}
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]