Automessage

Commenter

Contenu du snippet

c un code qui sert a dire un message a chaque lapse de temps choisi

Source / Exemple : 


menu menubar {
  Automessage :/automsg
}

dialog automsg {
  title "Auto-Message By RetarD"
  size -1 -1 328 136
  option dbu
  text "Auto-Message", 1, 4 22 45 8
  text "Auto-Message", 2, 4 42 45 8
  text "Auto-Message", 3, 4 62 45 8
  text "Auto-Message", 4, 4 82 45 8
  text "Auto-Message", 5, 4 102 45 8
  edit "", 6, 55 22 70 10
  edit "", 7, 55 42 70 10
  edit "", 8, 55 62 70 10
  edit "", 9, 55 82 70 10
  edit "", 10, 55 102 70 10
  text "Lapse de temps (en secondes)", 11, 132 22 75 8
  edit "", 12, 211 22 50 10
  edit "", 13, 210 42 50 10
  edit "", 14, 210 62 50 10
  edit "", 15, 210 82 50 10
  edit "", 16, 210 102 50 10
  button "OK", 17, 131 120 37 12, flat ok
  button "Start", 18, 263 22 30 10, flat
  button "Stop", 19, 293 22 30 10, flat
  button "Start", 20, 263 42 30 10, flat
  button "Stop", 21, 293 42 30 10, flat
  button "Start", 22, 263 62 30 10, flat
  button "Stop", 23, 293 62 30 10, flat
  button "Start", 24, 263 82 30 10, flat
  button "Stop", 25, 293 82 30 10, flat
  button "Start", 26, 263 102 30 10, flat
  button "Stop", 27, 293 102 30 10, flat
  text "Lapse de temps (en secondes)", 28, 132 42 75 8
  text "Lapse de temps (en secondes)", 29, 132 62 75 8
  text "Lapse de temps (en secondes)", 30, 132 82 75 8
  text "Lapse de temps (en secondes)", 31, 132 102 75 8
  text "SVP, ne floodez pas trop ; )", 32, 11 4 62 8
}

alias automsg {
  dialog -m automsg automsg
}

on *:dialog:automsg:sclick:18: {
  set %msg1 $did(automsg,6)
  set %lapse1 $did(automsg,12)
  timermsg1 0 %lapse1 /amsg %msg1
}
on *:dialog:automsg:sclick:20: {
  set %msg2 $did(automsg,7)
  set %lapse2 $did(automsg,13)
  timermsg2 0 %lapse2 /amsg %msg2
}
on *:dialog:automsg:sclick:22: {
  set %msg3 $did(automsg,8)
  set %lapse3 $did(automsg,14)
  timermsg3 0 %lapse3 /amsg %msg3
}
on *:dialog:automsg:sclick:24: {
  set %msg4 $did(automsg,9)
  set %lapse4 $did(automsg,15)
  timermsg4 0 %lapse4 /amsg %msg4
}
on *:dialog:automsg:sclick:26: {
  set %msg5 $did(automsg,10)
  set %lapse5 $did(automsg,16)
  timermsg5 0 %lapse5 /amsg %msg5
}
on *:dialog:automsg:sclick:19: {
  timermsg1 off
  unset %msg1
  unset %lapse1
}
on *:dialog:automsg:sclick:21: {
  timermsg2 off
  unset %msg2
  unset %lapse2
}
on *:dialog:automsg:sclick:23: {
  timermsg3 off
  unset %msg3
  unset %lapse3
}
on *:dialog:automsg:sclick:25: {
  timermsg4 off
  unset %msg4
  unset %lapse4
}
on *:dialog:automsg:sclick:27: {
  timermsg5 off
  unset %msg5
  unset %lapse5
}

Conclusion :


je n'ai pas testé ma source, il se peut qu'il y ait des erreurs...
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 (RetarD)