mIRCForumlari.Net

mIRCForumlari.Net (https://www.mircforumlari.net/)
-   mIRC Scripting Hazýr Kodlar (https://www.mircforumlari.net/mirc-scripting-hazir-kodlar/)
-   -   mIRC [!.]iftar ÞEHÝR (https://www.mircforumlari.net/mirc-scripting-hazir-kodlar/12484-mirc-iftar-sehir.html)

RahmetLi 23 Mart 2023 18:08

mIRC [!.]iftar ÞEHÝR
 
Kod : Toprak
https://img.ircforumlari.net/resimle...426223cc9c.png

PHP- Kodu:

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
  }
}



Tüm Zamanlar GMT +3 Olarak Ayarlanmýþ. Þuanki Zaman: 16:09.

Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.


Navbar with Avatar by Motorradforum