/ScriptServ

;@===========================@
; || Acak Kata v0.1ß By: ßlùegëðn.©   ||
; || Released on *12-25-99                   ||
; || Email me if you find any bugs, etc   ||
; ||  at Bluegeon@hotmail.com             ||
;@===========================@
menu channel {
  .AcakKata :
  ..AcakKata! { %cenel = # | AcakKata  
  }
}
;Clue Processing
on 1:text:!clue:%cenel { msg %cenel 1,9[1,8^1,9*1,8C1,9l1,8u1,9e1,8?1,9*1,8^1,9)1,8:1,9 ( %clue )9,9- | halt }
;Point Procesing
on 1:text:!point:%cenel { unset %li %score %nama | :1 | inc %li | set %nama $gettok($line(@AcakKata,%li,1),1,32) | if (%nama == $null) { .notice $nick 1,8S1,9o1,8r1,8r1,9y1,8,1,9 1,8y1,9o1,8u1,9 1,9h1,8a1,9v1,8n1,9'1,8t1,9 1,8g1,9o1,8t1,9 1,8a1,9n1,8y1,9.1,8.1,9. | halt } | if (%nama != $nick) {  goto 1 } | set %score $gettok($line(@AcakKata,%li,1),3,32) | notice $nick 1,8Y1,9o1,8u1,9r1,8 1,9c1,8u1,9r1,9e1,8n1,9t1,8 1,9p1,8o1,9i1,8n1,9t1,8 1,9i1,8s1,9 1,8[ $+1,9 [ %score ] $+ 1,8] | halt } 
;Next
on 1:text:!next:%cenel { if (%nol > %nob) { inc %no | if ($readini -n Soal.ini %no soal == $null) { habis } | set %nob %nol | unset %nilai | set %clue $readini -n Soal.ini %no clue | set %kata $readini -n Soal.ini %no soal | set %hint $readini -n Soal.ini %no hint | :a | pengacak ( %kata ) | halt } | halt }
;answer
on *:text:%kata:%cenel {
  .disable #AcakKata | inc %nol | timer* off | unset %ak.* | set %colour 9
  msg %cenel 1,8[1,9 $nick 1,8]1,9*1,8h1,9a1,8v1,9e1,8 1,9a1,8n1,9s1,8w1,9e1,8r1,9e1,8d1,9 1,8t1,9h1,8e1,9 1,8r1,9i1,8g1,9h1,8t1,9 1,8w1,9o1,8r1,9d1,8'1,9s1,8!1,9*1,8(1,9 %kata + $+ %nilai 1,8) 
  :1 |  inc %ak.li | %ak.nick = $gettok($line(@AcakKata,%ak.li,1),1,32) | if (%ak.nick == $null) { aline -l %colour @AcakKata $nick - 0 | goto 2 } | if ($nick = %ak.nick) goto 2 | goto 1 
  :2 | %points = $gettok($line(@AcakKata,%ak.li,1),3,32) | %ak.nilai = $calc(%points + %nilai) | rline -l %colour @AcakKata %ak.li $nick - %ak.nilai 
  :3 | inc %ak.check | if (%ak.check > %ak.li) halt | if (%ak.nilai > $gettok($line(@AcakKata,%ak.check,1),3,32)) { dline -l @AcakKata %ak.li | iline -l %colour @AcakKata %ak.check $nick - %ak.nilai | halt } | goto 3 
}
on 1:close:@AcakKata { .disable #AcakKata | timer* off | unset %no %nilai %ak.* | points }
alias pass { unset  %nilai | inc %no | set %clue $readini -n Soal.ini %no clue | set %kata $readini -n Soal.ini %no soal | set %hint $readini -n Soal.ini %no hint | pengacak ( %kata ) | halt }
alias start {
  inc %start | if (%start > 1) { halt } | %nob = 1 | .notice $me 1,8A1,9c1,8a1,9k1,8K1,9a1,8t1,9a1,8 1,9h1,8a1,9s1,8 1,9b1,8e1,9e1,8n1,9 1,8s1,9t1,8a1,9r1,9t1,8e1,9d1,8!
  .notice %cenel 1,8[1,9[1,8[1,9[1,8+1,9 1,8A1,9c1,8a1,9k1,8 1,9K1,8a1,9t1,8a1,9 1,8v $+1,9 $chr(216) $+1,8. $+1,9 $chr(49) $+1,8 $chr(223) $+1,9 1,8b1,9y1,8:1,9 12,8B12,9l12,8u12,9e12,8g12,9e12,8o12,8n $+1,9 $chr(169) $+1,8 1,9 1,8+1,91,8]1,9]1,8]1,9]
  .notice %cenel 1,8[1,9P1,8e1,9r1,8a1,9t1,8u1,9r1,8a1,9n1,8]1,9:11,12'1. Point is determined by the text length. 
  .notice %cenel 9-8-9-8-9-8-9-8-9-8-9-11,12'2. You have 3 minutes to answer the game.    
  .notice %cenel 8-9-8-9-8-9-8-9-8-9-8-11,12'3. To continue press 1,8!1,9n1,8e1,9x1,8t11,12.
  .notice %cenel 9-8-9-8-9-8-9-8-9-8-9-11,12'4. Type 1,9!1,8p1,9i1,8n1,9g11,12 to find out your latency.
  .notice %cenel 8-9-8-9-8-9-8-9-8-9-8-11,12'5. For clue just type 1,8!1,9c1,8l1,9u1,8e11,12 in the chanell.
  .notice %cenel 9-8-9-8-9-8-9-8-9-8-9-11,12'6. To See your point just type 1,9!1,8p1,9o1,8i1,9n1,8t11,12 . 
  .notice %cenel 8-9-8-9-8-9-8-9-8-9-8-11,12'7. No nickname changes during the gameplay.
  timer1 1 10 mulai
  pinger | halt
}
alias -l pengacak { 
  unset %ak.* %nilai
  %ak.k = 1 
  :1 | inc %ak.n 
  if (%ak.n > $len($gettok($1-,%ak.k,32))) goto 2
  %ak.ls = %ak.ls $mid($gettok($1-,%ak.k,32),%ak.n,1) | goto 1
  :2 | %ak.l = $r(1,$gettok(%ak.ls,0,32)) | %ak.kata = %ak.kata $+ $gettok(%ak.ls,%ak.l,32)
  if ($len($gettok(%ak.kata,%ak.k,160)) == $len($gettok($1-,%ak.k,32))) { if ($len(%ak.kata) == $len($1-)) { 
      set %kata %kata | titlebar @AcakKata - %kata | .enable #AcakKata | %ak.end = %ak.end $replace(%ak.kata,$chr(160),$chr(32)) 
      if ($len(%kata) <= 4) { set %nilai 4 | set %ak.ak $replace(%ak.end,$rand(a,z),$chr(42)) | goto 3
      }
      elseif ($len(%kata) <= 7) && ($len(%kata) => 5) { set %nilai 6 | set %ak.ak $replace(%ak.end,$rand(a,z),$chr(42)) | goto 3
      }
      else { set %nilai 8 | set %ak.ak $replace(%ak.end,$rand(a,z),$chr(42)) }
      :3
      msg %cenel 1,9[1,8W1,9o1,8r1,9d1,8P1,9o1,8i1,9n1,8t1,9]1,8:1,9 (+ %nilai +)9,9-
      msg %cenel 1,8[1,9A1,8c1,9a1,8k1,9 1,8K1,9a1,8t1,9a1,8]1,9:1,8 %ak.ak 8,8-
      msg %cenel 1,9[1,8^1,9*1,8H1,9i1,8n1,9t1,8?1,9*1,8^1,9]1,8:1,9 ( %hint )9,9- 
      timer2 1 60 msg %cenel 1,8*1,9*1,8 1,9Y1,8o1,9u1,9 1,8h1,9a1,8v1,9e1,8[1,9 120 1,8]1,9s1,8e1,9c1,8o1,9n1,8d1,9s1,8 1,9l1,8e1,9f1,8t1,9 1,8t1,9o1,8 1,9a1,9n1,8s1,9w1,8e1,9r1,8 1,9t1,8h1,9e1,8 1,9s1,8c1,9r1,8a1,9m1,8b1,9l1,8e1,9d1,8 1,9w1,9o1,8r1,9d1,8 1,9!1,8!1,9 1,8*1,9*
      timer3 1 120 msg %cenel 1,8*1,9*1,8 1,9Y1,8o1,9u1,9 1,8h1,9a1,8v1,9e1,8[1,9 60 1,8]1,9s1,8e1,9c1,8o1,9n1,8d1,9s1,8 1,9l1,8e1,9f1,8t1,9 1,8t1,9o1,8 1,9a1,9n1,8s1,9w1,8e1,9r1,8 1,9t1,8h1,9e1,8 1,9s1,8c1,9r1,8a1,9m1,8b1,9l1,8e1,9d1,8 1,9w1,9o1,8r1,9d1,8 1,9!1,8!1,9 1,8*1,9*
      timer4 1 180  pass |  halt
    }
    inc %ak.k | unset  %ak.n %ak.ls %ak.end
    %ak.kata = %ak.kata $+ $chr(160) | goto 1
  }
  %ak.ls = $deltok(%ak.ls,%ak.l,32) | goto 2
} 
alias -l habis { 
  msg %cenel 1,8S1,9o1,8r1,9r1,8y1,9 1,8b1,9u1,8t1,9 1,8i1,9'1,8m1,9 1,8r1,9u1,8n1,9n1,8i1,9n1,8g1,9 1,8o1,9u1,8t1,9 1,8o1,9f1,8 1,9w1,8o1,9r1,8d1,9 1,8s1,9o1,8 1,9t1,8h1,9e1,8 1,8g1,9a1,8m1,9e1,9 1,8i1,9s1,8 1,9o1,9v1,8e1,9r1,8.
  timer 1 10 points | halt
}
alias -l close { .disable #AcakKata | timer* off | unset %no %points %start  %cenel %colour %nol %nob %ak.* %li %name %score %kata %hint %clue  | msg %cenel 1,9T1,8h1,9e1,8 1,9g1,8a1,9m1,8e1,9 1,8i1,9s1,8 1,9o1,8v1,9e1,8r1,9 1,9t1,8h1,9a1,8n1,9k1,8 1,9y1,8o1,9u1,8 1,9f1,8o1,9r 1,8u1,9s1,8i1,9n1,8g1,9 1,8A1,9c1,8a1,9k1,8 1,9K1,8a1,9t1,8a1,9 1,8[1,9v $+1,8 $chr(216) $+1,9. $+1,8 $chr(49) $+1,9 $chr(223) $+ 1,8]8,8 1,9B1,8y1,9:1,8 12,9B12,8l12,9u12,8e12,9g12,8e12,9o12,8n12,9 $+ $chr(169) $+ 9,9- | halt } 
alias -l pinger { ctcp %cenel PING | halt }
alias -l mulai { inc %no | unset %nilai %nol %nob | inc %nol | inc %nob | set %clue $readini -n Soal.ini %no clue | set %kata $readini -n Soal.ini %no soal | set %hint $readini -n Soal.ini %no hint | pengacak ( %kata ) | halt }
alias -l points { msg %cenel 1,8[1,9P1,8o1,9i1,8n1,9t1,8s1,9] | unset %ak.* %nama %score | :1 | inc %ak.n | set %nama $gettok($line(@AcakKata,%ak.n,1),1,32) | if (%nama == $null) { close } | set %score $gettok($line(@AcakKata,%ak.n,1),3,32) | msg %cenel 1,8*1,9*1,8[1,9  $+  %nama $+ 1,8]1,9 1,8-1,9 1,8[ $+1,9 [ %score ] $+ 1,8]1,9*1,8* | goto 1 }
alias AcakKata { .disable #AcakKata | unset %no %points %start  %colour %nol %nob %ak.* %li %name %score %kata %hint %clue | set %cenel $chan | window -dopl +tne @AcakKata 610 247 200 300 AcakKata.txt fixedsys 12 | halt }