скрипт

Breadfan · 11.01.2011, 01:16

1) В таком случае можно бросить-поднять нужное сое и считать его оид - чтоб не воевать со сканом всего инвентаря
2) остальное вполне можно вырезать из стародавнего скрипта на сдачу манора - там есть и таймер, и привязка на событие (в том случае это сообщение о старте олимпиады, но это условие легко переделать)

wimax · 11.01.2011, 01:48

Цитата:

Сообщение от Breadfan

1) В таком случае можно бросить-поднять нужное сое и считать его оид - чтоб не воевать со сканом всего инвентаря
2) остальное вполне можно вырезать из стародавнего скрипта на сдачу манора - там есть и таймер, и привязка на событие (в том случае это сообщение о старте олимпиады, но это условие легко переделать)

1-сое в руну не падает обычным сое толку тп нету ибо ты в колизеие варьянт отваливаетса
2-ет все уже написано осталось запара с objid всем в падлу выложыть скрипт на 1 итем чтоб тока вписать itemid и все?))

//Breadfan: при чем тут впадлу\невпадлу - скрипты такие - давно выложены, причем - скрипт на 1 и на 10 итемов - практически одинаковы - в обоих случаях листается весь инвентарь, ты предлагаешь еще тут наплодить дублей? Не хочешь так - делай через итемапдейт - вариантов - море чтоб этот оид выяснить. Не выбрасывается? А просто скинуть в вх - религия запретила? Тебе ж при этом все равно придет оид предмета, число которого изменяется.
Оффтоп

dyh9l · 11.01.2011, 09:16

wimax, вот так я себе узнавал ObjectID банки маны c помощью ее ID (728), мб поможет.., сразу говорю, пакеты с с4, так что не надейся с копипастить

delphi Код:

const
name = '*' ;
MPlimit = 50;
var
Invertory:array[1..80,1..2] of integer;
i:word;
MP:integer;

procedure Init; 
    begin
        buf:=#$0F;
        SendToServerEx(name);
    end;

procedure Free; 
    begin

    end;

procedure MPpotion;
begin
    for i:=1 to 80 do
        begin   
            Invertory[i,1]:=0;
            Invertory[i,2]:=0;
        end;
    for i:=1 to 80 do
        begin 
            Invertory[i,1]:=ReadD(i*28+8); 
            Invertory[i,2]:=ReadD(i*28+12); 
            if Invertory[i,2]=728 then MP:=Invertory[i,1];
        end;
            
end;

procedure MPUse;
    begin
        buf:=#$14;
        WriteD(MP);
        WriteD(0);
        SendToServerEx(name);
    end;

procedure MPcheck;
    begin  
        if (ReadD(6)=2) and (ReadD(10)=11) and (ReadD(14)<ReadD(22)/100*MPlimit) then MPUse;
    end;    

begin
    if FromServer then
        case pck[1] of
            #$1B: MPpotion;
            #$0E: MPcheck;
        end;
end.