All pastes #217854 Raw Edit

Mine

public text v1 · immutable
#217854 ·published 2006-10-23 21:17 UTC
rendered paste body
menu @Altscripts_Paint {
  sclick { 
    if ($did(tool's,9).state) { /set %xy  1 }
    elseif ($did(tool's,23).state) {
      if (%Alt14 == 1) { /drawrect -er @Altscripts_paint %colour $did(tool's,4) %mouse.x %mouse.y $calc($abs($mouse.x - %mouse.x)) $calc($abs($mouse.y - %mouse.y)) | /unset %Alt14  }
      else { /set %mouse.x $mouse.x | /set %mouse.y $mouse.y | /set %Alt14 1 }
    }
    elseif ($did(tool's,22).state) {
      if (%Alt12 == 1) { /drawrect -r @Altscripts_paint %colour $did(tool's,4) %mouse.x1 %mouse.y1 $calc($abs($mouse.x - %mouse.x1)) $calc($abs($mouse.y - %mouse.y1)) | /unset %Alt12 }
      else { /set %leftclick $mouse.x $mouse.y | /set %Alt12 1 }
    } 
    elseif ($did(tool's,21).state) { /set %Colour $getdot(@Altscripts_Paint, $+ $mouse.x $+ , $+ $mouse.y) }
    elseif ($did(tool's,10).state) { /set %xypen 1 }
    elseif ($did(tool's,8).state) { /drawfill -r @Altscripts_Paint %colour $did(tool's,4) 300 245 }
    elseif ($did(tool's,7).state) { 
      if (%Alt11 == 1) { /set %x1 $mouse.x $mouse.y | drawline -r @Altscripts_Paint %colour $did(tool's,4) %y1 %x1 }
      else  { /set %y1 $mouse.x $mouse.y | set %Alt11 1 }
    }
    elseif ($did(tool's,18).state) {
      if (%Alt10 == 1) { /set %x2 $mouse.x $mouse.y | drawline -r @Altscripts_Paint %colour $did(tool's,4) %y2 %x2 | unset %x2 | unset %y2 | unset %Alt10 }
      else  { /set %y2 $mouse.x $mouse.y  | set %Alt10 1 }
    }
    elseif ($did(tool's,19).state) {
      if (%Alt9 == 1) { /set %x3 $mouse.x $mouse.y  | drawline -r @Altscripts_paint %colour $did(tool's,4) %x3 %y2 | set %x3 %y2 | set %y2 $mouse.x $mouse.y }
      else  { /set %y2 $mouse.x $mouse.y  | set %Alt9 1 }
    }
    elseif ($did(tool's,17).state) { 
      /set %things-i-need $mouse.x $mouse.y
      /dialog -ma Font Font
    }
  }
  mouse {
    if (%xy) {
      /drawdot -r @Altscripts_Paint %colour $did(tool's,4) $mouse.x $mouse.y $mouse.x $mouse.y
    } 
    elseif (%xypen) { 
      /drawdot -r @Altscripts_Paint %colour $did(tool's,4) $mouse.x $mouse.y $mouse.x $mouse.y
    }
    else { /unset %xy* }
  }
  drop { /unset %xy* }
}