サンプルマクロ

10分ぐらいで組めるマクロしか作ってません。

• 競売連続購入マクロ

ひとつのアイテムを連続して落札する

準備する画像
画像1.bmp: 落札したいアイテム（自分は文字の部分でやってます）
画像2.bmp: 「らくさつする」
画像3-1.bmp: 落札時の値段入力用の数字１～９
画像3-2.bmp/画像3-3.bmp...以下略
画像4.bmp: 「けってい」ボタン

Dim cnt = 0
While !GetKeyState(vk_esc)
	Ifb cnt mod 20 = 0 Then
		Sleep(2)
	Endif
	cnt = cnt + 1
	WaitClick("画像1.bmp")
	//待ち時間の適正値は環境によって違うので適当に調整
	WaitClick("画像2.bmp", 0.3)
	//落札価格設定 下のは1111Lで落札したい場合
	WaitClick("画像3-1.bmp", 0.5)
	WaitClick("画像3-1.bmp")
	WaitClick("画像3-1.bmp")
	WaitClick("画像3-1.bmp")
	WaitClick("画像4.bmp")
Wend

なんか試してみたら20回ぐらい連続動作すると謎に重くなるので回避用にちょっと修正。
20回ごとに2秒休憩。
環境依存かもしれないので休憩いらないようならSleepの行は消しちゃってください。
複数のアイテム監視とか、品切れアイテム監視とかしないなら簡単。
ウェイトはギリギリに設定するとローディングで止まることがあるので、
どうせ放置するだけだし余裕を持って設定した方が確実。

• 勇者用剣振りマクロ

画像不要。

Public toggle = True

While !GetKeyState(VK_ESC)
	Select True
	Case GetKeyState(VK_SPACE)
		SwordAttach()
	SelEnd
Wend

Procedure SwordAttach()
	Dim i, Sp = 30
	Dim Count = 8
	Dim x = g_mouse_x
	Dim y = g_mouse_y
	Ifb toggle Then
		Sp = 30
	Else
		Sp = -30
	Endif
	toggle = !toggle
	 
	For i = 0 To Count
		Mmv(x + Sp * i, y, 10)
	Next
Fend

スペースキー押してる間だけマウス振り振り。
速度調整適当なので最大効率じゃないだろうから暇な人は調整して使ってください。

---