Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Public Sub Death(ByVal ID As Integer)
- With Events(UserList(ID).flags.ID_Event)
- .Teams(UserList(ID).Events(UserList(ID).flags.ID_Event).ID_Team).Deaths = .Teams(UserList(ID).Events(UserList(ID).flags.ID_Event).ID_Team).Deaths + 1
- .Teams(UserList(ID).Events(UserList(ID).flags.ID_Event).ID_Team).Current_Deaths = .Teams(UserList(ID).Events(UserList(ID).flags.ID_Event).ID_Team).Current_Deaths + 1
- .Teams(.Teams(UserList(ID).Events(UserList(ID).flags.ID_Event).ID_Team).Team_Arena).Killed = .Teams(.Teams(UserList(ID).Events(UserList(ID).flags.ID_Event).ID_Team).Team_Arena).Killed + 1
- WarpUserChar ID, .MAP_Arena, .Arenas(.Teams(UserList(ID).Events(UserList(ID).flags.ID_Event).ID_Team).Arena).Pos(UserList(ID).Events(UserList(ID).flags.ID_Event).ID_Team).X_Corner, .Arenas(.Teams(UserList(ID).Events(UserList(ID).flags.ID_Event).ID_Team).Arena).Pos(UserList(ID).Events(UserList(ID).flags.ID_Event).ID_Team).Y_Corner, False
- If .Teams(UserList(ID).Events(UserList(ID).flags.ID_Event).ID_Team).Current_Deaths = UserList(ID).flags.ID_Event Then _
- Round_Win .Teams(UserList(ID).Events(UserList(ID).flags.ID_Event).ID_Team).Team_Arena, UserList(ID).Events(UserList(ID).flags.ID_Event).ID_Team, UserList(ID).flags.ID_Event
- End With
- End Sub
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement