[發問] 吸掛腳本!!

h757585556

h757585556 發表於 2010-10-28 17:28:09 | 只看該作者回帖獎勵

|倒序瀏覽 |

本人正在破解吸掛
的種類
可是只缺之前的
想從裡面挑一些出來破解
已經到一半了
可是就是會被鎖7天
有大大能提供之前的吸掛腳本?

收藏0 分享讚0 幹0 分享分享

回覆

使用道具舉報

j26861964 2010-11-5 18:23:17

加油啊大大!!!!!!!!!!!!!!!!!!!!!!!!!

回覆

使用道具舉報

jas0n0505 2010-11-9 23:57:42

我幫你從其他網站找的
試試看吧
//---------------------------
//----指標宣告區------
Dim Ptr, PtrL, PtrR, PtrU, PtrD, PtrMapID, PtrChan
Dim PtrX, PtrY, PtrRed, PtrMonNum, PtrAtkNum
Dim PtrHp, PtrMp, PtrBreathStop, PtrThingNum,PtrCharState
//----結束指標宣告----
//---一般變數宣告-----
Dim directional, resl, resr, atkl, atkr
Dim newchan, oldchan, rndchan, rvalue
Dim setHp, setMp, sktimer, gray, graycolor, scan_color
Dim atk_key, pik_key, jmp_key, ski1_key, ski2_key
Dim hp_key, mp_key, autologin_key
Dim sk1_key, sk1_timer, sk1_act, timer1
Dim sk2_key, sk2_timer, sk2_act, timer2
Dim sk3_key, sk3_timer, sk3_act, timer3
Dim old_num, new_num, pick_num, scan
Dim ●嚴禁張貼廣告●_time, pub_timer, pick_timer
Dim x, y, chkkey, rednum, atknum , qx, qy
//----結束宣告變數---------

Sub LoadFirstData //第一次要載入初始化資料

  scan_color = 0
  //設定使用顏色掃描(1)或者記憶體讀取(0)

  atknum = 100
  //攻擊次數上限,超過會自動返回

  rednum = 20
  //rednum 紅點數量超過多少就換頻

  pick_num = 90
  //pick_num 超過數量就撿

  atkl = 100
  //距離左邊打怪的距離(建議近戰100 遠攻200)
  atkr = 100
  //距離右邊打怪的距離(建議近戰100 遠攻200)

  directional = 6
  //打怪方向選擇 4:左 6:右

  setHp = 70
  //如果scan_color = 1 則為設定百分比補血
  //如果scan_color = 0 則為血量值小於補血
  setMp = 70
  //如果scan_color = 1 則為設定百分比補魔
  //如果scan_color = 0 則為魔力值小於補魔

  hp_key = VK(Delete)
  //hp:補血
  mp_key = VK(End)
  //mp:補魔

  //設定熱鍵
  ski1_key = VK(Ctrl)
  //技能攻擊 (主程序預設用一般技能攻擊)
  //這邊是平常打怪用的按鍵。
  atk_key = VK(V)
  //atk:一般攻擊
  pik_key = VK(Z)
  //pik:撿取
  jmp_key = VK(Alt)
  //jmp:跳躍

  sk1_act = 1
  //啟動設定 1啟動 0不啟動
  sk1_key = VK(O)
  //按鍵設定
  sk1_timer = 1000*2
  //技能施放間隔時間 1000=1秒

  sk2_act = 1
  //同上
  sk2_key = VK(U)
  sk2_timer = 1000*2

  sk3_act = 1
  //同上
  sk3_key = VK(X)
  sk3_timer = 1000*2

  pick_timer = 1000
  //超過時間沒物品則走動(1000=1秒)

  PtrHp = 220
  PtrMp = 328
  //如果scan_color = 1 這兩個是血量與魔量的X0座標
  //如果scan_color = 0 這兩個變數不用管

  //以下不用更改，除非需要。
  resl = atkl +50
  //左邊返回值(取消攻擊次數的距離)
  resr = atkr + 50
  //右邊返回值(取消攻擊次數的距離)
  gray = 12435133
  //此為血量旁邊的灰色顏色值(大部分電腦是此值)
