下面这段是传奇3私服里禁区夺宝的调用脚本，其他完整的脚本，我们会陆续发出来。
[@main]
#ACT
SET [449] 0
MOV A0 %USERNAME
LOADVALUE D8 "QuestDiary\资料库\参数控制\禁区夺宝.txt" 参数控制 总层数
FormatStr "FLD_CHARACTER=%s" %username
ReadValueSql "TBL_QUEST" %A9 "FLD_BDC" @N_6
[@N_6()]
#ACT
MOV D9 %ARG(1)
#IF
!EQUAL D9 %D8
#ACT
MOV D8 %D9
INC D9 1
FormatStr "FLD_CHARACTER=%s" %username
mov A5 %A9
FormatStr "FLD_BDC=%s" %D9
UPDATEVALUESQL "TBL_QUEST" %A5 %A9
MOV A7 "第"
ADDSTR A7 %D9
ADDSTR A7 "层积分"
loadvalue D0 "QuestDiary\资料库\参数控制\禁区夺宝.txt" 参数控制 %A7
loadvalue D7 "QuestDiary\资料库\参数控制\禁区夺宝.txt" 参数控制 选择时间
Delaygoto [local] 1 @计算时间
#SAY
恭喜<$OUTPUT(A0)>,你现在是闯过<$OUTPUT(D8)>关!\
进入<$OUTPUT(D9)>层.需要<$OUTPUT(D0)>点积分!\
注意哦,你只有<$OUTPUT(D7)>秒的时间选择!请不要乱走动先,否则后果自负!\
<进入/@进入计时>\
<退出去吧/@exit>\
#ELSEACT
goto @计时开始1
[@进入计时]
#act
mov A0 %USERNAME
MOV A7 "第"
ADDSTR A7 %D9
ADDSTR A7 "层积分"
MOV A6 "第"
ADDSTR A6 %D9
ADDSTR A6 "层地图"
loadvalue D0 "QuestDiary\资料库\参数控制\禁区夺宝.txt" 参数控制 %A7
loadvalue A1 "QuestDiary\资料库\参数控制\禁区夺宝.txt" 参数控制 %A6
SET [449] 1
Delaygoto [local] 5 @计时开始
loadvalue D7 "QuestDiary\资料库\参数控制\禁区夺宝.txt" 参数控制 进入时间
#SAY
你有{FCOLOR/10}<$OUTPUT(D7)>{FCOLOR/12}秒在此逗留,完了就到下一层了!\
{FCOLOR/1}快点去收拾家当哦!{FCOLOR/12}\
#ELSEACT
SYSMSG "对不起,你得积分不足!"
[@计时开始]
#ACT
loadvalue D7 "QuestDiary\资料库\参数控制\禁区夺宝.txt" 参数控制 进入时间
close
GOTO @测测时间
[@测测时间]
#IF
SMALL D7 1
#ACT
GOTO @进入
#ELSEACT
GOTO @倒数时间
[@倒数时间]
#ACT
SYSMSG "还剩下<$OUTPUT(D7)>秒!"
DEC D7 1
Delaygoto [local] 2 @测测时间
[@出去]
#ACT
loadvalue A1 "QuestDiary\资料库\参数控制\禁区夺宝.txt" 参数控制 回去地图代码
loadvalue D2 "QuestDiary\资料库\参数控制\禁区夺宝.txt" 参数控制 X坐标
loadvalue D3 "QuestDiary\资料库\参数控制\禁区夺宝.txt" 参数控制 Y坐标
MAPMOVE %A1 %D2 %D3
SYSMSG "回去顺风哦!"
Breaktimerecall
break
[@计算时间]
#IF
CHECK [449] 0
#ACT
goto @hhehe
#ELSEACT
BREAK
[@hhehe]
#if
SMALL D7 1
#ACT
GOTO @进入计时
#ELSEACT
DEC D7 1
SYSMSG "还剩下<$OUTPUT(D7)>秒"
Delaygoto [local] 2 @计算时间
[@进入]
#ACT
FormatStr "FLD_CHARACTER=%s" %username
ReadValueSql "TBL_QUEST" %A9 "FLD_BDC" @N_9
[@N_9()]
#ACT
MOV D9 %ARG(1)
MOV A7 "第"
ADDSTR A7 %D9
ADDSTR A7 "层积分"
MOV A6 "第"
ADDSTR A6 %D9
ADDSTR A6 "层地图"
loadvalue D0 "QuestDiary\资料库\参数控制\禁区夺宝.txt" 参数控制 %A7
loadvalue A1 "QuestDiary\资料库\参数控制\禁区夺宝.txt" 参数控制 %A6
#IF
CheckJfPoint %D0
#act
SubJFPoint %D0
mapmove %A1
give 万年雪霜 50
SysMsg "你花费了<$OUTPUT(D0)> 点积分进入夺宝禁区下一层,祝您好运.您还剩余 <$NewJFPoint> 点积分！
#ELSEACT
SYSMSG "对不起,你的积分不足!"
GOTO @出去
[@计时开始1]
#ACT
loadvalue D7 "QuestDiary\资料库\参数控制\禁区夺宝.txt" 参数控制 进入时间
close
GOTO @测测时间1
[@测测时间1]
#IF
SMALL D7 1
#ACT
GOTO @得奖
#ELSEACT
GOTO @倒数时间1
[@倒数时间1]
#ACT
SYSMSG "恭喜你过关,你还剩下<$OUTPUT(D7)>秒在这里停留!"
DEC D7 1
Delaygoto [local] 2 @测测时间1
[@得奖]
#IF
CHECKFAME
#ACT
LOADVALUE A1 "QuestDiary\资料库\参数控制\禁区夺宝.txt" 参数控制 奖品1
LOADVALUE A2 "QuestDiary\资料库\参数控制\禁区夺宝.txt" 参数控制 奖品2
LOADVALUE D1 "QuestDiary\资料库\参数控制\禁区夺宝.txt" 参数控制 奖品1数量
LOADVALUE D2 "QuestDiary\资料库\参数控制\禁区夺宝.txt" 参数控制 奖品1数量
LOADVALUE D3 "QuestDiary\资料库\参数控制\禁区夺宝.txt" 参数控制 声望
MOV D4 %P9
INC D4 %D3
SETFAME %D4
give %A1 %D1
give %A2 %D2
FormatStr "FLD_CHARACTER=%s" %username
mov A5 %A9
FormatStr "FLD_PBADA=%s" 1
UPDATEVALUESQL "TBL_QUEST" %A5 %A9
GIVE 英雄信物 1
sysmsg "恭喜您 <$USERNAME>，获得<$OUTPUT(A1)><$OUTPUT(D1)>个、<$OUTPUT(A2)><$OUTPUT(D2)>个，获得<$OUTPUT(D3)>声望"
GOTO @出去
break
本文出自:
搜传奇3转载请注明来处：http://www.so373.com/showarticle.asp?id=44
