Ark Scripts

; This Script was made by Kenneth "Modernkennnern" Hoff. It is still a W.I.P
; This Script is


; ------------ Changing Variables via GUI -----------
F2::

InputBox, NumberOfUses, How Many Items Are In A Stack?,
(
Raw Meat = 20 / Cooked Meat = 30 / Berries = 100

This can always be changed with F2
), , , , ,
MsgBox You set current stack amount to: %NumberOfUses%.
FileDelete, %A_WorkingDir%\Stored Variables\(Ark)ScriptVariables.txt
FileAppend, %NumberOfUses%, %A_WorkingDir%\Stored Variables\(Ark)ScriptVariables.txt
Return


; ------------ Remote Using X amounts of Food -----------
F3::

FileRead, NumberOfUses, %A_WorkingDir%\Stored Variables\(Ark)ScriptVariables.txt
IfNotExist, %A_WorkingDir%\Stored Variables\(Ark)ScriptVariables.txt
	{
		MsgBox, 1,, There is no stacksize set, do you want to set it? [This can always be changed with "F2"]
		IfMsgBox OK
		{
			FileDelete, %A_WorkingDir%\Stored Variables\(Ark)ScriptVariables.txt
			InputBox, NumberOfUses, How Many Items Are In A Stack?,
			(
Raw Meat = 20 / Cooked Meat = 30 / Berries = 100

This can always be changed with F2
			)

			, , , , ,

			FileAppend, %NumberOfUses%, %A_WorkingDir%\Stored Variables\(Ark)ScriptVariables.txt
			MsgBox, Stacksize is now %NumberofUses%
		}
		IfMsgBox Cancel
		{
			MsgBox, Cannot continue without a Stacksize.
		}
	}

  While GetKeyState("F3","P")
	{
	MouseGetPos, RemotePosX1, RemotePosY1 ; Stores the position of your Cursor.

	Click %RemotePosX%, %RemotePosY% ; Position of your Cursor.
	Click 1100, 765, %NumberOfUses% ; Remote use Button X times (where X = Variable you choose with F2 )

	MouseMove, %RemotePosX1%, %RemotePosY1% ; Position of your Cursor.
	}

Return


; ------------ Splitting stacks into ones. --------------
F4::

 While GetKeyState("F4","P")
  {
	SendInput {Ctrl Down}
	MouseGetPos, StackPosX, StackPosY
	MouseClickDrag, left, 0, 0, -35, 0, 2, R
	;Sleep, 20
	SendInput {Ctrl Up}
	MouseMove, %StackPosX%, %StackPosY%
  }
Return


; ------------ Checking Current Stack Amount. ------------
F5::

MsgBox You set current stack amount to: %NumberOfUses%


; ------------ GUI ---------------------------------------
F6::
FileRead, NumberOfUses, %A_WorkingDir%\Stored Variables\(Ark)ScriptVariables.txt

Gui, Add, Button, x15 y50 w100 gStacksize,  Stacksize: %NumberOfUses%
Gui, Add, Button, x+20 w225 gRemoteUse, Location of "Remote Use Item" Button. [NYI]
Gui, Font, s11 cRed, Verdana
Gui, Add, Text, x25 y15, Which Variable to change?
Gui, Show, Center, Variables

Return

Stacksize:

InputBox, NumberOfUses, How Many Items Are In A Stack?,
(
Raw Meat = 20 / Cooked Meat = 30 / Berries = 100

This can always be changed with F2
), , , , ,
MsgBox You set current stack amount to: %NumberOfUses%.
FileDelete, %A_WorkingDir%\Stored Variables\(Ark)ScriptVariables.txt
FileAppend, %NumberOfUses%, %A_WorkingDir%\Stored Variables\(Ark)ScriptVariables.txt

Return

RemoteUse:
  Msgbox, This is not yet implemented :(
Return

GuiClose:
  Reload
Return


; ------------ Additional Macros ---------------------------------------

Pause::reload
^Pause::reload