Ultima Online Antares

Главная »

Форум » Форум » Вспомогательные программы

Правила | Поиск | Новые сообщения | Пользователи

Сборка урожая !, Скриптик Ульи !

Открыть меню

Smith Necromancer Сообщений: 1234 Рег. 1.05.2010	6 апреля 2014 14:09 Сообщение #1
	Чуваки поделитесь скриптом на сбор урожаю в данный момент интересует сбор меда и воска !

Jamaica Dragonstalker Сообщений: 1028 Рег. 4.01.2013	6 апреля 2014 16:09 Сообщение #2
	Цитата: Unnamed object Чуваки поделитесь скриптом на сбор урожаю в данный момент интересует сбор меда и воска ! Стоило создать тему не в "таверне" в разделе "вспомогательные программы" Поддержу, хотелось бы поюзать такой скрипт )

Mirage Dragonstalker Сообщений: 3319 Рег. 19.11.2013	6 апреля 2014 19:26 Сообщение #3
	а что там что то кроме ласт обжекта требуется? Принцип какой?

Mitako Bombardiers Necromancer Сообщений: 5530 Рег. 27.08.2012	6 апреля 2014 19:45 Сообщение #4
	Цитата: Mirage а что там что то кроме ласт обжекта требуется? Принцип какой? нашел по типу улей, взял ид, поюзал (пока не покажется определенная мессага), заигнорил, следующий нашел. Все проюзал - задержка на час

Smith Dragonstalker Сообщений: 259 Рег. 6.02.2010	13 апреля 2014 15:39 Сообщение #5
	Нету?)

Drabadan Trasher Сообщений: 153 Рег. 5.10.2013	15 апреля 2014 21:20 Сообщение #6
	Скрипт парсит колво зарядов и не сжигает в пустую конду ульев... Складывает в сундук :) Кушаем не обляпываемся Program BeehiveGatherer_BestUO; const Beehive_Type = $091A; Chest_Id = $00000000; //gathering chest id var Beehive_Array : Array of Cardinal; i : Integer; ResultArray : Array[0..1] of Word; procedure GetHives; begin IgnoreReset; FindDistance := 8; FindVertical := 50; SetLength(Beehive_Array, 0); while FindType(Beehive_Type, Ground) > 0 do begin SetLength(Beehive_Array, Length(Beehive_Array)+1); Beehive_Array[High(Beehive_Array)] := FindItem; Ignore(FindItem); end; AddToSystemJournal('Found hives: ' + IntToStr(Length(Beehive_Array))); end; function GetCurrCharges(Hive_Id : Cardinal) : Integer; var CTime : TDateTime; s : String; Idx : Integer; begin CTime := Now; ClickOnObject(Hive_Id); CheckLag(30000); Result := 0; if WaitJournalLine(CTime, '[', 2000) then begin Idx := InJournalBetweenTimes('[0]\|[1]\|[2]\|[3]\|[4]\|[5]', CTime, Now); s := Journal(Idx); Delete(s, Pos(']',s), Length(s)); Delete(s, 1, Pos('[', s)); Result := StrToInt(s); end else Result := -1; end; begin MoveOpenDoor := True; ResultArray := [$09EC, $1423]; while not Dead do begin GetHives; for i := Low(Beehive_Array) to High(Beehive_Array) do while GetCurrCharges(Beehive_Array[i]) > 0 do begin if GetDistance(Beehive_Array[i]) > 2 then NewMoveXY(GetX(Beehive_Array[i]), GetY(Beehive_Array[i]), true, 1, true); UseObject(Beehive_Array[i]); AddToSystemJournal(IntToStr(GetCurrCharges(Beehive_Array[i]))); Wait(600); CheckLag(30000); end; if GetDistance(Chest) > 1 then NewMoveXY(GetX(Chest), GetY(Chest), true, 1, true); UseObject(Chest); Wait(600); CheckLag(60000); for i := 0 to Length(ResultArray)-1 do MoveItem(FindType(ResultArray[i], Backpack), 0, Chest, 0,0,0); Wait(15000); end; end. P.S. Скрипт на стелс клиент.

