[po3m g3n3r4tor] v.1 by diabl0

Télécharger le projet
Commenter

Description

A mettre dans les remotes, pis vous tapez /poeme !
je n'est pas mis de $read car c'est fait pour une amie qui ne si connait pas en scripting je n'est pas voulu fair trop lourd :x
Commandes:
!1-Poeme
!2-Poeme
!3-Poeme
!4-Poeme
Juste quatre pour l'instant ....
Bon c'est assez moyen je vous l'acorde mais c'est mon premier vraie dialog :x
Dans le zip il y a Mdx.dll

Source / Exemple : 


alias poeme dialog -m poeme poeme
dialog poeme {
  title "Générateur de Poème V.1"
  size -1 -1 300 126
  option dbu
  edit "L'amour c'est comme le jardinage, ca commance par une pette et ca finit par une graine", 2, 5 22 262 12, disable
  button "Dire", 3, 269 22 25 12, flat
  edit "Si la terre était mon écrier, je n'aurais pas encore assez de place pour t'écrire combien je t'aime", 4, 5 38 262 12, disable
  button "Dire", 5, 269 38 25 12, flat
  edit "Ich liebe dich, Ti amo, Ha eh bak, Te amo, I love you... il n'existe pas assez de langue pour te dire je t'aime", 6, 5 53 262 12, disable
  button "Dire", 7, 269 53 25 12, flat
  edit "La plus belle preuve d'amour est une larme sortie des yeux d'une amoureux", 8, 5 68 262 12, disable
  button "Dire", 9, 269 68 25 12, flat
  text "Bonne drague à toi poète ..... Tape !1-Poeme / !2-Poeme / !3-Poeme / !4-Poeme ! Si tu préfère les racourçis !", 10, 5 7 295 8
  button "Fermer", 11, 124 110 37 12, flat cancel
  edit "", 1, 113 95 62 10, autohs
  text "Sur quelle salon/pv ?", 12, 122 84 81 8
}
on *:dialog:poeme:init:*:{
  dll mdx.dll MarkDialog $dname
  dll mdx.dll SetMircVersion $version 
  dll mdx.dll SetDialog $dname style staticedge title border	
  dll mdx.dll SetFont $dname 2,3,4,5,6,7,8,9,10,11,12 +ba 15 400 comic sans ms
  dll mdx.dll SetColor $dname 2,4,6,8,10,12 text $rgb(0,153,204)
  dll mdx.dll SetColor $dname 12 text $rgb(170,17,17)
  dll mdx.dll SetColor $dname 1 background $rgb(153,153,153)
}
on *:dialog:poeme:sclick:3:{
  /set %poeme.salon $did(01) | //msg %poeme.salon 13,1[Po3m G3n3r4toR] L'amour c'est comme le jardinage, ca commance par une pelle et ca finit par une graine
} }
on *:dialog:poeme:sclick:5:{
  /set %poeme.salon $did(01) | //msg %poeme.salon 13,1[Po3m G3n3r4toR] Si la terre était mon écrier, je n'aurais pas encore assez de place pour t'écrire combien je t'aime
} }
on *:dialog:poeme:sclick:7:{
  /set %poeme.salon $did(01) | //msg %poeme.salon 13,1[Po3m G3n3r4toR] Ich liebe dich, Ti amo, Ha eh bak, Te amo, I love you... il n'existe pas assez de langue pour te dire je t'aime
} }
on *:dialog:poeme:sclick:9:{
  /set %poeme.salon $did(01) | //msg %poeme.salon  13,1[Po3m G3n3r4toR] La plus belle preuve d'amour est une larme sortie des yeux d'une amoureux
} }
on *:input:#:{
  if ($1 == !poeme) { 
    /Echo 13,1[Po3m G3n3r4toR] Commande inconnue ! !1-Poeme - !2-Poeme - !3-Poeme - !4-Poeme 
  }
  if ($1 == !1-Poeme) { 
    /Say 13,1[Po3m G3n3r4toR] L'amour c'est comme le jardinage, ca commance par une pelle et ca finit par une graine
  }
  if ($1 == !2-Poeme) { 
    /Say 13,1[Po3m G3n3r4toR] Si la terre était mon écrier, je n'aurais pas encore assez de place pour t'écrire combien je t'aime
  }
  if ($1 == !3-Poeme) { 
    /Say 13,1[Po3m G3n3r4toR] Ich liebe dich, Ti amo, Ha eh bak, Te amo, I love you... il n'existe pas assez de langue pour te dire je t'aime
  }
  if ($1 == !4-Poeme) { 
    /Say 13,1[Po3m G3n3r4toR] La plus belle preuve d'amour est une larme sortie des yeux d'une amoureux
  }
}
on 1:LOAD:/echo 4,1Script loadé avec succès 8/poeme4 pour lancer [Po3m G3n3r4toR]

Conclusion :


Tout est en haut ...
@+
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.