升级首饰的脚本分析 -传奇3私服发布网 www.8ncc.com 每日更新最新新开传奇3私服

[@RefineAccessory]
{

#Define   D1{PROB}   D1   ;;把概率 D1{PROB} 定义为D1
#Define   D2{TYPE}   D2   ;;把类型 D2{TYPE} 定义为D2
#Define   D3{ATOM}   D3   ;;把原数 D3{ATOM} 定义为D3

#SAY ;;输入进行制炼的饰品名
#INCLUDE [..\Convert_Def\QuestDiary\Refine\Accessory.txt] @RefineAccessory_Main

[@@testRefineAccessory] ;;打开输入首饰名称的对话框
begin

#ACT
mov A0 %INPUTSTR ;;让A0等于"输入的首饰名称"

#IF
Equal A0 "" ;;如果A0为空（就是没有输入字或输入了符号），则中断
#ACT
break

#IF
#SAY　　　　　　　　　　;;SAY真的进行炼制吗？选择要炼制的属性.列表
#INCLUDE [..\Convert_Def\QuestDiary\Refine\Accessory.txt] @RefineAccessory_Main_1
end

[@retryRefine] ;;跳转到: 输入首饰名称的对话框
begin
#ACT
goto @@testRefineAccessory
end

[@doRefineAcc()] ;括号里的数字决定了所要升级的元素，这条是检测首饰升级的整个过程是否符合要求
begin

#IF
not CheckItem     钢玉石   1       ;;首先检测的是钢玉石和1W元,缺一不可
or not CheckGold   10000
#ACT
goto @didnotMatchConditions         ;;任何一条不满足,则跳转到 "没有准备好"
break

#IF                           ;;开始赋值,进行运算
#ACT
; A0 : 力访酒捞袍捞抚
;                             下面三个乱码的，所代表的应该是戒指、项链、手镯
mov   D2{TYPE}   %ARG(1)           ;;0:颇鲍 1:付过 3:盔家让D2{TYPE}等于%ARP(1)
mov   D3{ATOM}   %ARG(2)           ;;盔家             让D3{ATOM}等于%ARP(2)
TestRefineAccessories   %A0   %D2   %D3   ;;检测你的首饰名字、类型、元素是否为相同
mov   D1{PROB}   %P9               ;;D1 己傍犬伏         让D1{PROB}等于%P9

#IF
Small D1{PROB} 0 ;;D1{PROB}小于0，则表示三个条件缺少任意一个
#ACT
goto @didnotMatchConditions ;;跳转到没有准备好,中断
break

#IF                             ;;如果三个条件都符合,也就不用检测了
#SAY                             ;;直接说 "做好制炼饰品的准备了" 问你是否 "进行炼制"
    #INCLUDE [..\Convert_Def\QuestDiary\Refine\Accessory.txt] @RefineAccessory_Main_2
end

[@GetRefineProb]               ;D1俊蔼捞乐促.   这一项是"这次成功率为"的运算函数
begin
#IF                       ;;开始函数运算了
Small D1 30               ;;如果D1小于30
#SAY                     ;;说 "成功率连3成都不到"
    #INCLUDE [..\Convert_Def\QuestDiary\Refine\Accessory.txt] @RefineAccessory_Prob
#ACT
break

#IF
Small D1 38               ;;如果D1小于38
#SAY                     ;;说 "成功率为3成"
    #INCLUDE [..\Convert_Def\QuestDiary\Refine\Accessory.txt] @RefineAccessory_Prob_1
#ACT
break

#IF
Small D1 45               ;;如果D1小于45
#SAY                     ;;说 "成功率为4成"
    #INCLUDE [..\Convert_Def\QuestDiary\Refine\Accessory.txt] @RefineAccessory_Prob_2
#ACT
break

#IF
Small D1 55               ;;如果D1小于55
#SAY                     ;;说 "成功率为5成"
    #INCLUDE [..\Convert_Def\QuestDiary\Refine\Accessory.txt] @RefineAccessory_Prob_3
#ACT
break

#IF
Small D1 65               ;;如果D1小于55
#SAY                     ;;说 "成功率为6成"
    #INCLUDE [..\Convert_Def\QuestDiary\Refine\Accessory.txt] @RefineAccessory_Prob_4
#ACT
break

#IF                       ;;此条没有了检测条件,也就是说当D1大于65
#SAY                     ;;就说 "成功率为7成"
    #INCLUDE [..\Convert_Def\QuestDiary\Refine\Accessory.txt] @RefineAccessory_Prob_5
#ACT
break
end

[@RefineAccNow] ;;点击了 "进行炼制"则开始运算这一项
begin

#IF
not CheckItem     钢玉石   1       ;开始炼了再次检测是否有钢玉石和1W
or not CheckGold   10000
#ACT
break                         ;如果玩家这时候把钢玉石和钱拿走了,则中断

#IF                           ;上面已经检测了钱和石
#ACT                           ;这里就不需要再检测了
Take     钢玉石   1             ;拿走你一块钢玉石,在光通我经常带几块纯度低的放一起,让程序拿走,嘿嘿
Take     金币     10000         ;拿走你1W块钱,要是RMB我就不干了:>
RefineAccessories   %A0   %D2   %D3     ;提取首饰名字、首饰类型、首饰元素

#IF
Equal P9 1 ;如果P9=1时为升级成功
#SAY
#INCLUDE [..\Convert_Def\QuestDiary\Refine\Accessory.txt] @RefineAccessory_Result

#IF
Equal P9 0 ;如果P9=0时为升级失败
#SAY
#INCLUDE [..\Convert_Def\QuestDiary\Refine\Accessory.txt] @RefineAccessory_Result_1
end

[@didnotMatchConditions]     ;;无条件SAY "没有准备好炼制首饰的材料"
begin
#SAY
    #INCLUDE [..\Convert_Def\QuestDiary\Refine\Accessory.txt] @RefineAccessory_Fail
end

[@askAboutRefineAccessories]   ;;这条是首饰升级说明的帮助文档,废柴
begin

#SAY
#INCLUDE [..\Convert_Def\QuestDiary\Refine\Accessory.txt] @RefineAccessory_Help

end

}[/post]