on *:text:!ventti:#:{
  set %kortti1 $rand(1,13)
  set %kortti2 $rand(1,13)
  set %yht $calc( %kortti1 + %kortti2 )
  /notice $nick 11,12 Kortti I: %kortti1 Kortti II: %kortti2 = %yht
  if ( %yht > 21 ) { /notice $nick 11,12 $nick 11,12, Korttisi meni yli  }
  if ( %yht == 21 ) { /msg $chan 11,12 $nick , VENTTI!  }
  if ( %yht < 21 ) {
    /notice $nick 11,12  Haluatko ottaa lisää kortteja? ( 4,12/msg $me !lisää111,12 , 9,12/msg $me !en11,12 )
    set %lisaa ok
    set %ei ok
    set %skt %yht
  }
}
on *:text:!lisää1:?:{
  set %kortti3 $rand(1,13)
  set %yht2 $calc( %kortti1 + %kortti2 + %kortti3)
  if ( %lisaa == ok ) {
    /notice $nick 11,12 Kortti I: %kortti1      Kortti II: %kortti2      Kortti III: %kortti3       YHT: %yht2
    if ( %yht2 > 21 ) { /msg $chan 11,12 $nick 11,12, Korttisi meni yli  }
    if ( %yht2 == 21 ) { /msg $chan 11,12 $nick 11,12, VENTTI!  }
    if ( %yht2 < 21 ) {
      /notice $nick 11,12 Haluatko ottaa lisää kortteja? ( 4,12/msg $me !lisää211,12 , 9,12/msg $me !en11,12 )
      set %lisaa2 ok
      set %ei ok
      unset %lisaa
      unset %yht
      set %skt %yht2
    }
  }
}
on *:text:!lisää2:?:{
  set %kortti4 $rand(1,13)
  set %yht3 $calc( %kortti1 + %kortti2 + %kortti3 + %kortti4 )
  if ( %lisaa2 == ok ) {
    /notice $nick 11,12 Kortti I: %kortti1      Kortti II: %kortti2      Kortti III: %kortti3      Kortti IIII: %kortti4       YHT: %yht3
    if ( %yht3 > 21 ) { /msg $chan 11,12 $nick 11,12, Korttisi meni yli  }
    if ( %yht3 == 21 ) { /msg $chan 9,11 $nick 11,12, VENTTI!  }
    if ( %yht3 < 21 ) {
      /notice $nick 11,12 Haluatko ottaa lisää kortteja? ( 4,12/msg $me !lisää311,12 , 9,12/msg $me !en11,12 )
      set %lisaa3 ok
      set %ei ok
      unset %lisaa2
      unset %yht
      set %skt %yht3
    }
  }

}
on *:text:!lisää3:?:{
  set %kortti5 $rand(1,13)
  set %yht4 $calc( %kortti1 + %kortti2 + %kortti3 + %kortti4  + %kortti5  )
  if ( %lisaa3 == ok ) {
    /notice $nick 11,12 Kortti I: %kortti1      Kortti II: %kortti2      Kortti III: %kortti3      Kortti IIII: %kortti4      Kortti IIIII: %kortti5       YHT: %yht4
    if ( %yht4 > 21 ) { /msg $chan 11,12 $nick 11,12, Korttisi meni yli  }
    if ( %yht4 == 21 ) { /msg $chan 11,12 $nick 11,12 VENTTI!  }
    /notice $nick 11,12 Et saa enempää kortteja. Aloita uusi peli kirjoita !ventti
    unset %lisaa3
    unset %yht
    set %skt %yht4
  }
}

on *:text:!en:?:{
  if ( %ei == ok ) {
    /msg $chan 11,12 $nick  jäi tulokseen: %skt
    unset %lisaa
  }
}