[ TGScript ] 天龍八部 ( 腳本進階版)

TGScript 腳本是來自 ymlk 寫腳本的,有條件要為解析度 1680x1050 和 遊戲視窗化 800x600 中間框用
這個分享腳本給大家真的不能用,你要自己取得腳本語句改一改才可以用
腳本我沒辦法幫你,自己學學吧

1. 
   
2. ' 快速鍵：PageUp 啟動  /  PageDown 停止
   
3. Cn{0} = 140 ' 掃描敵人的範圍
   
4. Cn{1} = 140 ' 掃描物品袋的範圍
   
5. Cn{2} = 50 ' 最低血 % 值，後自動休息
   
6. Mouse_LeftClick[ 1160 , 275 ] ' 地圖往指北
   
7. Mouse_LeftClick[ 540 , 770 ] : Delay 20 ' 聊天框縮小
   
8. Mouse_LeftClick : Delay 20
   
9. Mouse_LeftClick
   
10. :開始
    
11. Sap1[ 65535 ] ' 敵人名稱的顏色  黃色
    
12. Sap2[ 255 ]     ' 敵人名稱的顏色  紅色
    
13. ScanPixel[ 830 - Cn{0} , 530 - Cn{0} , 830 + Cn{0} , 530 + Cn{0} ]
    
14. If Test <> -1
    
15. '**************************************************************
    
16.      Mouse_LeftClick[ x + Int(Rnd * 10) , y + Int(Rnd * 10) ] : Delay 50 ' 攻擊
    
17. '**************************************************************
    
18.       If GetPixel[ 1003 , 472 ] = 0 ' 選單 [ 物品 ]
    
19.            Mouse_LeftClick[ 915 , 510 ] : Delay 50 ' 全部拾取
    
20.            If GetPixel[ 1003 , 472 ] = 0
    
21.                 Mouse_LeftClick[ 992 , 484 ] ' 關閉物品
    
22.            End If
    
23.            GoTo 開始
    
24.       End If
    
25. '**************************************************************
    
26.      If GetPixel[ 504 , 256 ] <> GetPixel[ 687 , 256 ] : GoTo 開始 ' 敵人狀況
    
27.      End If
    
28. '**************************************************************
    
29.      While GetPixel[ 860 , 233 ] = 0 ' 比對敵人是否打倒
    
30.            If GetPixel[ 504 , 256 ] = GetPixel[ 687 , 256 ]
    
31.                 Select Case Int(Rnd * 30)
    
32.                 Case Int(Rnd * 30) : Keybd_KeyPress[ 113 ] ' F2 技能攻擊
    
33.                 Case Int(Rnd * 30) : Keybd_KeyPress[ 114 ] ' F3 技能攻擊
    
34.                 Case Else : Keybd_KeyPress[ 112 ] ' F1 攻擊
    
35.                 End Select
    
36.           End If
    
37.      End While
    
38. '**************************************************************
    
39. '     Call 物品袋
    
40.      Call 升級
    
41. '     Call 測血值
    
42.      GoTo 開始
    
43. ElseIf GetPixel[ 847 , 714 ] = 16777215 ' 打坐的顏色  避免發呆
    
44.      Mouse_RightClick[ 830 , 570 ] ' 跳站起來
    
45. Else
    
46. '     TracePixel[ 440 , 286 , 1045 , 580 , 10000 , 6550271 ]
    
47. '     If Test <> -1 ' 防掛機檢測
    
48. '          Do
    
49. '               Beep : Delay 100 ' 連續嗶嗶聲，有聽到嗶聲記得回來解開
    
50. '          Loop
    
51. '     End If
    
52.      GoTo 開始
    
53. End If
    
54. '**************************************************************
    
55. Sub 物品袋
    
