Крашит в течении 5 минут после запуска скрипта.

[greenfoxes]

Хотел прокачать алхимию, скрипт нашел, вроде как все работает, но после минут 5 иногда немного больше крашит. В чем может быть дело? Может ли быть это из за лага в игре? Как обойти собственно это дело?

[Kynep]

Хотел прокачать алхимию, скрипт нашел, вроде как все работает, но после минут 5 иногда немного больше крашит. В чем может быть дело? Может ли быть это из за лага в игре? Как обойти собственно это дело?

Телепаты в отпуске. Для начала пациента на стол )) шучу, скрипт выложи, надо же посмотреть.

[greenfoxes]

Телепаты в отпуске. Для начала пациента на стол )) шучу, скрипт выложи, надо же посмотреть.[/quote]

Ах да, извеняюсь ))) Вот и сам "пациен" даже 2


sub Alchemist()
var flag = false, i = 0, numb = 0

Dim Item[6]
Item[0] = 5
Item[1] = '0x0F87' ; Манка
Item[2] = '0x0F87' ; Тотал Манка
Item[3] = '0x0F91' ; Инвиз
Item[4] = '0x0F86' ; СтилСкин
Item[5] = '0x0F86' ; СтонеСкин
Item[6] = '0x0F7B' ; ГретАгилити

Dim Selection[6]
Selection[0] = 5
Selection[1] = 'Mana Refresh' ; Манка
Selection[2] = 'Total Mana Refresh' ; ТоталМанка
Selection[3] = 'Invisibility' ; Инвиз
Selection[4] = 'Steelskin' ; СтилСкин
Selection[5] = 'Stoneskin' ; СтонеСкин
Selection[6] = 'Greater Agility' ; ГретАгилити

UO.CharPrint('0x0385',"Что будем мешать, сделай выбор...")
Wait(1500)
UO.CharPrint('0x0035',"1 - Манка 2 - Тотал Манка 3 - Инвизибл 4 - Стил Скин 5 - Стоне Скин 6 - Грет Агилити")
UO.DeleteJournal()
REPEAT
If UO.JournalSerial(UO.InJournal("1")-1)==UO.GetSerial('self') Then
i = 1
flag = true
Else
If UO.JournalSerial(UO.InJournal("2")-1)==UO.GetSerial('self') Then
i = 2
flag = true
Else
If UO.JournalSerial(UO.InJournal("3")-1)==UO.GetSerial('self') Then
i = 3
flag = true
Else
If UO.JournalSerial(UO.InJournal("4")-1)==UO.GetSerial('self') Then
i = 4
flag = true
Else
If UO.JournalSerial(UO.InJournal("5")-1)==UO.GetSerial('self') Then
i = 5
flag = true
Else
If UO.JournalSerial(UO.InJournal("6")-1)==UO.GetSerial('self') Then
i = 6
flag = true
End If
End If
End If
End If
End If
End If
Wait(250)
Until flag==true or UO.Dead()
UO.CharPrint('0x0385',"Если захотите прервать скажите: lol")
Wait(500)
REPEAT
If UO.Count(Item[i]) Then
If i==4 or i==5 Then
If UO.Count('0x0F85')==0 or UO.Count('0x0F84')==0 Then
UO.Print("ERROR: Not reagents!!!")
return
End If
End If
UO.WaitMenu ('What sort of potion do you want to',Selection[i])
UO.UseType(Item[i])
UO.DeleteJournal()
REPEAT
Wait(500)
Until UO.InJournal("completed potion|fail|You can't make|no bottles") or UO.Dead()
If NOT UO.InJournal("fail|You can't make|no bottles") Then
numb = numb+1
UO.CharPrint('0x0385',str(numb)+" шт уже готово")
Else
If UO.InJournal("fail") Then
UO.CharPrint('0x0385',"Блин...")
End If
End If
End If
If UO.InJournal("You can't make") or UO.Count(Item[i])==0 Then
UO.Print("ERROR: Not reagents!!!")
flag = false
Else
If UO.Count('0x0F0E')==0 Then
UO.Print("ERROR: Not bottles!!!")
flag = false
Else
If UO.JournalSerial(UO.InJournal("lol|LOL")-1)==UO.GetSerial('self') Then
UO.Print("Done...")
flag = false
End If
End If
End If
Until flag==false or UO.Dead()
end sub

А это самый простой )))

sub makega()
alchemy('0x0F7B', 3, "'Greater Agility'")
end sub

В общем то мне надо всего лишь делать 'Greater Agility' потом переделаю на то что надо дальше для прокачки.