Page 1 of 1
Проблема
Posted: 19.05.2011 19:53
by vissi d arte
Code: Select all
Procedure findVendor;
Var
vType : Integer;
Begin
For vType := 0 to High(venTypes) Do Begin
While FindType(venTypes[vType], Ground) > 0 Do Begin
If (pos(venNames[0], GetName(FindItem)) <> 0) then begin
//AddToSystemJournal(IntToStr(GetX(FindItem))+' '+IntToStr(GetY(FindItem)));
MoveXY(GetX(FindItem), GetY(FindItem), true, 0, true);
Wait(500);
BuyGoods;
Ignore(FindItem);
End;
End;
End;
End;
Не работает на стелсе 3.7
1.0.8 все норм
не может найти вендора...
Posted: 19.05.2011 20:46
by Vizit0r
подробнее.
FindType не срабатывает?
если да - сутра в асю.
Posted: 20.05.2011 2:35
by MeLFiS
тоже есть такое (
Posted: 30.05.2011 6:58
by vissi d arte
If (pos(venNames[0], GetName(FindItem)) <> 0) then begin
вот что не работает
Posted: 04.06.2011 1:20
by vissi d arte
кто-то подскажет как решить проблему?
Posted: 04.06.2011 7:05
by Vizit0r
Program Test;
begin
AddToSystemJournal(IntToStr(pos('gg','hhhgg')));
end.
08:02:43:518 [runuo - test]: Compiling
08:02:43:534 [runuo - test]: Compiled succesfully
08:02:43:534 [runuo - test]: 4
08:02:43:534 [runuo - test]: Succesfully executed
08:02:43:534 [runuo - test]: Script 222.sc stopped successfuly
если у тебя не работает - стучись в асю, будем разбираться.
Re: Проблема
Posted: 08.06.2011 15:44
by vissi d arte
Code: Select all
Program Test;
Const
needName = 'Carpenter';
vendortype = $0190;
Begin
FindDistance := 5;
While FindType(vendorType, Ground) > 0 Do Begin
uosay('found vendor and it''s name is '+GetName(FindItem));
Wait(2000);
If GetName(FindItem) <> needName then Begin
UOSay('moving '+GetName(FindItem)+' to ignore');
Ignore(FindItem);
End;
End;
UOsay('no vendors around');
End.
[14:31:53:561] System: Reconnected.
[14:31:53:669] You see: Laird the Carpenter
[14:31:53:706] You see: [invulnerable]
[14:31:53:708] You see: Vsadnik T'mi
[14:32:04:103] Vsadnik T'mi: found vendor and it's name is Vsadnik T'mi
[14:32:06:109] Vsadnik T'mi: moving Vsadnik T'mi to ignore
[14:32:06:161] Vsadnik T'mi: found vendor and it's name is [invulnerable]
[14:32:08:108] Vsadnik T'mi: moving [invulnerable] to ignore
[14:32:08:147] Vsadnik T'mi: no vendors around
Как-то так...
Re: Проблема
Posted: 08.06.2011 17:09
by Alex
такой код сравнивает на полное соответствие, а у тебя получается что
"Laird the Carpenter" != "Carpenter"
тебе поможет вот эта функция
Code: Select all
function BMSearch(StartPos: Integer; const S,P: String): Integer; // Возвращает первое вхождение подстроки в строке
или выше Визитор советует вот так
если результат >= 0 значит есть совпадение