Description

This command initializes a T_PICKUP data structure with the following member values:

Syntax

InitPickup tPick

Parameters

tPick As T_PICKUP

T_PICKUP data structure being initialized.

Example

The following example initializes a T_PICKUP type data structure and prints the member values.

Sub Main

    Dim tPick As T_PICKUP

    InitPickup tPick

    Print "Pickup Description: " & Chr(9) & tPick.Description

        Print Chr(9) & "Active: " & Chr(9) & tPick.active

        Print Chr(9) & "Destination:" & Chr(9) & tPick.dstentity

        Print Chr(9) & Chr(9) & "Index:" & Chr(9) & tPick.dstindex

        Print Chr(9) & Chr(9) & "Sub-index:" & Chr(9) & tPick.dstsubindex

        Print Chr(9) & Chr(9) & "Type:" & Chr(9) & tPick.dsttype

        Print Chr(9) & "Source:" & Chr(9) & tPick.srcentity

        Print Chr(9) & Chr(9) & "Index:" & Chr(9) & tPick.srcindex

        Print Chr(9) & Chr(9) & "Sub-index:" & Chr(9) & tPick.srcsubindex

        Print Chr(9) & Chr(9) & "Type:" & Chr(9) & tPick.srctype

        Print Chr(9) & "Function:" & Chr(9) & tPick.Function

        Print Chr(9) & "Operation:" & Chr(9) & tPick.op

        Print Chr(9) & "Parameter A:" & Chr(9) & tPick.parma

        Print Chr(9) & "Parameter B:" & Chr(9) & tPick.parmb

        Print Chr(9) & "Script:" & Chr(9) & tPick.Script

End Sub

See Also

Pickup Script Commands

T_PICKUP