Script 6.2. Check the Script to add Blocks Automatically

The following script will add 10 blocks automatically.

Since this is basic for CIMPLICITY, it is recommended that you attempt to write it first and then check what you wrote.

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

Dim itemid As String Dim model As String Dim item As New prtItem Randomize For i = 1 To 10   'Prompt user for item ID and model   'itemid=InputBox$("Enter BLOCK item ID, please","Item ID Entry","")   'model=InputBox$("Enter BLOCK model type, please (valid entries: 25,36,60,99)","Model Type Entry","") 'Random generate item ID and model type     Number = Random(1,5000)       itemid="B" & Number     If(number Mod 4)=0 Then        model="25"     ElseIf(number Mod 4)=1 Then       model="36"     ElseIf(number Mod 4)=2 Then       model="60"     Else       model="99"     End If     'Set the item properties      Item.regionid="SCHEDULE"      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