Help for my fish systÃ©me ! - Printable Version

Help for my fish systÃ©me ! - Printable Version

+- Mirage Engine (https://mirage-engine.uk/forums)
+-- Forum: Mirage Source (Nostalgia) (https://mirage-engine.uk/forums/forumdisplay.php?fid=61)
+--- Forum: Archive (2006-2011) (https://mirage-engine.uk/forums/forumdisplay.php?fid=18)
+---- Forum: Source Code Development (https://mirage-engine.uk/forums/forumdisplay.php?fid=51)
+----- Forum: Mirage Source 4 (Visual Basic 6) (https://mirage-engine.uk/forums/forumdisplay.php?fid=44)
+------ Forum: Bugs Reports (https://mirage-engine.uk/forums/forumdisplay.php?fid=9)
+------ Thread: Help for my fish systÃ©me ! (/showthread.php?tid=3095)

Help for my fish systÃ©me ! - Pixâ‚¬l - 29-08-2009

Hello everybody, I create a fishing system, I would like the player can not move while fishing ...
Here is my code:

Code:
Sub PecheLvl1(Index As Long)

Dim exp As Long

Dim chance As Integer

Dim tmpTick As Long

 tmpTick = GetTickCount

Do

Loop Until GetTickCount > tmpTick + 1000

exp = 1

chance = Int(Rnd * 30) + 1

Select Case chance

  Case Is < 18

      Call PlayerMsg(Index, "Rien , mÃªme pas une touche !", Color)

  Case 18

      Call PlayerMsg(Index, "Le poison vous vole l'appÃ¢t et repart ...", Color)

  Case Is > 18

      Call PlayerMsg(Index, "Vous avez Obtenue une belle truite.", Color)

      Call GiveItem(Index, 175, 1)

  Case 30

      Call PlayerMsg(Index, "Vous avez Obtenue une belle truite dorÃ©e.", Color)

      Call GiveItem(Index, 176, 1)

End Select

    Call SetPlayerEXPMETIER(Index, GetPlayerEXPMETIER(Index) + exp)

    Call MetierLevelUp(Index)

    Call TakeItem(Index, 9, 1)

End Sub

Do
' set of code that blocks the player in this loop
Loop Until GetTickCount > tmpTick + 1000

'set of code that Unblocks the player in this loop

Tanks in advance , Pixâ‚¬L Wink

Re: Help for my fish systÃ©me ! - Matt - 29-08-2009

if fishing then canmove = false

Re: Help for my fish systÃ©me ! - Pixâ‚¬l - 29-08-2009

In the server canmove are not declar , help pls!

i place this code in the sub playermove (serveur side) :

Code:
If Pechenow = True Then Canmove = False

Error : Variable not defined

Pixâ‚¬l Wrote:In the server canmove are not declar , help pls!

i place this code in the sub playermove (serveur side) :

Code:
If Pechenow = True Then Canmove = False

Error : Variable not defined

Canmove is client side, I think. Server side, is something else. I forget.