init.dhe

vb.net 做的RPG游戏,不过还有点BUG没有调试好

'
'
'Commented and Created By Dustin Hervieux
'Aug 30th, 2005
'All rights reserved.
'
'
'Start the engine.
'InitEngine 0 1024 1280 32 85 'FullScreen(1/0), H, W, BPP, Refresh
InitEngine 1 600 600 32 85 'FullScreen(1/0), H, W, BPP, Refresh

'Set the folder to find media contents.
SetMediaFolder ..\..\Media\

CreateAnimation Fence
With Fence
	AddFrame Tiles1.dds 96 576 96 96
	SetPosition 128 128 1
	SetCurrentFrame 0
	SetAnimeSpeed 0
End With

'Create a new animated tile.
CreateAnimation AnimBoy

'Set the animation frames and properties.
'Note: You can use the With command.
With AnimBoy
	AddFrame NPCs.dds 64 32 32 32
	AddFrame NPCs.dds 96 32 32 32
	SetPosition 32 64 0
	SetAnimSpeed 0.2
	SetCurrentFrame 1
End With

'Create another tile.
'Note: You can also set properties by manually specifying name each time.
CreateAnimation AnimGirl
	AddFrame AnimGirl NPCs.dds 64 0 32 32
	AddFrame AnimGirl NPCs.dds 96 0 32 32
	SetPosition AnimGirl 64 64 0
	SetAnimSpeed AnimGirl 0.35
	SetCurrentFrame AnimGirl 1

'Setup Some standar buttons to quit the applicaiton.
OnMouseButton Left_Button Quit
OnKey F5_Key Quit
OnKey Esc_Key Quit

'Setup the arrow keys to move AnimGirl.
'Note: AnimGirl.MoveLeft is another command file
'That will be proccessed.
OnKey Left_Arrow Proccess AnimGirl.MoveLeft
OnKey Right_Arrow Proccess AnimGirl.MoveRight
OnKey Up_Arrow Proccess AnimGirl.MoveUp
OnKey Down_Arrow Proccess AnimGIrl.MoveDown


'AWDS for boy.
OnKey A_Key Proccess AnimBoy.MoveLeft
OnKey D_Key Proccess AnimBoy.MoveRight
OnKey W_Key Proccess AnimBoy.MoveUp
OnKey S_Key Proccess AnimBoy.MoveDown


'Setup f1 so that it deletes the boy.
OnKey F1_Key Proccess AnimBoy.Delete

OnKey Pause_Key Proccess Game.Pause

'All is setup.  Start the engine, and let the game loop handle it from here.
StartEngine