Mitako Bombardiers Necromancer Сообщений: 5530 Рег. 27.08.2012	15 апреля 2014 21:35 Сообщение #7
	Цитата: Drabadan if WaitJournalLine(CTime, '[', 2000) then с этим надо что-то придумать, потому что гильдная приписка заключена как раз в [

Drabadan Trasher Сообщений: 153 Рег. 5.10.2013	17 апреля 2014 11:49 Сообщение #8
	fix Program BeehiveGatherer_BestUO; const Beehive_Type = $091A; Chest_Id = $00000000; //gathering chest id var Beehive_Array : Array of Cardinal; i : Integer; ResultArray : Array[0..1] of Word; procedure GetHives; begin IgnoreReset; FindDistance := 8; FindVertical := 50; SetLength(Beehive_Array, 0); while FindType(Beehive_Type, Ground) > 0 do begin SetLength(Beehive_Array, Length(Beehive_Array)+1); Beehive_Array[High(Beehive_Array)] := FindItem; Ignore(FindItem); end; AddToSystemJournal('Found hives: ' + IntToStr(Length(Beehive_Array))); end; function GetCurrCharges(Hive_Id : Cardinal) : Integer; var CTime : TDateTime; s : String; Idx : Integer; begin CTime := Now; ClickOnObject(Hive_Id); CheckLag(30000); Result := 0; if WaitJournalLine(CTime, '[0]\|[1]\|[2]\|[3]\|[4]\|[5]', 2000) then begin Idx := InJournalBetweenTimes('[0]\|[1]\|[2]\|[3]\|[4]\|[5]', CTime, Now); s := Journal(Idx); Delete(s, Pos(']',s), Length(s)); Delete(s, 1, Pos('[', s)); Result := StrToInt(s); end else Result := -1; end; begin MoveOpenDoor := True; ResultArray := [$09EC, $1423]; while not Dead do begin GetHives; for i := Low(Beehive_Array) to High(Beehive_Array) do while GetCurrCharges(Beehive_Array[i]) > 0 do begin if GetDistance(Beehive_Array[i]) > 2 then NewMoveXY(GetX(Beehive_Array[i]), GetY(Beehive_Array[i]), true, 1, true); UseObject(Beehive_Array[i]); AddToSystemJournal(IntToStr(GetCurrCharges(Beehive_Array[i]))); Wait(600); CheckLag(30000); end; if GetDistance(Chest) > 1 then NewMoveXY(GetX(Chest), GetY(Chest), true, 1, true); UseObject(Chest); Wait(600); CheckLag(60000); for i := 0 to Length(ResultArray)-1 do MoveItem(FindType(ResultArray[i], Backpack), 0, Chest, 0,0,0); Wait(15000); end; end.

Kroshka Enot Monk Сообщений: 125 Рег. 25.12.2012	19 апреля 2014 15:32 Сообщение #9
	Выдает ошибку Compiler: [Error] (C:\UOML\Stealth Client 6\Beehive.txt at 66:28): Unknown identifier 'Chest'

Kaxu Paladin Сообщений: 561 Рег. 26.10.2010	19 апреля 2014 15:37 Сообщение #10
	Тебе хватит скрипта на сбор регов...

Kroshka Enot Monk Сообщений: 125 Рег. 25.12.2012	19 апреля 2014 15:47 Сообщение #11
	Еще варианты будут?)

Rumpelstiltskin Dragonstalker Сообщений: 129 Рег. 9.08.2013	19 апреля 2014 15:56 Сообщение #12
	На 5-й строке заменить Chest_Id на Chest

Kroshka Enot Monk Сообщений: 125 Рег. 25.12.2012	19 апреля 2014 19:50 Сообщение #13
	Некст ошибка ) Exec: [Error] (C:\UOML\Stealth Client 6\Beehive.txt at 52:5): Could not call proc

