Help for my fish systéme !

[Pix€l]

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