alias -l sok { sockwrite -n $sockname $1- }
alias -l htmlfree { var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, ) | return %x } }
alias komedi {
$iif(!$dialog(komikaze),dialog -m komikaze komikaze)
did -ra komikaze 12 Yukleniyor...
did -r komikaze 4
sockclose komik
sockopen komik www.komikaze.net 80
}
alias -l fikra {
did -ra komikaze 12 Yukleniyor...
did -h komikaze 8
did -vb komikaze 16
did -h komikaze 9
did -vb komikaze 17
did -h komikaze 10
did -vb komikaze 18
did -r komikaze 11
sockclose fikra
sockopen fikra www.komikaze.net 80
}
alias -l pagejump {
set %pagejump $1-
did -ra komikaze 12 Yukleniyor...
did -r komikaze 4
sockclose komik2
sockopen komik2 www.komikaze.net 80
}
alias -l pagejump2 {
set %pagejump2 $1-
did -ra komikaze 12 Yukleniyor...
did -r komikaze 11
sockclose fikra2
sockopen fikra2 www.komikaze.net 80
}
on *:SockOpen:fikra2:{
sok GET %pagejump2 HTTP/1.1
sok host: www.komikaze.net
sok $crlf
}
on *:SockOpen:komik2:{
sok GET %pagejump HTTP/1.1
sok host: www.komikaze.net
sok $crlf
}
on *:SockOpen:fikra:{
sok GET /fikralar.asp HTTP/1.1
sok host: www.komikaze.net
sok $crlf
}
on *:SockOpen:komik:{
sok GET /ayiesprileri.asp HTTP/1.1
sok host: www.komikaze.net
sok $crlf
}
on *:SockRead:fikra*:{
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.link2 $gettok(%a,2,$asc(")) }
if ($chr(246) $+ nceki isin %a) { set %onceki.link2 $gettok(%a,2,$asc(")) }
if (*sonraki*yok* iswm %a) { set %sonraki.link2 yok }
if (sonraki isin %a) && (yok !isin %a) { set %sonraki.link2 $gettok(%a,2,$asc(")) }
if (face="Verdana isin %a) { set %sjn.puha Ok! }
if (%sjn.puha == Ok!) && (g $+ $chr(246) $+ nderdi isin %a) { unset %sjn.puha }
if (%sjn.puha == Ok!) { did -a komikaze 11 $htmlfree($replace(%a,ı,i,ş,s,
,$crlf,ğ,g,ö,o,",",ü,u,İ,I,ç,c,Ç,C,Ş,S,&e,e,Ğ,G,’,',…,...,â,a,î,i,’,',”,",“,")) }
if (%a ==
<!-- Mirrored from www.mIRCFox.Com/.?sayfa=dokuman_oku&id=17 by HTTrack Website Copier/3.x [XR&CO'2006], Wed, 25 Oct 2006 17:57:24 GMT -->
</html>) {
if (%bugun.link2 != yok) { did -v komikaze 9 | did -h komikaze 17 } | else { did -h komikaze 9 | did -vb komikaze 17 }
if (%sonraki.link2 != yok) { did -v komikaze 10 | did -h komikaze 18 } | else { did -h komikaze 10 | did -vb komikaze 18 }
if (%onceki.link2 != yok) { did -v komikaze 8 | did -h komikaze 16 } | else { did -h komikaze 8 | did -vb komikaze 16 }
did -ra komikaze 12 Tamam.
sockclose fikra
}
}
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!) { did -a komikaze 4 $htmlfree($replace(%a,ı,i,ş,s,
,$crlf,ğ,g,ö,o,",",ü,u,İ,I,ç,c,Ç,C,Ş,S,&e,e,Ğ,G,’,',…,...,â,a,î,i,’,',”,",“,")) }
if (%sjn.hehe == Ok!) && (</font> isin %a) { unset %sjn.hehe }
if (%a ==
<!-- Mirrored from www.mIRCFox.Com/.?sayfa=dokuman_oku&id=17 by HTTrack Website Copier/3.x [XR&CO'2006], Wed, 25 Oct 2006 17:57:24 GMT -->
</html>) {
if (%bugun.link != yok) { did -v komikaze 6 | did -h komikaze 15 } | else { did -h komikaze 6 | did -vb komikaze 15 }
if (%sonraki.link != yok) { did -v komikaze 7 | did -h komikaze 14 } | else { did -h komikaze 7 | did -vb komikaze 14 }
if (%onceki.link != yok) { did -v komikaze 5 | did -h komikaze 13 } | else { did -h komikaze 5 | did -vb komikaze 13 }
did -ra komikaze 12 Tamam.
sockclose komik
}
}
dialog komikaze {
title "Espri - Fikra Bulucu"
size -1 -1 165 122
option dbu
tab "Espri", 1, 3 2 159 99
edit "", 4, 7 32 153 64, tab 1 read multi return autovs vsbar
link "<- Onceki Gun", 5, 36 20 37 8, tab 1
text "<- Onceki Gun", 13, 36 20 37 8, tab 1
link "Bugun", 6, 76 20 17 8, tab 1
text "Bugun", 15, 76 20 17 8, tab 1
link "Sonraki Gun ->", 7, 96 20 38 8, tab 1
text "Sonraki Gun ->", 14, 96 20 38 8, tab 1
tab "Fikra", 2
link "<- Onceki Gun", 8, 36 20 37 8, tab 2
text "<- Onceki Gun", 16, 36 20 37 8, tab 2
link "Bugun", 9, 76 20 17 8, tab 2
text "Bugun", 17, 76 20 17 8, tab 2
link "Sonraki Gun ->", 10, 96 20 38 8, tab 2
text "Sonraki Gun ->", 18, 96 20 38 8, tab 2
edit "", 11, 7 32 153 64, tab 2 read multi return autovs vsbar
button "Kapat", 3, 126 106 37 12, ok
edit "", 12, 7 106 111 10, read
}
on *:dialog:komikaze:*:*:{
if ($devent == sclick) {
if ($did == 5) && (%onceki.link) { pagejump %onceki.link }
if ($did == 6) { pagejump %bugun.link }
if ($did == 7) && (%sonraki.link != yok) { pagejump %sonraki.link }
if ($did == 2) { fikra }
if ($did == 1) { komedi }
if ($did == 8) && (%onceki.link2) { pagejump2 %onceki.link2 }
if ($did == 9) { pagejump2 %bugun.link2 }
if ($did == 10) && (%sonraki.link2 != yok) { pagejump2 %sonraki.link2 }
}
if ($devent == init) {
did -h komikaze 5
did -b komikaze 13
did -h komikaze 6
did -b komikaze 14
did -h komikaze 7
did -b komikaze 15
did -ra $dname 12 Yukleniyor...
}
if ($devent == Close) { sockclose komik* | sockclose fikra* }
}
on *:LOAD:{ echo -a Espri - Fikra Bulucu Yuklendi | echo -a /komedi komutuyla calisitirin | echo -a SCouNDReL... }
