Stealth Release 1.0

[grundick]

А изучать там особо и нечего. Почему то на проходимых тайлах карты у стелса висят флаги impassable. http://upload.com.ua/get/900983863/
И такая фигня там сплошь и рядом на этом каменном покрытии в Брите.

[Vizit0r]

исправил, проблема была в вердате - убрал подхват флагов для земли

злой баг с критической ошибкой на обработке A1 - обновление хп - тоже исправил.

[rasta]

Еще одна проблема, возможно в том же скрипте скупки - тоже было уже пару раз.. всплывает одно окошко с ошибкой, поэтому выложу выдержку из лога сюда

Code: Select all

An exception raised at 01.08.2009 4:38:00
List index out of bounds (570)
(000224F6){Stealth.exe } [004234F6] Classes.TStringList.GetObject (Line 5061, "common\Classes.pas" + 2) + $0

Call stack:
  (000224F1){Stealth.exe } [004234F1] Classes.TStringList.GetObject (Line 5060, "common\Classes.pas" + 1) + $13
  (000224F1){Stealth.exe } [004234F1] Classes.TStringList.GetObject (Line 5060, "common\Classes.pas" + 1) + $13
  (001CFA3D){Stealth.exe } [005D0A3D] uLoaderMap.TMaps.ApplyNewCoordinates (Line 260, "0DataLoader\uLoaderMap.pas" + 3) + $12
  (001D31FF){Stealth.exe } [005D41FF] uData.TData.ApplyNewCoordinates (Line 243, "uData.pas" + 1) + $12
  (001C35CB){Stealth.exe } [005C45CB] ClassCharacter.TCharacter.GetInfoFromPacket_0x78 (Line 6586, "ClassCharacter.pas" + 46) + $2E
  (001BFB6A){Stealth.exe } [005C0B6A] ClassCharacter.TCharacter.RedirectGamePacket (Line 4903, "ClassCharacter.pas" + 161) + $9
  (001BE9AE){Stealth.exe } [005BF9AE] ClassCharacter.TCharacter.GameClientOnRead (Line 4524, "ClassCharacter.pas" + 108) + $F
  (0011C772){Stealth.exe } [0051D772] ScktComp.TCustomSocket.Event (Line 1868, "common\ScktComp.pas" + 20) + $10
  (0011BCC2){Stealth.exe } [0051CCC2] ScktComp.TCustomWinSocket.Event (Line 980, "common\ScktComp.pas" + 1) + $11
  (0011C21D){Stealth.exe } [0051D21D] ScktComp.TCustomWinSocket.WndProc (Line 1168, "common\ScktComp.pas" + 2) + $5
  (0002AFA0){Stealth.exe } [0042BFA0] Classes.StdWndProc (Line 11583, "common\Classes.pas" + 8) + $0

п.с. на закуску мой свежий стелз.лог - (что за эксепшены с пакетом 0xD6 ?) - http://www.filehoster.ru/files/df4106

[Vizit0r]

первая ошибка проходит через весь стелс - мест 5, где может всплыть.
пока не придумал как ее убрать, буду еще думать

второй лог позже гляну

[Vizit0r]

п.с. на закуску мой свежий стелз.лог - (что за эксепшены с пакетом 0xD6 ?) - http://www.filehoster.ru/files/df4106

переразмести где-то, открывается 1% за 5 минут - до завтра открываться будет.

dump.ru например

[Vizit0r]

2)procedure AutoSell(ItemType: Word; ItemColor: Word; Quantity: Word);
>
AutoSell(item,$0000,1); = продается 100 предметов вместо 1 ,продать какое -либо другое кол-во так и не получилось;

не подтверждается, только что на двух шардах продал по одному предмету.

Code: Select all

AutoSell($0F30,$0000,1);
UOSAY('vendor sell');

если действительно такое имеет место быть - в асю стучи и готовь тестового чара

[rasta]

п.с. на закуску мой свежий стелз.лог - (что за эксепшены с пакетом 0xD6 ?) - http://www.filehoster.ru/files/df4106

переразмести где-то, открывается 1% за 5 минут - до завтра открываться будет.

dump.ru например

http://dump.ru/file/3152316

Сорри за размер лога, в дальнейшем буду слать только с новыми ошибками

[Vizit0r]

вроде исправил 0xD6


еще не выкладывал версию новую, не качайте

[rasta]

Кстати ошибка List index out of bounds тоже в скупке, причем возникает, когда ходилка не может найти путь (что очень редко, но ошибка возникает именно в этот момент и скрипт стопорится).. Думаю сам скрипт немного кривой, потому что до этого movexy не вызывал такой ошибки, даже когда не мог найти путь. Буду разбираться дальше.

зы. подправил case в скрипте, посмотрим повторится ли ошибка..

[WladL]

Code: Select all

AutoSell($0F30,$0000,1);
UOSAY('vendor sell');

если действительно такое имеет место быть - в асю стучи и готовь тестового чара

Даже и не знаю что сказать...
вот мой скрипт

Code: Select all

procedure Selling(Item:Cardinal);
begin { }
if ShowDebug or ShowInfo then
	AddToSystemJournal('Starting *Selling* script at  : '+DateTimeToStr(Now));
