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... }