Drabadan Trasher Сообщений: 153 Рег. 5.10.2013	19 апреля 2014 20:06 Сообщение #14
	final Program BeehiveGatherer_BestUO; const Beehive_Type = $091A; Chest = $00000000; //gathering chest id var Beehive_Array : Array of Cardinal; i : Integer; ResultArray : Array[0..1] of Word; procedure GetHives; begin IgnoreReset; FindDistance := 8; FindVertical := 50; SetLength(Beehive_Array, 0); while FindType(Beehive_Type, Ground) > 0 do begin SetLength(Beehive_Array, Length(Beehive_Array)+1); Beehive_Array[High(Beehive_Array)] := FindItem; Ignore(FindItem); end; AddToSystemJournal('Found hives: ' + IntToStr(Length(Beehive_Array))); end; function GetCurrCharges(Hive_Id : Cardinal) : Integer; var CTime : TDateTime; s : String; Idx : Integer; begin CTime := Now; ClickOnObject(Hive_Id); CheckLag(30000); Result := 0; if WaitJournalLine(CTime, '[0]\|[1]\|[2]\|[3]\|[4]\|[5]', 2000) then begin Idx := InJournalBetweenTimes('[0]\|[1]\|[2]\|[3]\|[4]\|[5]', CTime, Now); s := Journal(Idx); Delete(s, Pos(']',s), Length(s)); Delete(s, 1, Pos('[', s)); Result := StrToInt(s); end else Result := -1; end; begin MoveOpenDoor := True; ResultArray[0] := $09EC; ResultArray[1] := $1423; while not Dead do begin GetHives; for i := Low(Beehive_Array) to High(Beehive_Array) do while GetCurrCharges(Beehive_Array[i]) > 0 do begin if GetDistance(Beehive_Array[i]) > 2 then NewMoveXY(GetX(Beehive_Array[i]), GetY(Beehive_Array[i]), true, 1, true); UseObject(Beehive_Array[i]); AddToSystemJournal(IntToStr(GetCurrCharges(Beehive_Array[i]))); Wait(600); CheckLag(30000); end; if GetDistance(Chest) > 1 then NewMoveXY(GetX(Chest), GetY(Chest), true, 1, true); UseObject(Chest); Wait(600); CheckLag(60000); for i := 0 to Length(ResultArray)-1 do MoveItem(FindType(ResultArray[i], Backpack), 0, Chest, 0,0,0); Wait(15000); end; end.

Kroshka Enot Monk Сообщений: 125 Рег. 25.12.2012	19 апреля 2014 20:49 Сообщение #15
	Drabadan, Спасибо!)

Mitako Bombardiers Necromancer Сообщений: 5530 Рег. 27.08.2012	11 сентября 2014 11:15 Сообщение #16
	System: Some inspecific error when moving item! Code 5 в чем может быть проблема?

Drabadan Trasher Сообщений: 153 Рег. 5.10.2013	24 октября 2014 22:27 Сообщение #17
	Mitako, Особенности стелса, гдето чтото путает или задержки, куча причин.

Barbatos saygg Inquisitor Сообщений: 1462 Рег. 16.08.2013	9 мая 2015 21:55 Сообщение #18
	у меня не работает подскажет кто?? Не работает ( не складывает в сумку) 100 ульев на 4х тайлах какойто из нижних ульев не соберает видит что там 5 загрузок но не собирает на нём и стопорится

Ravenheart Vampire Сообщений: 454 Рег. 23.09.2013	10 мая 2015 04:55 Сообщение #19
	Barbatos, спроси марса, у него все самые лучшие скрипты есть!

Mirage Dragonstalker Сообщений: 3319 Рег. 19.11.2013	10 мая 2015 16:53 Сообщение #20
	Тебе завидно что ли? Да ладно, че ты.

« · Вспомогательные программы · »

Последние посетители (0):

Сейчас: 20 мая 2025 06:29