on *:TEXT:!krece:#:{
  if $nick(#,0) > 2 {
    var %t $v1,%msg,%nick $me,%r $r(1,4)
    while %nick = $me || %nick = $nick {
      %nick = $nick(#,$r(1,%t))
    }
    describe # kreci butelka .%Ixhehe%
    .timer 1 2 msg # Butelka zatrzymala sie na %nick $+ !
    if %r = 1 { %msg = musi pocalowac .%Icmok2%%Ixcalus% }
    elseif %r = 2 { %msg = musi sie bzykac z .%Izakochany%%Iserce%%Isex% }
    elseif %r = 3 { %msg = musi sie umowic na randke z .%Iaster%%Iroze%%Ixhehe% }
    elseif %r = 4 { %msg = musi kopnac .%Iblahaha% }
    .timer 1 3 msg # $nick %msg %nick $+ !
  }
}