紅字,請自己修改(儲存點不同,傳的地方也不同)
#傳送
automacro warpPortal0 {
pubm /回家了/
call {
if (@invamount(藍色魔力礦石) == 0) goto outOfBlueGemStone
$x = @arg("$.pos", 1)
$y = @arg("$.pos", 2)
$y2 = @eval($y + 1)
do sl 27 $x $y2
pause 1
do warp 0
do c 離我一格距離,擋住會放不出來
do c 現在的傳送點是「朱諾」
goto end
:outOfBlueGemStone
pause 1
do c 沒藍石了...
:end
}
}
automacro warpPortal1 {
pubm /海/
call {
if (@invamount(藍色魔力礦石) == 0) goto outOfBlueGemStone
$x = @arg("$.pos", 1)
$y = @arg("$.pos", 2)
$y2 = @eval($y - 1)
do sl 27 $x $y2
pause 1
do warp 1
do c 離我一格距離,擋住會放不出來
do c 現在的傳送點是「啟海」
goto end
:outOfBlueGemStone
pause 1
do c 沒藍石了...
:end
}
}
automacro warpPortal2 {
pubm /崑崙/
call {
if (@invamount(藍色魔力礦石) == 0) goto outOfBlueGemStone
$x = @arg("$.pos", 1)
$y = @arg("$.pos", 2)
$x2 = @eval($x + 1)
do sl 27 $x2 $y
pause 1
do warp 2
do c 離我一格距離,擋住會放不出來
do c 現在的傳送點是「崑崙」
goto end
:outOfBlueGemStone
pause 1
do c 沒藍石了...
:end
}
}
automacro warpPortal3 {
pubm /冰/
call {
if (@invamount(藍色魔力礦石) == 0) goto outOfBlueGemStone
$x = @arg("$.pos", 1)
$y = @arg("$.pos", 2)
$x2 = @eval($x - 1)
do sl 27 $x2 $y
pause 1
do warp 3
do c 離我一格距離,擋住會放不出來
do c 現在的傳送點是「冰」
goto end
:outOfBlueGemStone
pause 1
do c 沒藍石了
:end
}
}