|
Trouver une ressource
Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !
SPEED (JEU EN PICWIN)
Information sur la source
Description
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
- 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
- }
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
}
Historique
- 20 novembre 2006 17:48:54 :
- Bugs + Clique droit
- 20 novembre 2006 22:57:38 :
- Remarque de wims
Sources du même auteur
Sources de la même categorie
Sources en rapport avec celle ci
Commentaires et avis
Discussions en rapport avec ce code source dans le forum
jeu pour bot ? maillon faible ? [ par MeF ]
voilou j'ai déjà eu l'occasion de jouer sur irc au maillon faible.Yavait des sons qui accompagnaient le jeu, c'étaient bien sympathique, avec de nombr
Recherche, qu'en pensez-vous ? [ par ScreaM ]
Voici une p'tite idée que je viens d'avoir. Le but serait de reproduire le jeu du maillon faible mais sur un canal irc qui pourrait s'appeller #maillo
Dégradé [ par Bloock ]
Bon voila, je vais faire un lecteur mp3 en picwin, et j'aimerai savoir comment on fait [/b]un dégradé dans une fenêtre Picwin[/b]! Merci d'avance <img
Aide Socket & picwin [ par _VeSpArO_ ]
Salut tout le monde je voulai savoir comment stocker un fichier txt d'un site dans un fichier .txt ou autre dans mon mirc.CAD: telecharger par exemple
affichage de serveur de jeu pour bot/bot dans la barre de tache [ par GVDS ]
Bonjour, j'ai bien cherché et je n'ai pas trouvé, j'aimerais avoir la commande qui me permet de donner les infos de mon serveur ( nombres de joueurs,
Comment mettre un top10 à mon jeu ... [ par Panther007 ]
Bon voila j'aimerais mettre un top10 à mon jeu ... Je vous expliquer Brèvement ce qui en est .. Le jeu c'est comment un mot qui est donner en majuscul
Picwin je pense lol jsuis meme pas sur du nom :s [ par Panther007 ]
Salut :) Bon je vous dit en quoi j'aimerais me faire aider , j'aimerais me fabriquer un jeu de Ping pong mais avant il faut que je sache comment utili
jeu [ par KiNdErMaXi ]
je voudrai faire un ptit jeu en picwin, j'ai des tutos pr la parties graphique mais pour la configuration je sais pas comment fairesi vous pouviez m'a
Dialog + Picwin [ par DiGhan ]
Bonjour,Voilà , j'ai plusieurs dialog, dans lequel je voudrais inclure des picwin.J'aimerais savoir comment faire pour bouger le dialog quand la title
jeu [ par KiNdErMaXi ]
bonjour, jvoudrai faire un jeu, le problème c'est que je ne sais pas comment faire jouer l'ordinateur, si il y avait un tuto la dessus:)merciKiNdErMaX
|
Téléchargements
Logiciels à télécharger sur le même thème :
|