EndSub

Sub main
  Call LoadFirstData
  //載入第一次初始化資料
  Call Reset_Value
  //重新初始化變數值為0，且放開(KeyUpH)所有按鍵
  Call JustinAtk
  //打怪模式啟動
EndSub

//打怪模式--------------------
Sub JustinAtk
  Call HpMp_Chk
  //檢查血量與魔量
  Call Scan_Red
  //紅點偵測
  Call AllRetStart
  //初始化人物方位
  Call RetAtk
  //走到攻擊點
  Call Sk1_Chk
  Call Sk2_Chk
  Call Sk3_Chk
  //輔助技能 1 2 3 一開始先放(不要用就//)
  While true
//打怪腳本主要運行開始
Sleep 100
//避免過快檢查延遲0.1秒
Call Scan_Red
//紅點偵測
Call CharXY_Chk
//檢查人物位置是否正確
Call Atk100_Chk
//偵測攻擊次數
KeyPress ski1_key
//技能施放模式
Call HpMp_Chk
//血魔檢查
Call Skill_Chk
//技能攻擊
Call Pick_Thing
//撿物偵測
  EndWhile
EndSub

Sub AllRetStart //重新初始始人物位置與方向
  Call Info_XY
  //取得基本人物資訊完畢
  If (directional == 4)
//如果選擇方向為左(4)的話
If (PtrX  < PtrL + resl)
   //如果人物在攻擊點內
   x = PtrL + resl
   Call Move
   //就先往右移動(這樣才可以正確的再返回打怪)
EndIf
   Sleep 200
   x = PtrX -11
   Call Move
   Sleep 200
   KeyDownH Down
   Sleep 1000
   KeyUpH Down
   //以上動作為吸怪方式從Sleep到KeyUpH
  EndIf
  If (directional == 6)
//如果選擇方向為右(6)的話
If (PtrX  < PtrR - resr)
   //如果人物在攻擊點內
   x = PtrR - resr
   Call Move
   //就先往左移動(這樣才可以正確的再返回打怪)
EndIf
   Sleep 200
   x = PtrX +11
   Call Move
   Sleep 200
   KeyDownH Down
   Sleep 1000
   KeyUpH Down
   //以上動作為吸怪方式從Sleep到KeyUpH
  EndIf
  //結束人物第一次移動位置初始化完畢
EndSub

Sub RetAtk  //返回攻擊點
  Call Info_XY
  If (directional == 4)
If (PtrX < (PtrL + atkl))
   //本身座標<左牆+攻擊點座標距離
   x = PtrL + resl
   Call Move
   Return
EndIf
If (PtrX > (PtrL + atkl))
   //本身座標>左牆+攻擊點座標距離
   x = PtrL + atkl
   Call Move
   Return
EndIf
  EndIf
  If (directional == 6)
If (PtrX < (PtrR - atkr))
   //本身座標<右牆+攻擊點座標距離
   x = PtrR - atkr
   Call Move
   Return
EndIf
If (PtrX > (PtrR - atkr))
   //本身座標>右牆+攻擊點座標距離
   x = PtrR - resr
   Call Move
   Return
EndIf
  EndIf
EndSub

Sub Pick_Thing //撿物品
  //載入左右攻擊座標(方便偵測撿東西位置)
  Call Info_ThingNum
  Call Info_XY
//超過設定的數量開始撿物品
  If PtrThingNum > pick_num
//左(4)邊打怪檢物品
If (directional == 4)
   //第一次先原地掃描物品
      Call Scan_Pick
      If (PtrX > PtrL +10)
      //如果座標未到達左邊牆壁的話
      scan = 4
      //掃描物品值(要掃描才加上去)
      x = PtrL +10
      Call Move
      //移動中也要掃描物品
      Call RetAtk
      Call RetAtk
      //返回攻擊點(2次確保人物有成功返回)
      EndIf
