Нет, интересует не работа со строкой как с массивом, а двумерный массив, элементами которого являются строки. То есть, например, нечто подобное:
Code:
Dim Responces[3][10]
Responces[0][0] = ...
...
Responces[2][0] = "You can't"
Responces[2][1] = "Try to"
Responces[2][2] = "You put"
Responces[2][3] = "There are no"
Responces[2][4] = "Oops!"
...
Каковое "нечто" потом может быть использовано, например, так:
Code:
...
For j= ...
If TileNum == TreeTileType[j] Then
ProprietaryTool = 'Hatchet'
UsedSkill = 2
EndIf
Next
...
UO.Waitfortargettile('TileNum',TargetX,TargetY,Z)
UO.UseObject(ProprietaryTool)
RectifyJournal()
Repeat
Wait(100)
For j = 0 To 9 Then
If UO.InJournal(Responces[UsedSkill][j])
ExitFlag = 1
EndIf
Next
Until ExitFlag <>0
...
Впрочем, на крайняк, сойдёт и одномерный массив, элементами которого являются структуры (в С-шной терминологии, в паскалевской - по-моему, это называется "записи).
P.S. И, как кто-то сюда уже писал, конечно используя несколько поисков по типу можно играться с семафорами, но больно уж громоздко получается. Некая поисковая функция по типу/цвету, прямо возвращающая серийник, а не кладущая его куда либо, была бы весьма и весьма в кассу. И хрен бы с ним, с консольным её вариантом...