Ce jeu consiste a cliquer sur les cases rouges pour gagner 10 points. Faites attention, il y a un bonus représenté sous la forme du case bleu qui lui vaut 100 points. pour ouvrir le jeu taper : /speed
Source / Exemple :
alias speed {
.timer.speed.case.bonus off
.timer.speed.case off
unset %speed.play
set %speed.score 0
If (!%speed.case) && (!%speed.case.bonus) { set %speed.case 1000 | set %speed.case.bonus 800 }
If (!%speed.score.top) set %speed.score.top 0
window -BCdg0k0pRz +dl @Speed 0 0 178 267
speed.interface
drawfill -r @Speed $rgb(245,245,245) 1 10 10
drawrect -fr @Speed $rgb(200,200,200) 2 0 0 178 17
drawrect -r @Speed $rgb(128,128,128) 1 0 0 178 17
drawtext -rc @Speed $rgb(128,128,128) Tahoma 10 5 2 100 20 Speed par atlantisfr
drawrect -r @Speed $rgb(128,128,128) 1 0 16 178 250
drawrect -fr @Speed $rgb(200,200,200) 1 155 3 10 11
drawrect -r @Speed $rgb(128,128,128) 1 155 3 10 11
drawtext -roc @Speed $rgb(128,128,128) Tahoma 10 157 0 15 15 _
drawrect -fr @Speed $rgb(200,200,200) 1 166 3 10 11
drawrect -r @Speed $rgb(128,128,128) 1 166 3 10 11
drawtext -roc @Speed $rgb(128,128,128) Tahoma 10 168 2 10 10 X
drawrect -fr @Speed $rgb(220,220,220) 2 0 16 178 15
drawrect -r @Speed $rgb(128,128,128) 1 0 16 178 15
drawtext -rc @Speed $rgb(128,128,128) Tahoma 10 5 17 178 20 Score :
drawtext -rc @Speed $rgb(128,128,128) Tahoma 10 40 17 178 20 %speed.score points
speed.case.draw
drawline -r @Speed $rgb(128,128,128) 1 4 208 175 208
drawtext -rc @Speed $rgb(128,128,128) Tahoma 10 5 213 178 20 Niveau :
drawrect -r @Speed $rgb(128,128,128) 1 45 212 40 15
drawtext -rc @Speed $rgb(128,128,128) Tahoma 10 52 213 178 20 Facile
drawrect -r @Speed $rgb(128,128,128) 1 90 212 40 15
drawtext -rc @Speed $rgb(128,128,128) Tahoma 10 95 213 178 20 Moyen
drawrect -r @Speed $rgb(128,128,128) 1 135 212 40 15
drawtext -rc @Speed $rgb(128,128,128) Tahoma 10 144 213 178 20 Dure
drawline -r @Speed $rgb(128,128,128) 1 4 230 175 230
drawrect -r @Speed $rgb(128,128,128) 1 4 234 55 15
drawtext -rc @Speed $rgb(128,128,128) Tahoma 10 17 235 178 20 Lancer
drawrect -r @Speed $rgb(128,128,128) 1 61 234 57 15
drawtext -rc @Speed $rgb(128,128,128) Tahoma 10 77 235 178 20 Pause
drawrect -r @Speed $rgb(128,128,128) 1 120 234 55 15
drawtext -rc @Speed $rgb(128,128,128) Tahoma 10 132 235 178 20 Quitter
drawrect -fr @Speed $rgb(220,220,220) 2 0 252 178 15
drawrect -r @Speed $rgb(128,128,128) 1 0 252 178 15
drawtext -rc @Speed $rgb(128,128,128) Tahoma 10 5 253 178 20 Record actuel : %speed.score.top points
if (%speed.case == 1000) {
drawrect -fr @Speed $rgb(200,200,200) 1 46 213 38 13
drawtext -rc @Speed $rgb(128,128,128) Tahoma 10 52 213 178 20 Facile
}
if (%speed.case == 500) {
drawrect -fr @Speed $rgb(200,200,200) 1 91 213 38 13
drawtext -rc @Speed $rgb(128,128,128) Tahoma 10 95 213 178 20 Moyen
}
if (%speed.case == 350) { drawrect -fr @Speed $rgb(200,200,200) 1 136 213 38 13
drawtext -rc @Speed $rgb(128,128,128) Tahoma 10 144 213 178 20 Dure
}
if (%speed.play == off) {
drawrect -fr @Speed $rgb(200,200,200) 1 62 235 55 13
drawtext -rc @Speed $rgb(128,128,128) Tahoma 10 77 235 178 20 Pause
}
}
alias -l speed.move {
if ($window(@Speed)) window @Speed $calc($mouse.dx - $1) $calc($mouse.dy - $2)
if ($mouse.key & 1) .timer $+ $ticks -m 1 0 speed.move $1-
}
alias speed.interface {
drawrect -fr @Speed $rgb(245,245,245) 1 1 32 174 174
speed.case.draw
}
alias speed.case.draw {
drawrect -r @Speed $rgb(128,128,128) 1 4 35 30 30
drawrect -r @Speed $rgb(128,128,128) 1 39 35 30 30
drawrect -r @Speed $rgb(128,128,128) 1 74 35 30 30
drawrect -r @Speed $rgb(128,128,128) 1 109 35 30 30
drawrect -r @Speed $rgb(128,128,128) 1 144 35 30 30
drawrect -r @Speed $rgb(128,128,128) 1 4 70 30 30
drawrect -r @Speed $rgb(128,128,128) 1 39 70 30 30
drawrect -r @Speed $rgb(128,128,128) 1 74 70 30 30
drawrect -r @Speed $rgb(128,128,128) 1 109 70 30 30
drawrect -r @Speed $rgb(128,128,128) 1 144 70 30 30
drawrect -r @Speed $rgb(128,128,128) 1 4 105 30 30
drawrect -r @Speed $rgb(128,128,128) 1 39 105 30 30
drawrect -r @Speed $rgb(128,128,128) 1 74 105 30 30
drawrect -r @Speed $rgb(128,128,128) 1 109 105 30 30
drawrect -r @Speed $rgb(128,128,128) 1 144 105 30 30
drawrect -r @Speed $rgb(128,128,128) 1 4 140 30 30
drawrect -r @Speed $rgb(128,128,128) 1 39 140 30 30
drawrect -r @Speed $rgb(128,128,128) 1 74 140 30 30
drawrect -r @Speed $rgb(128,128,128) 1 109 140 30 30
drawrect -r @Speed $rgb(128,128,128) 1 144 140 30 30
drawrect -r @Speed $rgb(128,128,128) 1 4 175 30 30
drawrect -r @Speed $rgb(128,128,128) 1 39 175 30 30
drawrect -r @Speed $rgb(128,128,128) 1 74 175 30 30
drawrect -r @Speed $rgb(128,128,128) 1 109 175 30 30
drawrect -r @Speed $rgb(128,128,128) 1 144 175 30 30
If (%speed.score > %speed.score.top) {
set %speed.score.top %speed.score
drawrect -fr @Speed $rgb(220,220,220) 2 0 252 178 15
drawrect -r @Speed $rgb(128,128,128) 1 0 252 178 15
drawtext -rc @Speed $rgb(128,128,128) Tahoma 10 5 253 178 20 Record actuel : %speed.score.top points
}
}
alias speed.case {
set %speed.x $calc(4+ $calc(35* $rand(0,4)))
set %speed.y $calc(35+ $calc(35* $rand(0,4)))
drawrect -f @Speed 4 1 %speed.x %speed.y 30 30
.timer.speed.interface -h 1 %speed.case speed.interface
.timer.speed.x -h 1 %speed.case unset %speed.x
.timer.speed.y -h 1 %speed.case unset %speed.y
}
alias speed.case.bonus {
set %speed.x2 $calc(4+ $calc(35* $rand(0,4)))
set %speed.y2 $calc(35+ $calc(35* $rand(0,4)))
drawrect -f @Speed 12 1 %speed.x2 %speed.y2 30 30
.timer.speed.interface -h 1 %speed.case.bonus speed.interface
.timer.speed.x2 -h 1 %speed.case.bonus unset %speed.x2
.timer.speed.y2 -h 1 %speed.case.bonus unset %speed.y2
.timer.speed.case.bonus 1 $rand(1,60) speed.case.bonus
}
alias speed.timers.run {
set %speed.play on
.timer.speed.case.bonus 1 $rand(1,60) speed.case.bonus
.timer.speed.case 0 2 speed.case
}
alias speed.timers.stop {
set %speed.play off
.timer.speed.case.bonus off
.timer.speed.case off
}
menu @Speed {
mouse {
if $inrect($mouse.x,$mouse.y,155,3,10,11) {
drawrect -fr @Speed $rgb(220,220,220) 1 155 3 10 11
drawrect -r @Speed $rgb(128,128,128) 1 155 3 10 11
drawtext -roc @Speed $rgb(128,128,128) Tahoma 10 157 0 15 15 _
}
else {
drawrect -fr @Speed $rgb(200,200,200) 1 155 3 10 11
drawrect -r @Speed $rgb(128,128,128) 1 155 3 10 11
drawtext -roc @Speed $rgb(128,128,128) Tahoma 10 157 0 15 15 _
}
if $inrect($mouse.x,$mouse.y,166,3,10,11) {
drawrect -fr @Speed $rgb(220,220,220) 1 166 3 10 11
drawrect -r @Speed $rgb(128,128,128) 1 166 3 10 11
drawtext -roc @Speed $rgb(128,128,128) Tahoma 10 168 2 10 10 X
}
else {
drawrect -fr @Speed $rgb(200,200,200) 1 166 3 10 11
drawrect -r @Speed $rgb(128,128,128) 1 166 3 10 11
drawtext -roc @Speed $rgb(128,128,128) Tahoma 10 168 2 10 10 X
}
if $inrect($mouse.x,$mouse.y,45,212,40,15) {
drawrect -fr @Speed $rgb(220,220,220) 1 46 213 38 13
drawtext -rc @Speed $rgb(128,128,128) Tahoma 10 52 213 178 20 Facile
}
else {
if (%speed.case == 1000) drawrect -fr @Speed $rgb(200,200,200) 1 46 213 38 13
else drawrect -fr @Speed $rgb(245,245,245) 1 46 213 38 13
drawtext -rc @Speed $rgb(128,128,128) Tahoma 10 52 213 178 20 Facile
}
if $inrect($mouse.x,$mouse.y,90,212,40,15) {
drawrect -fr @Speed $rgb(220,220,220) 1 91 213 38 13
drawtext -rc @Speed $rgb(128,128,128) Tahoma 10 95 213 178 20 Moyen
}
else {
if (%speed.case == 500) drawrect -fr @Speed $rgb(200,200,200) 1 91 213 38 13
else drawrect -fr @Speed $rgb(245,245,245) 1 91 213 38 13
drawtext -rc @Speed $rgb(128,128,128) Tahoma 10 95 213 178 20 Moyen
}
if $inrect($mouse.x,$mouse.y,135,212,40,15) {
drawrect -fr @Speed $rgb(220,220,220) 1 136 213 38 13
drawtext -rc @Speed $rgb(128,128,128) Tahoma 10 144 213 178 20 Dure
}
else {
if (%speed.case == 350) drawrect -fr @Speed $rgb(200,200,200) 1 136 213 38 13
else drawrect -fr @Speed $rgb(245,245,245) 1 136 213 38 13
drawtext -rc @Speed $rgb(128,128,128) Tahoma 10 144 213 178 20 Dure
}
if $inrect($mouse.x,$mouse.y,4,234,55,15) {
drawrect -fr @Speed $rgb(220,220,220) 1 5 235 53 13
drawtext -rc @Speed $rgb(128,128,128) Tahoma 10 17 235 178 20 Lancer
}
else {
if (%speed.play == on) drawrect -fr @Speed $rgb(200,200,200) 1 5 235 53 13
else drawrect -fr @Speed $rgb(245,245,245) 1 5 235 53 13
drawtext -rc @Speed $rgb(128,128,128) Tahoma 10 17 235 178 20 Lancer
}
if $inrect($mouse.x,$mouse.y,61,234,57,15) {
drawrect -fr @Speed $rgb(220,220,220) 1 62 235 55 13
drawtext -rc @Speed $rgb(128,128,128) Tahoma 10 77 235 178 20 Pause
}
else {
if (%speed.play == off) drawrect -fr @Speed $rgb(200,200,200) 1 62 235 55 13
else drawrect -fr @Speed $rgb(245,245,245) 1 62 235 55 13
drawtext -rc @Speed $rgb(128,128,128) Tahoma 10 77 235 178 20 Pause
}
if $inrect($mouse.x,$mouse.y,120,234,55,15) {
drawrect -fr @Speed $rgb(220,220,220) 1 121 235 53 13
drawtext -rc @Speed $rgb(128,128,128) Tahoma 10 132 235 178 20 Quitter
}
else {
drawrect -fr @Speed $rgb(245,245,245) 1 121 235 53 13
drawtext -rc @Speed $rgb(128,128,128) Tahoma 10 132 235 178 20 Quitter
}
}
sclick {
if ($mouse.y < 17) { speed.move $calc($mouse.dx - $window($active).x) $calc($mouse.dy - $window($active).y) }
if ($inrect($mouse.x,$mouse.y,155,3,10,11)) window -n @Speed
if ($inrect($mouse.x,$mouse.y,166,3,10,11)) {
window -c @Speed
speed.timers.stop
}
if ($inrect($mouse.x,$mouse.y,45,212,40,15)) {
%speed.case.bonus = 800
%speed.case = 1000
}
if ($inrect($mouse.x,$mouse.y,90,212,40,15)) {
%speed.case.bonus = 400
%speed.case = 500
}
if ($inrect($mouse.x,$mouse.y,135,212,40,15)) {
%speed.case.bonus = 350
%speed.case = 350
}
if ($inrect($mouse.x,$mouse.y,4,234,55,15)) speed.timers.run
if ($inrect($mouse.x,$mouse.y,61,234,57,15)) speed.timers.stop
if ($inrect($mouse.x,$mouse.y,120,234,55,15)) {
window -c @Speed
speed.timers.stop
}
if $inrect($mouse.x,$mouse.y,%speed.x,%speed.y,30,30) {
inc %speed.sclick
if (%speed.sclick == 1) {
set %speed.score $calc(%speed.score +10)
unset %speed.x %speed.y
drawrect -fr @Speed $rgb(220,220,220) 2 0 16 178 15
drawrect -r @Speed $rgb(128,128,128) 1 0 16 178 15
drawtext -rc @Speed $rgb(128,128,128) Tahoma 10 5 17 178 20 Score :
drawtext -rc @Speed $rgb(128,128,128) Tahoma 10 40 17 178 20 %speed.score points
.timer.speed.wait -h 1 %speed.case unset %speed.sclick
}
}
if $inrect($mouse.x,$mouse.y,%speed.x2,%speed.y2,30,30) {
inc %speed.sclick2
if (%speed.sclick2 == 1) {
set %speed.score $calc(%speed.score +100)
unset %speed.x2 %speed.y2
drawrect -fr @Speed $rgb(220,220,220) 2 0 16 178 15
drawrect -r @Speed $rgb(128,128,128) 1 0 16 178 15
drawtext -rc @Speed $rgb(128,128,128) Tahoma 10 5 17 178 20 Score :
drawtext -rc @Speed $rgb(128,128,128) Tahoma 10 40 17 178 20 %speed.score points
.timer.speed.wait2 -h 1 %speed.case.bonus unset %speed.sclick2
}
}
}
$iif(%speed.play == on,$style(1)) Lancer:speed.timers.run
$iif(%speed.play == off,$style(1)) Pause:speed.timers.stop
-
Niveau
.$iif(%speed.case == 1000,$style(1)) Facile:set %speed.case.bonus 800 | set %speed.case 1000
.$iif(%speed.case == 500,$style(1)) Moyen:set %speed.case.bonus 400 | set %speed.case 500
.$iif(%speed.case == 350,$style(1)) Dure:set %speed.case.bonus 350 | set %speed.case 350
-
Fermer la fenêtre:window -c @Speed | speed.timers.stop
Minimiser la fenêtre:window -n @Speed
}
on *:CLOSE:@Speed:{
If (%speed.score > %speed.score.top) { set %speed.score.top %speed.score | unset %speed.score | speed.timers.stop }
speed.timers.stop
}
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.