|
|

楼主 |
发表于 2006-10-14 18:33:00
|
显示全部楼层
开场菜单的代码是这样的
Dim PlayerName,PlayerSex,DefaultName
Game.LoadState
GetValue(PlayerName,PlayerName)
GetValue(PlayerSex,PlayerSex)
SetSpiritVisable(Lead,False)
:Start
Cls
PaintImage(splash,100)
IfSaveGoto(#StateExist,True,0)
Menu(2,10,新游戏@20/更新设定@30/,,)
:0
Menu(3,10,继续@10/新游戏@20/更新设定@30/,,)
:10
If /'PlayerSex'/==Boy Then Goto 40
If /'PlayerSex'/==Girl Then Goto 50
:40
SetActor(Rebooto.Gif)
Goto SkipGetSex
:50
SetActor(Kyouko.gif)
:SkipGetSex
SetSpiritVisable(Lead,True)
Game.Load
Goto EndMenu
:20
Cls
PaintImage(Introduction01,0)
Cls
PaintImage(Introduction02,0)
Cls
PaintImage(Introduction03,0)
Cls
PaintImage(Introduction04,0)
Cls
PaintImage(Introduction05,0)
Cls
MsgBox(啊。久违久违!#欢迎来到这个世界!,0)
MsgBox(你是....?,0)
Menu(2,4,男@ChoseBoy/女@ChoseGirl/,男孩?#还是女孩?,)
:ChoseBoy
SetValue(PlayerSex,Boy)
SetActor(Rebooto.gif)
SetValue(DefaultName,优树)
MsgBox(你是男孩啊。,0)
Goto SkipSex
:ChoseGirl
SetValue(PlayerSex,Girl)
SetActor(Kyouko.gif)
SetValue(DefaultName,甜甜)
MsgBox(你是女孩啊。,0)
:SkipSex
SaveValue(PlayerSex,PlayerSex)
:ReadyName
Readln(PlayerName,那么#你的名字是....,/'DefaultName'/)
Menu(2,4,是@YesName/否@ReadyName/,啊...是叫/'PlayerName'/啊!,,)
:YesName
SaveValue(PlayerName,PlayerName)
MsgBox(/'PlayerName'/!,0)
MsgBox(好了#你的故事开始了!,0)
MsgBox(幻想与冒险的#世界!,0)
MsgBox(开始前进!,1000)
SetSpiritVisable(Lead,True)
OpenMap(home2f,72,N,N)
Goto EndMenu
:30
MsgBox(不能进行设置,0)
Goto Start
:EndMenu
|
|