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
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
