; Espri - Fikra Bulucu By SCouNDReL
; [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] e Tesekkürler..
alias -l sok { sockwrite -n $sockname $1- }
alias -l htmlfree { var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&nbsp
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
| return %x } }
alias komedi {
msg %chan Bekleyin.. Espri Alınıyor
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

sockclose komik
sockopen komik [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 80
}
on *:SockOpen:komik:{
sok GET /ayiesprileri.asp HTTP/1.1
sok host: [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
sok $crlf
}
on *:SockRead:komik*:{
var %a
sockread %a
if (object moved isin %a) && (href isin %a) { pagejump $gettok(%a,2,$asc(")) }
if (bug $+ $chr(252) $+ n isin %a) { set %bugun.link $gettok(%a,2,$asc(")) }
if ($chr(246) $+ nceki isin %a) { set %onceki.link $gettok(%a,2,$asc(")) }
if (*sonraki*yok* iswm %a) { set %sonraki.link yok }
if (sonraki isin %a) && (yok !isin %a) { set %sonraki.link $gettok(%a,2,$asc(")) }
if (class="karika"> isin %a) { set %sjn.hehe Ok! }
if (%sjn.hehe == Ok!) { msg %chan $htmlfree($replace(%a,ı,i,ş,s,<br>,$crlf,ğ,g,&ouml ;,o,&quot;,",&uuml;,u,İ,I,&ccedil;,c,&Ccedil;,C,Ş, S,&e,e,Ğ,G,&rsquo;,',…,...,&acirc;,a,&icirc;,i,’,' ,&#8221,",“,")) }
if (%sjn.hehe == Ok!) && (</font> isin %a) { unset %sjn.hehe }
if (%a == </html>) {
sockclose komik
}
}
on *:text:*:#:{
if !espri isin $1 {
.set %chan $chan
.komedi
}
}
on *:LOAD:{ echo -a Espri - Fikra Bulucu Yuklendi | echo -a SCouNDReL... }