Optional Reading Backstory bit:
I work as an IT Tech in a school and run an after school games club for the students. I give them access to a few different appropriate games including Minecraft, PaintBall 2 and Trackmania. I've already made scripts for these games, one for minecraft which will copy all needed game files to the machine including mods, forge and the core files, and then launch the game. This is great and we have four servers with various mods installed which the students can play on. However students always want different mods and I wanted a way to use AHK to create a kind of 'Mod Manager'. Now for those that know minecraft, I know one exists as MultiMC but this allows access to a tonne more than just mods, I don't want the students playing around with the core game files.
Backstory bit over!
SO! I'm working on my own very basic mod manager which will have a large selection of mods to choose from. They simply choose from a list and press OK. It will then copy all needed mod files to the Minecraft directory and launch the game.
In AHK terms, it's two listboxes which you can move items between using arrows. This works fine but I wanted the selection in the listbox to move automatically to the next item when you move one across, but it only does this sortof 'half' the time. I have created an example at the moment using colours (all commented!). See code below, it runs fine, you are very welcome to test it and the issue would probably be more understandable to see it in action:
Code: Select all
;These variables keep track of everything which is in the left listbox and the right listbox
leftbox = Red|Green|Blue|Black|White|
rightbox =
Gui,Font,norm s14,Calibri Light
Gui, Add, ListBox, vColorChoice1 Sort x20 y20 w100 h200, Red|Green|Blue|Black|White|
Gui,Font,norm s20 w700,Calibri Light
Gui,Add,Button,x135 y90 w40 h40 gMover, >
Gui, 2:Font,norm s14,Calibri Light
Gui, 2:Add, ListBox, vColorChoice2 Sort x80 y20 w200 h380,
Gui, 2:Font,norm s20 w700,Calibri Light
Gui, 2:Add,Button,x20 y175 w40 h40 gMovel, <
Gui , Show, w300 h250, Mod Manager
WinGetPos, gui1x, gui1y,gui1w,,Mod Manager
gui2x := gui1x+gui1w+5
Gui,2:Show, x%gui2x% w300 h420, Selected Mods
Return
Mover:
;Reset Variables
selectmore = False
selectedlindex = 1
;Firstly submit everything on the GUI. If they haven't selected anything, just stop there.
Gui, Submit, NoHide
GuiControlGet, selectedl, 1:, ColorChoice1
if selectedl =
return
;Add the selected item to the right box and to the rightbox variable
GuiControl, 2:, ColorChoice2, %selectedl%
rightbox = %rightbox%%selectedl%|
;Retrieve all items from the current (old) list and count how many there are
ControlGet, cc1rows, List, Count, ListBox1, Mod Manager
cc1rowscount = 0
Loop, Parse, cc1rows, `n
{
if selectedl = %A_LoopField%
selectedlindex = %A_Index%
cc1rowscount += 1
}
;If there's more than one item, we will need to run the selection code (to automatically select the next item)
if cc1rowscount > 1
selectmore = True
;If the item they selected is at the bottom, it's a special case because the selection code will then need to select the previous item (instead of the next one)
if selectedlindex = %cc1rowscount%
selectedlindex -= 1
;Search the leftbox variable for this selected item and remove it
selectedl = %selectedl%|
leftbox := StrReplace(leftbox, selectedl)
;Update the GUI to the leftbox variable
GuiControl, 1:, ColorChoice1, |%leftbox%
;If we do need to select more items (because there's more than one, run this code)
if selectmore = True
{
;Find the new item where the old one was
ControlGet, cc1rows, List, Count, ListBox1, Mod Manager
Loop, Parse, cc1rows, `n
{
if selectedlindex = %A_Index%
selectl = %A_LoopField%
}
;Sleep (not sure if this is needed) and then send this to the ListBox which *should* select this item
Sleep 1
ControlSend, ListBox1, %selectl%, Mod Manager
}
return
Movel:
;Firstly submit everything on the GUI. If they haven't selected anything, just stop there.
Gui, 2:Submit, NoHide
GuiControlGet, selectedr, 2:, ColorChoice2
if selectedr =
return
;Add the selected item to the left box and to the leftbox variable
GuiControl, 1:, ColorChoice1, %selectedr%
leftbox = %leftbox%%selectedr%|
;Search the rightbox variable for this selected item and remove it
selectedr = %selectedr%|
rightbox := StrReplace(rightbox, selectedr)
;Update the GUI to the rightbox variable
GuiControl, 2:, ColorChoice2, |%rightbox%
;Msgbox, leftbox is %leftbox%
;Msgbox, rightbox is %rightbox%
return
GuiClose:
ExitApp
2GuiClose:
ExitApp
Any help or suggestions to my code is greatly appreciated, you guys are awesome.
Thanks!