begin process at 2012 05 27 19:24:17
  Trouver un code source :
 
dans
 
[ Dernières recherches ]
Accueil > 

Code

 > 

AddOns

 > SPEED (JEU EN PICWIN)

SPEED (JEU EN PICWIN)


 Information sur la source

Note :
9 / 10 - par 1 personne
9,00 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 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 793
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

Source avec une capture CALCULATRICE EN PICWIN
Source avec une capture 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

Source avec Zip Source avec une capture LAZER (JEU EN PICWIN) par Zova
Source avec Zip Source avec une capture PACMAN ONLINE - 4 JOUEURS par wims
Source avec Zip Source avec une capture BELOTE (MULTIJOUEURS) EN PICWIN par RCA ArKanis
Source avec Zip Source avec une capture 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


Sondage...

CalendriCode

Mai 2012
LMMJVSD
 123456
78910111213
14151617181920
21222324252627
28293031   

Consulter la suite du CalendriCode

A découvrir
 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 0,437 sec (4)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales
Outils Convertisseur VB/C# Snippets et scripts Outils en ligne La ToolBox
Communauté Programmation Photographie Technologie Newsgroups Emploi Forum Blogs
Guide d'achat Téléphonie mobile Image et son Informatique Bureautique Jeux vidéo
Logiciels Internet & Réseau Développement Market Android Jeux & Loisirs Graphisme Multimédia Sécurité Pilotes
Loisirs Cartes virtuelles Vidéos droles Jeux en ligne Géoguide AndroLib (Android Market)