Dialog blagues .. pour les comiques ;)


Télécharger le projet
Commenter

Description

Ma 1ere source , dialog blagues , avis aux comiques :D
Laissez vos commentaires je tacherai de prendre en compte toute vos critiques

Source / Exemple : 


dialog blg {
  title "Blagues"
  size -1 -1 152 145
  option dbu
  box "Blagues", 1, 2 2 148 141
  button "Fermer", 2, 90 102 50 12,cancel,flat
  button "Blague Suivante ! :]", 3, 5 75 142 12
  box "", 6, 5 6 142 66
  list 7, 8 12 136 56, size
  button "Ajouter blague >>",8,5 88 53 12
  edit "",9,60 118 67 10, read center
  text "Nombre de blagues",10,7 119 48 7
  edit "",11,62 89 84 11,autohs
  button "Supprimer",12,5 102 45 12
  button "Dire",13,50 102 40 12
  button "Citations",14,5 129 40 12 
}
on *:dialog:blg:*:*:{
  if ($devent == init) {   
    dll mdx.dll SetMircVersion $version
    dll mdx.dll MarkDialog $dname
    dll mdx.dll SetColor $dname 1,5 background $rgb(0,0,0)
    dll mdx.dll SetColor $dname 2,3,8,12,13,9,11,14 background $rgb(255,0,0)
    dll mdx.dll SetDialog $dname bgcolor $rgb(0,0,0)
    dll mdx.dll SetFont $dname 14,1,2,3,4,5,6,7,8,9,10,11,12,13 +abg 16 300 comic sans ms
    dll mdx.dll SetColor $dname 10,7 text $rgb(255,0,0)
    dll mdx.dll SetColor $dname 7 background $rgb(20,50,255)
    did -ra $dname 7 $read blagues.txt 
  did -ra blg 9 Total: $calc($lines(blagues.txt)) Blagues  }
  if ($devent == sclick) {
    if ($did == 3) {  did -ra $dname 7 $read blagues.txt }
    if ($did == 8) { write blagues.txt $did(11) | did -ra blg 9 Total: $calc($lines(blagues.txt)) Blagues }
    if ($did == 12) { write -d blagues.txt $did(7) | did -ra blg 9 Total: $calc($lines(blagues.txt)) Blagues | did -ra $dname 7 $read blagues.txt }
    if ($did == 13) { msg $active 4Blague :7 $did(7).seltext }
    if ($did == 14) { dialog -m citations citations }
  }
}
dialog citations {
  title "Citation comiques"
  size -1 -1 152 120
  option dbu
  box "Citations", 1, 2 2 148 115
  button "Fermer", 2, 90 102 50 12,cancel,flat
  button "Citation suivante", 3, 5 75 142 12
  box "", 6, 5 6 142 66
  list 7, 8 12 136 56, size
  button "Ajouter citation >>",8,5 88 53 12
  button "Supprimer",12,5 102 45 12
  button "Dire",13,50 102 40 12
  edit "",11,62 89 84 11,autohs
}
on *:dialog:citations:*:*:{
  if ($devent == init) {   
    dll mdx.dll SetMircVersion $version
    dll mdx.dll MarkDialog $dname
    dll mdx.dll SetColor $dname 1,5 background $rgb(0,0,0)
    dll mdx.dll SetColor $dname 2,3,8,12,13,9,11 background $rgb(255,0,0)
    dll mdx.dll SetDialog $dname bgcolor $rgb(0,0,0)
    dll mdx.dll SetFont $dname 1,2,3,4,5,6,7,8,10,11,12,13 +abg 16 300 comic sans ms
    dll mdx.dll SetColor $dname 7,11 text $rgb(255,0,0)
    dll mdx.dll SetColor $dname 7 background $rgb(20,50,255)
    did -ra $dname 7 $read citations.txt 
  }
  if ($devent == sclick) {    
    if ($did == 8) { write citations.txt $did(11) | did -ra citations 7 $read citations.txt }
    if ($did == 12) { write -d citations.txt $did(7) | did -ra $dname 7 $read citations.txt }
    if ($did == 3) {  did -ra $dname 7 $read citations.txt }
    if ($did == 13) { msg $active 4Citation :7 $did(7).seltext }
  }
}

Conclusion :


No bugs :)
Télécharger le projet

Codes Sources

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.