You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
38 lines
1.2 KiB
38 lines
1.2 KiB
For GravDir is between 0 and 3
|
|
Set PlayerIdle(GravDir) to "Sprites/Character_Idle_" & GravDir & ".gif"
|
|
|
|
For PlayerWalkFrame is between 0 and 5
|
|
Set PlayerWalk(GravDir, PlayerWalkFrame) to "Sprites/Character_Walk_" & GravDir & "_" & PlayerWalkFrame & ".gif"
|
|
Next
|
|
|
|
For PlayerOtherFrame is between 0 and 1
|
|
Set PlayerShock(GravDir, PlayerWalkFrame) to "Sprites/Character_Shock_" & GravDir & "_" & PlayerOtherFrame & ".gif"
|
|
Set PlayerDazed(GravDir, PlayerWalkFrame) to "Sprites/Character_Dazed_" & GravDir & "_" & PlayerOtherFrame & ".gif"
|
|
Next
|
|
|
|
For RobotFrame is between 0 and 3
|
|
For Robot is between 0 and 1
|
|
Set RobotWalk(Robot, GravDir, RobotFrame) to "Sprites/Character_Shock_" & GravDir & "_" & PlayerOtherFrame & ".gif"
|
|
Next
|
|
Next
|
|
Next
|
|
|
|
For Tile is between 0 and 15
|
|
Set TileTable(Tile) to "Tiles/Tile_" & Tile & ".gif"
|
|
Next
|
|
|
|
Set ShockTile to "Tiles/Tile_Shock.gif"
|
|
Set StartTile to "Tiles/Tile_Start.gif"
|
|
Set FinishTile to "Tiles/Tile_Finish.gif"
|
|
|
|
Set Level to 0
|
|
|
|
Call the procedure LoadLevel with the parameter "Title"
|
|
|
|
Set cmdState to visible
|
|
Set cmdHelp to visible
|
|
Set cmdTopScores to visible
|
|
Set txtPlayerNane to visible
|
|
Set tmrTimer to disabled
|
|
|
|
Set the interval of tmrTimer to the result of 1000 / 20
|