Yoko
http://forum.yoko.com.ua/

Крашит в течении 5 минут после запуска скрипта.
http://forum.yoko.com.ua/viewtopic.php?f=3&t=13167		 Page 1 of 1
Author:  greenfoxes [ 2008-02-01 16:52:32 ]
Post subject:  Крашит в течении 5 минут после запуска скрипта.
Хотел прокачать алхимию, скрипт нашел, вроде как все работает, но после минут 5 иногда немного больше крашит. В чем может быть дело? Может ли быть это из за лага в игре? Как обойти собственно это дело?
Author:  Kynep [ 2008-02-01 17:50:52 ]
Post subject:  Re: Крашит в течении 5 минут после запуска скрипта.
greenfoxes wrote:
Хотел прокачать алхимию, скрипт нашел, вроде как все работает, но после минут 5 иногда немного больше крашит. В чем может быть дело? Может ли быть это из за лага в игре? Как обойти собственно это дело?


Телепаты в отпуске. Для начала пациента на стол )) шучу, скрипт выложи, надо же посмотреть.
Author:  greenfoxes [ 2008-02-01 18:50:54 ]
Post subject:  Re: Крашит в течении 5 минут после запуска скрипта.
Телепаты в отпуске. Для начала пациента на стол )) шучу, скрипт выложи, надо же посмотреть.[/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' потом переделаю на то что надо дальше для прокачки.
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/