сюда надо сунуть Program AutoLumber_SW; {$Include 'all.inc'} const ///////////////////////////////////////////////// // Обязательные к изменению настройки скрипта // Sunduk = $40044DE1; // // // // Координаты точки перед сундуком // xTileSunduk = 2406; // yTileSunduk = 3102; // // // ///////////////...

Program New; const HOME_CHEST = $000001; var OreColors : Array of Word; procedure MoveArray(Container : Cardinal; Colors : Array of Word); var i, k : Integer; OreType : Array[0..3] of Word; begin OreType[0] := $19B7; OreType[1] := $19BA; OreType[2] := $19B8; OreType[3] := $19B9; for k := 0 to Lengt...

Program New; const HOME_CHEST = $000001; var OreType : Array[0..3] of Word; procedure MoveArray(Container : Cardinal; Items : Array of Word); var i : Integer; begin for i := 0 to Length(Items)-1 do while FindType(Items[i], Backpack) > 0 do begin MoveItem(FindItem, 0, Container, 0,0,0); Wait(1000); ...

Это то, что нужно, но это написано на питоне. к сожалению я не очень знаток по паскалю. если бы я понил как и куда сунуть иго было бы супер это фрагмент внешнего скрипта, его не надо никуда пихать, перепиши под паскаль и все будет в ажуре. блин если бы я знал бы паскаль я бы тут тупые вопросы не за...

nah nah wrote:Это то, что нужно, но это написано на питоне. к сожалению я не очень знаток по паскалю.

если бы я понил как и куда сунуть иго было бы супер

from time import sleep ore_types = (0x19b7, 0x19ba, 0x19b8, 0x19b9) ore_colors = (0x0000, 0x0162, 0x0455, 0x01bf, 0x0386, 0x0590, 0x0161, 0x03e9, 0x0602, 0x04a4, 0x049c) def перекладка_руды(): for _type in ore_types: for _color in ore_colors: item = FindTypeEx(_type, _color, Backpack(), True): if i...

может есть у кого тока что бы он в сундук скидавал и на стелс и что бы можно было в скрипт добавить? sub pereklad2() var i,j Dim OreType[4] OreType[01]='0x19B7' ## 1 ore OreType[02]='0x19BA' ## 2 ore OreType[03]='0x19B8' ## 3 ore OreType[04]='0x19B9' ## 4 and more ore Dim OreColor[11] ## iannea oaao...

drabadan wrote:ты уперся в сброс руды на пол, а почему? В сундук же проще, да и выглядит аккуратнее...

да проста, у нас на серваке тока 50к веса мона в сундук положить

что не кто не поможет?

почему этот скрипт всё на пол выкидывает а не то что там прописано? procedure DropAll; var i, BID, GID, BCount, GCount, MCount, BColor : integer; Color : array [0..9] of cardinal; begin if not Connected then exit; if dead then exit; //OpenBackpack; FindTypeEx($19B9, $FFFF, Backpack, false); if FindC...

ну что не кто не поможет?

не знаю что такое дллке хотел в скрипт добавить что бы окло дома он стыкавал руду. а ты под что сделал?

Error exec script method "StackOre" - Not enough parameters

drabadan wrote:почему бы не реализовать через инклюд!

это как я что то пробовал не получилось

работает если бы ищо сделал место Program procedure вобще шикарно было бы