Espiri / Fıkra Bulucu Hazır 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(sohbetbox),dialog -m sohbetbox sohbetbox) did -ra sohbetbox 12 Yukleniyor... did -r sohbetbox 4 sockclose komik sockopen komik www.sohbetbox.net 80 } alias -l fikra { did -ra sohbetbox 12 Yukleniyor... did -h sohbetbox 8 did -vb sohbetbox 16 did -h sohbetbox 9 did -vb sohbetbox 17 did -h sohbetbox 10 did -vb sohbetbox 18 did -r sohbetbox 11 sockclose fikra sockopen fikra www.sohbetbox.net 80 } alias -l pagejump { set %pagejump $1- did -ra sohbetbox 12 Yukleniyor... did -r sohbetbox 4 sockclose komik2 sockopen komik2 www.sohbetbox.net 80 } alias -l pagejump2 { set %pagejump2 $1- did -ra sohbetbox 12 Yukleniyor... did -r sohbetbox 11 sockclose fikra2 sockopen fikra2 www.sohbetbox.net 80 } on *:SockOpen:fikra2:{ sok GET %pagejump2 HTTP/1.1 sok host: www.sohbetbox.net sok $crlf } on *:SockOpen:komik2:{ sok GET %pagejump HTTP/1.1 sok host: www.sohbetbox.net sok $crlf } on *:SockOpen:fikra:{ sok GET /fikralar.asp HTTP/1.1 sok host: www.sohbetbox.net sok $crlf } on *:SockOpen:komik:{ sok GET /ayiesprileri.asp HTTP/1.1 sok host: www.sohbetbox.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 sohbetbox 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 sohbetbox 9 | did -h sohbetbox 17 } | else { did -h sohbetbox 9 | did -vb sohbetbox 17 } if (%sonraki.link2 != yok) { did -v sohbetbox 10 | did -h sohbetbox 18 } | else { did -h sohbetbox 10 | did -vb sohbetbox 18 } if (%onceki.link2 != yok) { did -v sohbetbox 8 | did -h sohbetbox 16 } | else { did -h sohbetbox 8 | did -vb sohbetbox 16 } did -ra sohbetbox 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 sohbetbox 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 sohbetbox 6 | did -h sohbetbox 15 } | else { did -h sohbetbox 6 | did -vb sohbetbox 15 } if (%sonraki.link != yok) { did -v sohbetbox 7 | did -h sohbetbox 14 } | else { did -h sohbetbox 7 | did -vb sohbetbox 14 } if (%onceki.link != yok) { did -v sohbetbox 5 | did -h sohbetbox 13 } | else { did -h sohbetbox 5 | did -vb sohbetbox 13 } did -ra sohbetbox 12 Tamam. sockclose komik } } dialog sohbetbox { 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:sohbetbox:*:*:{ 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 == && (%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 sohbetbox 5 did -b sohbetbox 13 did -h sohbetbox 6 did -b sohbetbox 14 did -h sohbetbox 7 did -b sohbetbox 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!