open_bag.txt

// =================================================
// ¶¨ÒåÔ¤Éè°´¼ü
// =================================================

Dim KEY_OPEN_BAG
Dim KEY_MOUNT
Dim KEY_TARGET_VENDOR
Dim KEY_INTERACT_TARGET

KEY_OPEN_BAG = "1"
KEY_MOUNT = "2"
KEY_TARGET_VENDOR = "3"
KEY_INTERACT_TARGET = "B"

Dim MAX_BAG_SLOT

MAX_BAG_SLOT = 90


// =================================================
// º¯Êý
// =================================================

Function get_a_bag(delay_click, delay_press)
	Delay delay_click
	LeftClick 1
	Delay delay_press
	KeyPress KEY_OPEN_BAG, 1
End Function

Function sell_items
	Delay 2000
	KeyPress KEY_MOUNT, 1
	Delay 5000
	KeyPress KEY_TARGET_VENDOR, 1
	Delay 1000
	KeyPress KEY_INTERACT_TARGET, 1
	Delay 3000
End Function

// ==================================================
// Ö÷³ÌÐò
// ==================================================
While true
	For MAX_BAG_SLOT * 10
		Call get_a_bag(300, 200)
	Next
	Call sell_items
Wend