Adding Stamina (Surprisingly Simple!)

[Carim123]

**I DO NOT recommend you use this.**

Anyway, this is a lot more simpler than I thought. It's perfectly functional for me.

There are more functional, and WAY better ways of doing this; but I just wanted something simple, and I just exploited what I had to use. ;p.

What this does is that if you're running, it depletes your stamina, if you're walking, or standing still, it raises your stamina, and if you end up at 0, the only solution to raising your stamina is standing still.

NOTE: I switched my Running and Walking functions, so you may need to swap MOVING_RUNNING for MOVING_WALKING, and vice versa. If it rises, just swap them. I changed them to how they'd be normally, but in the case I'm incorrect, correct me.

First, make a label on frmMain. Name it lblStam, and set the Caption to 100\. Or whatever number between 0 - 100\. Now, make a timer, and call it timWalk. Keep it enabled as true, and set the interval to anything higher than 2000\. This makes the stamina rise every few seconds, and keep in mind 2000 is 2 seconds, so you don't want it lower than 1000\. I tried 3\. The results was hilarious. xD.

Inject this into timWalk:
```
If frmMain.lblStam.Caption = "100" Then
' Change the 100 to whatever you want to maximum value to be.
    Exit Sub
End If

If frmMain.lblStam.Caption = "0" Then
            Player(MyIndex).Moving = MOVING_WALKING
            frmMain.lblStam.Caption = Val(frmMain.lblStam) + 1
        Else
            frmMain.lblStam.Caption = Val(frmMain.lblStam) + 1
                End If
```
Now, that's done. Now go into Sub CheckMovement, within modGameLogic, and under:
```
Player(MyIndex).Moving = MOVING_RUNNING
```
add:
```
If frmMain.lblStam.Caption = "0" Then
            Player(MyIndex).Moving = MOVING_WALKING
        Else
            frmMain.lblStam.Caption = Val(frmMain.lblStam) - 1
                End If
```
There you go. A functional Stamina system, provided I've added everything.

[Dzastin]

Wow, simple and nice, i like this :)

[Carim123]

Sorry, there's a little flaw with it, but I'll have an update in a min'. Solving it right now :D

EDIT: Worked it out, editing main post.

[Dzastin]

Reply, when you have 0 in Stamima Point, stamima not +1.

If frmMain.lblStam.Caption = "0" Then
            Player(MyIndex).Moving = MOVING_WALKING
            frmMain.lblStam.Caption = Val(frmMain.lblStam) + 1
        Else
            frmMain.lblStam.Caption = Val(frmMain.lblStam) + 1
                End If

Rewrite with this.

[Carim123]

@aℓνιη:

> Reply, when you have 0 in Stamima Point, stamima not +1.
>
> If frmMain.lblStam.Caption = "0" Then
>             Player(MyIndex).Moving = MOVING_WALKING
>             frmMain.lblStam.Caption = Val(frmMain.lblStam) + 1
>         Else
>             frmMain.lblStam.Caption = Val(frmMain.lblStam) + 1
>                 End If
>
> Rewrite with this.

It's because when you deplete to 0, you need to stand still to replenish it. It's how I intended it to be. But I'll change it. Seeing as other people may not want the rock hard difficulty I like. xD

[Dzastin]

```
Private Sub timWalk_Timer()
Dim Stata As Long
Stata = GetPlayerStat(MyIndex, Endurance) * 3

If frmMain.lblStam.Caption = Stata Then
Exit Sub
End If

If InGame = True Then
If frmMain.lblStam.Caption = "0" Then
            Player(MyIndex).Moving = MOVING_WALKING
            frmMain.lblStam.Caption = Val(frmMain.lblStam) + 1
        Else
            frmMain.lblStam.Caption = Val(frmMain.lblStam) + 1
End If
End If

End Sub
```
Now you have stamima based of Endurance! xD

[FinalFlame]

I might use this :D

[Yxxe]

> Now, make a timer

Please… use GetTickCount.

[Carim123]

@Lightning:

> Please… use GetTickCount.

Yeah, I am. This was literally written in 5 minutes. I'll update it when I come to it.

[Grimnnak]

This is pretty cool, though i never really liked stamina in ES

[Helladen]

You already run pretty slow, this might not be very good to add.

[Repercussionist]

@Helladen:

> You already run pretty slow, this might not be very good to add.

Increase the movement speeds.

[Carim123]

@Helladen:

> You already run pretty slow, this might not be very good to add.

Just saying that proves you've never read modConstants.

[adr990]

Ah nice man!

I was about to add that once in my game, just didn't get to it yet.
Thumbs up, heh.

I'm gonna test it out, -snip nvm-

Thanks for sharing this tutorial, I learned from it. :) (As I didn't have any idea where to start yet actually.. lol)

Edit: Works good. Though, I might do it the GetTickCount as suggested by lightning.
As timers do slow down the game? (idk)

I also will try and make it use the exp/hp/mp bar way, I believe there even was a whole tutorial about that, but first gonna try it myself.

Edit2:
@ Helladen:
Find:
```
Sub ProcessMovement(ByVal Index As Long)
```:)

-=-=-

Edit3:
Got it working, I'm fine with what I have here.
Now I wonder if I can make it some kind of stats out of it.

So that if people level up, they can upgrade their Stamina.
I'll go and try that.

[Carim123]

Cool, nice to know you learned and found a use from it :D.

[adr990]

Yea, I know it sounds stupid, but only until now I realized what timers are for. .. eh

btw this is what my bar looks like:
(Yes, I didn't spend much time to the GUI placement, Stamina bar yet.)

>! 
>! 

[Carim123]

Heh, looks cool. :D
Still, isn't your GUI a bit wide?

Oh, and thanks for finding a use for my Eyecatch Framework. xD

[DshWinchester]

hey devil,nice shoot

This is much more simple to add and theres no need to delete the actual files(by changing the StatsEnum)

Thanks .-.

[Fragment]

Just to check, this doesnt actually do anything server side does it?
Because in that case this is very unreliable because someone could hack the game to have constant speed.

[Whackeddie99]

@adr990:

> Yea, I know it sounds stupid, but only until now I realized what timers are for. .. eh
>
> btw this is what my bar looks like:
> (Yes, I didn't spend much time to the GUI placement, Stamina bar yet.)
>
> >! 
> >! 

I want to make a stamina bar like this guy. I actually would prefer taking out the Spirit bar and replacing it with the stamina for running. I tried to follow the path of the imgEXPBar, but I couldn't figure it out. Any help?

[evilbunnie]

Has anyone realised but me that this code has horrible formatting?
```
If frmMain.lblStam.Caption = "0" Then
      Player(MyIndex).Moving = MOVING_WALKING
Else
      frmMain.lblStam.Caption = Val(frmMain.lblStam) - 1
End If

```
Also anyone can just go into cheat engine and freeze that address.. Woo unlimited running.

[Carim123]

@Captain:

> Has anyone realised but me that this code has horrible formatting?

Of course you aren't the only person, hence the huge warning in red on the OP.