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
285:ネトゲ廃人＠名無し
08/10/16 07:29:12
case SLCT_3
// ダブクリ連打
// Ctrl:解除
while true
sleep(1.2)
if GetKeyState(VK_CONTROL) Then break
ifb GETID(GET_FROMPOINT_WIN) = ID Then
BTN(LEFT); sleep(0.05)
BTN(LEFT); sleep(0.05)
endif
wend
case SLCT_4
// 自動拾い
// +:解除 Enter:一時停止 Ctrl:再開 Ctrl２回クリックしないと再開されない。
flag = true // true:キー送信 false:停止
while true
sleep(0.17)
ifb GETID(GET_ACTIVE_WIN) = ID Then
if GetKeyState(VK_ADD) Then break
ifb flag Then
if GetKeyState(VK_ENTER) Then flag = false
else
if GetKeyState(VK_CONTROL) Then flag = true
endif
if flag Then kbd(VK_Z)
endif
wend
default
break
Selend
wend
286:ネトゲ廃人＠名無し
08/10/16 07:34:42
// チャンネル変更。指定キーがクリックされたらfalseを返す。
// ただし、メニューがチャンネル変更を選択済みのこと。
Function ChgChannel(key)
RESULT = false
KBD( VK_Space ); sleep(2);
if GetKeyState(key) Then exit
for i = 1 to 5
KBD( VK_Z ); sleep(0.2)
next
sleep(0.2)
KBD( VK_ESC ); sleep(0.5)
if GetKeyState(key) Then exit
KBD( VK_Enter ); sleep(0.3)
KBD( VK_RIGHT ); sleep(0.3)
KBD( VK_Enter ); sleep(1.6)
if GetKeyState(key) Then exit
RESULT = true
Fend
>>284-286を繋げて保存。
回復と自動拾いがあればペット要らないんだけど。
287:名も無き冒険者
08/10/16 17:04:48
peekcolorでいいだろ