賣傳陣(幫買家放加速)

以下巨集是修改網上傳陣的巨集
因為只是作小修改

1. automacro Start1 {
   
2.         console /您的座標/
   
3.         exclusive 1
   
4.         call {
   
5.         pause 3
   
6.         do conf ignoreAll 1
   
7.         call Chat
   
8.         }
   
9. }
   
10. 
    
11. macro Chat {
    
12.         do sit
    
13.         do look 4
    
14.         if (@invamount(藍色魔力礦石) > 0) goto OK
    
15.                 do chat create "沒石頭了" 2 0 8591
    
16.                 stop
    
17.         :OK
    
18.                 do chat create "朱2000石波2100跳台2500古2800" 2 0 8591
    
19. # 自行修改聊天室內容
    
20.                 do deal no
    
21. # 避免在使用傳陣到創聊天室之間有人點交易
    
22. }
    
23. automacro Deala {
    
24.         console /向您要求一個交易/
    
25.         inventory "藍色魔力礦石" > 0
    
26.         call {
    
27.         do deal
    
28.         pause 15
    
29.         do deal no
    
30.         }
    
31. }
    
32. automacro Dealb {
    
33.         console /加入物品以交易/
    
34.         call {
    
35.         do deal no
    
36.         }
    
37. }
    
38. automacro Dealc {
    
39.         console /(.*) 加入 (.*) z 以交易/
    
40.         call {
    
41.         $p = $.lastMatch1
    
42.         $a = $.lastMatch2
    
43.         if ($a = 2,000) goto OK
    
44.         if ($a = 2,100) goto OK
    
45.         if ($a = 2,500) goto OK
    
46.         if ($a = 2,800) goto OK
    
47. # 自行修改金額
    
48.                 do deal no
    
49.                 stop
    
50.         :OK
    
51.                 pause 1
    
52.                 do deal
    
53.                 pause 1
    
54.                 do deal
    
55.                 pause 10
    
56.                 do deal no
    
57.         }
    
58. }
    
59. automacro Warp {
    
60.         console /您 獲得 (.*) zeny/
    
61.         exclusive 1
    
62.         call {
    
63.         $b = @invamount(藍色魔力礦石)
    
64.         do chat leave
    
65.     do sp 29 $p 10
    
66.         pause 1
    
67.         :Top
    
68.         $x = @arg("$.pos", 1)
    
69.         $y = @arg("$.pos", 2)
    
70.         $x0 = @eval($x - @rand(1,3))
    
71.         $y0 = @eval($y - @rand(1,3))
    
72.                 do sl 27 $x0 $y0
    
73.                 pause 2
    
74.         if ($a == "2,100") goto A
    
75.         if ($a == "2,500") goto B
    
76.         if ($a == "2,800") goto C
    
77.                 do warp yuno
    
78. # 傳送點一
    
79.                 goto End
    
80.         :A
    
81.                 do warp veins
    
82. # 傳送點二
    
83.                 goto End
    
84.         :B
    
85.                 do warp umbala
    
86. # 傳送點三
    
87.                 goto End
    
88.         :C
    
89.                 do warp glast_01
    
90. 
    
91. # 傳送點四
    
92.         :End
    
93.                 pause 2
    
94.         if ($b == @invamount(藍色魔力礦石)) goto Top
    
95. # 使用傳陣藍礦未減少回到Top
    
96.                 do c 您好~!!您的傳陣已開啟，若看不到傳陣請左右移動一下，很高興為您服務 。
    
97.                 call Chat
    
98.         }
    
99. }

複製代碼