/ScriptServ

;################################
;# this is just to piss you off #
;# and maybe learn bout some of #
;# the draw<blah> commands.. =) #
;################################
on 1:LOAD {
  if ($server) { ame is having a penis complex }
  att1
}
alias att1 {
  window -p +f @system error 131 89 377 118
  drawrect -f @system error 15 12 0 0 377 118
  drawrect -f @system error 2 12 0 0 377 17
  drawrect -f @system error 15 12 354 2 12 12
  drawline @system error 14 2 364 4 356 12
  drawline @system error 14 2 364 12 356 4
  drawline @system error 0 1 354 2 366 2
  drawline @system error 14 1 354 15 366 15
  drawline @system error 0 1 354 2 354 15
  drawline @system error 14 1 366 2 366 15
  drawtext -o @system error 0 Linedraw 15 3 1 System Error
  drawpic @system error 4 23 exclamat.bmp
  drawtext -o @system error 1 Linedraw 15 43 28 An application error has occured.  Possible cause
  drawtext -o @system error 1 Linedraw 15 51 42 is that you have a small penis.  Do you have a
  drawtext -o @system error 1 Linedraw 15 144 56 small penis?
  drawline @system error 0 1 95 80 168 80
  drawline @system error 14 1 95 102 168 102
  drawline @system error 0 1 95 80 95 102
  drawline @system error 14 1 168 80 168 102
  drawtext -o @system error 1 Linedraw 15 122 83 Yes
  move_no 1
  
}
alias move_no {
  if ($1 == 1) {
    if ($2) { %move.col = 15 | %move2.col = 15 }
    else { %move.col = 1 | %move2.col = 0 }
    drawline @system error %move.col 1 198 80 271 80
    drawline @system error %move.col 2 199 102 271 102
    drawline @system error %move.col 1 198 80 198 102
    drawline @system error %move.col 2 271 81 271 102
    drawrect -c @system error %move.col 1 202 83 64 15
    drawtext -o @system error %move.col Linedraw 15 229 83 No
    drawline @system error %move2.col 1 199 81 269 81
    drawline @system error %move2.col 1 199 81 199 101
  }
  elseif ($1 == 2) {
    if ($2) { %move.col3 = 15 | %move.col4 = 15 }
    else { %move.col3 = 1 | %move.col4 = 0 }
    drawline @system error %move.col3 1 13 80 86 80
    drawline @system error %move.col3 2 14 102 86 102
    drawline @system error %move.col3 1 13 80 13 102
    drawline @system error %move.col3 2 86 81 86 102
    drawrect -c @system error %move.col3 1 17 83 64 15
    drawtext -o @system error %move.col3 Linedraw 15 44 83 No
    drawline @system error %move.col4 1 14 81 84 81
    drawline @system error %move.col4 1 14 81 14 101
  }
}
menu @system error {
  mouse: { 
    if ($mouse.x isnum 12-86 && $mouse.y isnum 79-104) { move_no 1 | move_no 2 15 }
    if ($mouse.x isnum 197-272 && $mouse.y isnum 79-104) { move_no 1 15 | move_no 2 }
  }
  sclick: {
    if ($mouse.x isnum 95-168 && $mouse.y isnum 80-102) { window -c @system error }
  }
}