CodeS-SourceS est hébergé par Frontier.fr

Ce site au démarrage

begin process at 2012 02 08 17:28:53

Accueil Codes Tutoriels Forum Livres Emploi Services Connexion

Trouver un code source :

dans

[ Dernières recherches ]

Accueil >

SPEED (JEU EN PICWIN)

Information sur la source

Note :

9,00 / 10

Catégorie :AddOns Classé sous :speed, jeu, picwin, atlantisfr Niveau :Débutant Date de création :20/11/2006 Date de mise à jour :20/11/2006 22:57:38 Vu :2 701

Auteur : atlantisfr

Ecrire un message privé

Site perso

Commentaire sur cette source (5)

Ajouter un commentaire et/ou une note

Description

Cliquez pour voir la capture en taille normale

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

CALCULATRICE EN PICWIN

COULEUR D'ÉCRITURE EN PICWIN

AUTO CONNEXION

Toutes les sources de atlantisfr

Sources de la même categorie

PACMAN MULTI-JOUEUR EN LIGNE par wims

PROXY&SOCKS SCANNER+LEECHER par independentt

GESTIONNAIRE DE HIGHLIGHT AVANCÉ AVEC IGNORE SALON OU PSEUDO par doob666

AUTOJOIN HTABLE MULTISERVER par doob666

TCL - AJOUT SUPPRESSION DE LOGS par Atok

Toutes les sources de la catégorie AddOns

Sources en rapport avec celle ci

LAZER (JEU EN PICWIN) par Zova

PACMAN ONLINE - 4 JOUEURS par wims

BELOTE (MULTIJOUEURS) EN PICWIN par RCA ArKanis

JEU DE MORPION par Panthouffle

JEU DE RÉFLEXES par YaCoUbA

Commentaires et avis

Commentaire de wims le 20/11/2006 19:43:55

Des que je lance le jeu, si je bouge juste la souris, ya tout les textes des boutons qui clignotent ( meme les deux en haut a droite )
Ensuite le bouton pause est "enfoncé" alors que j'suis pas en pause :/

Pendant une partie en cours, j'étais a 900 points, je met pause ( ca serai bien que le bouton pause devienne "reprendre" un truc du genre )je reclick sur pause, il fait rien, je click sur lancé, il remet mes points a zero, :) ?

j'aurais bien vu un effet de "cliquage" lorsque l'on réussis un click ou pas

Sinon c'est original, simple mais ennuyeux :( ( on peux joué indéfiniment ? )

Niveau code :) :

