>>963
ＶＢで書かれてるけどね
If Asc(Mid(RecvData, 4, 1)) < 1 Then
If Asc(Mid(RecvData, 31, 1)) > 3 And Asc(Mid(RecvData, 31, 1)) <> 10 Then
If MakePort(Mid(RecvData, 3, 2)) > UBound(Equip) Then ReDim Preserve Equip(MakePort(Mid(RecvData, 3, 2)))
If MakePort(Mid(RecvData, 3, 2)) > UBound(Inventory) Then ReDim Preserve Inventory(MakePort(Mid(RecvData, 3, 2)))
Equip(MakePort(Mid(RecvData, 3, 2))).Name = MakeString(Mid(RecvData, 7, 24))
Equip(MakePort(Mid(RecvData, 3, 2))).EquipID = 0
Equip(MakePort(Mid(RecvData, 3, 2))).Amount = MakePort(Mid(RecvData, 5, 2))
Equip(MakePort(Mid(RecvData, 3, 2))).Where = Mid(RecvData, 32, 1)
Inventory(MakePort(Mid(RecvData, 3, 2))).Use = 3
ElseIf (Asc(Mid(RecvData, 31, 1)) <= 3 Or Asc(Mid(RecvData, 31, 1)) = 10) Then
If MakePort(Mid(RecvData, 3, 2)) > UBound(Inventory) Then ReDim Preserve Inventory(MakePort(Mid(RecvData, 3, 2)))
Inventory(MakePort(Mid(RecvData, 3, 2))).Name = MakeString(Mid(RecvData, 7, 24))
Inventory(MakePort(Mid(RecvData, 3, 2))).Amount = Inventory(MakePort(Mid(RecvData, 3, 2))).Amount + MakePort(Mid(RecvData, 5, 2))
Inventory(MakePort(Mid(RecvData, 3, 2))).Use = Asc(Mid(RecvData, 31, 1))
Stat "You got " + MakeString(Mid(RecvData, 7, 24)) + " " + CStr(MakePort(Mid(RecvData, 5, 2))) + " EA" + vbCrLf
End If
UpdateInventory
End If