Moi Posted January 14, 2019 Share Posted January 14, 2019 expandcollapse popup#include <Array.au3> ;-------------------------------------- ; générateur 1.3 ;-------------------------------------- Local $total_de_carte=15 Local Const $critique[10] = [1, 2, 3, 4, 5, 6, 7, 8, 9, 10] Local Const $toucher[5] = [1, 2, 3, 4, 5] Local Const $attaque_contre_1[5] = [1, 2, 3, 4, 5] Local Const $attaque_contre_2[5] = [1, 2, 3, 4, 5] Local Const $attaque_contre_3[5] = [1, 2, 3, 4, 5] Local Const $attaque_contre_4[5] = [1, 2, 3, 4, 5] Local Const $attaque_contre_5[5] = [1, 2, 3, 4, 5] Local Const $attaque_contre_6[5] = [1, 2, 3, 4, 5] Local Const $attaque_contre_7[5] = [1, 2, 3, 4, 5] Local Const $attaque_contre_8[5] = [1, 2, 3, 4, 5] Local Const $attaque_contre_9[5] = [1, 2, 3, 4, 5] Dim $archive[0] func generate() $attaque_1=random(0,UBound($attaque_contre_1)-1,1) $attaque_2=random(0,UBound($attaque_contre_2)-1,1) $attaque_3=random(0,UBound($attaque_contre_3)-1,1) $attaque_4=random(0,UBound($attaque_contre_4)-1,1) $attaque_5=random(0,UBound($attaque_contre_5)-1,1) $attaque_6=random(0,UBound($attaque_contre_6)-1,1) $attaque_7=random(0,UBound($attaque_contre_7)-1,1) $attaque_8=random(0,UBound($attaque_contre_8)-1,1) $attaque_9=random(0,UBound($attaque_contre_9)-1,1) $chaine1=$attaque_1&"-"&$attaque_2&"-"&$attaque_3&"-"&$attaque_4&"-"&$attaque_5&"-"&$attaque_6&"-"&$attaque_7&"-"&$attaque_8&"-"&$attaque_9 $difficulte1=$attaque_1+$attaque_2+$attaque_3+$attaque_4+$attaque_5+$attaque_6+$attaque_7+$attaque_8+$attaque_9 $attaque_1=random(0,UBound($attaque_contre_1)-1,1) $attaque_2=random(0,UBound($attaque_contre_2)-1,1) $attaque_3=random(0,UBound($attaque_contre_3)-1,1) $attaque_4=random(0,UBound($attaque_contre_4)-1,1) $attaque_5=random(0,UBound($attaque_contre_5)-1,1) $attaque_6=random(0,UBound($attaque_contre_6)-1,1) $attaque_7=random(0,UBound($attaque_contre_7)-1,1) $attaque_8=random(0,UBound($attaque_contre_8)-1,1) $attaque_9=random(0,UBound($attaque_contre_9)-1,1) $chaine2=$attaque_1&"-"&$attaque_2&"-"&$attaque_3&"-"&$attaque_4&"-"&$attaque_5&"-"&$attaque_6&"-"&$attaque_7&"-"&$attaque_8&"-"&$attaque_9 $difficulte2=$attaque_1+$attaque_2+$attaque_3+$attaque_4+$attaque_5+$attaque_6+$attaque_7+$attaque_8+$attaque_9 $attaque_1=random(0,UBound($attaque_contre_1)-1,1) $attaque_2=random(0,UBound($attaque_contre_2)-1,1) $attaque_3=random(0,UBound($attaque_contre_3)-1,1) $attaque_4=random(0,UBound($attaque_contre_4)-1,1) $attaque_5=random(0,UBound($attaque_contre_5)-1,1) $attaque_6=random(0,UBound($attaque_contre_6)-1,1) $attaque_7=random(0,UBound($attaque_contre_7)-1,1) $attaque_8=random(0,UBound($attaque_contre_8)-1,1) $attaque_9=random(0,UBound($attaque_contre_9)-1,1) $chaine3=$attaque_1&"-"&$attaque_2&"-"&$attaque_3&"-"&$attaque_4&"-"&$attaque_5&"-"&$attaque_6&"-"&$attaque_7&"-"&$attaque_8&"-"&$attaque_9 $chaine=$chaine1&"-"&$chaine2&"-"&$chaine3 return $chaine EndFunc $total=0 while $total<$total_de_carte ; générer une nouvelle chaine aléatoire $nouvelle_chaine=generate() ; Calcul le total de la chaine $IPi = StringSplit($nouvelle_chaine, "-") $resultat=0 for $mdr=1 to ubound($IPi)-1 $resultat=$resultat+$IPi[$mdr] Next ; Affiche le résultat de la somme des valeurs ConsoleWrite($nouvelle_chaine&"="&$resultat&@crlf) ; Evite les doublons $existe=0 for $i=0 to ubound($archive)-1 if $nouvelle_chaine=$archive[$i] Then $existe=1 EndIf Next if $existe=1 Then MsgBox("","Information :","Existe !",5) Else AddNewElement($archive,$nouvelle_chaine) $total=$total+1 EndIf ;ConsoleWrite($nouvelle_chaine&@crlf) WEnd ;script de tableau, d'ajout Func AddNewElement(ByRef $aArray1D,$value = "") if Not IsArray($aArray1D) Or UBound($aArray1D, 0) = 2 Then Return SetError(1,0,0) $rows = UBound($aArray1D) ReDim $aArray1D[$rows + 1] $aArray1D[$rows] = $value Return SetError(0,0,$rows) EndFunc _ArrayDisplay($archive,"Tableau") ; Maintenant trier $archives Local $resultat_final[UBound($archive)-1][2] hello all hello, I'm looking for a table with the first variable, the sum of random followed by the result chain. in descending order of course sorry for my eglish but every time i'm learning Link to comment Share on other sites More sharing options...
Nine Posted January 14, 2019 Share Posted January 14, 2019 Salut Moi, (it is kind of strange in french). Mais les attaques sont de quelles natures ? Look like a video game to me ? Please explain “They did not know it was impossible, so they did it” ― Mark Twain Spoiler Block all input without UAC Save/Retrieve Images to/from Text Monitor Management (VCP commands) Tool to search in text (au3) files Date Range Picker Virtual Desktop Manager Sudoku Game 2020 Overlapped Named Pipe IPC HotString 2.0 - Hot keys with string x64 Bitwise Operations Multi-keyboards HotKeySet Recursive Array Display Fast and simple WCD IPC Multiple Folders Selector Printer Manager GIF Animation (cached) Screen Scraping Multi-Threading Made Easy Link to comment Share on other sites More sharing options...
Somerset Posted January 15, 2019 Share Posted January 15, 2019 The word "attack" is uses quite a bit. Key words: cards, critical, touch, attack. Looks like the hallmarks of a game request. Link to comment Share on other sites More sharing options...
Moi Posted January 15, 2019 Author Share Posted January 15, 2019 bonjour, en fait je veux générer un nombre de cartes ayant des niveaux d'attaque différents contre diverses adversaires. Je génère bien les stats et le total mais j'aimerai faire un tableau à plusieurs colonnes dont je peux trier le résultat décroissant en fonction du total (ce qui fera le niveaux de difficulté de chacune des cartes) merci Link to comment Share on other sites More sharing options...
Developers Jos Posted January 15, 2019 Developers Share Posted January 15, 2019 (edited) Welcome to the AutoIt forum. Unfortunately you appear to have missed the Forum rules on your way in. Please read them now - particularly the bit about not discussing game automation - and then you will understand why you will get no help and this thread will now be locked. See you soon with a legitimate English question I hope. The Moderation team Edited January 15, 2019 by Jos SciTE4AutoIt3 Full installer Download page - Beta files Read before posting How to post scriptsource Forum etiquette Forum Rules Live for the present, Dream of the future, Learn from the past. Link to comment Share on other sites More sharing options...
Recommended Posts