menu @cyclin {
sclick: {
/clear @cyclin
/drawline -i @cyclin 2 2 50 50 600 50
/drawline -i @cyclin 2 2 50 50 50 700
/drawline -i @cyclin 2 2 50 700 600 700
/drawline -i @cyclin 2 2 600 50 600 700
/drawline -i @cyclin 8 4 300 100 300 100
/drawline -i @cyclin 4 4 300 650 300 650
%cyclin-begin.x = 650
%cyclin-begin.y = 300
%cyclin-play = true
}
}
alias cyclin-stop {
.timerrandom off
.timercyclin-hoger off
.timercyclin-links off
.timercyclin-beneden off
.timercyclin-rechts off
/clear @cyclin
}
alias cyclin-check {
.if ($1 == x) {
.if ($getdot(@cyclin,$2,$3) > 0) {
.cyclin-stop
}
}
.if ($1 == y) {
.if ($getdot(@cyclin,$2,$1) > 0) {
.cyclin-stop
}
}
.if ($getdot(@cyclin,$1,$2) > 0) {
.cyclin-stop
}
.else { return }
}
alias cyclin-hoger {
var %cyclin-begin.newx = $calc(%cyclin-begin.x - 3)
.cyclin-check x %cyclin-begin.y %cyclin-begin.newx
.drawline -i @cyclin 1 4 %cyclin-begin.y %cyclin-begin.newx %cyclin-begin.y %cyclin-begin.newx
%cyclin-begin.x = %cyclin-begin.newx
}
alias cyclin-beneden {
var %cyclin-begin.newx = $calc(%cyclin-begin.x - 3)
.cyclin-check y %cyclin-begin.y %cyclin-begin.newx
.drawline -i @cyclin 1 4 %cyclin-begin.y %cyclin-begin.newx %cyclin-begin.y %cyclin-begin.newx
%cyclin-begin.x = %cyclin-begin.newx
}
on 1:keyup:@cyclin:87: {
.timercyclin-links off
.timercyclin-beneden off
.timercyclin-rechts off
.timercyclin-hoger 0 0 .cyclin-hoger
}
on 1:keyup:@cyclin:83: {
.timercyclin-links off
.timercyclin-rechts off
.timercyclin-hoger off
.timercyclin-beneden 0 0 .cyclin-beneden
}