#KCounter on

on *:kick:#: { if ( $nick == $me ) { inc %kicks 1 } }


#KCounter End

alias kcounter { dialog -m kcounter kcounter }
dialog kcounter {
  title "Kick Counter"
  size -1 -1 138 73
  option dbu
  box "Power", 1, 6 3 50 50
  button "On", 2, 12 13 37 12
  button "Off", 3, 12 33 37 12
  box "Options", 4, 81 3 50 50
  button "Echo", 5, 87 13 37 12
  button "Clear Kicks", 6, 87 33 37 12
  text "DjinnWraith", 7, 14 54 31 8, disable
  button "Close", 11, 58 25 21 12, ok
}

on 1:DIALOG:kcounter:sclick:*: {
  if ( $did == 2 ) { /.enable #KCounter | echo -a 4,2K14,2ick 4C14,2ounter 4I14,2s 4N14,2ow 4T14,2urned 4O14,2n }
  if ( $did == 3 ) { /.disable #KCounter | echo -a 4,2K14,2ick 4C14,2ounter 4I14,2s 4N14,2ow 4T14,2urned 4O14,2ff }
  if ( $did == 5 ) { /echo -a 4,2I 4,2K14,2icked3 %kicks 4,2T14,2imes 4,2S14,2o 4,2F14,2ar }
  if ( $did == 6 ) { /set %kicks 0 | $calc(%kicks - %kicks) |  /echo -a 4,2T14,2he 4,2N14,2umber 4,2O14,2f 4,1K14,2icks 4,2Y14,2ou 4,1H14,1ad, 4,1H14,1as 4,1B14,2een 4,2C14,2leared }
  if ( $did == 11 ) { /close kcounter }
}
menu menubar {
  Kick Counter:/kcounter
}