[Program] AutoConfig by Phoenix_PL

[Phoenix_PL]

Witam.

Podczas upierdliwego pisania configów, pomyślałem sobie, że po co mam pisać ręcznie, sporo znam AutoIT'a

I w ten sposób powstał ten programik.

Narazie jest w wersji podstawowej, czyli generuje tylko najbardziej upierdliwą rzecz: tablice (dla niekumatych: w tablicach są zapisywane ilości surowców na każdy poziom budynku, itp.).

Program, jak wyżej wspomniałem, napisany w AutoIT

 

Program w linku:

MediaFire

 

A z racji że jestem fanem OpenSource, od razu podaję kod

 

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Res_Fileversion=1.0
#AutoIt3Wrapper_Res_LegalCopyright=Phoenix_PL
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <TabConstants.au3>
#include <WindowsConstants.au3>
Opt ("GuiOnEventMode", 1)
$f_main = GUICreate("Generator Plemiona by Phoenix_PL v1.0", 447, 325, 272, 198)
$t_zakladki = GUICtrlCreateTab(8, 8, 433, 25)
GUICtrlCreateTabItem ("Tablice")
$in_powiekszaj = GUICtrlCreateInput("", 8, 120, 113, 21)
$in_losowosc = GUICtrlCreateInput("", 8, 176, 113, 21)
$l_powiekszaj = GUICtrlCreateLabel("Powiększaj o:", 8, 96, 69, 17)
$l_losowosc = GUICtrlCreateLabel("Losowosc:", 8, 152, 55, 17)
$b_infolos = GUICtrlCreateButton("Info", 80, 152, 40, 17)
$b_infopow = GUICtrlCreateButton("Info", 80, 96, 40, 15)
$b_generuj = GUICtrlCreateButton("Generuj", 8, 264, 115, 25)
$b_wyjdz = GUICtrlCreateButton("Wyjdź", 8, 296, 115, 25)
$e_wynik = GUICtrlCreateEdit("", 128, 40, 313, 257)
$b_copy = GUICtrlCreateButton("Kopiuj do schowka", 136, 304, 99, 17)
$b_save = GUICtrlCreateButton("Zapisz do pliku", 240, 304, 99, 17)
$b_clear = GUICtrlCreateButton("Wyczysć", 344, 304, 99, 17)
$in_poczatk = GUICtrlCreateInput("", 8, 64, 113, 21)
$l_poczatk = GUICtrlCreateLabel("Liczba poczatkowa:", 8, 40, 99, 17)
GUISetOnEvent ($GUI_EVENT_CLOSE, "knc")
GUICtrlSetOnEvent ($b_wyjdz, "knc")
GUICtrlSetOnEvent ($b_clear, "clr")
GUICtrlSetOnEvent ($b_copy, "cpy")
GUICtrlSetOnEvent ($b_generuj, "gener")
GUICtrlSetOnEvent ($b_infolos, "ilos")
GUICtrlSetOnEvent ($b_infopow, "ipow")
GUICtrlSetOnEvent ($b_save, "sve")
GUISetState(@SW_SHOW)

Func knc()
Exit
EndFunc

Func clr()
GUICtrlSetData ($e_wynik, "")
EndFunc

Func cpy()
ClipPut (GUICtrlRead($e_wynik))
EndFunc

Func ilos()
MsgBox (64, "Info - Losowosć", "Losowosć, to liczby które będą odpowiadały za generowaną wartosć, zeby była bardziej ""naturalna""."&@CRLF&@CRLF&"Nalezy wpisac:"&@CRLF&"minimalna liczba-maksymalna liczba"&@CRLF&@CRLF&"Przykład:"&@CRLF&"50-540")
EndFunc

Func ipow()
MsgBox (64, "Info - Powiększanie", "Powiększanie, to liczba, o którą będzie obowiązkowo powiększana kazda następna wartosć."&@CRLF&@CRLF&"Nalezy wpisac:"&@CRLF&"liczba powiekszajaca"&@CRLF&@CRLF&"Przykład uzycia:"&@CRLF&"500")
EndFunc

Func sve()
$read = GUICtrlRead ($e_wynik)
$file1 = FileSaveDialog ("Wybierz plik...", @DesktopDir, "Pliki tekstowe (*.txt)")
$file2 = StringReplace ($file1, "|", "\")
$file = $file2&".txt"
$o = FileOpen ($file, 9)
FileWrite ($o, $read)
FileClose ($o)
EndFunc

Func gener()
$r_start = GUICtrlRead ($in_poczatk)
$r_pow = GUICtrlRead ($in_powiekszaj)
$r_los1 = GUICtrlRead ($in_losowosc)
$r_los2 = StringSplit ($r_los1, "-")
If UBound ($r_los2) < 3 Then
MsgBox (16, "Błąd!", "Nie wprowadziłes odpowiednich danych w pole ""Losowosć""!")
Return
EndIf
$inbox = InputBox ("Pytanie", "Ile razy mam wygenerować?")
$i = 1
$r_los = Random ($r_los2[1], $r_los2[2], 1)
$q = GUICtrlRead ($e_wynik)
$k = $r_start+$r_pow
$k = $k+$r_los
$end = """"&$i&"""=>"""&$k&""""&@CRLF
GUICtrlSetData ($e_wynik, $q&$end)
$i += 1
While $inbox >= $i
$r_los = Random ($r_los2[1], $r_los2[2], 1)
$q = GUICtrlRead ($e_wynik)
$k = $k+$r_pow
$k = $k+$r_los
$end = """"&$i&"""=>"""&$k&""""&@CRLF
GUICtrlSetData ($e_wynik, $q&$end)
$i += 1
WEnd
EndFunc

While 1
Sleep (100)
WEnd

 

 

Miłej zabawy