
SxyfrG
Active Members-
Posts
126 -
Joined
-
Last visited
Everything posted by SxyfrG
-
They all have 1 post and all joined in the last 50 minutes.
-
AppLauncherTRAY [new name! and new update]
SxyfrG replied to SxyfrG's topic in AutoIt Example Scripts
A small update in preparation for bigger ones. I've added an updater so you don't have to check back here for updates Check first post for more details. -
AppLauncherTRAY [new name! and new update]
SxyfrG replied to SxyfrG's topic in AutoIt Example Scripts
Quick aesthetic update >_< See first post for changes and new download links Once i get my new graphics card and PSU this arvo i might add the network options -
Without seeing any of your code, this is what i can suggest: Before the For Next loop, disable OnEventMode and create the GUI with the controls and such. Then when the gui is needed within the For Next loop, "call it into play" but showing it (duh ) and have a While Wend loop within your for next loop to handle anything like that. E.g. $Opt = Opt("GUIOnEventMode", 0) ;Create GUI and controls here For $i = 1 To $Var ; do your stuff here If $Somethinghappened Then GUISetState(@SW_SHOW) While 1 $Msg = GUIGetMsg() Switch $Msg Case $A_Button ;do stuff Case $Another_Button ;do stuff Case -3 ;close button ExitLoop EndSwitch WEnd EndIf ;continue doing stuff if needed Next Opt("GUIOnEventMode", $Opt) That *should* work, didn't test it though >_< *EDIT* Didn't see this was 2 years old, hope it can still help though
-
AppLauncherTRAY [new name! and new update]
SxyfrG replied to SxyfrG's topic in AutoIt Example Scripts
Hmm, sounds interesting. I may add an option in the options menu to enable/disable a menu which contains the network-area functions and leave it up to the user whether they want it enabled or not. Thanks again Sul -
AppLauncherTRAY [new name! and new update]
SxyfrG replied to SxyfrG's topic in AutoIt Example Scripts
Very nice program Sul, a bit slow on first initial run (creating .ini file), but it works well after that You've inspired me to update my own program, so in the coming weeks (after my exams) you'll see some big big changes to the way it looks, however internal processing of arrays and ini files will remain the same >_< EDIT: See first post for ToDo list -
Very nice, you've actually inspired me to re-design my current scipt (AppLauncherTRAY, see my sig) to make mine less cluttered. *bows*
-
AppLauncherTRAY [new name! and new update]
SxyfrG replied to SxyfrG's topic in AutoIt Example Scripts
It was, in it's very first form, an application written strictly for myself to launch my multitude of games. Since then i've made it much much more flexible and the like, all i need to do is change about 3 lines of code so it says AppLauncherTRAY everywhere instead of GameLauncherTRAY and thus change the focus from games to general applications (which i'll do after my easy 2 unit maths [i think that's advanced maths in the USA] exam tomorrow). I'm actually utilising the shellexecute function so you can choose to basically "launch" any document or application you want i *kinda* get what you're saying, and correct me if i'm wrong, but are you suggesting that i should add a hotkey (customisable by the user) which would trigger a tray event via some complex method? Or did i jump in the wrong end? >_< And thank you for the response, i've been hanging out for something to add to this program -
AppLauncherTRAY [new name! and new update]
SxyfrG replied to SxyfrG's topic in AutoIt Example Scripts
*BUMP* -
One quick suggestion ... Get the formatted RTF text from the control (RichText_GetText only returns unformatted text) Really good work, keep it up
-
Really good work, too bad your logic is really hard to follow (or maybe i'm just a bit thickheaded today )
-
AppLauncherTRAY [new name! and new update]
SxyfrG replied to SxyfrG's topic in AutoIt Example Scripts
Glad you like it -
Uhh ... How do you resize the control? =\
-
AppLauncherTRAY [new name! and new update]
SxyfrG replied to SxyfrG's topic in AutoIt Example Scripts
Thanks gesller I was thinking of setting the menu (i.e. Game1) with the function that launches the application or document, but i decided not to as i know a lot of people who don't hover their mouse over a menu, yet click it to open it instead ... so imagine all the error msgbox's they would have been getting saying "No Path Specified" -
AppLauncherTRAY [new name! and new update]
SxyfrG replied to SxyfrG's topic in AutoIt Example Scripts
Ok, try this link: Download But seriosuly, WTH! I've downloaded the file from all the filehosts i uploaded it to on multiple computers and opened all files successfully with WinRAR, 7Zip and Microsoft zip compressed folders! Could it just be a problem on your end ... ? *EDIT* If the download works and you try this app. can you please provide some feedback ... I'm kinda hanging out for some -
AppLauncherTRAY [new name! and new update]
SxyfrG replied to SxyfrG's topic in AutoIt Example Scripts
I've just updated all the links, downloaded the file from the all and they all worked. Please try again :S -
AppLauncherTRAY [new name! and new update]
SxyfrG replied to SxyfrG's topic in AutoIt Example Scripts
Just tested both download links ... Megaupload: no problem Trashbin: got a winRAR error: Unexpected end of archive, but i was still able to extract the contents. I'll re-upload to trashbin right now and update my first post *EDIT* Done, check first post -
This is a project me and my friend worked on when we first found AutoIT (around October last year). At first the script was around 12,000 lines long, flooded with redundant functions and too cluttered to post here, so i just kept the project on my HD and left it as it was (and used it everyday ). But around 3 weeks ago i had a massive "oh, DUH!" moment when i realised how i could make my script far more efficient And now, may i present to you my favourite AutoIT script ... Game AppLauncherTRAY! The download contains the source + all files needed for AppLauncherTRAY to run New version: AppLauncherTRAYv1.1.0.au3 (102K) Number of downloads: AppLauncherTRAY Installer.7z (876.4K) Number of downloads: AppLauncherTRAY.7z (for those that don't want an installer) (586.1K) Number of downloads: New version ======== Added: Silent update check on launch Quick exploit fixed which would allow two copies of AppLauncherTRAY to be run simultaneously Fixed up a spelling error in the Read_Me.txt file Changed: Changed "game*" to "Item *" Changed name to AppLauncherTRAY (suited the purpose of this application more) Comments and all that is, as always, highly appreciated ToDo List: - Change the way items are renamed, have their paths changed, deleted and all that. Current idea [please comment on this!]: Have a menu GUI for each group + main group with all the commands to edit the menu-items inside it. Use a combo-box to list all the menu items (set to read-only) and register the WM_COMMAND msg (i *think*) to capture any changes to the item selected in the combo-box and update the other controls i'm planning on having in the GUI by searching the appropriate arrays (like the current way i do so to launch, change name or change path). If anyone has any ideas on a better way to do this, please share your opinion :) - Try and port everything over to the modern_menu look - Optimise source code (again) *PLEASE NOTE* Due to AutoIT's limitations, only 502 tray items can be created, so if you max out all the groups + default group most likely tray items won't be created. Also the Readme has a changelog which has obviously wrong version numbers. I reset the version number in the script when i had my "oh, DUH!" moment, but didn't do so in the Readme *LATEST EDIT* Uploaded new version, see above for changes Old versions: AppLauncherTRAY.7z (1134.9K) Number of downloads: GameLauncherTRAY.zip (1248.3K) Number of downloads: (Previous downloads: 28)
-
YOU ARE THE GREATEST EVER!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! I've been looking for a way to get a shadow under your window without having to use a .png as your background and all that stuff for a LONG LONG TIME!
-
Sounds awesome, i already have a function that searches the 8 boxes around where you click, so it shouldn't be too hard to turn into that game. Only problem is i have exams on (plus revision) for the next 3 weeks so i won't really have time to work on it until they're all over, then i'll give it a shot In the mean time i'll be checking on this post everyday, so feel free to critique my script, make amendments or try what youknowho4eva suggested
-
Sounds good, i'll see if a WM_COMMAND message is sent when you right click a button and i'll get that working I'll also fix the problem with you dying on the first click *EDIT* Nope, no WM_COMMAND message is sent on right click :\
-
It was just a test to see if i could make a minesweeper-like game, which i kind of did At the moment my script only checks the 8 boxes around the box you click on, but i'll try implement what you have suggested this afternoon when i get some time. And what do you mean by work on the difficulty settings? That was a vague statement =\
-
Ok, this took around 2 hours to put together. Quite simple and easy to play Any improvements, suggestions, code optimisation or w/e is welcome Download skinned version - 4Shared #include <WindowsConstants.au3> #include <GUIConstantsEx.au3> #include <ButtonConstants.au3> Opt("GUIOnEventMode", 1) Global $Button[13][13] Global $MinesArray, $Game = False, $Game2 = False, $Timer, $Button2, $Debug = False;change this to true so you can debug and bugs :P $GUI = GUICreate("Mine Shweepy Into Korna", 270, 325) $Menu1 = GUICtrlCreateMenu("Game") $New = GUICtrlCreateMenuItem("New Game" & @TAB & "(F2)", $Menu1) GUICtrlCreateMenuItem("", $Menu1) $n00b = GUICtrlCreateMenuItem("n00b", $Menu1, -1, 1) $Easy = GUICtrlCreateMenuItem("Easy", $Menu1, -1, 1) $Hard = GUICtrlCreateMenuItem("Hard", $Menu1, -1, 1) $Extreme = GUICtrlCreateMenuItem("EXTREME", $Menu1, -1, 1) GUICtrlCreateMenuItem("", $Menu1) $Exit = GUICtrlCreateMenuItem("Exit", $Menu1) $Difficulty = IniRead(@ScriptDir & "\Config.ini", "MineShweeper", "Difficulty", "Easy") Switch $Difficulty Case "n00b" GUICtrlSetState($n00b, $GUI_CHECKED) Case "Easy" GUICtrlSetState($Easy, $GUI_CHECKED) Case "Hard" GUICtrlSetState($Hard, $GUI_CHECKED) Case "Extreme" GUICtrlSetState($Extreme, $GUI_CHECKED) EndSwitch $NewGame = GUICtrlCreateButton("New Game", (275 / 2) - (70 / 2), 5, 70, 30) $MineLabel = GUICtrlCreateLabel("00", 30, 13, 40, 20) $Time = GUICtrlCreateLabel("00:00", 220, 13, 40, 20) GUISetState() Dim $Accel[1][2] $Accel[0][0] = "{F2}" $Accel[0][1] = $NewGame GUISetAccelerators($Accel, $GUI) GUICtrlSetOnEvent($New, "NewGame") GUICtrlSetOnEvent($NewGame, "NewGame") GUICtrlSetOnEvent($Exit, "_Exit") GUICtrlSetOnEvent($n00b, "DifficultyChange") GUICtrlSetOnEvent($Easy, "DifficultyChange") GUICtrlSetOnEvent($Hard, "DifficultyChange") GUICtrlSetOnEvent($Extreme, "DifficultyChange") GUISetOnEvent($GUI_EVENT_CLOSE, "_Exit") While 1 Sleep(500) If $Game Then GUICtrlSetData($Time, MsToSecs(TimerDiff($Timer) / 1000)) WEnd ;=================================================================================; Func NewGame() Local $Mines = 0 If Not $Debug Then $Difficulty = IniRead(@ScriptDir & "\Config.ini", "MineShweeper", "Difficulty", "Easy") Switch $Difficulty Case "n00b" $Mines = 5 Case "Easy" $Mines = 10 Case "Hard" $Mines = 20 Case "EXTREME" $Mines = 30 EndSwitch EndIf Global $MinesArray[$Mines + 1] For $i = 1 To $Mines $MinesArray[$i] = _Random(15, 158, $MinesArray) Next If $Game2 Then For $i = 1 To 12 For $v = 1 To 12 GUICtrlDelete($Button[$i][$v]) Next Next EndIf Local $Left = 15, $Top = 50 For $i = 1 To (245 / 20) Step 1;Width For $v = 1 To (255 / 20) Step 1;height $Button[$i][$v] = GUICtrlCreateButton("", $Left, $Top, 20, 20, $BS_FLAT) GUICtrlSetColor($Button[$i][$v], 0x000000) GUICtrlSetOnEvent($Button[$i][$v], "ButtonPress") ;ConsoleWrite($i&@TAB&$v&@LF&$Button[$i][$v]&@LF) $Top += 20 Next $Left += 20 $Top = 50 Next Global $Button2 = _2Dto1D($Button) GUICtrlSetData($MineLabel, $Mines) $Game = True $Game2 = True $Timer = TimerInit() EndFunc;==>NewGame ;=================================================================================; Func _Random($Min, $Max, ByRef $Array) Local $Exit__ $Random = Random($Min, $Max, 1) If _SearchArray($Random, $Array) <> 0 Then While $Exit__ = False $Random = Random($Min, $Max, 1) If _SearchArray($Random, $Array) <> 0 Then $Exit__ = True WEnd EndIf Return $Random EndFunc;==>_Random ;=================================================================================; Func _SearchArray($sSearch, ByRef $Array, $cons = False);Modified function for internal use If $cons Then ConsoleWrite("!================================================!" & @LF) Local $Dump, $Bin[UBound($Array) + 1], $a = 0, $b = 0 For $Dump In $Array $a += 1 If $cons Then ConsoleWrite($sSearch & @TAB & $Dump & @LF) If $Dump = $sSearch Then;If a match is found $b += 1 $Bin[$b] = $a EndIf Next If $cons Then ConsoleWrite("!================================================!" & @LF) Local $Return[$b + 1] $Return[0] = $b Return $b;$Return EndFunc;==>_SearchArray ;=================================================================================; Func ButtonPress() If $Game And GUICtrlRead(@GUI_CtrlId) = "" Then If _SearchArray(@GUI_CtrlId, $MinesArray) = 1 Then;clicked on a mine! If Not $Debug Then For $i = 1 To 12 For $v = 1 To 12 If _SearchArray($Button[$i][$v], $MinesArray) = 1 Then GUICtrlSetBkColor($Button[$i][$v], 0x000000) GUICtrlSetColor($Button[$i][$v], 0xff0000) GUICtrlSetData($Button[$i][$v], Chr(164)) EndIf Next Next Else GUICtrlSetBkColor(@GUI_CtrlId, 0x000000) GUICtrlSetColor(@GUI_CtrlId, 0xff0000) GUICtrlSetData(@GUI_CtrlId, Chr(64)) EndIf If Not $Debug Then $Game = False MsgBox(48, "OMGEH", "Dude, you clicked on a MINE!!!", 10, $GUI) EndIf Else Local $Check, $Colour $Check = _Search9Boxes(@GUI_CtrlId) Switch $Check Case 0 $Colour = 0x000000 Case 1 To 2 $Colour = 0x0000ff Case 3 To 4 $Colour = 0x0ca500 Case 5 To 6 $Colour = 0x009cff Case 7 To 8 $Colour = 0xff0000 EndSwitch GUICtrlSetColor(@GUI_CtrlId, $Colour) GUICtrlSetData(@GUI_CtrlId, $Check) ;GUICtrlSetState(@GUI_CtrlId, $GUI_DISABLE) EndIf Local $CheckMines = 0 For $i = 1 To 12 For $v = 1 To 12 If GUICtrlRead($Button[$i][$v]) = "" Then $CheckMines += 1 Next Next ConsoleWrite($CheckMines & @LF) If $CheckMines = GUICtrlRead($MineLabel) Then MsgBox(48, "OMGAWESOME", "HOLY CRAP YOU WON!!!", 10, $GUI) $Game = False EndIf EndIf EndFunc;==>ButtonPress ;=================================================================================; Func DifficultyChange() ConsoleWrite(@GUI_CtrlId & @TAB & $n00b & @TAB & $Easy & @TAB & $Hard & @TAB & $Extreme & @LF) Switch @GUI_CtrlId Case $n00b IniWrite(@ScriptDir & "\Config.ini", "MineShweeper", "Difficulty", "n00b") Case $Easy IniWrite(@ScriptDir & "\Config.ini", "MineShweeper", "Difficulty", "Easy") Case $Hard IniWrite(@ScriptDir & "\Config.ini", "MineShweeper", "Difficulty", "Hard") Case $Extreme IniWrite(@ScriptDir & "\Config.ini", "MineShweeper", "Difficulty", "EXTREME") EndSwitch If $Game Then NewGame() EndFunc;==>DifficultyChange ;=================================================================================; Func MsToSecs($TimeInMs) Local $Mins, $Secs If $TimeInMs > 60 Then $Mins += 1 $TimeInMs -= 60 While $TimeInMs > 60 $Mins += 1 $TimeInMs -= 60 WEnd Else $Mins = "00" EndIf If StringLen($Mins) = 1 Then $Mins = "0" & $Mins $Secs = Round($TimeInMs, 0) If StringLen($Secs) = 1 Then $Secs = "0" & $Secs Return $Mins & ":" & $Secs EndFunc;==>MsToSecs ;=================================================================================; Func _2Dto1D($Array) Local $Array2[12 * 12 + 1] Local $Counter = 1 For $i = 1 To 12 For $v = 1 To 12 $Array2[$Counter] = $Array[$i][$v] $Counter += 1 Next Next Return $Array2 EndFunc;==>_2Dto1D ;=================================================================================; Func _Search9Boxes($ID) Local $X, $Y For $i = 1 To 12 For $v = 1 To 12 If $Button[$i][$v] = $ID Then ConsoleWrite($ID & @TAB & $Button[$i][$v] & @LF) $X = $i $Y = $v ConsoleWrite("+ " & $X & @TAB & $Y & @LF) EndIf Next Next ConsoleWrite($i & @TAB & $v & @LF) ConsoleWrite("-================-" & @LF) Local $BoxesToSearch If $X = 1 Or $X = 12 Or $Y = 1 Or $Y = 12 Then;search 3 or 5 boxes for a mine If ($Y = 1 Or $Y = 12) And ($X = 1 Or $X = 12) Then;search 3 boxes on a corner Local $BoxesToSearch[4] If $Y = 1 And $X = 1 Then;top left $BoxesToSearch[1] = $Button[$X + 1][$Y] $BoxesToSearch[2] = $Button[$X + 1][$Y + 1] $BoxesToSearch[3] = $Button[$X][$Y + 1] ElseIf $Y = 1 And $X = 12 Then;top right $BoxesToSearch[1] = $Button[$X - 1][$Y] $BoxesToSearch[2] = $Button[$X - 1][$Y + 1] $BoxesToSearch[3] = $Button[$X][$Y + 1] ElseIf $Y = 12 And $X = 1 Then;bottom left $BoxesToSearch[1] = $Button[$X + 1][$Y] $BoxesToSearch[2] = $Button[$X + 1][$Y - 1] $BoxesToSearch[3] = $Button[$X][$Y - 1] ElseIf $Y = 12 And $X = 12 Then;bottom right $BoxesToSearch[1] = $Button[$X - 1][$Y] $BoxesToSearch[2] = $Button[$X - 1][$Y - 1] $BoxesToSearch[3] = $Button[$X][$Y - 1] EndIf Else;search 5 boxes Local $BoxesToSearch[6] If $X = 1 And $Y <> 1 And $Y <> 12 Then;left side ;ConsoleWrite("++OGM"&@LF) $BoxesToSearch[1] = $Button[$X][$Y - 1] $BoxesToSearch[2] = $Button[$X][$Y + 1] $BoxesToSearch[3] = $Button[$X + 1][$Y - 1] $BoxesToSearch[4] = $Button[$X + 1][$Y] $BoxesToSearch[5] = $Button[$X + 1][$Y + 1] ElseIf $X = 12 And $Y <> 1 And $Y <> 12 Then;right side ;ConsoleWrite("1!OGM"&@LF) $BoxesToSearch[1] = $Button[$X][$Y - 1] $BoxesToSearch[2] = $Button[$X][$Y + 1] $BoxesToSearch[3] = $Button[$X - 1][$Y - 1] $BoxesToSearch[4] = $Button[$X - 1][$Y] $BoxesToSearch[5] = $Button[$X - 1][$Y + 1] ElseIf $X <> 1 And $X <> 12 And $Y = 1 Then;top ;ConsoleWrite("OGM"&@LF) $BoxesToSearch[1] = $Button[$X + 1][$Y] $BoxesToSearch[2] = $Button[$X - 1][$Y] $BoxesToSearch[3] = $Button[$X - 1][$Y + 1] $BoxesToSearch[4] = $Button[$X][$Y + 1] $BoxesToSearch[5] = $Button[$X + 1][$Y + 1] ElseIf $X <> 1 And $X <> 12 And $Y = 12 Then;bottom ;ConsoleWrite("OMG"&@LF) $BoxesToSearch[1] = $Button[$X + 1][$Y] $BoxesToSearch[2] = $Button[$X - 1][$Y] $BoxesToSearch[3] = $Button[$X - 1][$Y - 1] $BoxesToSearch[4] = $Button[$X][$Y - 1] $BoxesToSearch[5] = $Button[$X + 1][$Y - 1] EndIf EndIf Else;search 8 boxes Local $BoxesToSearch[9] $BoxesToSearch[1] = $Button[$X + 1][$Y - 1] $BoxesToSearch[2] = $Button[$X + 1][$Y] $BoxesToSearch[3] = $Button[$X + 1][$Y + 1] $BoxesToSearch[4] = $Button[$X][$Y - 1] $BoxesToSearch[5] = $Button[$X][$Y + 1] $BoxesToSearch[6] = $Button[$X - 1][$Y - 1] $BoxesToSearch[7] = $Button[$X - 1][$Y] $BoxesToSearch[8] = $Button[$X - 1][$Y + 1] EndIf Local $Search = 0 For $i = 1 To UBound($BoxesToSearch) - 1 $Search += _SearchArray($BoxesToSearch[$i], $MinesArray, False) Next If $Search = 0 Then For $i = 1 To UBound($BoxesToSearch) - 1 ;ButtonPress2($BoxesToSearch[$i]) If _Search9Boxes2($BoxesToSearch[$i]) = 0 Then GUICtrlSetData($BoxesToSearch[$i], 0) EndIf Next EndIf Return $Search EndFunc;==>_Search9Boxes Func _Search9Boxes2($ID) Local $X, $Y For $i = 1 To 12 For $v = 1 To 12 If $Button[$i][$v] = $ID Then ;ConsoleWrite($ID & @TAB & $Button[$i][$v] & @LF) $X = $i $Y = $v ;ConsoleWrite($X & @TAB & $Y & @LF) EndIf Next Next ;ConsoleWrite($i & @TAB & $v & @LF) Local $BoxesToSearch If $X = 1 Or $X = 12 Or $Y = 1 Or $Y = 12 Then;search 3 or 5 boxes for a mine If ($Y = 1 Or $Y = 12) And ($X = 1 Or $X = 12) Then;search 3 boxes on a corner Local $BoxesToSearch[4] If $Y = 1 And $X = 1 Then;top left $BoxesToSearch[1] = $Button[$X + 1][$Y] $BoxesToSearch[2] = $Button[$X + 1][$Y + 1] $BoxesToSearch[3] = $Button[$X][$Y + 1] ElseIf $Y = 1 And $X = 12 Then;top right $BoxesToSearch[1] = $Button[$X - 1][$Y] $BoxesToSearch[2] = $Button[$X - 1][$Y + 1] $BoxesToSearch[3] = $Button[$X][$Y + 1] ElseIf $Y = 12 And $X = 1 Then;bottom left $BoxesToSearch[1] = $Button[$X + 1][$Y] $BoxesToSearch[2] = $Button[$X + 1][$Y - 1] $BoxesToSearch[3] = $Button[$X][$Y - 1] ElseIf $Y = 12 And $X = 12 Then;bottom right $BoxesToSearch[1] = $Button[$X - 1][$Y] $BoxesToSearch[2] = $Button[$X - 1][$Y - 1] $BoxesToSearch[3] = $Button[$X][$Y - 1] EndIf Else;search 5 boxes Local $BoxesToSearch[6] If $X = 1 And $Y <> 1 And $Y <> 12 Then;left side ;ConsoleWrite("++OGM"&@LF) $BoxesToSearch[1] = $Button[$X][$Y - 1] $BoxesToSearch[2] = $Button[$X][$Y + 1] $BoxesToSearch[3] = $Button[$X + 1][$Y - 1] $BoxesToSearch[4] = $Button[$X + 1][$Y] $BoxesToSearch[5] = $Button[$X + 1][$Y + 1] ElseIf $X = 12 And $Y <> 1 And $Y <> 12 Then;right side ;ConsoleWrite("1!OGM"&@LF) $BoxesToSearch[1] = $Button[$X][$Y - 1] $BoxesToSearch[2] = $Button[$X][$Y + 1] $BoxesToSearch[3] = $Button[$X - 1][$Y - 1] $BoxesToSearch[4] = $Button[$X - 1][$Y] $BoxesToSearch[5] = $Button[$X - 1][$Y + 1] ElseIf $X <> 1 And $X <> 12 And $Y = 1 Then;top ;ConsoleWrite("OGM"&@LF) $BoxesToSearch[1] = $Button[$X + 1][$Y] $BoxesToSearch[2] = $Button[$X - 1][$Y] $BoxesToSearch[3] = $Button[$X - 1][$Y + 1] $BoxesToSearch[4] = $Button[$X][$Y + 1] $BoxesToSearch[5] = $Button[$X + 1][$Y + 1] ElseIf $X <> 1 And $X <> 12 And $Y = 12 Then;bottom ;ConsoleWrite("OMG"&@LF) $BoxesToSearch[1] = $Button[$X + 1][$Y] $BoxesToSearch[2] = $Button[$X - 1][$Y] $BoxesToSearch[3] = $Button[$X - 1][$Y - 1] $BoxesToSearch[4] = $Button[$X][$Y - 1] $BoxesToSearch[5] = $Button[$X + 1][$Y - 1] EndIf EndIf Else;search 8 boxes Local $BoxesToSearch[9] $BoxesToSearch[1] = $Button[$X + 1][$Y - 1] $BoxesToSearch[2] = $Button[$X + 1][$Y] $BoxesToSearch[3] = $Button[$X + 1][$Y + 1] $BoxesToSearch[4] = $Button[$X][$Y - 1] $BoxesToSearch[5] = $Button[$X][$Y + 1] $BoxesToSearch[6] = $Button[$X - 1][$Y - 1] $BoxesToSearch[7] = $Button[$X - 1][$Y] $BoxesToSearch[8] = $Button[$X - 1][$Y + 1] EndIf Local $Search = 0 For $i = 1 To UBound($BoxesToSearch) - 1 $Search += _SearchArray($BoxesToSearch[$i], $MinesArray, False) Next Return $Search EndFunc;==>_Search9Boxes2 ;=================================================================================; Func _Exit() Exit EndFunc;==>_Exit ;=================================================================================;
-
Advanced Encryption Standard (AES/Rijndael) UDF
SxyfrG replied to Ward's topic in AutoIt Example Scripts
Sweet job as always Ward I've only tested _AESEncrypt/Decrypt and it works like a charm, keep them coming! -
Nice One thing, it's spelled "Axis", not "Axsis"