密語船陣 巨集

v127483803

給公會用的話,  很方便喔 XD

1. automacro pm0 {
   
2.          pm /魔/   #修改你要喊的  密語
   
3.          call {
   
4.                  if (@invamount(藍色魔力礦石) == 0) goto outOfBlueGemStone
   
5.                          $x = @arg("$.pos", 1)
   
6.                          $y = @arg("$.pos", 2)
   
7.                          $y2 = @eval($y + 2)
   
8.                          do sl 27 $x $y2
   
9.                          pause 1
   
10.                          do warp yuno_fild06 #修改你要傳送的地圖名稱
    
11.                          do c 離我一格距離，擋住會放不出來
    
12.                         do c 現在的傳送點是「魔劍」自行修改傳送完畢的口號
    
13.                         do look 4
    
14.                                do sit
    
15.                         goto end
    
16.                  :outOfBlueGemStone
    
17.                          pause 1
    
18.                          do c 沒藍石了...
    
19.                  :end
    
20.          }
    
21. }
    
22. automacro warpPortal1 {
    
23.          pm /塔/   #修改你要喊的  密語
    
24.          call {
    
25.                  if (@invamount(藍色魔力礦石) == 0) goto outOfBlueGemStone
    
26.                          $x = @arg("$.pos", 1)
    
27.                          $y = @arg("$.pos", 2)
    
28.                          $y2 = @eval($y + 2)
    
29.                          do sl 27 $x $y2
    
30.                          pause 1
    
31.                          do warp comodo #修改你要傳送的地圖名稱
    
32.                          do c 離我一格距離，擋住會放不出來
    
33.                         do c 現在的傳送點是「塔澳」自行修改傳送完畢的口號
    
34.                         do look 4
    
35.                                do sit
    
36.                         goto end
    
37.                  :outOfBlueGemStone
    
38. 
    
39.                          pause 1
    
40.                          do c 沒藍石了...
    
41.                  :end
    
42.          }
    
43. }
    
44. automacro warpPortal2 {
    
45.          pm /爬/   #修改你要喊的  密語
    
46.          call {
    
47.                  if (@invamount(藍色魔力礦石) == 0) goto outOfBlueGemStone
    
48.                          $x = @arg("$.pos", 1)
    
49.                          $y = @arg("$.pos", 2)
    
50.                          $y2 = @eval($y + 2)
    
51.                          do sl 27 $x $y2
    
52.                          pause 1
    
53.                          do warp alberta #修改你要傳送的地圖名稱
    
54.                          do c 離我一格距離，擋住會放不出來
    
55.                         do c 現在的傳送點是「爬塔去吧」自行修改傳送完畢的口號
    
56.                         do look 4
    
57.                                do sit
    
58.                         goto end
    
59.                  :outOfBlueGemStone
    
60.                          pause 1
    
61.                          do c 沒藍石了...
    
62.                  :end
    
63.          }
    
64. }
    
65. automacro warpPortal3 {
    
66.          pm /新/ #修改你要喊的  密語
    
67.          call {
    
68.                  if (@invamount(藍色魔力礦石) == 0) goto outOfBlueGemStone
    
69.                          $x = @arg("$.pos", 1)
    
70.                          $y = @arg("$.pos", 2)
    
71.                          $y2 = @eval($y + 2)
    
72.                          do sl 27 $x $y2
    
73.                          pause 1
    
74.                          do warp aldebaran #修改你要傳送的地圖名稱
    
75.                          do c 離我一格距離，擋住會放不出來
    
76.                         do c 現在的傳送點是「新城」自行修改傳送完畢的口號
    
77.                         do look 4
    
78.                                do sit
    
79.                         goto end
    
80.                  :outOfBlueGemStone
    
81.                          pause 1
    
82.                          do c 沒藍石了
    
83.                 :end
    
84.          }
    
85. }

複製代碼