Forum in READ ONLY mode! All questions and discussions on Discord official server, invite link: https://discord.gg/VxsGzJ7
Search found 42 matches
- 20.06.2014 7:54
- Forum: Помощь по скриптам
- Topic: Help
- Replies: 19
- Views: 16326
Re: Help
сюда надо сунуть Program AutoLumber_SW; {$Include 'all.inc'} const ///////////////////////////////////////////////// // Обязательные к изменению настройки скрипта // Sunduk = $40044DE1; // // // // Координаты точки перед сундуком // xTileSunduk = 2406; // yTileSunduk = 3102; // // // ///////////////...
- 19.06.2014 20:50
- Forum: Помощь по скриптам
- Topic: Help
- Replies: 19
- Views: 16326
Re: Help
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...
- 19.06.2014 18:05
- Forum: Помощь по скриптам
- Topic: Help
- Replies: 19
- Views: 16326
Re: Help
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); ...
- 18.06.2014 22:58
- Forum: Помощь по скриптам
- Topic: Help
- Replies: 19
- Views: 16326
Re: Help
Это то, что нужно, но это написано на питоне. к сожалению я не очень знаток по паскалю. если бы я понил как и куда сунуть иго было бы супер это фрагмент внешнего скрипта, его не надо никуда пихать, перепиши под паскаль и все будет в ажуре. блин если бы я знал бы паскаль я бы тут тупые вопросы не за...
- 18.06.2014 18:41
- Forum: Помощь по скриптам
- Topic: Help
- Replies: 19
- Views: 16326
Re: Help
если бы я понил как и куда сунуть иго было бы суперnah nah wrote:Это то, что нужно, но это написано на питоне. к сожалению я не очень знаток по паскалю.
- 17.06.2014 18:13
- Forum: Помощь по скриптам
- Topic: Help
- Replies: 19
- Views: 16326
Re: Help
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...
- 17.06.2014 7:42
- Forum: Помощь по скриптам
- Topic: Help
- Replies: 19
- Views: 16326
Re: Help
может есть у кого тока что бы он в сундук скидавал и на стелс и что бы можно было в скрипт добавить? 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...
- 08.06.2014 14:35
- Forum: Помощь по скриптам
- Topic: Help
- Replies: 19
- Views: 16326
Re: Help
да проста, у нас на серваке тока 50к веса мона в сундук положитьdrabadan wrote:ты уперся в сброс руды на пол, а почему? В сундук же проще, да и выглядит аккуратнее...
- 05.06.2014 23:00
- Forum: Помощь по скриптам
- Topic: Help
- Replies: 19
- Views: 16326
Re: Help
что не кто не поможет?
- 01.06.2014 12:29
- Forum: Помощь по скриптам
- Topic: Help
- Replies: 19
- Views: 16326
Help
почему этот скрипт всё на пол выкидывает а не то что там прописано? 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...
- 17.05.2014 15:59
- Forum: Помощь по скриптам
- Topic: Попишу скрипты за еду.
- Replies: 35
- Views: 81239
Re: Попишу скрипты за еду.
ну что не кто не поможет?
- 14.05.2014 19:54
- Forum: Помощь по скриптам
- Topic: Попишу скрипты за еду.
- Replies: 35
- Views: 81239
Re: Попишу скрипты за еду.
не знаю что такое дллке хотел в скрипт добавить что бы окло дома он стыкавал руду. а ты под что сделал?
- 14.05.2014 19:25
- Forum: Помощь по скриптам
- Topic: Попишу скрипты за еду.
- Replies: 35
- Views: 81239
Re: Попишу скрипты за еду.
Error exec script method "StackOre" - Not enough parameters
- 08.05.2014 22:45
- Forum: Помощь по скриптам
- Topic: Попишу скрипты за еду.
- Replies: 35
- Views: 81239
Re: Попишу скрипты за еду.
это как я что то пробовал не получилосьdrabadan wrote:почему бы не реализовать через инклюд!
- 08.05.2014 22:29
- Forum: Помощь по скриптам
- Topic: Попишу скрипты за еду.
- Replies: 35
- Views: 81239
Re: Попишу скрипты за еду.
работает если бы ищо сделал место Program procedure вобще шикарно было бы