Script 6.1. Check the Script to Add Carriers Automatically

The following script will add 10 carriers to the LOAD_CONV region.

Sub OnMouseUp(x As Long, y As Long, flags As Long)

Dim itemid As String Dim model as String Dim item As New prtItem

For i = 1 To 10

'Prompt user for the Carrier item id and model 'itemid = InputBox$("Enter CARRIER item id, please","Item ID Entry","") 'model = "00"

'Random generate item id Randomize Number = Random(1,5000) itemid = "C" & Number model = "00"

'Set the item properties item.regionid="LOAD_CONV" item.itemid = itemid

item.itemtypeid = model item.regionloc = -1 item.exthold 0 item.groupid = "MAIN" item.inthold 0 'Add the item to PRT item.Add

Next i

End Sub