SetAutoSellDelay(50);
if not GetAutoSellMode then SetAutoSellMode(true);
AutoSell(item,$0000,1);
wait(1500);

FindTypeEx(Item,$FFFF,backpack,true);
while (FindCount>0) And (not Dead) do
begin { while }
if ShowInfo then
	AddToSystemJournal(' Items for sell = '+IntToStr(FindCount));
	
	UOSAY('Nori sell');
	waitconnection(5000);
	CheckSave;
	wait(60000);
	CheckLife;
	FindTypeEx(Item,$FFFF,Backpack,true);
end;
AutoSell(Item,$0000,0);
end;

[WladL]

потому что я тогда так и не доделал нормальный сброс ходилки при проходе через портал любого рода и вида, отвлекся на что-то и забыл

Интересно это не отсюда вылазит:
1)рекол по буке
2)в теле срипта findType|UseObject приводит к Item not found
3)переходим во вкладку World(до этого она должна быть закрыта) а там во всем мире тока ID чара и пока c кнопки Use Object не кликнешь список остается пустой.

П.С. Где-то тут на форуме встречал описание такого бага, но повторно найти не смог, дабы сравнить.

[Mirage]

потому что я тогда так и не доделал нормальный сброс ходилки при проходе через портал любого рода и вида, отвлекся на что-то и забыл

Интересно это не отсюда вылазит:
1)рекол по буке
2)в теле срипта findType|UseObject приводит к Item not found
3)переходим во вкладку World(до этого она должна быть закрыта) а там во всем мире тока ID чара и пока c кнопки Use Object не кликнешь список остается пустой.

П.С. Где-то тут на форуме встречал описание такого бага, но повторно найти не смог, дабы сравнить.

Это гдето выше на несколько постов
У меня предметы в банке не юзаются. Пишет "Item not found". До сих пор.

[Vizit0r]

после реколла?

милый баг, чисто сферный. повторить повторяю, понять не могу все еще.
может сегодня сяду и доразбираюсь

[WladL]

У меня предметы в банке не юзаются. Пишет "Item not found". До сих пор. :?

хм.. у меня с банком все ок. Вот 100% рабочий пример.

Code: Select all

		moveXY(1434,1680,false,0,false);//Bank coord's
		uoSay('Bank');
		WaitConnection(5000);
		CheckSave;

// нужно обязательно вставлять такой цикл , ибо объекты почему-то подхватываются не сразу.
		Bank:=objAtLayer(BankLayer);
		while (Bank=0) do begin
			Bank:=objAtLayer(BankLayer);
			wait(500);
		end;

		Svl:=FindType($0F39,Bank);
		if (Svl=0) then begin
			AddToSystemJournal('No Shovel');
			SetARStatus(false);
			Disconnect;
			Result:=True;
			exit;
		end;  
		MoveItem(FindItem,1,backpack,0,0,0);

		Hamm:=FindType($13E3,Bank);
		if (Hamm=0) then begin
			AddToSystemJournal('No Hamm');
			SetARStatus(false);
			Disconnect;
			Result:=True;
			exit;
		end;  
		UseObject(hamm); <--Юзаем итем из Банка
		WaitConnection(5000);
		CheckSave;
		wait(5000);

[Mirage]

значит так.
1)unknown identifier 'WaitConnection'
2)

Code: Select all

const
  toolbox = $40FCBA3C;
 begin
      uoSay('Bank');
         wait(500);
	useobject(toolbox);
      wait(500);
 end.

22:54:14 [man]: UseObject error: Object not finded.
22:54:15 [man]: Succesfully executed
22:54:15 [man]: Script test.sc stopped successfuly

3)

Code: Select all

var 
      Bank : integer; 
const
  toolbox = $40FCBA3C;
 begin
      uoSay('Bank');
         wait(500);
      Bank:=objAtLayer(BankLayer);
      while (Bank=0) do begin
         Bank:=objAtLayer(BankLayer);
         wait(500);
      end; 
	useobject(toolbox);
      wait(500);
 end.

завис на глухо.

4)

Code: Select all

var 
      Bank, Svl : integer; 
const
  toolbox = $40FCBA3C;

 begin
      uoSay('Bank');
         wait(500);
      Bank:=objAtLayer(BankLayer);
//   while (Bank=0) do begin
//     Bank:=objAtLayer(BankLayer);
//      wait(500);
//   end; 
      Svl:=FindType($0A3E,Bank);
      if (Svl=0) then begin
         AddToSystemJournal('No items');
         SetARStatus(false);
      end; 
	useobject(Svl);
      wait(500);
 end.

23:01:50 [man]: No items
23:01:50 [man]: UseObject error: Object not finded.
23:01:50 [man]: Succesfully executed
23:01:50 [man]: Script 123.sc stopped successfuly

RC4-5 (последний). Та хрень которой принадлежат тип и ID (сундучек) ЛЕЖИТ в банке.
RC3 ее прекрасно видит самым первым приведенным вариантом.

В Бэкпаке и на земле сундучек видит и открывает.