有內設熱鍵
ALT+X 開啟補血
ALT+A 開啟攻擊＿ ALT+S 關閉攻擊
ALT+Q 開啟撿屍體 ALT+W 關閉撿拾
撿拾要每次要用時手動開啟比較好全自動會怕你需要移動時會造成檢一半沒完成會當機＿
initevents
set %time0 11 - ( #DEX / 20 ) ;* 10
set %time 11 - ( #DEX / 20 )
set %time1 0
set %yfm ymf_yfm_IIF_KIF_BKF_BUD_
set %iten pof_rwf_lnk_hvf_BVF_NVF_UVF_RVF_VVF_EVF_ZVF_GVF_HVF_ZLF_VUF_OVF_FVF_
+HYM_IUF_YZF_MZF_JZF_JUF_RZF_SZF_UZF_DUF_KUF_WZF_TZF_KZF_OZF_UJG_LWL_CWL_IJG_
set %FINDREP 345
set %cnt1 0
set %mtype1 主動怪怪物ID_YD_TI_CF_ZC_WD_WE_UD_EJ_NI_YD_WD_AF_WE_HD_MD_CF_II_TD_WGB_GD_VE_SD_OD_
+WI_QF_HI_YH_YH_HD_QD_QD_VI_BF_BE_ND_VJ_QJ_PE_SE_DB_OE_XC_DD_YE_UD_XE_ED_XF_CI_UB_LD_QE_UE_
+RM_GN_BI_LO_FO_RN_BD_DF_CBB_EBB_BBB_UC_ME_
+OH_YI_
set %mtype2 被動怪怪物ID_KB_TF_XU_WF_PF_YF_YG_BG_AH_WC_VD_ZE_EG_TC_ZI_PG_TG_XD_AG_WG_RF_NG_LD_HG_ag_zh_YF_ZF_YG_TF_PF_
+CO_ZF_OH_YI_BG_CO_WC_TGB_
menu:
menu Window Title 自動補拾殺 by 溺水魚
menu font size 12
menu Window Size 350 150
menu FONT COLOR green
menu Button Healing1 5 5 130 40 開啟補血 X ; alt+X
menu Button looktake1 5 55 130 40 開啟拾取 Q ;alt+Q
menu Button Setstart 5 105 130 40 開始尋找 A ;ALT+A
menu Text Tips 140 5 類型____
menu Text Tips1 140 35 怪物ID____
menu Text Tips2 140 65 距離______
menu Text Tips4 140 95 屬性______
menu Text Tips3 140 120 歡迎使用
menu Show
;---------------------------------------------------------------------------------------
;判斷迴圈
loop:
;=======================================
ignoreitem reset
onhotkey x alt ;開起自動補血熱鍵
{
set #MENUBUTTON Healing1
}
onhotkey q alt ;開啟自動拾取
{
set #MENUBUTTON looktake1
}
onhotkey w alt ;關閉自動拾取
{
set #MENUBUTTON looktake0
}
onhotkey a alt ;開起自動反擊
{
set #MENUBUTTON Setstart
}
;--------------------------------------------------
if #MENUBUTTON = Healing1
{
set #MENUBUTTON X
menu delete Healing0
menu FONT COLOR red
menu font size 12
menu Button Healing0 5 5 130 40 關閉自動補血
set %MENUBUTTON Healing1
}
if #HITS < #MAXHITS - 5 && #CHARGHOST <> yes && #TIME - %time1 > %time && %MENUBUTTON = Healing1 ;自動補血判斷
{
gosub autobandage
}
if #MENUBUTTON = Healing0
{
menu delete Healing0
set #MENUBUTTON X
menu FONT COLOR green
menu delete Healing1
menu Button Healing1 5 5 130 40 開啟補血 X
set %MENUBUTTON Healing0
;goto menu
}
;-----------------------------------------------------
if #MENUBUTTON = looktake1 ;自動拾取判斷
{
menu delete looktake0
menu FONT COLOR red
menu Button looktake0 5 55 130 40 關閉拾取 W
set #MENUBUTTON X
gosub autotakeup
}
if #MENUBUTTON = looktake0
{
menu delete looktake1
menu FONT COLOR green
menu Button looktake1 5 55 130 40 開啟拾取 Q
set #MENUBUTTON X
}
;----------------------------------------------------
if #MENUBUTTON = Setstart
{
set %Setstart #MENUBUTTON
menu delete Setstart
menu FONT COLOR red
menu Button Setstop 5 105 130 40 停止尋找 S
set #MENUBUTTON x
gosub autosearch
}
onhotkey s alt
{
set #MENUBUTTON Setstop
}
if #MENUBUTTON = Setstop
{
set %Setstart #MENUBUTTON
menu delete Setstop
menu FONT COLOR green
menu Button Setstart 5 105 130 40 開啟尋找 A
set #MENUBUTTON x
}
if #MENUBUTTON = CLOSED
{
msg 程式已停止請重新啟動 $$
stop
}
goto loop
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
sub autobandage
event macro 58
WHILE #HITS < #MAXSTAM - 30 && C NOTIN #CHARSTATUS && #MANA > 10
{
event macro 15 202
TARGET 3S
event macro 23 0
}
set %time1 #TIME
return
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
sub autotakeup
finditem %yfm G_2
if #FINDCNT < 1
{
menu set Tips3 找不到可以撿的屍體
menu delete looktake0
menu FONT COLOR green
menu Button looktake1 5 55 130 40 開啟拾取 Q
set #MENUBUTTON looktake0
return
}
WHILE #FINDCNT > 0
{
set %targetcrop #FINDID
set #LTARGETKIND #FINDKIND
set #LOBJECTID #FINDID
set %FINDCNT #FINDCNT
ignoreitem %targetcrop
nextCPos 10 10
event macro 17 0
wait 20
finditem %iten C_ , %targetcrop
WHILE #FINDCNT > 0
{
menu FONT COLOR red
menu set Tips3 拾取物品中........
Exevent Drag #findid #findstack ;拿起尋找到的物件全部
wait 5
Exevent Dropc #BACKPACKID ;放進自己的包包中
wait 10
finditem %iten C_ , %targetcrop
}
finditem %yfm G_2
ignoreitem reset 10 ;不重覆開屍體超過30個更新
}
set #MENUBUTTON looktake0
return
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
sub autosearch
WHILE %Setstart = Setstart
{
EVENT MACRO 26 0
set %LTARGETID #LTARGETID
finditem %LTARGETID g_20
menu FONT COLOR red
menu Text Tips 140 5 類型____
menu Text Tips1 140 35 怪物ID____
menu Text Tips2 140 65 距離______
menu Text Tips4 140 95 屬性______
menu Text Tips3 140 120
menu set Tips3 正在尋找可攻擊對象
menu set Tips 類型______ #FINDTYPE
menu set Tips1 怪物ID____ #FINDID
menu set Tips2 距離______ #FINDDIST
menu set Tips4 屬性______ #FINDREP
if #FINDREP in %FINDREP && #FINDTYPE in %mtype1 && #FINDDIST <= 10
{
set #LTARGETID #FINDID
set %LTARGETID #FINDID
EVENT MACRO 49 1
TARGET 3S
EVENT MACRO 22 0
gosub attack
}
onhotkey Q alt ;開起自動反擊
{
gosub autotakeup
}
onhotkey s alt
{
set #MENUBUTTON Setstop
}
if #MENUBUTTON = Setstop
{
set %Setstart #MENUBUTTON
menu delete Setstop
menu FONT COLOR green
menu Button Setstart 5 105 130 40 開啟尋找 A
set #MENUBUTTON x
return
}
ignoreitem reset 1 #FINDID
}
return
;===========================================
sub attack
WHILE #FINDID <> X
{
onhotkey Q alt ;開起自動反擊
{
gosub autotakeup
}
onhotkey s alt
{
set #MENUBUTTON Setstop
}
menu set Tips3 正在攻擊中.....
if #MENUBUTTON = Setstop
{
set %Setstart #MENUBUTTON
menu delete Setstop
menu FONT COLOR green
menu Button Setstart 5 105 130 40 開啟尋找 A
set #MENUBUTTON x
return
}
EVENT MACRO 55
EVENT MACRO 27 0
if #HITS < #MAXHITS - 5 && #CHARGHOST <> yes && #TIME - %time1 > %time && %MENUBUTTON = Healing1 ;自動補血判斷
{
gosub autobandage
}
finditem %LTARGETID g_20
}
if #HITS < #MAXHITS - 5 && #CHARGHOST <> yes && #TIME - %time1 > %time && %MENUBUTTON = Healing1 ;自動補血判斷
{
gosub autobandage
}
return
