Enes Nickli Üyeden Alıntı
(Mesaj 1042879942)
Buyur @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] . Hatalı şehirden sonra zaman verme sorunun giderildi. Kırmızılı yerleri ayarlayıp Mircinde kullanabilirsin böyle ; Kod:
alias _if-kanallar return #kanal1 #kanal2 #kanal3
on *:sockopen:iftar*:{
if ($sockerr) { swibot privmsg $token($sock($sockname).mark,2,172) $+(:,$_qt3(HATA),:) 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———————
.hinc -msu60 CHNiftar $token($sock($sockname).mark,3,172)
sockclose $sockname
}
}
alias _saat return $regsubex($replace($duration($1-),wks,hafta,days,gün,hrs,saat,mins,dakika,secs,saniye,wk,hafta,day,gün,hr,saat,min,dakika,sec,saniye),/(\d+)/gSi,\1 $chr(32))
;==========================================================
on *:text:*:#: {
if # == $_if-kanallar {
if $regex($remove($1,:),/^[!.-][ıiİ]ftar$/Si) {
if !$2 { msg # :2Lütfen 4!iftar 2<4IL2> olarak belirtiniz. | halt }
if $hget(CHNiftar,$nick) { msg # $nick , $+(4,$remove($1,:),) komutunu kullanmanız için $_saat($hget(CHNiftar,$nick).unset) beklemeniz gerek. | halt }
var %:i = $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) $+(%:i,¬,$chan,¬,$nick)
}
}
}
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
|
