| Aytac |
12.Nisan.2019 23:10 |
!bur[cçÇ] BURÇ
[Linki Görebilmeniz Icin Üye Olmaniz Gerekiyor! Üye Olmak Icin Tiklayin...]
Kod:
on *:input:#:{
if $regex($1,/^[!.-]bur[cçÇ]$/Si) {
if !$regex($2,/(ko[cçÇ]|bo[gðÐ]a|[ýiÝ]k[ýiÝ]zler|yenge[cçÇ]|aslan|ba[sþÞ]ak|teraz[ýiÝ]|akrep|yay|o[gðÐ]lak|kova|bal[ýiÝ]k)/Si) {
msg # Hatali burc adý!
msg # BURC:4 koç boða ikizler yengeç aslan baþak terazi akrep yay oðlak kova balýk
}
else {
var %:b = $replace($lower($strip($2)),ç,c,ð,g,þ,s,ý,i), %:r $+($ctime,$r(100,9999999))
msg # $+(,$strip($2),) burç bilgileri alýnýyor..
sockopen $+(burc,%:r) www.astroloji.org 80
sockmark $+(burc,%:r) $+(%:b,¿,#)
}
}
}
on *:text:*:#:{
if $regex($1,/^[!.-]bur[cçÇ]$/Si) {
if !$regex($2,/(ko[cçÇ]|bo[gðÐ]a|[ýiÝ]k[ýiÝ]zler|yenge[cçÇ]|aslan|ba[sþÞ]ak|teraz[ýiÝ]|akrep|yay|o[gðÐ]lak|kova|bal[ýiÝ]k)/Si) {
msg # Hatali burc adý!
msg # BURC:4 koç boða ikizler yengeç aslan baþak terazi akrep yay oðlak kova balýk
}
else {
var %:b = $replace($lower($strip($2)),ç,c,ð,g,þ,s,ý,i), %:r $+($ctime,$r(100,9999999))
msg # $+(,$strip($2),) burç bilgileri alýnýyor..
sockopen $+(burc,%:r) www.astroloji.org 80
sockmark $+(burc,%:r) $+(%:b,¿,#)
}
}
}
alias _tt return $replace($1-,ö,ö,ü,ü,ç,ç,Ä°,Ý,…,..,’,',Å,Þ)
alias __t { return $replace($1-,ü,ü,ö,ö,ü,ü,_,$chr(32),ý,ý,ü,ü,ð,ð,þ,þ,ö,Ö,Ã,Ý,ç,ç,Ãœ,Ü,Ö,Ö,Ç,Ç,Þ,Þ,ÿ,$chr(160),é,é,-,$chr(32),ÿ,-,",-,ü,ü,ç,ç,ı,ý,ÅŸ,þ,ı,ý,ÄŸ,ð) }
on *:sockopen:burc*:{
if ($sockerr) { msg $token($sock($sockname).mark,2,191) Sorgulanan siteye eriþim bulunmamaktadýr..(4ERROR) | .sockclose $sockname | return }
sockwrite -nt $sockname GET $+(/yildizfali/,$token($sock($sockname).mark,1,191),.asp) 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:burc*:{
var %:burc | sockread %:burc | tokenize 32 %:burc
if $regex($1-,/<b><strong>\ \;(.+)<\/strong><\/b>/i) {
msg $token($sock($sockname).mark,2,191) 12_______________"4 $upper($token($sock($sockname).mark,1,191)) 10 ( $+ $__t($_tt($token($token($regml(1),2,40),1,41))) $+ ) 12"_______________
}
elseif $regex($1-,/<p align=\"left\">/i) { inc %:boks }
elseif $regex($1-,/ (.+)/) && %:boks == 2 {
var %m $remove($_tt($__t($regml(1))),</td>)
msg $token($sock($sockname).mark,2,191) $+(5, $+($chr(32),$token(%m,1,46),$chr(46)))
msg $token($sock($sockname).mark,2,191) $+(5, $+($token(%m,2,46),$chr(46)))
$iif($token(%m,3,46),msg $token($sock($sockname).mark,2,191) $+(5, $token(%m,3,46),$chr(46)))
$iif($token(%m,4,46),msg $token($sock($sockname).mark,2,191) $+(5, $token(%m,4,46),$chr(46)))
$iif($token(%m,5,46),msg $token($sock($sockname).mark,2,191) $+(5, $token(%m,5,46),$chr(46)))
$iif($token(%m,6,46),msg $token($sock($sockname).mark,2,191) $+(5, $token(%m,6,46),$chr(46)))
$iif($token(%m,7,46),msg $token($sock($sockname).mark,2,191) $+(5, $token(%m,7,46),$chr(46)))
$iif($token(%m,8-,46),msg $token($sock($sockname).mark,2,191) $+(5, $token(%m,8-,46),$chr(46)))
msg $token($sock($sockname).mark,2,191) 12________________________________________________________
unset %:boks
sockclose $sockname
}
}
|
