Sorry your browser is not supported!

sync on
sync rate 0

Make object cube 1,5
Make object box 2,2,2,10

Position object 2,5,0,0
Make mesh from object 2,2
Delete object 2

Add limb 1,1,2

suspend for key

Do


Rotate limb 1,1,curveangle(90,limb angle x(1,1),5),limb angle y(1,1),limb angle z(1,1)

Text 2,2,str$(limb angle x(1,1))

sync
Loop

Rem Created: 6/29/2006 1:21:17 AM

Rem ***** Main Source File *****

REM Set Sync Settings
Sync On
Sync Rate 0

REM Load Model And Set Orientation
Load Object "hkdshuffleforward1.X",1
Rotate Object 1,0,90,0
Set Object 1,1,0,0
REM Load Model Animations
Append Object "hkdsteppingsidekickthrough1.X",1,10
Append Object "hkdshuffleright1.X",1,40
Append Object "hkdLstance2Rstance2.X",1,50
append object "D:\Program Files\Dark Basic Software\Dark Basic Professional\Media\3d animations\RLstanceLhandpunch2face1.X",1,66
append object "D:\Program Files\Dark Basic Software\Dark Basic Professional\Media\3d animations\RLstanceLupperblockstanding1.X",1,76
REM Set Speed For Model
P1animspeed = 4
OldP1animspeed = 4
Set Object Speed 1,P1animspeed

REM Set Variables For Actions
Global Control = 0
Global MinFrame = 0
Global MaxFrame = 0
Global AnimStartFlag = 0
Global PlayBackward = 0
Global MovePlayer1 = 0
Global MoveDistance1# = 0.01
Global PlayerStance1 = 1

REM Main Loop
Do

   REM Print Diagnostics
   Set Cursor 0,0
   Print "obj1 is playing?: ";Object Playing(1)
   Set Cursor 0,11
   Print "boongerframe: ";Object Frame(1)
   Set Cursor 0,22
   Print "Anim Speed: ";P1animspeed
   Set Cursor 0,33
   Print "Backwards?: ";PlayBackward
   Set Cursor 0,44
   Print "MinFrame: ";MinFrame
   Set Cursor 0,55
   Print "MaxFrame: ";MaxFrame

   REM If Animation Not Playing
   If Control = 0
      REM Forward
      If Upkey() = 1 Then Control = 1 : P1animspeed = 4 : MinFrame = 0 : MaxFrame = 9 : MovePlayer1 = 1 : MoveDistance1# = 0.01
      REM BackWard
      If DownKey() = 1 Then Control = 2 : P1animspeed = -4 : MinFrame = 0 : MaxFrame = 9 : MovePlayer1 = 1 : MoveDistance1# = -0.01
      REM SideStep Left
      If LeftKey() = 1 Then Control = 3 : P1animspeed = -4 : MinFrame = 41 : MaxFrame = 49 : MovePlayer1 = 3 : MoveDistance1# = -0.01
      REM SideStep Right
      If RightKey() = 1 Then Control = 4 : P1animspeed = 4 : MinFrame = 41 : MaxFrame = 49 : MovePlayer1 = 3 : MoveDistance1# = 0.01
      REM Press 1 To Kick
      If KeyState(2) = 1 Then Control = 5 : P1animspeed = 4 : MinFrame = 10 : MaxFrame = 40 : MovePlayer1 = 1 : MoveDistance1# = 0.005
      REM press 2 to punch
      If KeyState(3) = 1 Then Control = 6 : P1animspeed = 4 : MinFrame = 66 : MaxFrame = 76 : MovePlayer1 = 2 : MoveDistance1# = 0.000
      `press to upperblock
      If KeyState(4) = 1 Then Control = 7 : P1animspeed = 4 : MinFrame = 76 : MaxFrame = 86 : MovePlayer1 = 2 : MoveDistance1# = 0.000

      REM Press Control To Switch Stance
      If ControlKey() = 1
         If PlayerStance1 = 2
            PlayerStance1 = 1
         Else
            PlayerStance1 = 2
         EndIf
         Control = 8 : P1animspeed = 4 : MinFrame = 50 : MaxFrame = 65 : MovePlayer1 = 1 : MoveDistance1# = 0.000
      EndIf
   EndIf

   REM If Animation Speed Changed
   If OldP1animspeed <> P1animspeed Then OldP1animspeed = P1animspeed : Set Object Speed 1,P1animspeed

   REM Play Animation If Key Was Pressed And Animation Isn't Already Playing
   If Control > 0
      REM If Playing Backwards
      If P1animspeed < 0 And AnimStartFlag = 0
         Play Object 1,MinFrame,MaxFrame
         Play Object 1
         Set Object Frame 1,MaxFrame
         PlayBackward = 1
         AnimStartFlag = 1
      EndIf
      REM If Playing Forward
      If P1animspeed > 0 And AnimStartFlag = 0
         Play Object 1,MinFrame,MaxFrame
         PlayBackward = 0
         AnimStartFlag = 1
      EndIf
   EndIf

   REM If Object Playing Backward Stop It At Proper Frame
   If PlayBackward = 1
      If Object Playing(1) = 1 And Object Frame(1) < MinFrame Then Stop Object 1
   EndIf

   REM If Changing Stance Fix ( While wanting animation to play forward :P )
   If Object Playing(1) = 0 And Control = 8 And AnimStartFlag = 1
      If PlayerStance1 = 2
         Scale Object 1,-100,100,100
         Set Object Frame 1,0
      Else
         Scale Object 1,100,100,100
         Set Object Frame 1,0
      EndIf
   EndIf

   REM If Object Done Playing Then Reset Variables
   If Object Playing(1) = 0 And Control > 0 And AnimStartFlag = 1 Then AnimStartFlag = 0 : Control = 0 : MovePlayer1 = 0 : MoveDistance1# = 0.0

   REM If Animation Playing Move Character
   If Object Playing(1) = 1
      REM Move On X
      If MovePlayer1 = 1
         Move Object 1,MoveDistance1#
      EndIf
      REM Move On Y
      If MovePlayer1 = 2

      EndIf
      REM Move On Z
      If MovePlayer1 = 3
         Move Object Right 1,MoveDistance1#
      EndIf
   EndIf

   Sync

Loop