RO - Storage Add-On

; MADE BY RECCA
; INSPIRED BY RUFUS
; http://ragindex.blogspot.com/2016/03/ragnarok-online-storage-add-on.html

#NoEnv  ; Recommended for performance and compatibility with future AutoHotkey releases.
SendMode Input  ; Recommended for new scripts due to its superior speed and reliability.
SetWorkingDir %A_ScriptDir%  ; Ensures a consistent starting directory.
#SingleInstance Force
if not A_IsAdmin
{
   Run *RunAs "%A_ScriptFullPath%"  ; Requires v1.0.92.01+
   ExitApp
}

IniRead, Dahotkey, Storage.ini, Hotkey, hotkey
IniRead, 1ListName, Storage.ini, Save, 1
IniRead, 2ListName, Storage.ini, Save, 2
IniRead, 3ListName, Storage.ini, Save, 3
IniRead, 4ListName, Storage.ini, Save, 4
IniRead, 5ListName, Storage.ini, Save, 5

Gui, Add, Text, x112 y34, Search Hotkey:
Gui, Add, Hotkey, x190 y30 vDahotkey Disabled, %Dahotkey%
Hotkey, %Dahotkey%, Hotkey
Gui, Add, GroupBox, x2 y49 w930 h55 cBlue, Save Strings
Gui, Add, Edit, x12 y9 w310 h20 vSearchString,
Gui, Add, Button, x342 y9 w60 h30 gSearch , Load List
Gui, Add, Button, x22 y69 w60 h30 gSave1, Save #1
Gui, Add, Button, x102 y69 w60 h30 gSave2, Save #2
Gui, Add, Button, x182 y69 w60 h30 gSave3, Save #3
Gui, Add, Button, x262 y69 w60 h30 gSave4, Save #4
Gui, Add, Button, x342 y69 w60 h30 gSave5, Save #5

Gui, Add, Button, x22 y129 w60 h30 gLoad1, Load #1
Gui, Add, Button, xp+80 yp w60 h30 gLoad2, Load #2
Gui, Add, Button, xp+80 yp w60 h30 gLoad3, Load #3
Gui, Add, Button, xp+80 yp w60 h30 gLoad4, Load #4
Gui, Add, Button, xp+80 yp w60 h30 gLoad5, Load #5

StringSplit, listName_, 1ListName, |
Gui, Add, Text, cBlue vListName1 x15 y200 vPreview1 +Center w70, %listName_1%
listName_1=
StringSplit, listName_, 2ListName, |
Gui, Add, Text, cBlue vListName2 xp+80 y200 vPreview2 +Center w70, %listName_1%
listName_1=
StringSplit, listName_, 3ListName, |
Gui, Add, Text, cBlue vListName3 xp+80 y200 vPreview3 +Center w70, %listName_1%
listName_1=
StringSplit, listName_, 4ListName, |
Gui, Add, Text, cBlue vListName4 xp+80 y200 vPreview4 +Center w70, %listName_1%
listName_1=
StringSplit, listName_, 5ListName, |
Gui, Add, Text, cBlue vListName5 xp+80 y200 vPreview5 +Center w70, %listName_1%
listName_1=

Gui, Add, GroupBox, x2 y109 w930 h55 cBlue, Load Strings
Gui, Add, GroupBox, x2 y169 w930 h55 cBlue, String Preview

Gui, Show, w417 h232, Storage Manager

Gui, 2:Add, Text,, List Name ( try to limit to under 20 characters )
Gui, 2:Add, Edit, xp yp+20 w250 h20 vListTitle
Gui, 2:Add, Text, xp yp+22, List
Gui, 2:Add, Edit, xp yp+20 w250 h20 vListList
Gui, 2:Add, Button, xp yp+25 w250 h30 gSaveList, SAVE
OnMessage(0x200, "Help") 
return

GuiClose:
ExitApp
return

!d::
WinGetActiveTitle, Title
Gui, Show, w417 h112, Storage Manager
return

Hotkey:
count++
if count > %content_0%
{
    count = 0
    ToolTip, The list has restarted.
    SetTimer, TurnoffTT, 500
    return
}
toSend := content_%count%
Send %toSend%
Sleep 20
Send {Enter}
return

SaveList:
Gui, 2:submit
Gui, 1:Default
if ListTitle =
    ListTitle = List #%num%
GuiControl,, Preview%num%, %ListTitle%
IniWrite,%ListTitle%|%ListList%, Storage.ini,Save,%num%
return

Search:
Gui, 1:Default
Gui, 1:submit, nohide
ToolTip, List loaded.
SetTimer, TurnoffTT, 500
StringSplit, content_, SearchString, `,
return

TurnoffTT:
ToolTip
return

Load1:
Load2:
Load3:
Load4:
Load5:
Gui, submit, nohide
StringRight, num, A_ThisLabel, 1
IniRead, temp, Storage.ini, Save, %num%
if temp =
    return
StringSplit, temp_, temp, |
GuiControl,, SearchString, %temp_2%
return

Save1:
Save2:
Save3:
Save4:
Save5:
Gui, submit, nohide
StringRight, num, A_ThisLabel, 1
;if num = 1
;{
    GUi, 2:Default
    GuiControl,, ListList, %SearchString%
    GuiControl,, ListTitle,
    Gui, 2:Show
    GuiControl, Focus, ListTitle
;}
return

Help(wParam, lParam, Msg)
{
;---------------------------------------------------MOUSE
MouseGetPos,MouseX,MouseY,, OutputVarControl
;-------------------------------------------------------------
global ControlName := OutputVarControl

IfNotInString, ControlName, Static
    ToolTip

if ControlName = Static2
{
    IniRead, data, Storage.ini, Save,1
    if data !=
    {
        StringReplace, data, data,|,`n==========`n
        StringReplace, data, data,`,,`n
        ToolTip, %data%
    }
}
if ControlName = Static3
{
    IniRead, data, Storage.ini, Save,2
    if data !=
    {
        StringReplace, data, data,|,`n==========`n
        StringReplace, data, data,`,,`n
        ToolTip, %data%
    }
}
if ControlName = Static4
{
    IniRead, data, Storage.ini, Save,3
    if data !=
    {
        StringReplace, data, data,|,`n==========`n
        StringReplace, data, data,`,,`n
        ToolTip, %data%
    }
}
if ControlName = Static5
{
    IniRead, data, Storage.ini, Save,4
    if data !=
    {
        StringReplace, data, data,|,`n==========`n
        StringReplace, data, data,`,,`n
        ToolTip, %data%
    }
}
if ControlName = Static6
{
    IniRead, data, Storage.ini, Save,1
    if data !=
    {
        StringReplace, data, data,|,`n==========`n
        StringReplace, data, data,`,,`n
        ToolTip, %data%
    }
}
}