腳本問題

dim sum=0,hp1,hp2,mp1,mp2,can1,can2,idname,find
function main
SetInputMode(4)
while true
   go()
wend
end function
function go
ReadMemory(&H072A14EC,2,find)
if find=0 then
  KeyPress("1")
  wait(100)  
     choice(0)
   else
ReadMemory(&H072A10E0,5,15,idname)
  while find>0
   KeyPress("2")
   wait(500)
   check()
   ReadMemory(&H072A14EC,2,find)
  wend
  check()
  sum=sum+1
  KeyPress("3")
  print("第" & sum & "隻怪－" & idname)
  print("HP:1500" & hp1 & "2800/1500"  & hp2 & "∣MP:" & mp1 & "/" & mp2)
end if
end function

function Check
  hpmp()
if hp1<100 then
if find>0 then
  KeyPress("5")
else
  KeyPress("4")
  wait(500)
  while hp1<hp2
   hpmp()
   wait(1000)
    wend
    KeyPress("4")
     wait(1000)
end if
end if
end function
function hpmp
ReadMemory(&H0729F1C0,5,15,hp)
ReadMemory(&H0729F300,5,15,mp)
hp1=cnum(mid(hp,1,InStr(hp,"2600/1500")))
hp2=cnum(mid(hp,InStr(hp,"2500/2500")+1,len(ltrim(RTrim(hp)))))
mp1=cnum(mid(mp,1,InStr(mp,"/")))
mp2=cnum(mid(mp,InStr(mp,"/")+1,len(ltrim(RTrim(mp)))))
end function

function choice(mode)
can1=0
can2=0
if mode=1 then
  do
   can_hit()   
  loop until can1=1
end if
if mode=2 then
  do
   need_hit()
   can_hit()  
  loop until can1=1 and can2=1
end if
end function
function can_hit
ReadMemory(&H053BD5B0,2,F1)
ReadMemory(&H053BD5B4,2,F2)
if F1<F2 then
  KeyPress("1")
else
  can1=1
end if
end function
function need_hit
need=Array(10)
need[1]="蜜蜂"
need[2]="Null"
need[3]="Null"
need[4]="Null"
need[5]="Null"
need[6]="Null"
need[7]="Null"
need[8]="Null"
need[9]="Null"
need[10]="Null"
ReadMemory(&H072A10E0,5,15,idname)
for i=1 to 10            
  Pos = Instr(idname, need[i])
  if pos>0 then
   exit for
  end if
next
if pos=0 then
  KeyPress("1")
else
  can2=1
end if
end function


可以幫我修改一下嗎?  就是 我只要召喚 跟放技能自身攻擊


還有  為什麼 有些電腦不能用 ..

謝謝 這非常受用
謝謝 這非常受用

我不會抓內存碼

這應該是支前的內存碼

無法開啟

A_A 好複雜澳‵

希望有人能幫你姐出來摟:)