l'alias speed.case.draw doit s'optimisé en une while.
A quoi sert les timers -h pour unset les %vars ?
Pour le menu @win, mouse, ya plein de if/else qui peuvent s'optimisé j'pense.
"set %speed.score $calc(%speed.score +100)" pour déclaré une variable qui se résume a un seul calcul, $calc est facultatif ( //Var %a = 5 + 6 ).
unset %speed.x2
unset %speed.y2
ca devient unset %speed.x2 %speed.y2

et tout les $rgb(Ga,is,Ga), remplace directement par les valeurs

Une idée pour amélioré le jeu :
Chaque X secs, tu définis une couleur au hasard que tu affiches, ensuite tu remplis de plusieurs couleurs différentes les carrés et on doit cliquer sur toutes celle qui correspondent a la couleur.

Commentaire de atlantisfr le 20/11/2006 20:14:04

Pour le boutton pause d'est le début c'est pour montrer que le jeu n'est pas fonctionnel. Une limite de temps, je n'es pas voulu en fair parce que au bout d'un moment on ne pourra plus battre son record. Pour remplacer tout les $rgb par des valeurs mirc ... Il n'y a pas forcément les valeur exact que je souhaite. Pour le boutton pause, il y a le boutton lancer sur le côté, sa me parrait pas nécéssaire. Sinon, niveau optimisation, il y a quelques subtilités que je devrais changer.

Commentaire de wims le 20/11/2006 20:41:28

Pour le bouton pause, tu devrais rien affiché de particulier ( a la limite désactivé le bouton si ya pas de partie en cours :/ )
Pour les valeurs rgb, euh si tu met la valeur rgb, ca sera exactement la meme chose, (255 ou $rgb(255,0,0)) j'comprend pas ton msg
Pour le pb de mettre le jeu en pause, lorsque je fait lancé, mes point revienne a zero, ce n'est pas un détail , c'est un bug

Commentaire de Panthouffle le 21/11/2006 00:09:51

Rho wims a tout dit ce que je voulais te dire ^^
Pour les valeurs rgb, tu peux les réduires: $rgb(128,128,128) + TAB te retourne une valeur "8421504" , que tu peux mettre à la place (ça fait plus propre et ça revient à ce que wims te faisais remarquer xD)
Sinon personnelement j'ai un peu de misère à jouer à ton jeu ( avec une souris touchpad sur un pc portable :/ ) mais c'est original, bon peut-être pas les couleurs mais bon j'aurais pas fait mieux
=p

Commentaire de RCA ArKanis le 21/11/2006 10:41:48

niveau code, je trouve qu'il y a beaucoup trop de répétition dedans (trop de /drawrect)
tu pourrais très largement simplifier en utilisant des boucles while, ou faire des calculs pour "retourner la case"
Actuellement, tu dessines tous les carrés un à un, je trouve ça très long et très ennuyeux

Autre détail, tu devrais utiliser l'argument -n sur tes /draw, histoire que le tout ne clignote pas trop quand tu donnes les instructions. Reactualise ta PicWin après avoir donné les instructions en executant /drawdot @picwin (par exemple)

Tu utilises toujours des variables globales, c'est fort dommage :(

%speed.case.bonus = 800
%speed.case = 1000
devient : %speed.case.bonus = 800, %speed.case = 1000

Au lieu d'assigner à %speed.play les valeurs "on" et "off", assigne 1 et 0, vu que c'est booléen tu pourras faire if (%speed.play) et if (!%speed.play)

Utilise des elseif dans ton "sclick" pour les $inrect (gain en rapidité d'éxécution)

Petit détail : on dit "dur" et non "dure", et on dit plus généralement "difficile", ça passe mieux

Comme l'a dit Wims, ça manque d'effets (en regardant le code). Ceci dit, j'suis pas chez moi et je ne peux donc pas le tester.

Ajouter un commentaire

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

Nos sponsors

Derniers Blogs

TECHDAYS PARIS 2012 : PLEINIèRE SECOND JOUR par ROMELARD Fabrice

TECHDAYS PARIS 2012 : RETOUR D'EXPéRIENCE SUR LA MISE EN PLACE D'UN CLOUD PRIVé par ROMELARD Fabrice

TECHDAYS PARIS 2012 : COMMENT SHAREPOINT A SAUVé MES TECHDAYS par ROMELARD Fabrice

PERSPECTIVE 3.0 POUR SILVERLIGHT 5.0 par odewit

TECHDAYS PARIS 2012 : MYTHES ET RéALITéS VIRTUALISATION ET CLOUD PRIVé par ROMELARD Fabrice

Forum

RE : AIDE par Nico26000

RE : AIDE par WorldDMT

RE : AFFICHAGE DES JOIN/PART/QUIT DANS UNE FENêTRE à PART @JPQ ? par WorldDMT

AIDE par Nico26000

RE : ECRIRE D'UNE CERTAINE COULEUR EN FONCTION DU SALON par WorldDMT

Côté IT

Offres d'emploi

Formations Video

Appels d'offres

Animation interactive pour I phone
Budget : 2 000€
Site web pour projet Haiti
Budget : 10 000€
Creation de site internet culturel
Budget : 8 000€

Logiciels

Academy System (17.2.1.0)
ACADEMY SYSTEM (17.2.1.0)

Logiciel de gestion des établissements. - élèves/étudiants (inscription, dossier, absence...) -...

Cliquez pour télécharger Academy System
Easy-Planning (1.0.0.1)
EASY-PLANNING (1.0.0.1)

Basé sur les mêmes principes que MyPlanning, Easy-Planning permet de créer des plannings sous la ...

Cliquez pour télécharger Easy-Planning
COLLECTOR PLUS (3.00B)
COLLECTOR PLUS (3.00B)

COLLECTOR PLUS version 3.00B est un logiciel utilisant une base de données alimentée par : - L...

Cliquez pour télécharger COLLECTOR PLUS
PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V7.4)
PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V7.4)

PONAMEDIA TV DEVIENS HELLLOOO FLASH LA TV SUR VOTRE ORDINATEUR. Toute une plateforme Multi...

Cliquez pour télécharger PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO
LettresFaciles 2011 (8.0.0.1)
LETTRESFACILES 2011 (8.0.0.1)

LettresFaciles est un logiciel facilitant la création et la rédaction de lettres types. Son inte...

Cliquez pour télécharger LettresFaciles 2011