|
|
楼主 |
发表于 2026-3-27 20:38:15
|
显示全部楼层
[@main]
#IF
CheckBoxItemCount 0
#ACT
#ELSEACT
ClearVar S1 4
#IF
#ACT
#SAY
<$STR(S3)>
#ACT
DelBoxItem 0
TAKE <$STR(S1)> <$STR(S2)>
GIVE <$STR(S4)>
GameGold - <$STR(S3)>
goto @main
#ELSEACT
MessageBox 材料不足
Break
[@ItemIntoBox0]
#IF
CheckContainsText ,生鸡,生鱼,生肉, ,<$BOXITEM[0].NAME>,
#ACT
#ELSEACT
UNALLOWITEMINTOBOX
MessageBox 禁止放入的物品
Break
#IF
EQUAL <$BOXITEM[0].NAME> 生鸡
#ACT
TextSplit , ,木材,5,10000,烤鸡 S1
goto @main
Break
#IF
EQUAL <$BOXITEM[0].NAME> 生鱼
#ACT
TextSplit , ,木材,6,20000,烤鱼 S1
goto @main
Break
#IF
EQUAL <$BOXITEM[0].NAME> 生肉
#ACT
TextSplit , ,木材,7,30000,烤肉 S1
goto @main
Break
没测试 自己试吧 |
|