dialog oraakkeli {
  title "Lintukodon oraakkeli"
  size -1 -1 250 150
  option dbu
  edit "", 1, 10 10 230 120, read multi vsbar
  edit "", 2, 10 130 180 10
  button "Sano", 3, 200 130 37 9, default flat
}
 
on *:dialog:oraakkeli:init:*:{
  did -a oraakkeli 1 Tervetuloa oraakkeliin. Tämä on korjattu versio MSDB:ssä olevasta oraakkelista dialogissa.
  set %o.nick $input(Anna nick jolla chattailla oraakkelin kanssa.,e,Oraakkelissa käyttämäsi nimi)
}
on *:dialog:oraakkeli:sclick:*:{
  if ($did == 3 && $did(2) != $null) {
    sockopen oraakkeli lintukoto.net 80
    set %kysymys $did(2)
    did -r oraakkeli 2
    did -a oraakkeli 1 $time $+(<,%o.nick,>) %kysymys $crlf
  }
}
on *:sockopen:oraakkeli:{
  if ($sockerr > 0) did -a oraakkeli 1 Tapahtui virhe yhdistettäessä palvelimeen.
  else {
    sockwrite -n oraakkeli GET http://www.lintukoto.net/viihde/oraakkeli/index.php?html=0&kysymys= $+ $replacex(%kysymys,$chr(32),%20,$,$eval($,0))
    sockwrite -n oraakkeli Host: www.lintukoto.net
    sockwrite -n oraakkeli Connection: close
    sockwrite -n oraakkeli $crlf
  }
}
on *:sockread:oraakkeli:{
  sockread %o
  did -a oraakkeli 1 $time <Oraakkeli> %o $crlf
}
alias oraakkeli dialog -m oraakkeli oraakkeli
 

Commenting Options