EndIf
//右邊(6)打怪檢物品
If (directional == 6)
      Call Scan_Pick
      //第一次先原地掃描物品
      If (PtrX < PtrR -10)
      //如果座標未到達右邊牆壁的話
      scan = 6
      //掃描物品值(要掃描才加上去)
      x = PtrR -10
      Call Move
      //移動中也要掃描物品
      Call RetAtk
      Call RetAtk
      //返回攻擊點(2次確保人物有成功返回)
      EndIf
EndIf
  EndIf
  //撿查撿物品是否超過數量完畢
EndSub

Sub MoveScan  //移動中掃描物品
  If (scan  == 4 || scan == 6)
//如果掃描值等於4或6則呼叫掃瞄物品
Call Scan_Pick
  EndIf
EndSub

Sub Atk100_Chk  //攻擊次數撿查
  Call Info_AtkNum
  Call Info_XY
  //載入攻擊次數基本資料
  If (PtrAtkNum >= atknum)
//如果超過攻擊次數的話
Call RetAtk
Call RetAtk
//返回攻擊點(2次確保人物有成功返回)
  EndIf
EndSub

Sub Reset_Value //坐標方向初始值
x = 0
//x座標值
y = 0
//y座標值
chkkey = 1
//確認按鍵已放開
scan = 0
//掃描物品值歸零(即不掃描)
KeyUpH Up
//放開上鍵
KeyUpH Down
//放開下鍵
KeyUpH Left
//放開左鍵
KeyUpH Right
//放開右鍵
//放開這些按鍵的原因是要解決此程式的小BUG
EndSub

Sub CharXY_Chk  //撿查人物位置是否正確
  Call Info_CharState
  If (PtrCharState == 8 || PtrCharState == 4)
//如果在攻擊狀態(或者被攻擊)
Call Info_XY
If (directional == 4)
   If (PtrX > (PtrL + atkl))
      //本身座標>左牆+攻擊點座標距離
      x = PtrL + atkl
      Call Move
      Return
   EndIf
EndIf
If (directional == 6)
   If (PtrX < (PtrR - atkr))
      //本身座標<右牆+攻擊點座標距離
      x = PtrR - atkr
      Call Move
      Return
   EndIf
  EndIf
  EndIf

EndSub

//--------beta3 新增結束打怪區的副程式

//---鍵盤副程式區----------------------------------------------

Sub HpMp_Chk //偵測Hp
If scan_color == 1
  //使用顏色掃描
  graycolor = GetPixel(PtrHp+setHp,588)
  //如果顏色取得為灰色點的話，則血量低於了
  If graycolor == gray
//如果目前血量小於設定的血量
Sleep 250
KeyPress hp_key
//按下補血按鍵
Sleep 250
  EndIf
  graycolor = GetPixel(PtrMp+setMp,588)
  //如果顏色取得為灰色點的話，則魔力低於了
  If graycolor == gray
//如果目前魔力小於設定的魔力
Sleep 250
KeyPress mp_key
//按下補魔按鍵
Sleep 250
  EndIf
  Return
EndIf

If scan_color == 0
  //使用記憶體讀取
  Call info_HPMP

  //從記憶體中讀取血量值後，指定給PtrHp
  If (PtrHp == 0)
MsgBox "笨蛋！你沒有開數據，我先停止腳本動作。"
Exit
  EndIf

  If PtrHp < setHp
//如果目前血量小於設定的血量
Sleep 250
KeyPress hp_key
//按下補血按鍵
Sleep 250
  EndIf
  If PtrHp < setHp -1000
Call Info_XY
x = (PtrL + PtrR)/2
Call Move
Call Change_Chan
  EndIf
  Call info_HPMP
  //從記憶體中讀取魔力值後，指定給PtrMp
  If (PtrMp == 0)
MsgBox "笨蛋！你沒有開數據，我先停止腳本動作。"
Exit
  EndIf

  If PtrMp < setMp
//如果目前魔力小於設定的魔力
Sleep 250
KeyPress mp_key
//按下補魔按鍵
Sleep 250
  EndIf
  Return
EndIf

EndSub

Sub Skill_Chk //偵測技能
  sktimer = sktimer +1
While sktimer > 10
//攻擊超過10次再檢查技能
  If sk1_act == 1