56. TracePixel[ 830 - Cn{1} , 530 - Cn{1} , 830 + Cn{1} , 530 + Cn{1} , 20000 , 9167590 , 9233384 , 9233386 , 9233387 , 9036780 , 8445930 , 8116451 , 8708590 , 8971247 , 8905711 , 8774639 , 8509403 , 8970469 , 9102314 , 8905707 , 8643565 , 8643566 , 8578031 , 8512495 , 8709103 , 8643310 , 7652556 , 8179927 , 8443870 , 8446441 , 8446957 , 8248294 , 8116966 , 8315887 , 8249580 , 8116708 , 7852767 , 7192263 , 7258058 , 7587535 , 7193547 , 7589848 , 7456722 , 7457236 , 7524572 , 7194321 , 7522519 , 6996433 , 7588048 , 7127242 , 6996426 , 7062475 , 7062476 , 7062477 , 6996942 , 6931406 , 6865870 , 6734030 , 6733775 , 8178645 , 7850707 , 7128524 , 6865867 , 6865868 , 6931405 , 6800334 , 6669262 , 6866386 , 7391452 , 7651535 , 8048087 , 8114649 , 8180698 , 7391442 , 6667463 , 6800078 , 7326165 , 7918558 , 7391709 , 7128025 , 5938613 , 6465724 , 7257550 , 7191754 , 7390160 , 7389904 , 7324369 , 7259090 , 6996181 , 6731726 , 6269635 , 5410732 , 5872053 , 6136251 , 6268346 , 6994891 , 7258832 , 6798287 , 6600139 , 6336198 , 6071488 , 5675191 , 5410998 , 5476275 , 5278123 , 5344427 , 5542574 , 5740722 , 5808059 , 5741240 , 5476787 , 5278126 , 5080234 , 4949678 , 4684703 , 4816289 , 5014181 , 5014438 , 4816288 , 5080231 , 4882339 , 4684447 , 4552092 , 4486043 ]
    
57.      If Test <> -1
    
58.           Mouse_LeftClick[ x , y ] : Delay 100 ' 拿取物品袋
    
59.            If GetPixel[ 1003 , 472 ] = 0 ' 選單 [ 物品 ]
    
60.                 Mouse_LeftClick[ 915 , 510 ] : Delay 50 ' 全部拾取
    
61.                 If GetPixel[ 1003 , 472 ] = 0
    
62.                      Mouse_LeftClick[ 992 , 484 ] ' 關閉物品
    
63.                 End If
    
64.            End If
    
65.      End If
    
66. End Sub
    
67. '**************************************************************
    
68. Sub 升級
    
69.      If GetPixel[ 660 , 762 ] = GetPixel[ 1020 , 762 ]
    
70.           Keybd_KeyDown[ 164 , 67 ] : Keybd_KeyUp[ 164 , 67 ] : Delay 50
    
71.           Mouse_LeftClick[ 780 , 660 ]
    
72.           Keybd_KeyDown[ 164 , 67 ] : Keybd_KeyUp[ 164 , 67 ]
    
73.      End If
    
74. End Sub
    
75. '**************************************************************
    
76. Sub 測血值
    
77.      If GetPixel[ 504 , 256 ] <> GetPixel[ Int((627 - 503) / 100 * Cn{2} + 503) , 256 ]
    
78.           Keybd_KeyPress[ 119 ] ' 打坐技能
    
79.           While GetPixel[ 504 , 256 ] <> GetPixel[ 627 , 256 ]
    
80.           End While
    
81.           Mouse_RightClick[ 830 , 570 ] ' 跳站起來
    
82.      End If
    
83. End Sub
    

複製代碼

請問一下 要怎把腳本放在按鍵精靈裡面?

原帖由 鄭阿哩 於 2008-4-3 19:34 發表
請問一下 要怎把腳本放在按鍵精靈裡面?

注意看是 TGScript
不是按鍵精靈
你用yahoo 搜 TGScript 會找到的

摸索一下~說不定很好用喔

感謝大大的分響
讓我更快茁壯

可以把TGScript的檔案傳給我我嗎??
我的及時通w231256

我來弄弄看呢 ^^

THX ^^ ggggg