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