Loading Screen.

[BugSICK]

How can i make the loading screen loads like 5 sec or more., because it loads too fast.

[cheatking]

W-waht? Short loading is good….

[Kemerd]

You could put a timer on the loading, but wouldn't you WANT fast loading? Stop taking crack dude.

~ Kemerd

[BugSICK]

kemerd you'll see.
- edit figure it out.  :embarrassed:

[Robin]

@Johnl17:

> I think he wants this soo its less likely to have a networking error

Yes, because networking errors are brought around by the game 'loading too fast'. -_-

[erkro1]

Use this -> http://www.touchofdeathforums.com/smf/index.php/topic,72075.0.html

[BugSICK]

i have already done what i need.
basically it will load an picture->main menu->loading pic[not the frmload->ingame

i will also add that basic framework, i guess..
the only problem with that code, when changing map a picture will pop-up abcourse but the character still moves walking if it presses walking arrows. it wont pause a little bit then walk.

[erkro1]

@BugSICK:

> i have already done what i need.
> basically it will load an picture->main menu->loading pic[not the frmload->ingame
>
> i will also add that basic framework, i guess..
> the only problem with that code, when changing map a picture will pop-up abcourse but the character still moves walking if it presses walking arrows. it wont pause a little bit then walk.

Just add an InLoadscreen boolean, and make it true when loading screen pops up and make it false when loading screen goes away.

A quick tutorial, everything is **Client Side** :
Add this somewhere in modGlobals :
```
Public InLoadscreen As Boolean
```
In timCatEnd under :
```
' Carim's Basic Eyecatch Framework
picCat.Visible = False
timCatEnd.Enabled = False
```
Add this:
```
InLoadscreen = False
```
Then look for :
```
' Carim's Basic Eyecatch Framework               
frmMain.picCat.Visible = True               
frmMain.picCat.Picture = LoadPicture(App.Path & "\data files\graphics\eye\" & Player(MyIndex).Map & ".bmp")               
frmMain.timCatEnd.Enabled = True
```
And add this under it :
```
InLoadscreen = True
```Also, In **Function CanMove() As Boolean** add under :
```
' not in bank
    If InBank Then
        CanMove = False
        Exit Function
    End If
```this  :
```
' not in loading screen
    If InLoadscreen Then
        CanMove = False
        Exit Function
    End If
```
**I'm not sure this works**

[BugSICK]

thanks i will try this when i get home.  :cheesy:

[erkro1]

@BugSICK:

> thanks i will try this when i get home.  :cheesy:

Ok, I've made a quick tutorial for you, its in the post above you ;)