BOT FARCE PV

; the menubar...

menu menubar { 
  Menu MsX:/dialog -m cmd cmd 
}

; join les salon a la connection

on 1:connect:{
  /join %salon
  /join %salonlol
}
;au démarrage du script...

on *:start:{
  .dialog -m cmd cmd
}

; un petit dialog...

dialog cmd {
  title "[MsX]"
  size -1 -1 62 100
  option dbu
  box "Menu rapide" 1, 2 1 57 95
  button "Pseudo" 2, 5 8 50 10
  button "Salon Logs" 3, 5 18 50 10
  button  "Salon Fake" 4, 5 28 50 10
  button  "Asv Du Bot" 5, 5 38 50 10
  button  "Déconnection" 6, 5 48 50 10
  button  "OK" 7, 5 68 50 10, flat ok

}
on *:dialog:cmd:sclick:2:{
  .set %pseudo $?"Quel Pseudo ?"
if (%pseudo) { echo $active [Pseudo] =>4 %pseudo }
}
on *:dialog:cmd:sclick:3:{
  .set %salon $?"Le Salon Des Logs ?"
  .echo $active [Salon LoGs] =>4 %salon
}
on *:dialog:cmd:sclick:4:{
  .set %salonlol $?"Le Salon A Piéger ?"
  .echo $active [Salon Piège] =>4 %salonlol
}
on *:dialog:cmd:sclick:5:{
  .set %asv $?"Asv Du Bot"
  .echo $active [Asv BoT] =>4 %asv
}
on *:dialog:cmd:sclick:6:{
  .quit [MsX]
}

; le menu visible par tlm en tapant +cmd

on *:text:+cmd:%salon: {
  .msg $nick 4-------------2Menu [MsX]4-------------
  .msg $nick 2Pour Commencer Une conversation: 7+pv <Pseudo>
  .msg $nick 2Pour parler Au Pv séléctionné: 7+dire <Texte>
  .msg $nick 2Pour stopper la conversation: 7+stop
  .msg $nick 2Pour déconnécter & reconnecter: 7+reco
  .msg $nick 2Pour donner l'asv du bot: 7+asv
  .msg $nick 4-------------2Jp2A ConcepT4-------------
}

; les actions

on *:text:+pv*:%salon: {
  if (%pvlol != $null) {
    .notice $nick Une Conversation es en cours annule la dabord :o)
  }
  else {
    .notice $nick Conversation avec $2 Prete :o)
    .set %pvlol $2
  }
}
on *:text:+stop:%salon: {
  if (%pvlol == $null) {
    .notice $nick Aucun Pv En Cours :o|
  }
  else {
    .notice $nick Conversation avec %pvlol annulé :o(
    .set %pvlol $null
  }
}

on *:text:+dire*:%salon: {
  if (%pvlol == $null) {
    .notice $nick ajoute un pseudo d'abord ;o)
  }
  else {
    .msg %pvlol $2-
    .close -m  
  }
}
on *:text:*:?:{ 
  .msg %salon >> PRIVMSG4 $nick 1: $1- 
  .close -m
}
on *:text:+asv*:%salon: {
  if (%pvlol == $null) {
    .notice $nick Aucun Pv En Cours :o|
  }
  else {
    .msg %pvlol 2Mon asV:13 %asv
  }
}