[@末尾转转21]
#if
equal M20 0
#act
mov s90 <〇/FCOLOR=254>
mov s91 <
inc s91 ●
inc s91 /FCOLOR=253
inc s91 >
goto @转转
goto @转转终了21
#ELSEACT
mov s90 <〇/FCOLOR=254>
mov s91 <
inc s91 ●
inc s91 /FCOLOR=253
inc s91 >
DEC M20 1
DelayCall 1 @末尾转转22
goto @转转
[@末尾转转22]
#if
equal M20 0
#act
mov s91 <〇/FCOLOR=254>
mov s92 <
inc s92 ●
inc s92 /FCOLOR=253
inc s92 >
goto @转转
goto @转转终了22
#ELSEACT
mov s91 <〇/FCOLOR=254>
mov s92 <
inc s92 ●
inc s92 /FCOLOR=253
inc s92 >
DEC M20 1
DelayCall 1 @末尾转转23
goto @转转
[@末尾转转23]
#if
equal M20 0
#act
mov s92 <〇/FCOLOR=254>
mov s93 <
inc s93 ●
inc s93 /FCOLOR=253
inc s93 >
goto @转转
goto @转转终了23
#ELSEACT
mov s92 <〇/FCOLOR=254>
mov s93 <
inc s93 ●
inc s93 /FCOLOR=253
inc s93 >
DEC M20 1
DelayCall 1 @末尾转转24
goto @转转
[@末尾转转24]
#if
equal M20 0
#act
mov s93 <〇/FCOLOR=254>
mov s94 <
inc s94 ●
inc s94 /FCOLOR=253
inc s94 >
goto @转转
goto @转转终了24
#ELSEACT
mov s93 <〇/FCOLOR=254>
mov s94 <
inc s94 ●
inc s94 /FCOLOR=253
inc s94 >
DEC M20 1
DelayCall 1 @末尾转转1
goto @转转
[@CallInPutInteger1]
#IF
EQUAL N1 0
#ACT
messagebox 请输入准确的数字!
break
#IF
large N50 999
#ACT
messagebox 最多只能下注1000元宝!!!!
break
#IF
CHECKGAMEGOLD > <$STR(N1)>
#ACT
GAMEGOLD - <$STR(N1)>
INC N50 <$STR(N1)>
inc G21 <$STR(N1)>
CALCVAR HUMAN SGJ + <$STR(N1)>
SAVEVAR HUMAN SGJ ..QuestDiary数据文件SGJSave.txt
GOTO @转转下注
#ELSEACT
messagebox 你没有那么多元宝!!!!
[@CallInPutInteger2]
#IF
EQUAL N2 0
#ACT
messagebox 请输入准确的数字!
break
#IF
large N51 999
#ACT
messagebox 最多只能下注1000元宝!!!!
break
#IF
CHECKGAMEGOLD > <$STR(N2)>
#ACT
GAMEGOLD - <$STR(N2)>
INC N51 <$STR(N2)>
inc G21 <$STR(N2)>
CALCVAR HUMAN SGJ + <$STR(N2)>
SAVEVAR HUMAN SGJ ..QuestDiary数据文件SGJSave.txt
GOTO @转转下注
#ELSEACT
messagebox 你没有那么多元宝!!!!
[@CallInPutInteger3]
#IF
EQUAL N3 0
#ACT
messagebox 请输入准确的数字!
break
#IF
large N52 999
#ACT
messagebox 最多只能下注1000元宝!!!!
break
#IF
CHECKGAMEGOLD > <$STR(N3)>
#ACT
GAMEGOLD - <$STR(N3)>
INC N52 <$STR(N3)>
inc G21 <$STR(N3)>
CALCVAR HUMAN SGJ + <$STR(N3)>
SAVEVAR HUMAN SGJ ..QuestDiary数据文件SGJSave.txt
GOTO @转转下注
#ELSEACT
messagebox 你没有那么多元宝!!!!
[@CallInPutInteger4]
#IF
EQUAL N4 0
#ACT
messagebox 请输入准确的数字!
break
#IF
large N53 999
#ACT
messagebox 最多只能下注1000元宝!!!!
break
#IF
CHECKGAMEGOLD > <$STR(N4)>
#ACT
GAMEGOLD - <$STR(N4)>
INC N53 <$STR(N4)>
inc G21 <$STR(N4)>
CALCVAR HUMAN SGJ + <$STR(N4)>
SAVEVAR HUMAN SGJ ..QuestDiary数据文件SGJSave.txt
GOTO @转转下注
#ELSEACT
messagebox 你没有那么多元宝!!!!
[@CallInPutInteger5]
#IF
EQUAL N5 0
#ACT
messagebox 请输入准确的数字!
break
#IF
large N54 999
#ACT
messagebox 最多只能下注1000元宝!!!!
break
#IF
CHECKGAMEGOLD > <$STR(N5)>
#ACT
GAMEGOLD - <$STR(N5)>
INC N54 <$STR(N5)>
inc G21 <$STR(N5)>
CALCVAR HUMAN SGJ + <$STR(N5)>
SAVEVAR HUMAN SGJ ..QuestDiary数据文件SGJSave.txt
GOTO @转转下注
#ELSEACT
messagebox 你没有那么多元宝!!!!
[@CallInPutInteger6]
#IF
EQUAL N6 0
#ACT
messagebox 请输入准确的数字!
break
#IF
large N55 999
#ACT
messagebox 最多只能下注1000元宝!!!!
break
|