;Keksscript V1 
;----------------------------------------
;Erster teil von Aranos, Rest von Baldrov
;----------------------------------------


;Kekse klauen und geben.

menu nicklist {
  $iif($snick($active,0) > 0,Kekse klauen):/keks klau
  $iif($snick($active,0) > 0,Kekse geben):/keks gib
}

alias keks {
  var %keks = $rand(2,20)
  if ($1 == gib) {
    if (%keks > %keksdose) %keks = %keksdose
    describe $chan gibt $snick($active,1) %keks Kekse
    %keks = - $+ %keks
  }
  elseif ($1 == klau) describe $active klaut $snick($active,1) %keks Kekse
  set %keksdose $calc(%keksdose + %keks)
  describe $active hat %keksdose Kekse in seiner Keksdose :D
}


;Kekse essen

menu nicklist {

  Kekse Essen { essen }
}
alias /essen {
  set %keks $?="Wieviele Kekse willst du essen?:"
  set %keksdose $calc(%keksdose - %keks) 
  describe # isst %keks seiner Kekse auf *mampf*
  describe # hat %keksdose Kekse in seiner Keksdose :D
}


;Wenn einem Kekse gegeben oder geklaut werden

on *:action:gibt*Kekse:#: {
  if ( $me isin $2- ) {
    set %keksdose $calc(%keksdose + $3-)
    describe $chan hat nun %keksdose Kekse in seiner Keksdose =)
  }
} 
on *:action:klaut*Kekse:#: {
  if (( $me isin $2- ) && ( $3- <= 21 )) {
    set %keksdose $calc(%keksdose - $3-)
    describe $chan hat nurnoch %keksdose Kekse in seiner Keksdose ;_;  
  }  
}