All pastes #990552 Raw Edit

mouse

public text v1 · immutable
#990552 ·published 2008-04-20 06:07 UTC
rendered paste body
menu channel,status {
  Mouse: {
    mouse
  }
}
alias mouse {
  window -poCzdk0 +tnbL @Mouse -1 -1 600 600
  mouse.spawn
}
alias -l mouse.spawn {
  clear @mouse
  set %mouse.x $rand(100,500)
  set %mouse.y $rand(100,500)
  drawrect -f @mouse 14 1 %mouse.x %mouse.y 75 15
  drawtext @mouse 1 %mouse.x %mouse.y CLICK ME!
  if ($abs($calc($mouse.x - %mouse.x)) < 75) && ($abs($calc($mouse.y - %mouse.y)) < 75) {
    .timer -h 1 0 mouse.spawn
  }
}
menu @mouse {
  mouse: {
    if (($abs($calc($mouse.x - %mouse.x)) < 75) && ($abs($calc($mouse.y - %mouse.y)) < 75)) {
      mouse.spawn
    }
  }
  leave: {
    clear @mouse
    set %mouse.x 300
    set %mouse.y 300
    drawrect -f @mouse 14 1 300 300 75 15
    drawtext @mouse 1 300 300 CLICK ME!
  }
}