//如果技能1檢查值等於1的話
Call Sk1_Chk
//技能1施放檢查
  EndIf
  Sleep 100
  If sk2_act == 1
Call Sk2_Chk
  EndIf
  Sleep 100
  If sk3_act == 1
//同上
Call Sk3_Chk
  EndIf
  sktimer = 0
EndWhile
EndSub

Sub Sk1_Chk //技能1施放
  ●嚴禁張貼廣告●_time = GetTick()
  //取得目前時間值(並非我們手錶的時間)
  If ●嚴禁張貼廣告●_time >= timer1
//如果現在時間超過時間計數器1(timer1)則
Sleep 500
KeyPress sk1_key
//按下技能1按鍵
Sleep 500
timer1 = ●嚴禁張貼廣告●_time + sk1_timer
//timer1就是下次要施放技能的時間計數器
//此時已經放了技能，所以要將下次
//施放技能時間(●嚴禁張貼廣告●_time+sk1_timer)給timer1
  EndIf
EndSub

Sub Sk2_Chk //技能2施放
  ●嚴禁張貼廣告●_time = GetTick()
  If ●嚴禁張貼廣告●_time >= timer2
Sleep 500
KeyPress sk2_key
Sleep 500
timer2 = ●嚴禁張貼廣告●_time + sk2_timer
  EndIf
EndSub

Sub Sk3_Chk //技能3施放
  ●嚴禁張貼廣告●_time = GetTick()
  If ●嚴禁張貼廣告●_time >= timer3
Sleep 500
KeyPress sk3_key
Sleep 500
timer3 = ●嚴禁張貼廣告●_time + sk3_timer
  EndIf
EndSub

Sub Scan_Pick //掃描物品
  ●嚴禁張貼廣告●_time = GetTick()
  //取得現在時間
  pub_timer = ●嚴禁張貼廣告●_time + pick_timer
  //公用時間等於現在時間加上撿物品檢查時間
  Call Info_ThingNum
  //取得物品數量
  If (PtrThingNum > 0)
   //確認物品大於0才撿
While (●嚴禁張貼廣告●_time <= pub_timer)
   //如果現在時間還沒超過公用時間則繼續撿
   Call Info_ThingNum
   //取得目前物品數量
   old_num = PtrThingNum
   //將目前物品數量放入舊的物品數量資訊
   KeyPressH pik_key
   //撿物品囉~
   Call HpMp_Chk
   //撿東西的過程也要注意血量
   Sleep 100
   Call Info_ThingNum
   //再次取得物品數量
   new_num = PtrThingNum
   //放入新的物品數量資訊裡頭
   ●嚴禁張貼廣告●_time = GetTick()
   //取得現在時間
   If new_num != old_num
      //如果剛剛檢物品有撿到的話
      //ex:數量5 變成 4 就符合條件
      pub_timer = ●嚴禁張貼廣告●_time + pick_timer
      //公用時間就要在加長為現在時間+撿物品檢查時間
      KeyUpH Right
      KeyUpH Left
      //確保途中有按下左右鍵還沒放開所設的
   EndIf
EndWhile
If (scan == 6)
      //掃描值為右(6)則繼續往右走
      KeyDownH Right
      Return
EndIf
If (scan == 4)
      //掃描值為右(4)則繼續往左走
      KeyDownH Left
      Return
EndIf
  EndIf
//掃描物品完畢，且回覆人物正常行走
EndSub
//----換頻、紅點偵測----
Sub Scan_Red
  Call Info_Chan_Red
  //取得紅點數量
  If PtrRed >= rednum
//如果紅點數量超過1的話
Call Change_Chan
//更換頻道
  EndIf
EndSub

Sub Change_Chan
  //更換頻道***
While true
  Call Info_BreathStop
  //讀取呼吸值
If PtrBreathStop == 0
//沒呼吸就換頻
Call Info_Chan_Red
oldchan = PtrChan
//先紀錄舊的頻道資訊以辯判斷
//開始做換頻動作
KeyPress ESC
Sleep 500
KeyPress Enter
Sleep 500
rndchan = Rnd(1, 19)
//rndchan:隨機挑選頻道
rvalue = 0
//rvalue:計算按下幾次而已
While rvalue < rndchan
   // 開始做移動右邊亂次
   rvalue = rvalue + 1
   KeyPress Right
