[原創] 末日自動練攻泰坦版

iloveqqp

iloveqqp 發表於 2008-7-24 20:48:24 | 顯示全部樓層回帖獎勵

有自動找怪自動放技能自動喝藥水
請用 800X600 "視窗模式" 畫面拉到最上方往下看
如果點不到怪請拉近或拉遠
目前只打白怪  請自行尋找掛點  越密集越好
預設：
F1 F3 攻擊技能
F2 撿東西
F4 補血藥品
F5 補魔藥品
F7 怒吼
因為我採用記憶體偵測的方式來吃補品每個人物位置都不一樣  所以還要做個修改
不然會失效...教學請到我的無名觀看
無名帳號：iloveqqp

--------------------------------我是分隔線------------------------------
Rem 找怪
For 100
Rem 放輔助
VBSCall FindColorEx(257,103,273,119,"0015CA",1,0.7,x8,y8)
If x8<>-1 and y8<>-1
Else
      MoveTo 202 108
      LeftClick 1
      Delay 100
      KeyPress 118 1
      Delay 2000
EndIf
Rem 補血魔
VBSCall Call ReadMemory(&H010E94A0,1,ac)
If ac<400
      KeyPress 115 1
      Delay 500
EndIf
VBSCall Call ReadMemory(&H010E94A8,1,ab)
If ab<150
      KeyPress 116 1
      Delay 500
EndIf
EndIf
MoveTo 573 293
RightClick 1
MoveTo 508 243
RightClick 1
Delay 100
MoveTo 438 249
RightClick 1
Delay 100
MoveTo 388 305
RightClick 1
Delay 100
MoveTo 370 386
RightClick 1
Delay 100
MoveTo 408 465
RightClick 1
Delay 100
MoveTo 596 517
RightClick 1
Delay 100
MoveTo 514 531
RightClick 1
Delay 100
MoveTo 662 481
RightClick 1
Delay 100
MoveTo 664 393
RightClick 1
Delay 100
RightClick 1
Delay 100
RightClick 1
Delay 100
Rem 判斷是否怪物
VBSCall FindColorEx(460,99,550,110,"c4c1c4",1,0.7,x1,y1)
If X1<>-1 and Y1<>-1
Goto 攻擊
Else
Delay 100
Goto 找怪
EndIf
EndFor
Goto 找怪
Rem 攻擊
Rem 補血魔
VBSCall Call ReadMemory(&H010E94A0,1,ac)
If ac<400
KeyPress 115 1
Delay 1500
EndIf
VBSCall Call ReadMemory(&H010E94A8,1,ab)
If ab<150
KeyPress 116 1
Delay 2000
EndIf
KeyPress 112 1
Delay 1500
KeyPress 113 1
Delay 1000
KeyPress 113 1
Delay 1000
KeyPress 114 1
Delay 1500
KeyPress 113 1
Delay 1000
KeyPress 113 1
Delay 1000
IfColor 453 126 c40cc 2
Goto 攻擊
Else
Goto 找怪
EndIf

yociexp195.gif

[ 本帖最後由 iloveqqp 於 2008-7-29 13:24 編輯 ]

100