Stuff

on 1:TEXT:!pradeti:#: {
  enable #Jumble
  set %Jumblechannel $chan
  /Jumblecreate
}
on 1:TEXT:!pabaigti:#: {
  disable #Jumble
  /Jumblestop
}
ctcp *:VERSION: {
  ctcpreply $nick VERSION 4,1#Garsas kanalo viktorina. Rasyk /join #garsas!  
}
on 1:TEXT:!stop:#: /Jumblestop {
  disable #Jumble
  timerJumbleNextHint off
  timerJumbleNextGame off
  msg %Jumblechannel Zaidimas nutrauktas!!!
  unset %Jumble*
  halt
}
on 1:TEXT:!atsakymas:#: {
  enable #Jumble
  JumbleNextHint on
  msg %Jumblechannel Atsakymas buvo:4 %Jumbleanswer
  msg %Jumblechannel Klausimas buvo prasuktas!!!
  set %Jumble*
  /Jumblecreate  
}

#Jumble on
ON 1:TEXT:z*:%Jumblechannel:/Jumbleguess $2-
ON 1:JOIN:%Jumblechannel:{
}
ON 1:PART:%Jumblechannel:{
}
#Jumble end

alias /Jumblecreate {
  set %Jumbleshowline $null
  set %Jumblehnr 0
  set %Jumblefinished $false
  set %Jumbleline $read Jumbleq.txt
  set %Jumbleaddscore $write Jscores.txt
  set %Jumblell $len(%Jumbleline)
  set %Jumbleasp $pos(%Jumbleline,*,1)
  set %Jumbleqsp $pos(%Jumbleline,$chr(32),1)
  set %Jumbletemp1 %Jumbleqsp + 1
  set %Jumbletemp2 $calc(%Jumblell - %Jumbleasp)
  set %Jumbletemp3 $calc(%Jumblell - %Jumbletemp2 - %Jumbleqsp - 1)
  set %Jumblequestion $upper($mid(%Jumbleline,%Jumbletemp1,%Jumbletemp3))
  set %Jumbleanswer $upper($right(%Jumbleline,%Jumbletemp2))
  set %Jumblehint $replace(%Jumbleanswer,1,*,2,*,3,*,4,*,5,*,6,*,7,*,8,*,9,*,0,*,A,*,B,*,C,*,D,*,E,*,F,*,G,*,H,*,I,*,J,*,K,*,L,*,M,*,N,*,O,*,P,*,Q,*,R,*,S,*,T,*,U,*,V,*,W,*,X,*,Y,*,Z,*)
  msg %Jumblechannel  Klausimas1,7: %Jumblequestion
  /echo %Jumblechannel Atsakymas yra:4 %Jumbleanswer
  timerJumbleNextHint 4 20 /Jumblehint
  /Jumbleplay
  halt
}

alias /Jumbleplay {
  halt
}

alias /Jumbleguess {
  set %Jumbleguess $upper($1-)
  if (%Jumblefinished == $false) {
    if (%Jumbleguess == %Jumbleanswer) {
      timerJumbleNextHint off
      set %Jumblefinished $true
      msg %Jumblechannel  4,1 $nick 0,5 3,5atsake teisingai:0,4 4,6 %Jumbleanswer .
      /Jumbleaddscore
    }
    else { /Jumbleplay
    }
  }
  halt
}

alias /Jumblehint {
  inc %Jumblehnr 1
  if (%Jumblehnr == 4) {
    /Jumbleend
  }
  elseif (%Jumblehnr != 4) {
    set %Jumbletemp1 $calc($len(%Jumbleanswer) - %Jumblehnr)
    set %Jumblehint $left(%Jumbleanswer,%Jumblehnr) $+ $right(%Jumblehint,%Jumbletemp1)
    msg %Jumblechannel Klausimas1,7: %Jumblequestion
    msg %Jumblechannel Atidengiu raide: %Jumblehint
    /echo %Jumblechannel 2Atsakymas yra:4 %Jumbleanswer
    /Jumbleplay
  }
  halt
}

alias /Jumbleaddscore {
  inc %sg.points. [  $+   [ $nick ] ] |  /msg %Jumblechannel $nick dabar turi %sg.points. [ $+ [ $nick ] ] taskus(-u). 
  timerJumbleNextGame 1 10 /Jumblecreate

  halt
  else { 
    goto Jumblestart
  }
  halt
}

alias /Jumbleend {
  msg %Jumblechannel Niekas neatsake, tasko niekam neuzskaitau.
  timerJumbleNextGame 1 10 /Jumblecreate
  halt
}

alias /Jumbleshowscore {
  :Jumblestart
  set %Jumblecmdline -l $+ %Jumblehnr
  set %Jumbletemp3 %Jumbleshowline
  set %Jumbleshowline %Jumbletemp3 %Jumbletemp2 , 
  inc %Jumblehnr 1
  if (%Jumblehnr > %Jumbletemp1) {
    notice %Jumblechannel TASKAI: %Jumbleshowline
    timerJumbleNextGame 1 10 /Jumblecreate
    halt
  }
  else { 
    goto Jumblestart
  }
  halt
}

alias /Jumblestop {
  timerJumbleNextHint off
  timerJumbleNextGame off
  msg %Jumblechannel 4Zaidimas nutrauktas!!!
  unset %Jumble*
  halt
}
On *:CONNECT:{ join #garsas | echo -s 4,1DEMESIO: IRC kanalo #garsas Viktor|na jau susijunge su IRC serveriu! Jums leistinos komandos yra:!pradeti, !pabaigti, !stabdom, z nznats. Norint atsakyti i klausima, jums reikia rasyti: !atsakymas! }