Espiri / Fıkra Bulucu Hazır Kodu
mirc te eglenebilmeniz için bir kod:
irc kodu:
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 ==

) {
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!) && ( isin %a) { unset %sjn.hehe }
if (%a ==

) {
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 Sentius... } Diğer hazır kodlar için tıklayınız!