%***********************
% Created By: Lawlly *
% December, 2007 *
%***********************
%**************************************************************************************************
%*************************************** Variable Declaration *************************************
%**************************************************************************************************
%Ryu Player 1 Punch
var pic1 : int := Pic.FileNew ("RyuPunch1.jpg")
var pic2 : int := Pic.FileNew ("RyuPunch2.jpg")
var pic3 : int := Pic.FileNew ("RyuPunch3.jpg")
%Ryu Player 1 Walk
var PicWalk1 : int := Pic.FileNew ("RyuWalk1.jpg")
var PicWalk2 : int := Pic.FileNew ("RyuWalk2.jpg")
var PicWalk3 : int := Pic.FileNew ("RyuWalk3.jpg")
var PicWalkL1 : int := Pic.FileNew ("RyuWalkL1.jpg")
var PicWalkL2 : int := Pic.FileNew ("RyuWalkL2.jpg")
%Ryu Player 1 Jump
var PicJump1 : int := Pic.FileNew ("RyuJump1.jpg")
var PicJump2 : int := Pic.FileNew ("RyuJump2.jpg")
var PicJump3 : int := Pic.FileNew ("RyuJump3.jpg")
%Ryu Punch Create Sprites
var sprite1 : int := Sprite.New (pic1)
var sprite2 : int := Sprite.New (pic2)
var sprite3 : int := Sprite.New (pic3)
%Ryu Walk Create Sprites
var SpriteWalk1 : int := Sprite.New (PicWalk1)
var SpriteWalk2 : int := Sprite.New (PicWalk2)
var SpriteWalk3 : int := Sprite.New (PicWalk2)
var SpriteWalkL1 : int := Sprite.New (PicWalkL1)
var SpriteWalkL2 : int := Sprite.New (PicWalkL2)
%Ryu Jump Create Sprites
var SpriteJump1 : int := Sprite.New (PicJump1)
var SpriteJump2 : int := Sprite.New (PicJump2)
var SpriteJump3 : int := Sprite.New (PicJump3)
% Declare other variables
var x, y : int := 50
var centered : boolean := false
var chars : array char of boolean
%**************************************************************************************************
%******************************************* Set Sprite Height ************************************
%**************************************************************************************************
%Ryu Player 1 Sprite Height
Sprite.SetHeight (sprite1, 1)
Sprite.SetHeight (sprite2, 1)
Sprite.SetHeight (sprite3, 1)
%Ryu Player 1 Walk Sprite Height
Sprite.SetHeight (SpriteWalk1, 1)
Sprite.SetHeight (SpriteWalk2, 1)
Sprite.SetHeight (SpriteWalk3, 1)
Sprite.SetHeight (SpriteWalkL1, 1)
Sprite.SetHeight (SpriteWalkL2, 1)
%Ryu Player 1 Jump Sprite Height
Sprite.SetHeight (SpriteJump1, 1)
Sprite.SetHeight (SpriteJump2, 1)
Sprite.SetHeight (SpriteJump3, 1)
Sprite.SetPosition (sprite1, x, y, centered)
Sprite.Show (sprite1)
%**************************************************************************************************
%******************************************* Procedure Creation ***********************************
%**************************************************************************************************
proc Player1Punch
Sprite.Hide (sprite1)
Sprite.Animate (sprite2, pic2, x, y, centered)
Sprite.Show (sprite2)
delay (120)
Sprite.Animate (sprite3, pic3, x, y, centered)
Sprite.Hide (sprite2)
Sprite.Show (sprite3)
delay (120)
Sprite.Hide (sprite3)
Sprite.Show (sprite2)
delay (120)
Sprite.Hide (sprite2)
Sprite.Show (sprite1)
delay (120)
end Player1Punch
proc Player1Walk
Sprite.Hide (sprite1)
Sprite.Animate (SpriteWalk1, PicWalk1, x, y, centered)
Sprite.Show (SpriteWalk1)
delay (120)
Sprite.Animate (SpriteWalk2, PicWalk2, x, y, centered)
Sprite.Hide (SpriteWalk1)
Sprite.Show (SpriteWalk2)
delay (120)
Sprite.Animate (SpriteWalk3, PicWalk3, x, y, centered)
Sprite.Hide (SpriteWalk2)
Sprite.Show (SpriteWalk3)
delay (120)
Sprite.Hide (SpriteWalk3)
Sprite.Show (sprite1)
end Player1Walk
proc Player1WalkL
Sprite.Hide (sprite1)
Sprite.Animate (SpriteWalkL1, PicWalkL1, x, y, centered)
Sprite.Show (SpriteWalkL1)
delay (120)
Sprite.Animate (SpriteWalkL2, PicWalkL2, x, y, centered)
Sprite.Hide (SpriteWalkL1)
Sprite.Show (SpriteWalkL2)
delay (120)
Sprite.Hide (SpriteWalkL2)
Sprite.Show (sprite1)
end Player1WalkL
proc Player1Jump
Sprite.Hide (sprite1)
Sprite.Animate (SpriteJump1, PicJump1, x, y, centered)
Sprite.Show (SpriteJump1)
delay(120)
Sprite.Animate (SpriteJump2, PicJump2, x, y, centered)
Sprite.Hide (SpriteJump1)
Sprite.Show (SpriteJump2)
delay(120)
Sprite.Animate (SpriteJump3, PicJump3, x, y, centered)
Sprite.Hide (SpriteJump2)
Sprite.Show (SpriteJump3)
delay(120)
Sprite.Hide (SpriteJump3)
Sprite.Show (sprite1)
end Player1Jump
%*************************************************************************************************
%******************************************** Key Controls ***************************************
%*************************************************************************************************
loop
Input.KeyDown (chars)
if chars (KEY_UP_ARROW) then
y += 1
Sprite.SetPosition (sprite1, x, y, centered)
delay (10)
elsif chars (KEY_DOWN_ARROW) then
y -= 1
Sprite.SetPosition (sprite1, x, y, centered)
delay (10)
elsif chars (KEY_RIGHT_ARROW) then
x += 15
Sprite.SetPosition (sprite1, x, y, centered)
Sprite.SetPosition (SpriteWalk1, x, y, centered)
Sprite.SetPosition (SpriteWalk2, x, y, centered)
Sprite.SetPosition (SpriteWalk3, x, y, centered)
delay (10)
Player1Walk
elsif chars (KEY_LEFT_ARROW) then
x -= 15
Sprite.SetPosition (sprite1, x, y, centered)
Sprite.SetPosition (SpriteWalkL1, x, y, centered)
Sprite.SetPosition (SpriteWalkL2, x, y, centered)
delay (10)
Player1WalkL
elsif chars (' ') then
Player1Punch
end if
View.Update
end loop
Sprite.Free (sprite1)
Sprite.Free (sprite2)
Sprite.Free (sprite3)
Sprite.Free (SpriteWalk1)
Sprite.Free (SpriteWalk2)
Sprite.Free (SpriteWalk3)
Sprite.Free (SpriteWalkL1)
Sprite.Free (SpriteWalkL2)
|