ħÓò¹éÀ´È«×Ô¶¯½Å±¾²»¿¿ÄÚ´æ¶Áд£¬×ßͼɫʶ±ð+Ä£Äâµã»÷×îÎÈ£¬°´¼ü¾«ÁéÊÖ»ú°æ£¨°²×¿£©»ò´¥¶¯¾«Á飨Lua£©¶¼ÄÜд£¬ºËÐÄÊǰÑÑ»·ÊÇ£ºÆôͣУÑé→ºìÀ¶ÅжϺÈÒ©→ÕÒ¹ÖÉ«µã¹¥»÷→ËÀÍöÅжϻسÇ→ʰȡ¹ýÂË→¸±±¾/ÈÕ³£½ÚµãÌø×ª¡£ÏÂÃæ¸ø¿ÉÖ±½Ó³µÄ°´¼ü¾«Á鰲׿°æ¹Ç¼Ü£¬´¥¶¯¾«Áé°ÑÓï·¨»»³ÉLuaº¯ÊýÌ×ͬÂß¼¼´¿É¡£
'==== ħÓò¹éÀ´ È«×Ô¶¯¹Ò»ú½Å±¾ v1 °´¼ü¾«ÁéÊÖ»ú°æ ====
ScreenWidth = GetScreenWidth()
ScreenHeight = GetScreenHeight()
' ³õʼ»¯£ºÓÎϷǰ̨¡¢·Ö±æÂÊ720x1280»ù×¼£¬Êµ¼ÊÉ豸°´±ÈÀýËõ·Å
Sub Init()
Call SetScreenScale(720, 1280) ' ×ø±ê°´±ÈÀýÓ³Éä
Call KeepGameFront("ħÓò¹éÀ´") ' ±£ÓÎÏ·ÔÚ×îǰ
End Sub
' ÕÒÑÕÉ«£ººìҩƿͼ±êɫֵ£¨Êµ²â×¥µãÌæ»»£©¡¢À¶Ò©Æ¿É«Öµ
Function NeedHP() As Boolean
Dim x, y
NeedHP = False
If FindColor(0, 0, 720, 1280, "FF0000", 1, 0.9, x, y) = 1 Then NeedHP = True
End Function
Function NeedMP() As Boolean
Dim x, y
NeedMP = False
If FindColor(0, 0, 720, 1280, "0000FF", 1, 0.9, x, y) = 1 Then NeedMP = True
End Function
' ºÈÒ©£ºµã¿ì½ÝÀ¸F1ºì F2À¶£¬×ø±ê°´720x1280×¥
Sub DrinkHP()
KeyPress "F1", 1
Delay 300
End Sub
Sub DrinkMP()
KeyPress "F2", 1
Delay 300
End Sub
' ÕÒ¹Ö£º¹ÖÎïѪÌõºìÌõɫֵ£¬ÕÒµ½µãÆÁÄ»ÖÐÐÄÆ«ÉÏ´¥·¢ÆÕ¹¥F3
Function FindMob() As Boolean
Dim x, y
FindMob = False
If FindColor(50, 200, 670, 900, "CC0000", 1, 0.85, x, y) = 1 Then
Tap (x - 5), (y - 60) ' µã¹ÖÉíÉÏ
KeyPress "F3", 1 ' ÆÕ¹¥
Delay 800 + Rnd()*400 ' Ëæ»úÆ«ÒÆ·ÀÌØÕ÷
FindMob = True
End If
End Function
' ʰȡ£ºµã±³°ü×Ô¶¯Ê°È¡°´Å¥»ò×ßF4ʰȡ¼¼ÄÜ
Sub PickLoot()
KeyPress "F4", 1
Delay 500
End Sub
' ËÀÍöÅжϣº½ÇɫͷÏñ±ä»Ò»ò»Ø³Ç°´Å¥³öÏÖ
Function IsDead() As Boolean
Dim x, y
IsDead = False
If FindColor(300, 50, 420, 150, "888888", 1, 0.8, x, y) = 1 Then IsDead = True
End Function
Sub BackToCity()
KeyPress "F9", 1 ' »Ø³Ç¾í°ó¶¨¼ü
Delay 3000
End Sub
'==== Ö÷Ñ»· ====
Call Init()
While True
If IsDead() Then
Call BackToCity()
Delay 2000
Else
If NeedHP() Then Call DrinkHP()
If NeedMP() Then Call DrinkMP()
If Not FindMob() Then
' û¹Ö×ßλ£ºÐ¡·ù¶ÈÍ϶¯Ò¡¸Ë»òËæ»úµã¿ÕµØ
Swipe 360, 800, 360+Rnd()*40-20, 780, 300
Delay 1500
End If
Call PickLoot()
End If
Delay 500 + Rnd()*300
Wend
дµÄʱºò°Ñ"FF0000""0000FF""CC0000""888888"È«»»³ÉÄãʵ»ú×¥µÄɫֵ£º¿ªÓÎÏ·°´ÒôÁ¿ÏÂ½ØÆÁ£¬Óð´¼ü¾«ÁéץɫÆ÷µãºìÒ©Æ¿/À¶Ò©Æ¿/¹ÖѪÌõ/ËÀÍö»ÒÍ·ÏñÈ¡HEX¡£×ø±êͬÀíÓÃ×¥µãÆ÷ÔÚ720×1280»ù׼ϵãF1-F9¼¼ÄÜÀ¸¡¢»Ø³Ç¾íλÖá¢Ò¡¸ËÖÐÐÄ£¬Êµ»ú·Ö±æÂʲ»Í¬¿¿SetScreenScale×Ô¶¯»»Ëã¡£
ÈÕ³£¸±±¾Ìø×ª¿¿Ê±¼ä»òµØÍ¼ÃûɫֵÅжϣº±ÈÈçÕûµã½ø"¾ÅÐǸ±±¾"¾Í¶ÁµØÍ¼ÃûÇøÓòÉ«¿é£¬Æ¥Åäµ½¾ÍTap´«ËÍNPC×ø±ê£»²»ÏëдÅжϾͷÖÁ½¸ö½Å±¾Îļþ£¬°×Ìì¹ÒÊ÷Ðijǡ¢Íí8µãÊÖ¶¯ÇоÅÐǽű¾£¬±ÈдһÌ×ÍòÄÜÅжÏÎÈ¡£
ºÏ»÷/»ÃÊÞ²Ù×÷¼ÓÒ»¶Î£ºÕÒ±¦±¦ÑªÌõɫֵµÍÓÚãÐÖµTap"ÕÙ»Ø"¼ü£¨F6£©£¬CDºÃÁËTap"³öÕ½"¼ü£¨F7£©£¬±¦±¦ËÀ×Ô¶¯²¹ÕÙ£¬Ð´ÔÚÖ÷Ñ»·IsDead·ÖÖ§ºóÃæ¡£
·À·âµ×Ïߣºµã»÷¼ä¸ôÈ«¼ÓRnd()Ëæ»ú¶¶¶¯¡¢Ã¿¹Ò4µ½6Сʱ½Å±¾ÀïCall ExitScriptÍËÒ»´ÎÔÙÊÖ¶¯Æô¡¢Í¬ÔÆÊÖ»úͬIP²»³¬5¿ª¡¢²»ÅöÄÚ´æ¶Áд²»×¢ÈëDLL£¬Í¼É«Ä£Äâµã»÷ÊÇÍâ¹ÒÀïÏà¶ÔµÍµ÷µÄÒ»ÖÖ¡£´¥¶¯¾«Áé°æ°ÑFindColor»»³ÉfindColorº¯Êý¡¢Tap»»³ÉtouchDown/Up¡¢KeyPress»»³ÉkeyDown/Up£¬Âß¼Ò»×Ö²»»»¡£
µ÷Íê½øÊ÷ÐijÇÍâ²ãÅܰëСʱÑéÖ¤£ººìÀ¶µôÊÇ·ñ×Ô¶¯°´F1F2¡¢¹ÖË¢ÊÇ·ñ×Ô¶¯F3¡¢ËÀÊÇ·ñF9»Ø³Ç¡¢¼«Æ·ÊÇ·ñF4¼ñµ½°ü£¬ËÄÏîȫ˳ÔÙ¿ª³¤¹Ò£»Ö»ºÈÒ©²»´ò¹ÖÊǹÖѪÌõɫֵץƫ£¬ÂÒÅܲ»¹¥»÷ÊÇTap×ø±êû¼õÆ«ÒÆ£¬¿¨Ò©ÊÇÓÎÏ·ÄÚF12×Ô¶¯ºÈҩû¹Øµ¼Öºͽű¾ÇÀ¼ü¡£
'==== ħÓò¹éÀ´ È«×Ô¶¯¹Ò»ú½Å±¾ v1 °´¼ü¾«ÁéÊÖ»ú°æ ====
ScreenWidth = GetScreenWidth()
ScreenHeight = GetScreenHeight()
' ³õʼ»¯£ºÓÎϷǰ̨¡¢·Ö±æÂÊ720x1280»ù×¼£¬Êµ¼ÊÉ豸°´±ÈÀýËõ·Å
Sub Init()
Call SetScreenScale(720, 1280) ' ×ø±ê°´±ÈÀýÓ³Éä
Call KeepGameFront("ħÓò¹éÀ´") ' ±£ÓÎÏ·ÔÚ×îǰ
End Sub
' ÕÒÑÕÉ«£ººìҩƿͼ±êɫֵ£¨Êµ²â×¥µãÌæ»»£©¡¢À¶Ò©Æ¿É«Öµ
Function NeedHP() As Boolean
Dim x, y
NeedHP = False
If FindColor(0, 0, 720, 1280, "FF0000", 1, 0.9, x, y) = 1 Then NeedHP = True
End Function
Function NeedMP() As Boolean
Dim x, y
NeedMP = False
If FindColor(0, 0, 720, 1280, "0000FF", 1, 0.9, x, y) = 1 Then NeedMP = True
End Function
' ºÈÒ©£ºµã¿ì½ÝÀ¸F1ºì F2À¶£¬×ø±ê°´720x1280×¥
Sub DrinkHP()
KeyPress "F1", 1
Delay 300
End Sub
Sub DrinkMP()
KeyPress "F2", 1
Delay 300
End Sub
' ÕÒ¹Ö£º¹ÖÎïѪÌõºìÌõɫֵ£¬ÕÒµ½µãÆÁÄ»ÖÐÐÄÆ«ÉÏ´¥·¢ÆÕ¹¥F3
Function FindMob() As Boolean
Dim x, y
FindMob = False
If FindColor(50, 200, 670, 900, "CC0000", 1, 0.85, x, y) = 1 Then
Tap (x - 5), (y - 60) ' µã¹ÖÉíÉÏ
KeyPress "F3", 1 ' ÆÕ¹¥
Delay 800 + Rnd()*400 ' Ëæ»úÆ«ÒÆ·ÀÌØÕ÷
FindMob = True
End If
End Function
' ʰȡ£ºµã±³°ü×Ô¶¯Ê°È¡°´Å¥»ò×ßF4ʰȡ¼¼ÄÜ
Sub PickLoot()
KeyPress "F4", 1
Delay 500
End Sub
' ËÀÍöÅжϣº½ÇɫͷÏñ±ä»Ò»ò»Ø³Ç°´Å¥³öÏÖ
Function IsDead() As Boolean
Dim x, y
IsDead = False
If FindColor(300, 50, 420, 150, "888888", 1, 0.8, x, y) = 1 Then IsDead = True
End Function
Sub BackToCity()
KeyPress "F9", 1 ' »Ø³Ç¾í°ó¶¨¼ü
Delay 3000
End Sub
'==== Ö÷Ñ»· ====
Call Init()
While True
If IsDead() Then
Call BackToCity()
Delay 2000
Else
If NeedHP() Then Call DrinkHP()
If NeedMP() Then Call DrinkMP()
If Not FindMob() Then
' û¹Ö×ßλ£ºÐ¡·ù¶ÈÍ϶¯Ò¡¸Ë»òËæ»úµã¿ÕµØ
Swipe 360, 800, 360+Rnd()*40-20, 780, 300
Delay 1500
End If
Call PickLoot()
End If
Delay 500 + Rnd()*300
Wend
дµÄʱºò°Ñ"FF0000""0000FF""CC0000""888888"È«»»³ÉÄãʵ»ú×¥µÄɫֵ£º¿ªÓÎÏ·°´ÒôÁ¿ÏÂ½ØÆÁ£¬Óð´¼ü¾«ÁéץɫÆ÷µãºìÒ©Æ¿/À¶Ò©Æ¿/¹ÖѪÌõ/ËÀÍö»ÒÍ·ÏñÈ¡HEX¡£×ø±êͬÀíÓÃ×¥µãÆ÷ÔÚ720×1280»ù׼ϵãF1-F9¼¼ÄÜÀ¸¡¢»Ø³Ç¾íλÖá¢Ò¡¸ËÖÐÐÄ£¬Êµ»ú·Ö±æÂʲ»Í¬¿¿SetScreenScale×Ô¶¯»»Ëã¡£
ÈÕ³£¸±±¾Ìø×ª¿¿Ê±¼ä»òµØÍ¼ÃûɫֵÅжϣº±ÈÈçÕûµã½ø"¾ÅÐǸ±±¾"¾Í¶ÁµØÍ¼ÃûÇøÓòÉ«¿é£¬Æ¥Åäµ½¾ÍTap´«ËÍNPC×ø±ê£»²»ÏëдÅжϾͷÖÁ½¸ö½Å±¾Îļþ£¬°×Ìì¹ÒÊ÷Ðijǡ¢Íí8µãÊÖ¶¯ÇоÅÐǽű¾£¬±ÈдһÌ×ÍòÄÜÅжÏÎÈ¡£
ºÏ»÷/»ÃÊÞ²Ù×÷¼ÓÒ»¶Î£ºÕÒ±¦±¦ÑªÌõɫֵµÍÓÚãÐÖµTap"ÕÙ»Ø"¼ü£¨F6£©£¬CDºÃÁËTap"³öÕ½"¼ü£¨F7£©£¬±¦±¦ËÀ×Ô¶¯²¹ÕÙ£¬Ð´ÔÚÖ÷Ñ»·IsDead·ÖÖ§ºóÃæ¡£
·À·âµ×Ïߣºµã»÷¼ä¸ôÈ«¼ÓRnd()Ëæ»ú¶¶¶¯¡¢Ã¿¹Ò4µ½6Сʱ½Å±¾ÀïCall ExitScriptÍËÒ»´ÎÔÙÊÖ¶¯Æô¡¢Í¬ÔÆÊÖ»úͬIP²»³¬5¿ª¡¢²»ÅöÄÚ´æ¶Áд²»×¢ÈëDLL£¬Í¼É«Ä£Äâµã»÷ÊÇÍâ¹ÒÀïÏà¶ÔµÍµ÷µÄÒ»ÖÖ¡£´¥¶¯¾«Áé°æ°ÑFindColor»»³ÉfindColorº¯Êý¡¢Tap»»³ÉtouchDown/Up¡¢KeyPress»»³ÉkeyDown/Up£¬Âß¼Ò»×Ö²»»»¡£
µ÷Íê½øÊ÷ÐijÇÍâ²ãÅܰëСʱÑéÖ¤£ººìÀ¶µôÊÇ·ñ×Ô¶¯°´F1F2¡¢¹ÖË¢ÊÇ·ñ×Ô¶¯F3¡¢ËÀÊÇ·ñF9»Ø³Ç¡¢¼«Æ·ÊÇ·ñF4¼ñµ½°ü£¬ËÄÏîȫ˳ÔÙ¿ª³¤¹Ò£»Ö»ºÈÒ©²»´ò¹ÖÊǹÖѪÌõɫֵץƫ£¬ÂÒÅܲ»¹¥»÷ÊÇTap×ø±êû¼õÆ«ÒÆ£¬¿¨Ò©ÊÇÓÎÏ·ÄÚF12×Ô¶¯ºÈҩû¹Øµ¼Öºͽű¾ÇÀ¼ü¡£

