08/10/16 07:27:39
// Tenvi向け単純マクロ
// 採掘５回、連続、ダブクリ連続、自動拾い
StopForm(true)
while true
s = SLCTBOX( SLCT_BTN, 0, 0, 0, "マクロ選択 （Ctrlで解除・再開）", "採掘５回", "採掘連続", "ダブクリ連続", "自動拾い（Z)" )
ID = GETID("Tenvi","EngineClass")
ACW(ID)
MOUSEORG(ID)
hWnd = IDToHND(ID)
Select s
case SLCT_1
// 採掘５回
// Ctrl:解除
for i = 1 to 5
if !ChgChannel(VK_CONTROL) Then break
next
case SLCT_2
// 採掘連続
// Ctrl:解除
while true
if !ChgChannel(VK_CONTROL) Then break
wend