| Toprak | 10 Nisan 2019 13:33 |
Cevap: !bur[cçÇ] BURÇ
Alıntı:
ZaLiM1979 Nickli Üyeden Alıntı
(Mesaj 1042052397)
bu kod arasira hata veriyor..
* /tokenize: line too long (line 42, BurcAlmanca.mrc)
|
Kodda sorun yok kontrol ettim, 6.35 mirc kullanır iseniz tokenize hatası almazsınız yada böyle kullanın siz; Kod:
on *:input:#:{
if $regex($1,/^[!.-]bur[cçÇ]$/Si) {
if !$regex($2,/(fische|widder|stier|zwillinge|krebs|loewe|jungfrau|steinbock|waage|skorpion|schuetze|wassermann)/Si) {
msg # BURC:4 fische widder stier zwillinge krebs loewe jungfrau steinbock waage skorpion schuetze wassermann
}
else {
var %:b = $replace($strip($2),widder,1,stier,2,zwillinge,3,krebs,4,loewe,5,jungfrau,6,waage,7,skorpion,8,schuetze,9,steinbock,10,wassermann,11,fische,12)
var %:b1 = $lower($strip($2)), %:r $+($ctime,$r(100,9999999))
msg # $+(,$strip($2),) burç bilgileri alınıyor..
sockopen $+(burc,%:r)
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
80
sockmark $+(burc,%:r) $+(%:b,¿,%:b1,¿,#)
}
}
}
on *:text:*:#:{
if $regex($1,/^[!.-]bur[cçÇ]$/Si) {
if !$regex($2,/(fische|widder|stier|zwillinge|krebs|loewe|jungfrau|steinbock|waage|skorpion|schuetze|wassermann)/Si) {
msg # BURC:4 fische widder stier zwillinge krebs loewe jungfrau steinbock waage skorpion schuetze wassermann
}
else {
var %:b = $replace($strip($2),widder,1,stier,2,zwillinge,3,krebs,4,loewe,5,jungfrau,6,waage,7,skorpion,8,schuetze,9,steinbock,10,wassermann,11,fische,12)
var %:b1 = $lower($strip($2)), %:r $+($ctime,$r(100,9999999))
msg # $+(,$strip($2),) burç bilgileri alınıyor..
sockopen $+(burc,%:r)
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
80
sockmark $+(burc,%:r) $+(%:b,¿,%:b1,¿,#)
}
}
}
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 /tageshoroskope.php 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
if $regex(%:burc,/<td>(.+)<table/i) { .hinc -msu1 $sockname Sayı | .hadd -ms Burc $hget($sockname,Sayı) $regml(1) }
elseif $regex(%:burc,/<td>(.+)\%</td>/i) { .hadd -ms BurcÖzellik $hget($sockname,Sayı) $hget(BurcÖzellik,$hget($sockname,Sayı)) $+($regml(1),%) }
elseif $regex(%:burc,/<td width="47"><br>/i) {
var %:kanal = $token($sock($sockname).mark,3,191), %:burc $token($sock($sockname).mark,2,191), %:no $token($sock($sockname).mark,1,191), %:ayir $hget(BurcÖzellik,%:no)
msg %:kanal 12_______________"4 $upper(%:burc) 12"_______________
var %:böl = 1 | while %:böl <= $token($hget(Burc,%:no),0,46) {
msg %:kanal $+(5,$token($hget(Burc,%:no),%:böl,46))
inc %:böl
}
msg %:kanal -
msg %:kanal 4Liebe: $_randyz($token(%:ayir,1,32)) 4Geld: $_randyz($token(%:ayir,2,32)) 4Gesundheit: $_randyz($token(%:ayir,3,32))
msg %:kanal 12________________________________________________________
.hfree -sw BurcÖzellik
.hfree -sw $sockname
sockclose $sockname
}
}
alias _randyz {
var %:yz $iif($regex($1,/\d/g) == 3,$+(3,$str(|,10)),$+(3,$str(|,$left($1,1))))
return $+(%:yz,,$1)
}
|
