Product of boredom.

/fin [-c]

-c = close

I realize I could make it smoother and more realistic, piss off.

;the finger

alias fin {
  var %win @Fuck
  if ($1 == -c) { fin.close | return }
  elseif (!$window(%win)) window -dBpfk0 %win 1 1 188 210
  titlebar %win You
  the.finger
}

alias fin.close {
  .timerfin off 
  unset %fin* 
  close -@ @Fuck
}

alias the.finger {
  set %fin.sc +
  set %fin.c 1
  var %win @Fuck , %x 1 , %w 5
  clear %win
  drawrect -ndf %win 1 4 68 10 36 100
  drawrect -ndf %win 1 4 2 90 168 90
  drawrect -ndf %win 0 4 5 127 162 50
  while (%x <= 5) {
    drawrect -ndf %win 0 4 %w 93 30 45
    inc %w 33
    inc %x 1
  }
  drawrect -ndf %win 0 4 71 13 30 150
  drawrect -nd %win 1 2 74 16 23 19 4 5
  drawtext -np %win 1 Arial 20 8 183 2m4IR8C hates 3YOU :)
  drawdot %win
  .timerfin -m 0 50 fin.sc %fin.sc
}
alias -l fin.sc {
  if (!$window(@Fuck)) {
    fin.close
    return
  }
  else {
    if (%fin.c == 18) { %fin.sc = $iif(%fin.sc == +,-,+) | %fin.c = 1 }
    drawscroll @Fuck $+(%fin.sc,1) 0 0 0 199 180
    inc %fin.c
  }
}

on 1:CLOSE:@Fuck:fin.close

;EOF