initevents
IGNOREITEM RESET
set %X1 30
set %X2 230
set %y 70
set #LPC 20
set %tool TLH_TBG_
set %board ENK_
set %CONTSIZEX 530
set %CONTSIZEY 497
set %CONTNAME generic_gump
set %CONTKIND AYQ
set %hotkey MOUSEEVENTF_LEFTDOWN
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
for %cnt 1 11
{
set %c . %cnt %y
set %y %y + 20
}
;;;;;;;;;;;;;;;;;;;;;;開啟人物資訊
EVENT MACRO 8 1
wait 5
CONTPOS 1310 480
EVENT MACRO 8 2
EVENT MACRO 10 2
wait 10
CONTPOS 1130 5
EVENT MACRO 8 7
wait 5
CONTPOS 1290 280
gosub menu:
goto loop
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
loop:
menu get Item
set %Item #MENURES
menu get Item1
set %Item1 #MENURES
if %Item = 1 && %Itemno = 0 && %menu_c = 0
{
WHILE #CONTSIZEX <> %CONTSIZEX || #CONTSIZEY <> %CONTSIZEY || #CONTNAME <> %CONTNAME
{
gosub tool
}
set %CONTPOSX #CONTPOSX + %x1
set %CONTPOSY #CONTPOSY + %c2
Click %CONTPOSX %CONTPOSY
wait 10
gosub menu1
set %menu_c 1
}
if %Item = 2 && %Itemno = 0 && %menu_c = 0
{
WHILE #CONTSIZEX <> %CONTSIZEX || #CONTSIZEY <> %CONTSIZEY || #CONTNAME <> %CONTNAME
{
gosub tool
}
set %CONTPOSX #CONTPOSX + %x1
set %CONTPOSY #CONTPOSY + %c3
Click %CONTPOSX %CONTPOSY
wait 10
gosub menu2
set %menu_c 1
}
if %Item = 3 && %Itemno = 0 && %menu_c = 0
{
WHILE #CONTSIZEX <> %CONTSIZEX || #CONTSIZEY <> %CONTSIZEY || #CONTNAME <> %CONTNAME
{
gosub tool
}
set %CONTPOSX #CONTPOSX + %x1
set %CONTPOSY #CONTPOSY + %c4
Click %CONTPOSX %CONTPOSY
wait 10
gosub menu3
set %menu_c 1
}
if %Item = 4 && %Itemno = 0 && %menu_c = 0
{
WHILE #CONTSIZEX <> %CONTSIZEX || #CONTSIZEY <> %CONTSIZEY || #CONTNAME <> %CONTNAME
{
gosub tool
}
set %CONTPOSX #CONTPOSX + %x1
set %CONTPOSY #CONTPOSY + %c5
Click %CONTPOSX %CONTPOSY
wait 10
gosub menu4
set %menu_c 1
}
if %Item = 5 && %Itemno = 0 && %menu_c = 0
{
WHILE #CONTSIZEX <> %CONTSIZEX || #CONTSIZEY <> %CONTSIZEY || #CONTNAME <> %CONTNAME
{
gosub tool
}
set %CONTPOSX #CONTPOSX + %x1
set %CONTPOSY #CONTPOSY + %c6
Click %CONTPOSX %CONTPOSY
wait 10
gosub menu5
set %menu_c 1
}
if %Item = 6 && %Itemno = 0 && %menu_c = 0
{
WHILE #CONTSIZEX <> %CONTSIZEX || #CONTSIZEY <> %CONTSIZEY || #CONTNAME <> %CONTNAME
{
gosub tool
}
set %CONTPOSX #CONTPOSX + %x1
set %CONTPOSY #CONTPOSY + %c7
Click %CONTPOSX %CONTPOSY
wait 10
gosub menu6
set %menu_c 1
}
if %Item = 7 && %Itemno = 0 && %menu_c = 0
{
WHILE #CONTSIZEX <> %CONTSIZEX || #CONTSIZEY <> %CONTSIZEY || #CONTNAME <> %CONTNAME
{
gosub tool
}
set %CONTPOSX #CONTPOSX + %x1
set %CONTPOSY #CONTPOSY + %c8
Click %CONTPOSX %CONTPOSY
wait 10
gosub menu7
set %menu_c 1
}
if %Item = 8 && %Itemno = 0 && %menu_c = 0
{
WHILE #CONTSIZEX <> %CONTSIZEX || #CONTSIZEY <> %CONTSIZEY || #CONTNAME <> %CONTNAME
{
gosub tool
}
set %CONTPOSX #CONTPOSX + %x1
set %CONTPOSY #CONTPOSY + %c9
Click %CONTPOSX %CONTPOSY
wait 10
gosub menu8
set %menu_c 1
}
if %Item = 9 && %Itemno = 0 && %menu_c = 0
{
WHILE #CONTSIZEX <> %CONTSIZEX || #CONTSIZEY <> %CONTSIZEY || #CONTNAME <> %CONTNAME
{
gosub tool
}
set %CONTPOSX #CONTPOSX + %x1
set %CONTPOSY #CONTPOSY + %c10
Click %CONTPOSX %CONTPOSY
wait 10
gosub menu9
set %menu_c 1
}
if %Item = 10 && %Itemno = 0 && %menu_c = 0
{
WHILE #CONTSIZEX <> %CONTSIZEX || #CONTSIZEY <> %CONTSIZEY || #CONTNAME <> %CONTNAME
{
gosub tool
}
set %CONTPOSX #CONTPOSX + %x1
set %CONTPOSY #CONTPOSY + %c11
Click %CONTPOSX %CONTPOSY
wait 10
gosub menu10
set %menu_c 1
}
if #MENUBUTTON = RENEW
{
gosub menu:
}
if #MENUBUTTON = CLOSED
{
msg
stop
}
;;;;;;;;;;;;;;;;;;;;;;;;;;
if %Item1 = 1 && %menu_c = 1
{
WHILE #CONTSIZEX <> %CONTSIZEX || #CONTSIZEY <> %CONTSIZEY || #CONTNAME <> %CONTNAME
{
gosub tool
}
set %CONTPOSX1 #CONTPOSX + %x2
set %CONTPOSY1 #CONTPOSY + %c1
set %menu_c 2
}
if %Item1 = 2 && %menu_c = 1
{
WHILE #CONTSIZEX <> %CONTSIZEX || #CONTSIZEY <> %CONTSIZEY || #CONTNAME <> %CONTNAME
{
gosub tool
}
set %CONTPOSX1 #CONTPOSX + %x2
set %CONTPOSY1 #CONTPOSY + %c2
set %menu_c 2
}
if %Item1 = 3 && %menu_c = 1
{
WHILE #CONTSIZEX <> %CONTSIZEX || #CONTSIZEY <> %CONTSIZEY || #CONTNAME <> %CONTNAME
{
gosub tool
}
set %CONTPOSX1 #CONTPOSX + %x2
set %CONTPOSY1 #CONTPOSY + %c3
set %menu_c 2
}
if %Item1 = 4 && %menu_c = 1
{
WHILE #CONTSIZEX <> %CONTSIZEX || #CONTSIZEY <> %CONTSIZEY || #CONTNAME <> %CONTNAME
{
gosub tool
}
set %CONTPOSX1 #CONTPOSX + %x2
set %CONTPOSY1 #CONTPOSY + %c4
set %menu_c 2
}
if %Item1 = 5 && %menu_c = 1
{
WHILE #CONTSIZEX <> %CONTSIZEX || #CONTSIZEY <> %CONTSIZEY || #CONTNAME <> %CONTNAME
{
gosub tool
}
set %CONTPOSX1 #CONTPOSX + %x2
set %CONTPOSY1 #CONTPOSY + %c5
set %menu_c 2
}
if %Item1 = 6 && %menu_c = 1
{
WHILE #CONTSIZEX <> %CONTSIZEX || #CONTSIZEY <> %CONTSIZEY || #CONTNAME <> %CONTNAME
{
gosub tool
}
set %CONTPOSX1 #CONTPOSX + %x2
set %CONTPOSY1 #CONTPOSY + %c6
set %menu_c 2
}
if %Item1 = 7 && %menu_c = 1
{
WHILE #CONTSIZEX <> %CONTSIZEX || #CONTSIZEY <> %CONTSIZEY || #CONTNAME <> %CONTNAME
{
gosub tool
}
set %CONTPOSX1 #CONTPOSX + %x2
set %CONTPOSY1 #CONTPOSY + %c7
set %menu_c 2
}
if %Item1 = 8 && %menu_c = 1
{
WHILE #CONTSIZEX <> %CONTSIZEX || #CONTSIZEY <> %CONTSIZEY || #CONTNAME <> %CONTNAME
{
gosub tool
}
set %CONTPOSX1 #CONTPOSX + %x2
set %CONTPOSY1 #CONTPOSY + %c8
set %menu_c 2
}
if %Item1 = 9 && %menu_c = 1
{
WHILE #CONTSIZEX <> %CONTSIZEX || #CONTSIZEY <> %CONTSIZEY || #CONTNAME <> %CONTNAME
{
gosub tool
}
set %CONTPOSX1 #CONTPOSX + %x2
set %CONTPOSY1 #CONTPOSY + %c9
set %menu_c 2
}
if %Item1 = 10 && %menu_c = 1
{
WHILE #CONTSIZEX <> %CONTSIZEX || #CONTSIZEY <> %CONTSIZEY || #CONTNAME <> %CONTNAME
{
gosub tool
}
set %CONTPOSX1 #CONTPOSX + %x2
set %CONTPOSY1 #CONTPOSY + %c10
set %menu_c 2
}
if %Item1 = 11 && %menu_c = 1
{
WHILE #CONTSIZEX <> %CONTSIZEX || #CONTSIZEY <> %CONTSIZEY || #CONTNAME <> %CONTNAME
{
gosub tool
}
set %CONTPOSX1 #CONTPOSX + %x2
set %CONTPOSY1 #CONTPOSY + %c1
set %menu_c 2
}
if %Item1 = 12 && %menu_c = 1
{
WHILE #CONTSIZEX <> %CONTSIZEX || #CONTSIZEY <> %CONTSIZEY || #CONTNAME <> %CONTNAME
{
gosub tool
}
set %CONTPOSX1 #CONTPOSX + %x2
set %CONTPOSY1 #CONTPOSY + %c2
set %menu_c 2
}
if %menu_c = 2 && %Itemno = 0
{
gosub setItemno
menu FONT COLOR green
menu Button start 220 70 120 50 開始製作
set %menu_c 3
}
if %menu_c = 3 && #MENUBUTTON = start
{
gosub make
gosub menu:
}
if #MENUBUTTON = CLOSED
{
msg 程式停止請重新開始執行 $
stop
}
goto loop ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
sub setItemno
WHILE %Itemno = 0
{
menu get Itemno
set %Itemno #MENURES
if %Itemno = 1
{
set %makeno 10
}
if %Itemno = 2
{
set %makeno 15
}
if %Itemno = 3
{
set %makeno 20
}
}
return
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
sub tool
finditem %board C_ , #BACKPACKID
menu set tip4 鐵錠數量 #FINDSTACK
WHILE #FINDSTACK < 10
{
menu set tipo 鐵錠不足請補充
finditem %board c_ , #BACKPACKID
wait 10
}
finditem %tool c_ , #BACKPACKID
if #FINDCNT > 0
{
set #LOBJECTID #FINDID
event macro 17 0
wait 10
return
}
WHILE #FINDCNT = 0
{
menu set tipo 身上沒工具
wait 10
finditem %tool c_ , #BACKPACKID
}
return
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
sub make
set %make 0
WHILE %make < %makeno
{
WHILE #CONTSIZEX <> %CONTSIZEX || #CONTSIZEY <> %CONTSIZEY || #CONTNAME <> %CONTNAME
{
gosub tool
}
if %Item1 > 10
{
set %CONTPOSX #CONTPOSX + 380
set %CONTPOSY #CONTPOSY + 270
Click %CONTPOSX %CONTPOSY
wait 20
}
Click %CONTPOSX1 %CONTPOSY1
wait 30
set %make %make + 1
;gosub joinbob
menu set tip1 已經製造 %make
;gosub melt
}
return
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
sub joinbob
IGNOREITEM RESET
WHILE #CONTSIZEY <> 332 && #CONTSIZEY <> 308
{
finditem EYM c_ , #BACKPACKID
set #LOBJECTID #FINDID
EVENT MACRO 17 0
wait 10
}
gosub bob1
return
sub bob1
finditem %itemTYPE c_ , #BACKPACKID
set #LTARGETID #FINDID
set %FINDCNT #FINDCNT
WHILE #CONTSIZEY = 332 && #FINDCNT > 0
{
set %CONTPOSX2 #CONTPOSX + 140
set %CONTPOSY2 #CONTPOSY + 250
Click %CONTPOSX2 %CONTPOSY2
TARGET 3S
WHILE #targcurs = 1
{
EVENT MACRO 22 0
wait 10
}
set %make %make + 1
finditem %itemTYPE c_ , #BACKPACKID
set #LTARGETID #FINDID
set %FINDCNT #FINDCNT
gosub melt
}
WHILE #CONTSIZEY = 308 && #FINDCNT > 0
{
set %CONTPOSX2 #CONTPOSX + 140
set %CONTPOSY2 #CONTPOSY + 230
Click %CONTPOSX2 %CONTPOSY2
TARGET 3S
WHILE #targcurs = 1
{
EVENT MACRO 22 0
wait 10
}
finditem %itemTYPE c_ , #BACKPACKID
set #LTARGETID #FINDID
set %FINDCNT #FINDCNT
set %make %make + 1
gosub melt
}
return
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
sub melt
IGNOREITEM RESET
finditem %itemTYPE c_ , #BACKPACKID
set #LTARGETID #FINDID
WHILE #FINDCNT > 0
{
WHILE #CONTSIZEX <> %CONTSIZEX || #CONTSIZEY <> %CONTSIZEY || #CONTNAME <> %CONTNAME
{
gosub tool
}
finditem %itemTYPE c_ , #BACKPACKID
set #LTARGETID #FINDID
set %CONTPOSX #CONTPOSX + 30
set %CONTPOSY #CONTPOSY + 350
Click %CONTPOSX %CONTPOSY
TARGET 3S
WHILE #targcurs = 1
{
EVENT MACRO 22 0
}
}
return
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
sub menu:
set %menu_c 0
set %Item 0
set %Itemno 0
IGNOREITEM RESET
MENU CLEAR
menu Window Title 自動鐵匠製作 by 溺水魚
menu font size 12
menu Window Size 350 210
menu FONT COLOR green
menu Button RENEW 220 150 120 50 重新選擇
menu Text tipo 200 0 請選擇製作數量
menu Text CHARNAME 0 180 目前帳號 #CHARNAME
menu Text tipo 0 60 請選擇製作項目
menu FONT COLOR red
menu Combo Create Item 0 30 180
menu Combo Add Item 金屬護甲
menu Combo Add Item 頭盔
menu Combo Add Item 盾牌
menu Combo Add Item 劍
menu Combo Add Item 戰斧
menu Combo Add Item 長杆
menu Combo Add Item 重擊
menu Combo Add Item 大砲
menu Combo Add Item 投擲術
menu Combo Add Item 雜項
menu Combo Create Itemno 220 30 100
menu Combo Add Itemno 10
menu Combo Add Itemno 15
menu Combo Add Itemno 20
menu text tip1 220 120
menu text tip4 0 150 鐵錠數量
menu Text Itemno 0 0 鐵匠訂單___
menu font size 12
menu Show 550 550
return
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
sub menu1
menu FONT COLOR green
menu Text tipo 0 120 請選擇製作盔甲
menu FONT COLOR red
menu Combo Create Item1 0 90 180 金屬護甲
menu Combo Add Item1 環甲手套 BMH_
menu Combo Add Item1 環甲護甲 IMH_
menu Combo Add Item1 環甲護臂 YLH_
menu Combo Add Item1 環假胸甲 WLH_
menu Combo Add Item1 鏈甲頭巾 DPH_
menu Combo Add Item1 鏈甲護腿 APH_
menu Combo Add Item1 鏈胸甲 ZOH_
menu Combo Add Item1 鎧甲護臂 MSH_
menu Combo Add Item1 鎧甲手套 ISH_
menu Combo Add Item1 鎧甲護喉 NSH_
menu Combo Add Item1 鎧甲護腿 LSH_
menu Combo Add Item1 鎧甲 HSH_
set %itemTYPE BMH_IMH_YLH_WLH_DPH_APH_ZOH_MSH_ISH_NSH_LSH_HSH_
return
sub menu2
menu FONT COLOR green
menu Text tipo 0 120 請選擇製作頭盔
menu FONT COLOR red
menu Combo Create Item1 0 90 180
menu Combo Add Item1 騎士頭盔 ASH_
menu Combo Add Item1 全罩式鋼盔 ESH_
menu Combo Add Item1 頭盔 GSH_
menu Combo Add Item1 護鼻頭盔 CSH_
menu Combo Add Item1 鎧甲頭盔 OSH_
menu Combo Add Item1 鏈甲半首 EWO_
menu Combo Add Item1 鎧甲半首 DWO_
menu Combo Add Item1 重鎧甲陣笠 FWO_
menu Combo Add Item1 輕鎧甲陣笠 VBP_
menu Combo Add Item1 小鎧甲陣笠 SBP_
set %itemTYPE ASH_ESH_GSH_CSH_OSH_EWO_DWO_FWO_VBP_SBP_
return
sub menu3
menu FONT COLOR green
menu Text tipo 0 120 請選擇製作盾牌
menu FONT COLOR red
menu Combo Create Item1 0 90 180
menu Combo Add Item1 小圓盾 FIK_
menu Combo Add Item1 銅盾 GIK_
menu Combo Add Item1 大方盾 CIK_
menu Combo Add Item1 金屬盾 NIK_
menu Combo Add Item1 金屬風箏盾 AIK_
menu Combo Add Item1 風箏盾 MIK_
menu Combo Add Item1 渾沌之盾 HLK_
menu Combo Add Item1 秩序之盾 CLK_
menu Combo Add Item1 小板盾 WCZ_
menu Combo Add Item1 翼魔風箏盾 TCZ_
set %itemTYPE FIK_GIK_CIK_NIK_AIK_MIK_HLK_CLK_WCZ_TCZ_
return
sub menu4
menu FONT COLOR green
menu Text tipo 0 120 請選擇製作劍
menu FONT COLOR red
menu Combo Create Item1 0 90 180
menu Combo Add Item1 集骨者 FUO_
menu Combo Add Item1 闊劍 ATF
menu Combo Add Item1 雙月彎刀NPO_
menu Combo Add Item1 彎刀 JPH_
menu Combo Add Item1 匕首 WSF_
menu Combo Add Item1 武士刀 NMH_
menu Combo Add Item1 蛇劍 VRH_
menu Combo Add Item1 長劍 JTF_
menu Combo Add Item1 阿拉伯彎刀SOH_
menu Combo Add Item1 維京巨劍 BPH_
set %itemTYPE FUO_ATF_NPO_JPH_WSF_NMH_VRH_JTF_SOH_BPH_
return
sub menu5
menu FONT COLOR green
menu Text tipo 0 120 請選擇製作戰斧
menu FONT COLOR red
menu Combo Create Item1 0 90 180
menu Combo Add Item1 斧頭 LSF_
menu Combo Add Item1 戰斧 BSF_
menu Combo Add Item1 雙刃斧 NSF_
menu Combo Add Item1 劊子手之斧ZRF_RMH_
menu Combo Add Item1 戰鬥巨斧 RMH_
menu Combo Add Item1 雙手斧 LPH_
menu Combo Add Item1 戰鬥斧 UOH_
menu Combo Add Item1 華麗斧頭 OFR_
menu Combo Add Item1 守護者斧頭
menu Combo Add Item1 歌唱斧頭
set %itemTYPE LSF_BSF_NSF_ZRF_RMH_LPH_UOH_OFR_
return
sub menu6
menu FONT COLOR green
menu Text tipo 0 120 請選擇製作長杆
menu FONT COLOR red
menu Combo Create Item1 0 90 180
menu Combo Add Item1 刀戟 HSF_
menu Combo Add Item1 刃杖 ZTO_
menu Combo Add Item1 雙頭刃杖BUO_
menu Combo Add Item1 戟 YTH_
menu Combo Add Item1 長矛 OPO_
menu Combo Add Item1 長矛 CUO_
menu Combo Add Item1 短矛 XRH_
menu Combo Add Item1 長柄鐮刀GUO_
menu Combo Add Item1 長槍 MTF_
menu Combo Add Item1 戰鬥叉 RRH_
set %itemTYPE HSF_ZTO_BUO_YTH_OPO_CUO_XRH_GUO_MTF_RRH_
return
sub menu7
menu FONT COLOR green
menu Text tipo 0 120 請選擇製作重擊
menu FONT COLOR red
menu Combo Create Item1 0 90 180
menu Combo Add Item1 鎚鎬 VTH_
menu Combo Add Item1 釘頭槌 YSF_
menu Combo Add Item1 大槌 BUH
menu Combo Add Item1 權杖 AUO_
menu Combo Add Item1 戰鬥釘頭槌TRH_
menu Combo Add Item1 戰槌 ZTH_
menu Combo Add Item1 鐵扇
menu Combo Add Item1 鑽石鎚 CFR
menu Combo Add Item1 碎片製造機
menu Combo Add Item1 紅寶石釘頭槌
set %itemTYPE VTH_YSF_BUH_AUO_TRH_ZTH_CFR_
return
sub menu8
menu FONT COLOR green
menu Text tipo 0 120 請選擇製作大砲
menu FONT COLOR red
menu Combo Create Item1 0 90 180
menu Combo Add Item1 砲彈
menu Combo Add Item1 大砲用散霧彈
menu Combo Add Item1 卡爾維林炮
menu Combo Add Item1 大型火炮
return
sub menu9
menu FONT COLOR green
menu Text tipo 0 120 請選擇製作投擲術
menu FONT COLOR red
menu Combo Create Item1 0 90 180
menu Combo Add Item1 迴力鏢
menu Combo Add Item1 氣旋
menu Combo Add Item1 魂闊劍
set %itemTYPE
return
sub menu10
menu FONT COLOR green
menu Text tipo 0 120 請選擇製作雜項
menu FONT COLOR red
menu Combo Create Item1 0 90 180
menu Combo Add Item1 龍手套
menu Combo Add Item1 龍頭盔
menu Combo Add Item1 龍護腿
menu Combo Add Item1 籠袖套
menu Combo Add Item1 龍金屬護胸
menu Combo Add Item1 碎玻璃
menu Combo Add Item1 鐵粉
menu Combo Add Item1 金屬小桶
menu Combo Add Item1 埃及犧牲匕首
menu Combo Add Item1 末日封建手套
set %itemTYPE
return
stop
