Save Peds In list

Imports System
Imports System.Drawing
Imports System.Windows.Forms
Imports GTA
Imports GTA.Math
Imports System.IO
Imports System.Text
Imports System.Math
Imports Controls


Public Class BaseScript
    Inherits Script

    Private unluckyPeds As New List(Of Ped)
    Private ped As Model = New Model(Native.PedHash.Armymech01SMY)
    Public Sub New()
        Me.Interval = 5


    End Sub

        Private Sub keyDown(ByVal sender As Object, ByVal e As KeyEventArgs) Handles MyBase.KeyDown
    End Sub

    Private Sub keyUp(ByVal sender As Object, ByVal e As KeyEventArgs) Handles MyBase.KeyUp

        If e.KeyCode = Keys.N Then
                Dim onePed As Ped = Game.Player.GetTargetedEntity()
                unluckyPeds.Add(onePed)
                If unluckyPeds.Count + 1 Then
                UI.ShowSubtitle("Ped Saved", 100)
                End If
        End If


        If e.KeyCode = Keys.B AndAlso unluckyPeds.Count > 1 Then
            For i As Integer = 0 To unluckyPeds.Count - 1
                'unluckyPeds(i).Kill()
                'unluckyPeds(i).Task.Jump()
                World.AddExplosion(unluckyPeds(i).Position, ExplosionType.Blimp, 100, 1)
            Next

        End If

    End Sub

    Private Sub general_tick(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Tick

        If unluckyPeds.Count > 5 Then
            For i As Integer = 0 To unluckyPeds.Count - 1
                unluckyPeds.RemoveAt(i)
                UI.ShowSubtitle("Peds Deleted", 1000)
            Next

        End If


    End Sub
End Class