;;;QQ:67762207
[@EATEVENT(254)]
{
#if
checkitem 时空传送卷 1
#say
你确信需要通过时空传送卷转移吗...\
<确认/@takewsk>\ 
<离开/@exit>


[@takewsk]
#if
checkitem 时空传送卷 1
#act
take 时空传送卷 1
actcmd MAPMOVE
SysMsg "您安全通过时空之门,移动到你熟悉的地方了..."
#say
您安全通过时空之门,移动到你熟悉的地方了... \ 
<离开/@exit>
}

[@EATEVENT(255)]
{
#if
!checkcmd CHECKMAPFLAG KSNOMOVE
checkitem 时空之门卷 1
#say
你确信需要打开时空之门吗...\ 
<确认/@takewskm>\ 
<离开/@exit>
#elsesay
此地图不能使用时空之门!\
<离开/@exit>

[@takewskm]
#if
checkitem 时空之门卷 1
#act
take 时空之门卷 1
actcmd MAPSAVE
SysMsg "时空已经为你打开..."
#say
时空已经为你打开... \ 
<离开/@exit>
}

[@EATEVENT(253)]
{
#if
checkitem 随身NPC 1
#act
Mov  A3  0
Mov  D3  0
Mov  D4  0
Mov  D2  0
MOV  D5  0
MOV  N1  0
Mov  S1  0
MOV  D0  0
#say
<$USERNAME>您好...我随时为您提供药水和卷轴。\ 
当您选择确认时,系统将收回一个万事通卷轴。\ 
<确认/@takewst>\
<离开/@exit>
[@takewst]
#if
checkitem 随身NPC 1
#act
take 随身NPC 1
MOV D0 1
goto @gotobuy

[@gotobuy]
#if
equal D0 1
#say
请选择您要购买的物品...\ 
<购买药水/@药水类+>\
<购买卷轴/@卷轴类+>\
<离开/@exit>

[@药水类+]
#if
equal D0 1
#SAY
=物品名称===========价格=\
<金创药（大）    [550]/@goumaiy(金创药（大）,550)>\
<魔法药（大）    [550]/@goumaiy(魔法药（大）,550)>\
<清心丸(中)      [660]/@goumaiy(清心丸(中),660)>\
<急救丸(中)      [660]/@goumaiy(急救丸(中),660)>\
<返回/@gotobuy>

[@卷轴类+]
#if
equal D0 1
#say
=物品名称================价格=\
<护身符（中）        [3300]/@goumaiy(护身符（中）,3300)>\
<火焰护身符（中）    [3960]/@goumaiy(火焰护身符（中）,3960)>\
<寒气护身符（中）    [3960]/@goumaiy(寒气护身符（中）,3960)>\
<霹雷护身符（中）    [3960]/@goumaiy(霹雷护身符（中）,3960)>\
<狂风护身符（中）    [3960]/@goumaiy(狂风护身符（中）,3960)>\
<灵魂护身符（中）    [3960]/@goumaiy(灵魂护身符（中）,3960)>\
<神圣护身符（中）    [3960]/@goumaiy(神圣护身符（中）,3960)>\
<暗黑护身符（中）    [550]/@goumaiy(暗黑护身符（中）,550)>\
<黄色药粉（中）      [2200]/@goumaiy(黄色药粉（中）,2200)>\
<灰色药粉（中）      [2200]/@goumaiy(灰色药粉（中）,2200)>\
<回城卷              [3960]/@goumaiy(回城卷,3960)>\
<返回/@gotobuy>

[@goumaiy()]
#IF
checkbaggage
equal D0 1
#ACT
Mov  A3     %ARG(1)           ;;物品
Mov  D3     %ARG(2)           ;;金钱
#SAY 
请输入你想要购买的{FCOLOR/10} <$OUTPUT(A3)> {FCOLOR/12}数量：\
<输入购买数量/@@数量>(一次购买最多200个)\
<返回/@gotobuy> 

#ELSESAY
注意你的背包是否有空余，否则东西掉地上我不负责的.\
<返回/@gotobuy>


[@@数量] 
#IF
#ACT
mov  D4  %INPUTSTR
Mov  S1  3
#IF 
Small D4 1 
#SAY 
您要买多少个{FCOLOR/10} <$OUTPUT(A3)> {FCOLOR/12}？\\ 
请输入数值 {FCOLOR/10}1 至 200{FCOLOR/1}\
<返回/@gotobuy>\
#ACT 
break 

#IF 
Large D4 200 
#SAY 
一次购买物品的最大数量为{FCOLOR/10} 200 {FCOLOR/12}个！\\ 
<返回/@gotobuy>\
#ACT 
break 

#IF
#ACT
MOV P1 %D3
MOV P2 %D4
MUL P1 P2
MOV D2 %P9

#IF 
#SAY 
_{FCOLOR/10}<$OUTPUT(D4)>{FCOLOR/12} 个 {FCOLOR/10}<$OUTPUT(A3)>{FCOLOR/12} 的价格是：{FCOLOR/10} <$OUTPUT(D2)> {FCOLOR/12}金币.\
注意你的背包是否有空余，否则东西掉地上我不负责的.\
<确定购买/@进行购买>\
<<返回/@gotobuy>>\
#ACT 
break


[@进行购买]
#IF
equal   S1  3
checkgold   %D2
#ACT
give   %A3  %D4
take  金币  %D2
Mov    S1  0
#SAY
购买成功！\
您花了 {FCOLOR/10}<$OUTPUT(D2)> {FCOLOR/12}金币，购买了 {FCOLOR/10}<$OUTPUT(D4)>{FCOLOR/12} 个 {FCOLOR/10}<$OUTPUT(A3)>{FCOLOR/12} .\\
<<返回/@gotobuy>\

#ELSESAY
您没有 {FCOLOR/10}<$OUTPUT(D2)>{FCOLOR/12} 金币，我无法买给你 {FCOLOR/10}<$OUTPUT(D4)>{FCOLOR/12} 个 {FCOLOR/10}<$OUTPUT(A3)> {FCOLOR/12}.\\
<返回/@gotobuy>\
<离开/@exit>\ \
}
;;;QQ:67762207