EndWhile
KeyPress Enter
//結束換頻動作
Sleep 3000
//判斷是否載入新頻道
Call Info_Chan_Red
newchan = PtrChan
//新的頻道資訊寫入
If newchan != oldchan
   //如果新頻道不等於舊頻道的話
   //這邊要加入開始遊戲的判斷
      Call LoadFirstData
      Call Reset_Value
      Call JustinAtk
      //執行攻擊副程式
      Return
EndIf
//上面沒載入新頻道就再重覆一次動作
  EndIf

  If PtrBreathStop > 0
//如果還在呼吸就稍等一秒
Sleep 1000
  EndIf
EndWhile
//重複運行，直到換頻為止
EndSub
//------角色移動-------------
//---beat3 新增

Sub Move
//移動~ 需要x or y
Call Info_XY
If (x == 0 && y == 0)
MsgBox "可惡！我沒x或y我要走去哪？幫你關掉腳本。"
Exit
EndIf

If (x != 0 && y == 0)
If (PtrX < x)
   Call Move_R
   Return
EndIf
If (PtrX > x)
   Call Move_L
   Return
EndIf
EndIf

If (x == 0 && y != 0)
If (PtrY < y)
   Call Move_D
   Return
EndIf
If (PtrY > y)
   Call Move_U
   Return
EndIf
EndIf

If (x != 0 && y != 0)
MsgBox "天阿...這功能我在研發！我要關掉腳本了~.~"
Exit
EndIf

EndSub

Sub Move_ifState  //判斷移動中的人物狀態
  Call Info_CharState
  Call Info_XY
  qx = PtrX
  qy = PtrY
  If (PtrCharState == 5 || PtrCharState == 2)
  //如果人物在移動中的話
Sleep 100
//過.1秒後偵測是否為相同位置
Call Info_XY
If (qx == PtrX)
   If (scan  != 4 && scan != 6)
      //撿東西的話就別走了
      chkkey = 1
   EndIf
EndIf
  EndIf
EndSub

Sub Move_DataLoad
  //移動副程式前置載入資訊
  Call MoveScan
  Call HpMp_Chk
  Call Info_XY
EndSub

//-----
Sub Move_D  //往下移動
While true
Call Move_DataLoad
   If (PtrY < y)
   If (chkkey == 1)
      KeyDownH Down
      chkkey = 0
   EndIf
   EndIf
   If (PtrY > y)
   If (chkkey == 0)
      KeyUpH Down
      chkkey = 1
      Call Reset_Value
      Return
   EndIf
   EndIf
EndWhile
EndSub

Sub Move_R  //往右移動
While true
Call Move_DataLoad
   If (PtrX < x)
   If (chkkey == 1)
      KeyDownH Right
      chkkey = 0
   EndIf
   EndIf
   Call Move_ifState
   If (PtrX > x -10)
   If (chkkey == 0)
      KeyUpH Right
      Call Reset_Value
      Return
   EndIf
   EndIf
EndWhile
EndSub

Sub Move_L  //往左移動
While true
Call Move_DataLoad
   If (PtrX > x)
   If (chkkey == 1)
      KeyDownH Left
      chkkey = 0
   EndIf
   EndIf
   Call Move_ifState
   If (PtrX < x +10)
   If (chkkey == 0)
      KeyUpH Left
      chkkey = 1
      Call Reset_Value
      Return
   EndIf
   EndIf
EndWhile
EndSub

Sub Move_U  //往上移動
  While true
Call Move_DataLoad
   If (PtrY > y)
   If (chkkey == 1)
      KeyDownH Up
      chkkey = 0
   EndIf
   EndIf
   If (PtrY < y)
   If (chkkey == 0)
      KeyUpH Up
      chkkey = 1
      Call Reset_Value
      Return
   EndIf
   EndIf
EndWhile
EndSub

Sub Jmp_LU //向左上跳
  KeyDownH Left
  KeyDownH Up
  KeyPress jmp_key
  Sleep 500
  KeyUpH Left
  KeyUpH Up
  Sleep 250
