Zdrasti uvozhaimoi developeri, nemoglib vi dobavet' sledujsheju funkciju GetGumpID kotoroja vozvroshala ID gumpa, atu kak na sharde antares 1 gump imee 1 i totzhe Serial i 2 raznih ID Serial: 94EC66 GumpID: 0451 X: 0000 Y: 0000 Pages: 0 Gump Options: ResizePics: X Y ID Width Height Page 0 ResizePic:...

procedure WaitGump(Value: String); // Устанавливается одноразовая ловушка на Gump меню // В Value должен быть код Button или Switch Budet tipa WaitGump('1'); Wait(1000); WaitGump('2'); Tozhe na Antarase igraju, esho v Nubi Taune sezhu Vot script nashol postnutij Vizit0r'om Program takegump; var b :...

Sposibo Vizit0r i WladL za vashu pomosh i vashi otveti :), Ja na4erikal podobnij script kotorij v polne podhodet mne :) Program OnChar; Const ObjType = $1716; // Straw Tall Hat Begin FindTypeEx(ObjType,$FFFF,Self,true); IF FindItem <> 0 then Begin if GetLayer(FindItem) <> 0 then Begin Addtosystemjou...

правильный вопрос. это и есть второй вариант :) поискать, а потом взять слой найденного и сравнитьс нужным U menja esho 1 vopros, nadejus' vi ne ustali otve4at' na moi tupie voprosi :) Kak ja ponimaju GetLayer ishet objekt v vseh Layers kotorij vklu4aet v sebja function BpackLayer: Byte; // 0x15 - ...

if GetLayer(ID) <> 0 then begin IF GetParent(ID) <> Self then AddToSystemJournal('Айтем одет на чаре или в руках, но это не наш чар :)') else AddToSystemJournal('Айтем одет на чаре или в руках'); end else AddToSystemJournal('Айтем не одет на чаре и не в руках'); писал тут, поэтому могут быть ошибки...

Zdrasvujte, Kak proverit' esli predmet "A" nahodetca v rukah ? function GetLayer(Obj : Cardinal) : Byte Возвращает слой (layer), в котором находится обьект и для верности можно еще проверить Parent - должен быть равен Self, чтобы случайно не зацепить айтемы на слоях чужих чаров Sposibo va...

Zdrasvujte,

Kak proverit' esli predmet "A" nahodetca v rukah ?

Vizit0r wrote:а отличия есть?
лично я бы визуально сказал бы, что работает одинаково.

а вообше правильно было бы while not (все выражение) do
либо
while InJournalBetweenTimes(Msg,Begin,Now) < 0 do

второй вариант поэстетичнее будет

Sposibo bolshoe za otvet

Zdrastvujde

Zaranie izvenajus' za translit

U menja est' 1 vopros, v 4em razdnitca mezhdu


i