API tools faq
paste
Advertisement
Zouzaka

Editeur - JCC (Source)

Zouzaka
Jul 17th, 2014
483
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
AutoIt 20.74 KB | None | 0 0
raw download clone embed print report
  1. #Region ;**** Directives created by AutoIt3Wrapper_GUI ****
  2. #AutoIt3Wrapper_Icon=Icone.ico
  3. #AutoIt3Wrapper_Add_Constants=n
  4. #EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
  5. #cs ----------------------------------------------------------------------------
  6.  
  7.         AutoIt Version : 3.3.8.1
  8.         Auteur:    Zouzaka
  9.  
  10.         Fonction du Script :
  11.         Editeur de creation de cartes et decks pour le script "JCC - Cards Game" sur
  12.         Rpg Maker VX.Ace
  13.  
  14. Notes:
  15. =====> $CardsData <=======
  16. = Row_id = Card_id       =
  17. = Card_max = Row_Max - 1 =
  18. = Col[0] = Name          =
  19. = Col[1] = Force         =
  20. = Col[2] = Defense       =
  21. = Col[3] = Picture       =
  22. = Col[4] = Type          =
  23. = Col[5] = Cible         =
  24. ==========================
  25.  
  26. ====> Cellul of number of cards
  27. StringRegExp(_Excel_RangeFind($oWorkbook,"NbrCards")[0][2],"\d",1)[0]&"B"
  28. ====> BDD to Hash
  29. '{:name => '&'"'&$CardsData[$i][0]&'"'&',:force => '&$CardsData[$i][1]&',:defense => '&$CardsData[$i][2]&',:picture => '&'"'&$CardsData[$i][3]&'"'&',:type => '&'"'&$CardsData[$i][4]&'"'&',:cilbe => '&'"'&$CardsData[$i][5]&'"'&'}'
  30. #ce ----------------------------------------------------------------------------
  31. ; Includes
  32. ;============================================================================================
  33. #include <String.au3>
  34. #include <GUIConstantsEx.au3>
  35. #include <GuiListView.au3>
  36. #include <File.au3>
  37. #include <StaticConstants.au3>
  38. #include <WindowsConstants.au3>
  39. #include <GDIPlus.au3>
  40. #include <Array.au3>
  41. #include <GuiListView.au3>
  42. #include <Excel.au3>
  43. ;Variables
  44. ;============================================================================================
  45. Opt("MouseCoordMode", 1)
  46. Global $CardsData[1][6], $Decks[1][2], $LocalArray[6]
  47. Global $CC_Pic = "Default.png", $Opened = False
  48. $CardsData[0][0] = 0
  49. $To_Save = 0
  50. $oExcel = _Excel_Open(False)
  51. ;Gui Editeur JCC - Cards Game
  52. ;============================================================================================
  53. $Fenetre_save = GUICreate("Editeur JCC - Cards Game", 280, 150)
  54. $Project_name = GUICtrlCreateInput("Nom du Projet", 5, 5, 260, 20)
  55. $Save = GUICtrlCreateButton("Sauvgarder", 5, 30, 100)
  56. $Load = GUICtrlCreateButton("Reprendre", 165, 30, 100)
  57. $Open = GUICtrlCreateButton("Ouvrir ... ", 110, 30)
  58. $Open_CE = GUICtrlCreateButton("Cards Editor", 5, 80, 260)
  59. $Open_DE = GUICtrlCreateButton("Deck Editor", 5, 110, 260)
  60. $Fenetre_pos = WinGetPos("Editeur JCC - Cards Game")
  61.  
  62. ; Gui Cards Editor
  63. ;============================================================================================
  64. $Fenetre = GUICreate("Cards Creator", 280, 400, $Fenetre_pos[0] + 320, -1, -1, -1, $Fenetre_save)
  65. $Card_List = GUICtrlCreateListView("ID|Name|Type", 0, 0, 150, 355)
  66. ;Inputs et Labels
  67. GUICtrlCreateLabel("Nom de la carte", 160, 5)
  68. $Input_name = GUICtrlCreateInput("Nom", 160, 25, 100, 25)
  69. GUICtrlCreateLabel("Force", 160, 55)
  70. $Input_force = GUICtrlCreateInput(0, 160, 75, 100, 25)
  71. GUICtrlCreateLabel("Defense", 160, 105)
  72. $Input_defense = GUICtrlCreateInput(0, 160, 125, 100, 25)
  73. ;Combobox et labels
  74. GUICtrlCreateLabel("Type", 160, 155)
  75. $Input_type = GUICtrlCreateCombo("Monstre", 160, 175, 100, 25)
  76. GUICtrlSetData(-1, "Spell")
  77. GUICtrlCreateLabel("Cible", 160, 205)
  78. $Input_cible = GUICtrlCreateCombo("Joueur", 160, 225, 100, 25)
  79. GUICtrlSetData(-1, "Adversaire")
  80. ;Picture and boutons
  81. $Image = GUICtrlCreatePic("", 160, 255, 100, 100, $WS_EX_LAYOUTRTL + $SS_NOTIFY)
  82. $Ajouter = GUICtrlCreateButton("Ajouter", 160, 370)
  83. $Modifier = GUICtrlCreateButton("Modifier", 215, 370)
  84. $card_select = GUICtrlCreateButton("Selectioner", 50, 370)
  85.  
  86. ; Gui Pictures Selection
  87. ;============================================================================================
  88. $Fenetre_img = GUICreate("Cards Picture", 200, 300, -1, $Fenetre_pos[1] + 190, 0, -1, $Fenetre)
  89. $Pictures_list = GUICtrlCreateListView("Nom", 5, 5, 185, 230)
  90. ;Inputs et Labels
  91. $validerpic = GUICtrlCreateButton("Valider", 78, 240)
  92.  
  93. ;Gui Deck Editor
  94. ;============================================================================================
  95. $Fenetre_DE = GUICreate("Deck Editor", 280, 400, $Fenetre_pos[0] - 320, -1, -1, -1, $Fenetre_save)
  96. GUICtrlCreateLabel("Creation de deck :", 5, 5)
  97. $Input_Deck = GUICtrlCreateInput("Nom du Deck", 5, 25, 150)
  98. $Ajouter_Deck = GUICtrlCreateButton("Ajouter", 170, 25, 100, 20)
  99. $Deck_List = GUICtrlCreateListView("Nom Du Deck", 0, 50, 280, 100)
  100. $Select_Deck = GUICtrlCreateButton("Selectionner Deck", 5, 155, 120, 20)
  101. $Delete_Deck = GUICtrlCreateButton("Supprimer Deck", 155, 155, 120, 20)
  102. $Deck_Cards = GUICtrlCreateListView("ID|Name|Type", 0, 180, 130, 195)
  103. $List_Cards = GUICtrlCreateListView("ID|Name|Type", 150, 180, 130, 195)
  104. $To_List = GUICtrlCreateButton("X", 15, 377, 100, 20)
  105. $To_Deck = GUICtrlCreateButton("<<", 165, 377, 100, 20)
  106.  
  107. ;Set States
  108. ;============================================================================================
  109. GUIRegisterMsg($WM_PAINT, "MY_WM_PAINT")
  110. GUISetState(@SW_SHOW, $Fenetre_save)
  111.  
  112. ; Boucle (Deroulement)
  113. ;============================================================================================
  114. While 1
  115.         $msg = GUIGetMsg()
  116.         Switch $msg
  117.                 Case $GUI_EVENT_CLOSE
  118.                         _Excel_Close($oExcel)
  119.                         Exit
  120.                 Case $Image
  121.                         GUISetState(@SW_SHOW, $Fenetre_img)
  122.                 Case $Open
  123.                         Global $Adresse = "C:\Users\" & @UserName & "\Documents\RPGVXAce\" & GUICtrlRead($Project_name)
  124.                         Global $Find_Pictures = _FileListToArray($Adresse & "\Graphics\Cards")
  125.                         If FileExists($Adresse) == 0 Then
  126.                                 MsgBox(0, "Erreur", "Le chemin :" & @LF & $Adresse & @LF & _
  127.                                                 "est introuvable")
  128.                         ElseIf FileExists($Adresse & "\Graphics\Cards\Default.png") == 0 Then
  129.                                 If MsgBox(4, "Erreur", "Le Fichier :" & @LF & "\Graphics\Cards\Default.png" & @LF & "est introuvable" & @LF & @LF & _
  130.                                                 "Voulez vous le créer ?") == 6 Then
  131.                                         DirCreate($Adresse & "\Graphics\Cards")
  132.                                         FileCopy("Default.png", $Adresse & "\Graphics\Cards", 0)
  133.                                         $Opened = True
  134.                                         MsgBox(0, "Message", "Projet ouvret avec succée")
  135.                                         Global $Find_Pictures = _FileListToArray($Adresse & "\Graphics\Cards")
  136.                                 EndIf
  137.                         ElseIf @error == 4 Then
  138.                                 MsgBox(0, "Erreur", "Aucune Image trouvée")
  139.                         Else
  140.                                 $Opened = True
  141.                                 MsgBox(0, "Message", "Projet ouvret avec succée")
  142.                         EndIf
  143.                 Case $validerpic
  144.                         If Verify_list($Pictures_list) == True Then
  145.                                 $CC_Pic_Index = _GUICtrlListView_GetSelectedIndices($Pictures_list, True)
  146.                                 $CC_Pic = _GUICtrlListView_GetItemText($Pictures_list, $CC_Pic_Index[1])
  147.                                 If $CC_Pic == "" Then
  148.                                         $CC_Pic = "Default.png"
  149.                                 EndIf
  150.                                 CreatImage($Adresse & "\Graphics\Cards\" & $CC_Pic, $Fenetre)
  151.                                 GUISetState(@SW_HIDE, $Fenetre_img)
  152.                         Else
  153.                                 MsgBox(0, "Erreur", "Veillez choisir une seul image")
  154.                         EndIf
  155.                 Case $Ajouter
  156.                         $LocalArray[0] = GUICtrlRead($Input_name) ;Name
  157.                         $LocalArray[1] = Int(GUICtrlRead($Input_force)) ;Force
  158.                         $LocalArray[2] = Int(GUICtrlRead($Input_defense)) ;Defense
  159.                         $LocalArray[3] = $CC_Pic ;Picture
  160.                         $LocalArray[4] = GUICtrlRead($Input_type) ;Type
  161.                         $LocalArray[5] = GUICtrlRead($Input_cible) ;Cible
  162.                         _ArrayInsert($CardsData,UBound($CardsData)-1,_ArrayToString($LocalArray))
  163.                         $CardsData[UBound($CardsData)-1][1] = UBound($CardsData)-1
  164.                         $CardsData[UBound($CardsData)-1][0] = "NbrCards"
  165.                         _ArrayDisplay($CardsData)
  166.                         GUICtrlCreateListViewItem(UBound($CardsData) - 1 & "|" & GUICtrlRead($Input_name) & "|" & GUICtrlRead($Input_type), $Card_List)
  167.                         GUICtrlCreateListViewItem(UBound($CardsData) - 1 & "|" & GUICtrlRead($Input_name) & "|" & GUICtrlRead($Input_type), $List_Cards)
  168.                 Case $Modifier
  169.                         $Card_Index = _GUICtrlListView_GetSelectedIndices($Card_List, True)
  170.                         $CardsData[$Card_Index[1]][0] = GUICtrlRead($Input_name) ;Name
  171.                         $CardsData[$Card_Index[1]][1] = Int(GUICtrlRead($Input_force)) ;Force
  172.                         $CardsData[$Card_Index[1]][2] = Int(GUICtrlRead($Input_defense)) ;Defense
  173.                         $CardsData[$Card_Index[1]][3] = $CC_Pic ;Picture
  174.                         $CardsData[$Card_Index[1]][4] = GUICtrlRead($Input_type) ;Type
  175.                         $CardsData[$Card_Index[1]][5] = GUICtrlRead($Input_cible) ;Cible
  176.                         _Update_Card_List()
  177.                 Case $card_select
  178.                         If Verify_list($Card_List) == True Then
  179.                                 $Card_Index = _GUICtrlListView_GetSelectedIndices($Card_List, True)
  180.                                 GUICtrlSetData($Input_name, $CardsData[$Card_Index[1]][0])
  181.                                 GUICtrlSetData($Input_force, $CardsData[$Card_Index[1]][1])
  182.                                 GUICtrlSetData($Input_defense, $CardsData[$Card_Index[1]][2])
  183.                                 GUICtrlSetData($Input_type, $CardsData[$Card_Index[1]][4])
  184.                                 GUICtrlSetData($Input_cible, $CardsData[$Card_Index[1]][5])
  185.                                 CreatImage($Adresse & "\Graphics\Cards\" & $CardsData[$Card_Index[1]][3], $Fenetre)
  186.                                 If $CardsData[$Card_Index[1]][3] == "" Then
  187.                                         CreatImage($Adresse & "\Graphics\Cards\Default.png", $Fenetre)
  188.                                 EndIf
  189.                         Else
  190.                                 MsgBox(0, "Erreur", "Veillez choisir une seul carte")
  191.                         EndIf
  192.                 Case $Load
  193.                         If $Opened == True Then
  194.                                 If FileExists(GUICtrlRead($Project_name)&".xlsx") == 0 Then
  195.                                         MsgBox(0, "Erreur", "Aucune Sauvgarde trouvée")
  196.                                 Else
  197.                                         _GUICtrlListView_DeleteAllItems($Deck_Cards)
  198.                                         _GUICtrlListView_DeleteAllItems($Deck_List)
  199.                                         GUICtrlSetData($Card_List, "")
  200.                                         GUICtrlSetData($List_Cards, "")
  201.                                         GUICtrlSetData($Deck_Cards, "")
  202.                                         GUICtrlSetData($Deck_List, "")
  203.                                         _Load_CardsData()
  204.                                         _Update_Card_List()
  205.                                         If FileExists(GUICtrlRead($Project_name)&"_Decks"&".xlsx") = 1 Then
  206.                                             _Load_Decks()
  207.                                             _Update_Deck_List()
  208.                                         EndIf
  209.                                         MsgBox(0, "Message", "Fichier repris avec succé")
  210.                                 EndIf
  211.                         Else
  212.                                 MsgBox(0, "Erreur", "Veillez ouvrir un projet")
  213.                         EndIf
  214.                 Case $Save
  215.                         If $Opened == True Then
  216.                                 If $Adresse And FileExists($Adresse) == 1 Then
  217.                                         MsgBox(0,"JCC","Sauvgarde en cours ...")
  218.                                         _Save_CardsData()
  219.                                         _Rgss_CardsData()
  220.                                         _Save_Decks()
  221.                                         _Rgss_Decks()
  222.                                         MsgBox(0,"JCC","Sauvgarde Terminé ! =D")
  223.                                 Else
  224.                                         MsgBox(0, "Erreur", "Veillez ouvrir un projet valide")
  225.                                 EndIf
  226.                         Else
  227.                                 MsgBox(0, "Erreur", "Veillez ouvrir un projet")
  228.                         EndIf
  229.                 Case $Open_CE
  230.                         If $Opened == True Then
  231.                                 GUISetState(@SW_SHOW, $Fenetre)
  232.                                 CreatImage($Adresse & "\Graphics\Cards\Default.png", $Fenetre)
  233.                                 For $Picture In $Find_Pictures
  234.                                         GUICtrlCreateListViewItem($Picture, $Pictures_list)
  235.                                 Next
  236.                                 _GUICtrlListView_DeleteItem($Pictures_list, 0)
  237.                         Else
  238.                                 MsgBox(0, "Erreur", "Veillez ouvrir un projet")
  239.                         EndIf
  240.                 Case $Ajouter_Deck
  241.                         _ArrayInsert($Decks,UBound($Decks)-1,GUICtrlRead($Input_Deck))
  242.                         $Decks[UBound($Decks)-1][1] = UBound($Decks)-1
  243.                         $Decks[UBound($Decks)-1][0] = "NbrDecks"
  244.                         GUICtrlCreateListViewItem(GUICtrlRead($Input_Deck), $Deck_List)
  245.                 Case $Select_Deck
  246.                         If Verify_list($Deck_List) == True Then
  247.                                 _GUICtrlListView_DeleteAllItems($Deck_Cards)
  248.                                 $Deck_index = _GUICtrlListView_GetSelectedIndices($Deck_List, True)
  249.                                 Local $LocalDeck = StringSplit($Decks[$Deck_index[1]][1],"|",2)
  250.                                 For $card = 0 To UBound($LocalDeck) - 1
  251.                                     If Not $LocalDeck[$card] = "" Then
  252.                                         GUICtrlCreateListViewItem($LocalDeck[$card]+1 & "|" & $CardsData[$LocalDeck[$card]][0] & "|" & _
  253.                                         $CardsData[$LocalDeck[$card]][4], $Deck_Cards)
  254.                                     EndIf
  255.                                 Next
  256.                         Else
  257.                                 MsgBox(0, "Erreur", "Veillez choisir un seul deck")
  258.                         EndIf
  259.                 Case $Delete_Deck
  260.                         If Verify_list($Deck_List) == True Then
  261.                                 $Deck_index = _GUICtrlListView_GetSelectedIndices($Deck_List, True)
  262.                                 _ArrayDelete($Decks, $Deck_index[1] + 1)
  263.                                 _GUICtrlListView_DeleteItem($Deck_List, $Deck_index[1])
  264.                         Else
  265.                                 MsgBox(0, "Erreur", "Veillez choisir un seul deck")
  266.                         EndIf
  267.                 Case $Open_DE
  268.                         If $Opened == True Then
  269.                                 GUISetState(@SW_SHOW, $Fenetre_DE)
  270.                         Else
  271.                                 MsgBox(0, "Erreur", "Veillez ouvrir un projet")
  272.                         EndIf
  273.                 Case $To_Deck
  274.                         If Verify_list($Deck_List) == True And IsDeclared("Deck_index") == 1 Then
  275.                                 If Verify_list($List_Cards) == True Then
  276.                                         $Card_Index = _GUICtrlListView_GetSelectedIndices($List_Cards, True)
  277.                                         $Decks[$Deck_index[1]][1] &= $Card_Index[1]&"|"
  278.                                         GUICtrlCreateListViewItem($Card_Index[1] + 1 & "|" & $CardsData[$Card_Index[1]][0] & "|" & $CardsData[$Card_Index[1]][4], $Deck_Cards)
  279.                                 Else
  280.                                         MsgBox(0, "Erreur", "Selectionner une carte")
  281.                                 EndIf
  282.                         Else
  283.                                 MsgBox(0, "Erreur", "Veillez selectionner un seul deck")
  284.                         EndIf
  285.                 Case $To_List
  286.                         If Verify_list($Deck_Cards) == True Then
  287.                                 $Card_Index = _GUICtrlListView_GetSelectedIndices($Deck_Cards, True)
  288. ;~                              _GUICtrlListView_GetItemTextArray($Deck_Cards,$Card_Index[1])[1]-1
  289.                                 Local $LocalDeck = StringSplit($Decks[$Deck_index[1]][1],"|",2)
  290.                                 _ArrayDisplay($LocalDeck)
  291.                                 _ArrayDelete($LocalDeck,_ArrayFindAll($LocalDeck,_GUICtrlListView_GetItemTextArray($Deck_Cards,$Card_Index[1])[1]-1)[0])
  292.                                 $Decks[$Deck_index[1]][1] = _ArrayToString($LocalDeck)
  293.                                 _GUICtrlListView_DeleteItem($Deck_Cards, $Card_Index[1])
  294.                         Else
  295.                                 MsgBox(0, "Erreur", "Selectionner une carte")
  296.                         EndIf
  297.         EndSwitch
  298. WEnd
  299.  
  300. ; Functions
  301. ;============================================================================================
  302. Func Verify_list($hWnd)
  303.         Local $Selected_count = _GUICtrlListView_GetSelectedCount($hWnd)
  304.         If $Selected_count == 1 Then
  305.                 Return True
  306.         Else
  307.                 Return False
  308.         EndIf
  309. EndFunc   ;==>Verify_list
  310. Func CreatImage($chemin, $hGUI)
  311.         Global $hImage, $hGraphic
  312.         _GDIPlus_Startup()
  313.         $hImage = _GDIPlus_ImageLoadFromFile($chemin)
  314.         $hGraphic = _GDIPlus_GraphicsCreateFromHWND($hGUI)
  315.         _GDIPlus_GraphicsDrawImage($hGraphic, $hImage, 160, 255)
  316. EndFunc   ;==>CreatImage
  317. Func MY_WM_PAINT($hWnd, $msg, $wParam, $lParam)
  318.         #forceref $hWnd, $Msg, $wParam, $lParam
  319.         If IsDeclared("Adresse") == 1 Then
  320.                 CreatImage($Adresse & "\Graphics\Cards\" & $CC_Pic, $Fenetre)
  321.         EndIf
  322.         Return $GUI_RUNDEFMSG
  323. EndFunc   ;==>MY_WM_PAINT
  324. Func _Save_CardsData()
  325.     $oCardBook = _Excel_BookNew($oExcel)
  326.     If $CardsData[0][0] == "" Or $CardsData[0][0] == "NbrCards" Then
  327.         FileDelete(@ScriptDir&"\"&GUICtrlRead($Project_name)&".xlsx")
  328.     Else
  329.         _Excel_RangeWrite($oCardBook, $oCardBook.Activesheet, $CardsData, "A1")
  330.         If FileExists(GUICtrlRead($Project_name)&".xlsx") == 1 Then
  331.             FileDelete(GUICtrlRead($Project_name)&".xlsx")
  332.         EndIf
  333.         _Excel_BookSaveAs ($oCardBook,@ScriptDir&"\"&GUICtrlRead($Project_name))
  334.     EndIf
  335.     _Excel_BookClose($oCardBook)
  336. EndFunc
  337. Func _Update_Card_List()
  338.     $oCardBook = _Excel_BookOpen($oExcel,@ScriptDir&"\"&GUICtrlRead($Project_name)&".xlsx")
  339.     If @error Then ConsoleWrite(@error &"|||||"&@extended & @CRLF)
  340.     _GUICtrlListView_DeleteAllItems($Card_List)
  341.     _GUICtrlListView_DeleteAllItems($List_Cards)
  342.     _Excel_RangeFind($oCardBook,"NbrCards")
  343.     For $i = 0 To StringRegExp(_Excel_RangeFind($oCardBook,"NbrCards")[0][2],"\d",1)[0] - 2
  344.         GUICtrlCreateListViewItem($i+1 & "|" & $CardsData[$i][0]& "|" & $CardsData[$i][4], $Card_List)
  345.         GUICtrlCreateListViewItem($i+1 & "|" & $CardsData[$i][0]& "|" & $CardsData[$i][4], $List_Cards)
  346.     Next
  347.     _Excel_BookClose($oCardBook)
  348. EndFunc
  349. Func _Load_CardsData()
  350.     $oCardBook = _Excel_BookOpen($oExcel,@ScriptDir&"\"&GUICtrlRead($Project_name)&".xlsx")
  351.     $CardsData = _Excel_RangeRead($oCardBook)
  352.     _Excel_BookClose($oCardBook)
  353. EndFunc
  354. Func _Rgss_CardsData()
  355.     $oCardBook = _Excel_BookOpen($oExcel,@ScriptDir&"\"&GUICtrlRead($Project_name)&".xlsx")
  356.     If Not @error = 2 Then
  357.         _FileCreate($Adresse & "\Data\Cards.rvdata2")
  358.         For $i = 0 To StringRegExp(_Excel_RangeFind($oCardBook,"NbrCards")[0][2],"\d",1)[0] - 2
  359.             Local $lcard = '{:name => '&'"'&$CardsData[$i][0]&'"'&',:force => '&$CardsData[$i][1]&',:defense => '&$CardsData[$i][2]&',:picture => '&'"'&$CardsData[$i][3]&'"'&',:type => '&'"'&$CardsData[$i][4]&'"'&',:cilbe => '&'"'&$CardsData[$i][5]&'"'&'}'
  360.             FileWriteLine($Adresse & "\Data\Cards.rvdata2",$lcard)
  361.         Next
  362.     EndIf
  363.     _Excel_BookClose($oCardBook)
  364. EndFunc
  365. Func _Save_Decks()
  366.     $oDeckBook = _Excel_BookNew($oExcel)
  367.     If $Decks[0][0] == "" Or $Decks[0][0] == "NbrDecks" Then
  368.         FileDelete(@ScriptDir&"\"&GUICtrlRead($Project_name)&"_Decks"&".xlsx")
  369.     Else
  370.         _Excel_RangeWrite($oDeckBook, $oDeckBook.Activesheet, $Decks, "A1")
  371.         _Excel_BookSaveAs ($oDeckBook,@ScriptDir&"\"&GUICtrlRead($Project_name)&"_Decks")
  372.     EndIf
  373.     _Excel_BookClose($oDeckBook)
  374. EndFunc
  375. Func _Rgss_Decks()
  376.     $oDeckBook = _Excel_BookOpen($oExcel,@ScriptDir&"\"&GUICtrlRead($Project_name)&"_Decks"&".xlsx")
  377.     If Not @error = 2 Then
  378.         _FileCreate($Adresse & "\Data\Decks.rvdata2")
  379.         For $i = 0 To StringRegExp(_Excel_RangeFind($oDeckBook,"NbrDecks")[0][2],"\d",1)[0] - 2
  380.             FileWriteLine($Adresse & "\Data\Decks.rvdata2",'{:name => '&'"'&$Decks[$i][0]&'"'&',:cards => '&'"'&$Decks[$i][1]&'"'&'}')
  381.         Next
  382.     EndIf
  383.     _Excel_BookClose($oDeckBook)
  384. EndFunc
  385. Func _Load_Decks()
  386.     $oDeckBook = _Excel_BookOpen($oExcel,@ScriptDir&"\"&GUICtrlRead($Project_name)&"_Decks"&".xlsx")
  387.     $Decks = _Excel_RangeRead($oDeckBook)
  388.     _Excel_BookClose($oDeckBook)
  389. EndFunc
  390. Func _Update_Deck_List()
  391.     $oDeckBook = _Excel_BookOpen($oExcel,@ScriptDir&"\"&GUICtrlRead($Project_name)&"_Decks"&".xlsx")
  392.     If @error Then ConsoleWrite(@error &"|||||"&@extended & @CRLF)
  393.     _GUICtrlListView_DeleteAllItems($Deck_List)
  394.     _Excel_RangeFind($oDeckBook,"NbrDecks")
  395.     For $i = 0 To StringRegExp(_Excel_RangeFind($oDeckBook,"NbrDecks")[0][2],"\d",1)[0] - 2
  396.         GUICtrlCreateListViewItem($Decks[$i][0], $Deck_List)
  397.     Next
  398.     _Excel_BookClose($oDeckBook)
  399. EndFunc
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!