EndSub

Sub Jmp_RU //向右上跳
  KeyDownH Right
  KeyDownH Up
  KeyPress jmp_key
  Sleep 500
  KeyUpH Right
  KeyUpH Up
  Sleep 250
EndSub

Sub Jmp_LD //向左下跳
  KeyDownH Left
  KeyPress jmp_key
  Sleep 500
  KeyUpH Left
  Sleep 250
EndSub

Sub Jmp_RD //向右下跳
  KeyDownH Right
  KeyPress jmp_key
  Sleep 500
  KeyUpH Right
  Sleep 250
EndSub

Sub Jmp_U  //跳起來按上
  KeyPress jmp_key
  KeyPress Up
  Sleep 250
EndSub

Sub Jmp_D //往下跳
  Sleep 500
  KeyDownH Down
  KeyPress jmp_key
  Sleep 500
  KeyUpH Down
  Sleep 250
EndSub
//----遊戲基本資訊-------------------------------------------
// 人物 HPMP
Sub info_HPMP
  ReadMemory "MapleStory", 0x00A708C4, PtrMp
  ReadMemory "MapleStory", 0x00A708C0, PtrHp
EndSub

Sub Info_XY
  //人物座標
  ReadMemory "MapleStory", 0x00A33668, Ptr
  ReadMemory "MapleStory", Ptr + 0x03F4, PtrX
  //上下左右牆位置
  ReadMemory "MapleStory", 0x00A326D4, Ptr
  ReadMemory "MapleStory", Ptr + 0x0024, PtrL
  ReadMemory "MapleStory", Ptr + 0x002C, PtrR
EndSub

Sub Info_Chan_Red
  //頻道
  ReadMemory "MapleStory", 0x00A326F4, Ptr
  ReadMemory "MapleStory", Ptr + 0x2048, PtrChan
  //紅點
  ReadMemory "MapleStory", 0x00A326DC, Ptr
  ReadMemory "MapleStory", Ptr + 0x0018, PtrRed
EndSub

Sub Info_AtkNum
  //攻擊次數
  ReadMemory "MapleStory", 0x00A326E4, Ptr
  ReadMemory "MapleStory", Ptr + 0x213C, PtrAtkNum
EndSub

Sub Info_ThingNum
  //地上物品數量
  ReadMemory "MapleStory", 0x00A335D8, Ptr
  ReadMemory "MapleStory", Ptr + 0x0014, PtrThingNum
  PtrThingNum = PtrThingNum +8
EndSub

Sub Info_BreathStop
  //呼吸數值
  ReadMemory "MapleStory", 0x00A326E4, Ptr
  ReadMemory "MapleStory", Ptr + 0x0374, PtrBreathStop
EndSub

Sub Info_CharState
  //人物狀態
  ReadMemory "MapleStory", 0x00A326E4, Ptr
  ReadMemory "MapleStory", Ptr + 0x0378,PtrCharState
EndSub

//----------------

回覆

使用道具舉報

呆呆ㄎ章魚 2011-2-7 15:38:48

..............................

回覆

使用道具舉報

5層

wsx30906 2011-2-24 19:38:12

+由阿
................................

回覆

使用道具舉報

6層

Star.Mo 2011-2-26 18:16:03

加油阿 !!!!!!!!!!!!!!!
你的發展是我們大家的幸福快樂阿 ~~

回覆

使用道具舉報

7層

erapo04 2011-3-10 21:55:10

加油
加油
本文章轉自外掛聯合國http://www.wgun.net

加油
本文章轉自外掛聯合國http://www.wgun.net

加油
本文章轉自外掛聯合國http://www.wgun.net

加油
本文章轉自外掛聯合國http://www.wgun.net

加油
本文章轉自外掛聯合國http://www.wgun.net

加油
本文章轉自外掛聯合國http://www.wgun.net

加油
本文章轉自外掛聯合國http://www.wgun.net

加油
本文章轉自外掛聯合國http://www.wgun.net

加油
本文章轉自外掛聯合國http://www.wgun.net