75kf 发表于 2024-7-14 10:41:55

blue引擎赏金猎人通缉脚本

[@BLueMir2_赏金猎人NPC]
{

#IF
CHECKLEVELEX > 0
#ACT
SetMerchantDlgImgName MerchantDlg.png
ReadRandomLine ..\QuestDiary\BLueMir2_游戏功能配制\赏金猎人\抽取数据\空格.txt S0
CALCVAR HUMAN 赏金猎人输入页 = 1
DELAYGOTO 1 @赏金猎人页面显示

[@赏金猎人页面显示]
#IF
CHECKVAR HUMAN 赏金猎人输入页 = 1
#ACT
MOV S18 <COLOR=clRed
INC S18
INC S18 [1]> 
#ELSEACT
MOV S18 <[1]/@赏金猎人页数1> 
#IF
CHECKVAR HUMAN 赏金猎人输入页 = 2
#ACT
MOV S17 <COLOR=clRed
INC S17
INC S17 [2]> 
INC S18 <$STR(S17)>
#ELSEACT
MOV S17 <[2]/@赏金猎人页数2> 
INC S18 <$STR(S17)>
#IF
CHECKVAR HUMAN 赏金猎人输入页 = 3
#ACT
MOV S17 <COLOR=clRed
INC S17
INC S17 [3]> 
INC S18 <$STR(S17)>
#ELSEACT
MOV S17 <[3]/@赏金猎人页数3> 
INC S18 <$STR(S17)>
#IF
CHECKVAR HUMAN 赏金猎人输入页 = 4
#ACT
MOV S17 <COLOR=clRed
INC S17
INC S17 [4]> 
INC S18 <$STR(S17)>
#ELSEACT
MOV S17 <[4]/@赏金猎人页数4> 
INC S18 <$STR(S17)>
#IF
CHECKVAR HUMAN 赏金猎人输入页 = 5
#ACT
MOV S17 <COLOR=clRed
INC S17
INC S17 [5]> 
INC S18 <$STR(S17)>
#ELSEACT
MOV S17 <[5]/@赏金猎人页数5> 
INC S18 <$STR(S17)>
#IF
CHECKVAR HUMAN 赏金猎人输入页 = 6
#ACT
MOV S17 <COLOR=clRed
INC S17
INC S17 [6]> 
INC S18 <$STR(S17)>
#ELSEACT
MOV S17 <[6]/@赏金猎人页数6> 
INC S18 <$STR(S17)>
#IF
CHECKVAR HUMAN 赏金猎人输入页 = 7
#ACT
MOV S17 <COLOR=clRed
INC S17
INC S17 [7]>
INC S18 <$STR(S17)>
#ELSEACT
MOV S17 <[7]/@赏金猎人页数7>
INC S18 <$STR(S17)>

#IF
CHECKLEVELEX > 0
#ACT
CALCVAR HUMAN 赏金猎人NPC显示01 =
CALCVAR HUMAN 赏金猎人NPC显示02 =
CALCVAR HUMAN 赏金猎人NPC显示03 =
CALCVAR HUMAN 赏金猎人NPC显示04 =
CALCVAR HUMAN 赏金猎人NPC显示05 =
CALCVAR HUMAN 赏金猎人NPC显示06 =
CALCVAR HUMAN 赏金猎人NPC显示07 =
#IF
CHECKLEVELEX > 0
#ACT
MOV D10 7
CALCVAR HUMAN 赏金猎人输入序 = <$HUMAN(赏金猎人输入页)>
CALCVAR HUMAN 赏金猎人输入序 - 1
CALCVAR HUMAN 赏金猎人输入序 * <$STR(D10)>
CALCVAR HUMAN 赏金猎人输入序 + 1

**** Hidden Message *****

页: [1]
查看完整版本: blue引擎赏金猎人通缉脚本