Casino , le jeux ki sert à rien , lol

Commenter

Contenu du snippet

Vous connaissez le fameux jeux casino sur pas mal de protable , ce jeux complètement bidon , bèh g fé le meme pr mirc , lol .

Source / Exemple : 


dialog casino {
  title "casino by aBd0ulaX"
  size -1 -1 100 100
  option dbu
  button "~~---o?0O@° .:(exit):. °@O0?o---~~",1,4 88 92 8,ok
  text "record :" ,2,4 4 92 8
  text "score :" ,3, 4 12 70 8
  button "new" ,4, 81 12 15 8
  edit "" ,5, 10 30 20 15 , read , center
  edit "" ,6, 40 30 20 15 , read , center
  edit "" ,7, 70 30 20 15 , read , center
  box "" ,8, 4 20 92 65
  button "GO !!!!" , 9, 10 50 80 31
}
on *:dialog:casino:init:0:{
  did -a casino 2 record : %casinorecord
  did -a casino 3 score : %casinoscore
}
on *:dialog:casino:sclick:4:/set %casinoscore 0 | did -a casino 3 score : %casinoscore

on *:dialog:casino:sclick:9:{
  set %casino1 $rand(50,100)
  set %casino2 $rand(50,100)
  set %casino3 $rand(50,100)
  set %c1 0
  set %n1 0
  set %c2 0
  set %n2 0
  set %c3 0
  set %n3 0
  casino1
  casino2
  casino3
} 
alias casino1 {
  did -r casino 5
  did -a casino 5 %n1
  inc %c1
  if ( %n1 < 10 ) { inc %n1 }
  else { set %n1 0 }
  if ( %c1 <= %casino1 ) { timercas1 1 .1 casino1 }
  else {
    set %casino1 end
    unset %c1
    casinoend
  }
}
alias casino2 {
  did -r casino 6
  did -a casino 6 %n2
  inc %c2
  if ( %n2 < 10 ) { inc %n2 }
  else { set %n2 0 }
  if ( %c2 <= %casino2 ) { timercas2 1 .1 casino2 }
  else {
    set %casino2 end
    unset %c2
    casinoend
  }
}
alias casino3 {
  did -r casino 7
  did -a casino 7 %n3
  inc %c3
  if ( %n3 < 10 ) { inc %n3 }
  else { set %n3 0 }
  if ( %c3 <= %casino3 ) { timercas3 1 .1 casino3 }
  else {
    set %casino3 end
    unset %c3
    casinoend
  }
}

alias casinoend {
  if ( %casino1 == end ) && ( %casino2 == end ) && ( %casino3 == end ) {
    if ( %n1 == %n2 ) && ( %n2 == %n3 ) { set %casinoscore $calc( %casinoscore + 1000 ) } 
    elseif ( %n1 == %n2 ) || ( %n2 == %n3 ) || ( %n1 == %n3 ) { set %casinoscore $calc( %casinoscore + 50 ) }
    else { set %casinoscore $calc( %casinoscore - 10 ) }
    did -r casino 3 
    did -a casino 3 score : %casinoscore
    unset %n1
    unset %n2
    unset %n3
    unset %casino1
    unset %casino2
    unset %casino3
    if ( %casinoscore > %casinorecord ) { set %casinorecord %casinoscore | dialog -m casinorecord casinorecord | did -a casino 3 | did -a casino 3 score : %casinoscore } 
  }
}

dialog casinorecord {
  title "casino"
  size -1 -1 50 50
  option dbu
  button "nouvau record",1,4 4 42 42,ok
}

Conclusion :


lol j'avou ça sert vraiment à rien .....

join #dreamcast-universe ou #[dc]chat sur efnet

have fun

by abdoulax

A voir également

S'inscrire maintenant

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.

Du même auteur (abdoulax)