Well i was bored and decided to make a game.
it took me like 2 hours.
u have to throw as close to the bullseye as possible.
when clicking u get a pop up where u can adjust ur throw, and power, how brighter the red is how harder u throw, how higher the arrow comes.
Please report bugs if they are in it.
it isnt that good but w/e
on *:close:@darting:{
unset %y
unset %d
unset %mouse.x
unset %mouse.y
unset %f
unset %gameplayed
unset %x
}
alias draw {
clear @darting
set %y $r(100,400)
set %d $r(200,500)
/drawdot -h @darting 4 175 %d %y %d %y
/drawdot -h @darting 7 150 %d %y %d %y
/drawdot -h @darting 6 125 %d %y %d %y
/drawdot -h @darting 9 100 %d %y %d %y
/drawdot -h @darting 4 75 %d %y %d %y
/drawdot -h @darting 7 75 %d %y %d %y
/drawdot -h @darting 7 75 %d %y %d %y
/drawdot -h @darting 6 50 %d %y %d %y
/drawdot -h @darting 9 25 %d %y %d %y
/drawdot -h @darting 4 5 %d %y %d %y
/drawtext -h @darting 4 20 20 topscore: %top
}
menu * {
Darts:{
window -pk0 +fxtn @Darting
/draw
}
}
menu @darting {
sclick:{
if (%gameplayed) {
/draw
unset %gameplayed
}
else {
set %mouse.x $mouse.x
set %mouse.y $mouse.y
/throw
}
}
}
alias throw {
if ( $dialog(throw) ) {
dialog -v throw throw
}
else {
dialog -mv throw throw
}
}
alias fly {
dialog -x throw throw
set %mouse.x $calc(%mouse.x $iif(- !isin %f,+ %f,%f) )
set %mouse.y $calc(%mouse.y * $calc(%x / 100))
/drawdot -h @darting 12 3 %mouse.x %mouse.y %mouse.x %mouse.y
set %score $calc($remove($calc(%d - %mouse.x),-) + $remove($calc(%y - %mouse.y),-))
set %gameplayed yes
unset %f
/drawtext -h @darting 20 50 50 To play again Click in the Window
/drawtext -h @darting 4 20 30 Score: %score
if ($round(%top) < $round(%score)) || (!%top) {
set %top %score
}
}
dialog Throw {
title "Throwing the dart"
size -1 -1 135 59
option dbu
text "Left-Right", 2, 7 20 25 8
text "Move it a bit to the left the arrow flys a bit more to the left, move it a bit to the right the arrow flys a bit more to the right.", 3, 4 36 121 21
button "Throw", 1, 43 5 37 10
edit "", 4, 91 20 18 10, read
button "<", 5, 38 19 12 10
button "<<", 6, 50 19 12 10
button ">>", 7, 62 19 12 10
button ">", 8, 74 19 12 10
}
on *:dialog:throw:init:0:{
did -a throw 4 0
}
on *:dialog:throw:sclick:5:{
dec %f
did -ra throw 4 %f
}
on *:dialog:throw:sclick:6:{
dec %f 5
did -ra throw 4 %f
}
on *:dialog:throw:sclick:7:{
inc %f 5
did -ra throw 4 %f
}
on *:dialog:throw:sclick:8:{
inc %f
did -ra throw 4 %f
}
on *:dialog:throw:sclick:1:{
/window -p @Power -1 -1 50 100
/drawdot -rh @power $rgb(225,150,0) 500 0 1
set %x 150
.timerthrow -m 0 50 /power
}
alias power {
if ($window(@power)) {
if (%x <= 20) {
set %x 20
inc %x 130
/drawdot -rh @power $rgb(225,%x,0) 500 0 1
}
else { dec %x
/drawdot -rh @power $rgb(225,%x,0) 500 0 1
}
}
else { .timerthrow off
}
}
menu @power {
sclick:{ .timerthrow off
clear @power
window -c @power
/fly
}
}