Slap fun

Commenter

Contenu du snippet

bon quitte à poster un truc qui a pas plu, autant le finir en ayant tenu compte des remarques sur le codage (sauf pour le isnum : j'suis faché avec les parenthèses)

c'est un dialog pour slap aléatoire (voir capture)

il est en dialogue, et vous avez juste à copiez/collez le code dans votre remote

Source / Exemple : 


alias funslap { dialog -m funslap funslap }
dialog funslap {
  title "funslap"
  size -1 -1 215 160
  option dbu

  tab "funslaps1", 100, 0 0 212 155
  box "funslap1", 101, 4 18 204 134, tab 100
  text "le koi-mètre", 102, 8 30 28 9, tab 100
  text "grandeur0", 104, 8 40 28 9, tab 100
  text "grandeur1", 106, 8 50 28 8, tab 100
  text "grandeur2", 108, 8 60 28 8, tab 100
  text "grandeur3", 110, 8 70 28 8, tab 100
  text "grandeur4", 112, 8 80 28 8, tab 100
  text "grandeur5", 114, 8 90 28 8, tab 100
  text "grandeur6", 116, 8 100 28 8, tab 100
  text "grandeur7", 118, 8 110 28 8, tab 100
  text "grandeur8", 120, 8 120 28 8, tab 100
  text "grandeur9", 122, 8 130 28 8, tab 100
  text "grandeur10", 124, 8 140 28 8, tab 100

  text "pseudo :", 126, 85 30 28 9, tab 100
  text "réponse0", 128, 85 40 28 9, tab 100
  text "réponse1", 130, 85 50 28 8, tab 100
  text "réponse2", 132, 85 60 28 8, tab 100
  text "réponse3", 134, 85 70 28 8, tab 100
  text "réponse4", 136, 85 80 28 8, tab 100
  text "réponse5", 188, 85 90 28 8, tab 100
  text "réponse6", 140, 85 100 28 8, tab 100
  text "réponse7", 142, 85 110 28 8, tab 100
  text "réponse8", 144, 85 120 28 8, tab 100
  text "réponse9", 146, 85 130 28 8, tab 100
  text "mesure :", 148, 85 140 28 8, tab 100
  text "salon :", 150, 147 30 28 9, tab 100

  edit %koimètre1, 103, 37 30 45 9, tab 100 autohs
  edit %grandeur100.phrase, 105, 37 40 45 9, tab 100 autohs
  edit %grandeur101, 107, 37 50 45 9, tab 100 autohs
  edit %grandeur102, 109, 37 60 45 9, tab 100 autohs
  edit %grandeur103, 111, 37 70 45 9, tab 100 autohs
  edit %grandeur104, 113, 37 80 45 9, tab 100 autohs
  edit %grandeur105, 115, 37 90 45 9, tab 100 autohs
  edit %grandeur106, 117, 37 100 45 9, tab 100 autohs
  edit %grandeur107, 119, 37 110 45 9, tab 100 autohs
  edit %grandeur108, 121, 37 120 45 9, tab 100 autohs
  edit %grandeur109, 123, 37 130 45 9, tab 100 autohs
  edit %grandeur110, 125, 37 140 45 9, tab 100 autohs

  edit %pseuseud, 127, 110 30 34 9, tab 100 read autohs
  edit %reponse100, 129, 110 40 95 9, tab 100 autohs
  edit %reponse101, 131, 110 50 95 9, tab 100 autohs
  edit %reponse102, 133, 110 60 95 9, tab 100 autohs
  edit %reponse103, 135, 110 70 95 9, tab 100 autohs
  edit %reponse104, 137, 110 80 95 9, tab 100 autohs
  edit %reponse105, 139, 110 90 95 9, tab 100 autohs
  edit %reponse106, 141, 110 100 95 9, tab 100 autohs
  edit %reponse107, 143, 110 110 95 9, tab 100 autohs
  edit %reponse108, 145, 110 120 95 9, tab 100 autohs
  edit %reponse109, 147, 110 130 95 9, tab 100 autohs
  edit %mesure1, 149, 110 140 49 9, tab 100 autohs
  edit %salon.slap, 153, 165 30 40 9, tab 100 read autohs
  button "Dire", 157, 160 140 45 10, tab 100
}

on *:dialog:funslap:*:*: {
  if ($devent == edit) {
    set %koimetre1.active oui
    set %koimetre1.phrase $did(103)  
    set %grandeur100.active oui
    set %grandeur100.phrase $did(105)
    set %grandeur101.active oui 
    set %grandeur101.phrase $did(107)
    set %grandeur102.active oui    
    set %grandeur102.phrase $did(109)   
    set %grandeur103.active oui 
    set %grandeur103.phrase $did(111)  
    set %grandeur104.active oui
    set %grandeur104.phrase $did(113)   
    set %grandeur105.active oui 
    set %grandeur105.phrase $did(115)
    set %grandeur106.active oui 
    set %grandeur106.phrase $did(117)
    set %grandeur107.active oui 
    set %grandeur107.phrase $did(119)
    set %grandeur108.active oui 
    set %grandeur108.phrase $did(121)
    set %grandeur109.active oui
    set %grandeur109.phrase $did(123)
    set %grandeur110.active oui
    set %grandeur110.phrase $did(125)
    set %reponse100.active oui
    set %reponse100.phrase $did(129)
    set %reponse101.active oui
    set %reponse101.phrase $did(131)
    set %reponse102.active oui
    set %reponse102.phrase $did(133)
    set %reponse103.active oui
    set %reponse103.phrase $did(135)
    set %reponse104.active oui
    set %reponse104.phrase $did(137)
    set %reponse105.active oui
    set %reponse105.phrase $did(139)
    set %reponse106.active oui
    set %reponse106.phrase $did(141)
    set %reponse107.active oui
    set %reponse107.phrase $did(143)
    set %reponse108.active oui
    set %reponse108.phrase $did(145)
    set %reponse109.active oui
    set %reponse109.phrase $did(147)
    set %mesure1.active oui
    set %mesure1.phrase $did(149)
  }
  if ($devent == init) { 
    if %koimetre1.active == Oui { did -c funslap 157 }
    if %koimetre1.phrase { did -a funslap 103 %koimetre1.phrase }
    if %grandeur100.active == Oui { did -c funslap 157 }
    if %grandeur100.phrase { did -a funslap 105 %grandeur100.phrase }
    if %grandeur101.active == Oui { did -c funslap 157 }
    if %grandeur101.phrase { did -a funslap 107 %grandeur101.phrase }
    if %grandeur102.active == Oui { did -c funslap 157 }
    if %grandeur102.phrase { did -a funslap 109 %grandeur102.phrase }
    if %grandeur103.active == Oui { did -c funslap 157 }
    if %grandeur103.phrase { did -a funslap 111 %grandeur103.phrase }
    if %grandeur104.active == Oui { did -c funslap 157 }
    if %grandeur104.phrase { did -a funslap 113 %grandeur104.phrase }
    if %grandeur105.active == Oui { did -c funslap 157 }
    if %grandeur105.phrase { did -a funslap 115 %grandeur105.phrase }
    if %grandeur106.active == Oui { did -c funslap 157 }
    if %grandeur106.phrase { did -a funslap 117 %grandeur106.phrase }
    if %grandeur107.active == Oui { did -c funslap 157 }
    if %grandeur107.phrase { did -a funslap 119 %grandeur107.phrase }
    if %grandeur108.active == Oui { did -c funslap 157 }
    if %grandeur108.phrase { did -a funslap 121 %grandeur108.phrase }
    if %grandeur109.active == Oui { did -c funslap 157 }
    if %grandeur109.phrase { did -a funslap 123 %grandeur109.phrase }
    if %grandeur110.active == Oui { did -c funslap 157 }
    if %grandeur110.phrase { did -a funslap 125 %grandeur110.phrase }
    if %reponse100.active == Oui { did -c funslap 157 }
    if %reponse100.phrase { did -a funslap 129 %reponse100.phrase }
    if %reponse101.active == Oui { did -c funslap 157 }
    if %reponse101.phrase { did -a funslap 131 %reponse101.phrase }
    if %reponse102.active == Oui { did -c funslap 157 }
    if %reponse102.phrase { did -a funslap 133 %reponse102.phrase }
    if %reponse103.active == Oui { did -c funslap 157 }
    if %reponse103.phrase { did -a funslap 135 %reponse103.phrase }
    if %reponse104.active == Oui { did -c funslap 157 }
    if %reponse104.phrase { did -a funslap 137 %reponse104.phrase }
    if %reponse105.active == Oui { did -c funslap 157 }
    if %reponse105.phrase { did -a funslap 139 %reponse105.phrase }
    if %reponse106.active == Oui { did -c funslap 157 }
    if %reponse106.phrase { did -a funslap 141 %reponse106.phrase }
    if %reponse107.active == Oui { did -c funslap 157 }
    if %reponse107.phrase { did -a funslap 143 %reponse107.phrase }
    if %reponse108.active == Oui { did -c funslap 157 }
    if %reponse108.phrase { did -a funslap 145 %reponse108.phrase }
    if %reponse109.active == Oui { did -c funslap 157 }
    if %reponse109.phrase { did -a funslap 147 %reponse109.phrase }
    if %mesure1.active == Oui { did -c funslap 157 }
    if %mesure1.phrase { did -a funslap 149 %mesure1.phrase }
  }
  if ($devent == sclick) {
    if $did == 157 { 
      set %varivari1 $rand(%grandeur100.phrase,%grandeur110.phrase)
      if ((%varivari >= %grandeur100.phrase) && (%varivari < %grandeur101.phrase)) set %repreponses %reponse100.phrase
      elseif ((%varivari1 >= %grandeur101.phrase) && (%varivari1 < %grandeur102.phrase)) set %repreponses1 %reponse101.phrase
      elseif ((%varivari1 >= %grandeur102.phrase) && (%varivari1 < %grandeur103.phrase)) set %repreponses1 %reponse102.phrase
      elseif ((%varivari1 >= %grandeur103.phrase) && (%varivari1 < %grandeur104.phrase)) set %repreponses1 %reponse103.phrase
      elseif ((%varivari1 >= %grandeur104.phrase) && (%varivari1 < %grandeur105.phrase)) set %repreponses1 %reponse104.phrase
      elseif ((%varivari1 >= %grandeur105.phrase) && (%varivari1 < %grandeur106.phrase)) set %repreponses1 %reponse105.phrase
      elseif ((%varivari1 >= %grandeur106.phrase) && (%varivari1 < %grandeur107.phrase)) set %repreponses1 %reponse106.phrase
      elseif ((%varivari1 >= %grandeur107.phrase) && (%varivari1 < %grandeur108.phrase)) set %repreponses1 %reponse107.phrase
      elseif ((%varivari1 >= %grandeur108.phrase) && (%varivari1 < %grandeur109.phrase)) set %repreponses1 %reponse108.phrase
      elseif ((%varivari1 >= %grandeur109.phrase) && (%varivari1 < %grandeur110.phrase)) set %repreponses1 %reponse109.phrase
      msg %salon.slap 11,1***** 0,1 Le $did(103)%koimetre1.phrase 
      msg %salon.slap 11,1***** 0,1 Réponse: 11,1 $+ %pseuseud
      msg %salon.slap 11,1***** 0,1 ton résultat : 4×5]12]14]15»11,1*****9* %varivari1 $+ %mesure1.phrase 4 %repreponses1 11,1*****9*4
    }
  }
}

menu menubar,nicklist,channel {
  slaps2 $$1 :
  .funslap: {   
    /funslap  
    set %pseuseud $$1
    set %salon.slap $chan
    did -ar funslap 127 %pseuseud
    did -ar funslap 153 %salon.slap 
    echo -s ok $me pour le slapfun 
  }
}

Conclusion :


j'pense plutot à l'avenir utiliser du $read .txt parce que cette méthode d'édit est trop lourde en variables

voyez plutot dans ce code quelque chose de différent que du fermeture de pv automatique ou dans le même genre.

MERCI à Kinder_Maxi et COOLMAN002 pour leurs aides régulières.

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 (J4Gu4R)