Multic

Пользователь
  • Публикаций

    8
  • Зарегистрирован

  • Посещение

Репутация

0 Neutral

Информация о Multic

  • День рождения
  1. при команде ( sell bag ) и если в контейнере куча вещей на продажу сгороет все и продается только сумка за что получаешь 3 копейки )) обидно как то )) И как продать допустим все однотипные вещи кроме команды sell all ? продается только по одной штучке Ага разобрался уже спасибо ))
  2. Ясно тогда приношу свои извинения )) просто я смотрю твой только бегает а все мертвые , подумал что ты сделал ... так как руду все выкапывают
  3. вчера ночью зашел проверить стелс и смотрю что крафты мои мертвы , а также и остальных людей кроме одно крафта Seter у которого в рендоме стоит команда гвардс и также при его атаке , то есть все подозрения упали на него .... не понимаю зачем ты это сделал... но если это ты я тебя зае...бу блейд спиритами ) в любой шахте .... всем добра
  4. ооОООоООО огромное спасибо ))
  5. пытался свернуть лодку что только не пробовал ( anchor drop - dry dock ship , anchor raise - dry dock ship , anchro drop dry dock , anchor raise dry dock , кликал по рулевому нифига ) какая команда отвечает за сворачивание лодки ? всем добра )
  6. может кто то скинуть свой рабочий мининг с лодкой *? так как который уже есть на сайте почему то не может найти какой то предмет ((( и в этом стелсе не могу найти строчку где ((
  7. Понял спасибо большое буду розбираться
  8. вообщем столкнулся с проблемой , крафт не выходит из лодки открывает - закрывает постоянно трап, менял координаты тоже ничего тайлы поменял аналогично вот сам скрипт такой же и на форуме есть , давно очень не играл и не все могу вспомнить, раньше была такая проблема и забыл как ее устранял program megatiles; var TyleType : Array [0..24] of Word; a : TFoundTilesArray; c,b,s,oreCol : Integer; ctime : TDateTime; const Forge = $401E9381; Xmin = 2579; так и координаты по шахте Xmax = 2585; Ymin = 482; Ymax = 489; MineX = 2558; сдесь тоже вход аналогично указываю шахты MineY = 515; vozleX = 2548; тут четко указываю место когда он спрыгивет с трапа vozleY = 488; lodkaZ = -2; Trap = $433E9017; TynkType = $1EBC; PickType = $0E85; IngotType = $1BF2; IngotColor = $045E; OreType = $19B9; PickGump = '3717'; WLimit = 200; eda = $097B; {$Include 'all.inc'} procedure checkpidars; begin if (InJournalBetweenTimes('Vas Rel Por', ctime, Now) <> -1) then begin ClearJournal; Wait(40000); end end; procedure checkcoord; begin if (GetZ(self) = lodkaZ) then begin checkpidars; repeat UseObject(Trap); wait(500); Raw_Move(2, True); Raw_Move(2, True); Raw_Move(2, True); wait(1000); until (GetZ(self) <> lodkaZ); wait(500); newMoveXY(MineX,MineY, True, 0, True); end end; procedure CheckIngot; begin FindType(IngotType, Backpack); if (FindFullQuantity < 4) then begin FindTypeEx(IngotType,IngotColor,Ground,False); MoveItem(finditem, 4, Backpack, 0,0,0); wait(500); end end; procedure CheckPick; begin if (Count(PickType) < 4) then begin If TargetPresent Then CancelTarget; FindType(TynkType,Ground); if (Findcount > 0) then begin Grab(Finditem,1); repeat CheckIngot; UseObject(FindType(TynkType,Backpack)); WaitTargetObject(FindType(IngotType,BackPack)); WaitGump(PickGump); WaitJournalLine(Now, 'You create|make|destroy|must stand', 30000); until (Count(PickType) >= 5); DropHere(FindType(TynkType,Backpack)); end; end; end; procedure smelting; begin if (Count(OreType) <> 0) then begin checkpidars; newMoveXY(MineX,MineY, True, 0, True); repeat If TargetPresent Then CancelTarget; WaitTargetObject(Forge); UseObject(FindType(OreType,Backpack)); WaitJournalLine(Now, 'You create|destroy', 10000); until (Count(OreType) = 0); end end; procedure DropOre; begin if (count($0F25) > 0) then stack($0F25,$0000); if (count($0F30) > 0) then stack($0F30,$0000); if (count($0F0F) > 0) then stack($0F0F,$0000); repeat FindType(IngotType,Backpack); if (FindCount > 0) then begin oreCol:=GetColor(finditem); stack(IngotType,GetColor(finditem)); wait(500); end; until (Count(IngotType) = 0); Addtosystemjournal('========================================='); FindType(IngotType,ground); Addtosystemjournal('Всего металла на лодке - '+intToStr(findfullquantity)); FindType(TynkType,ground); Addtosystemjournal('Тулзов на лодке - '+intToStr(findfullquantity)); FindType(eda,ground); Addtosystemjournal('Еды осталось - '+intToStr(findfullquantity)); Addtosystemjournal('========================================='); end; procedure GotoOnBoad; begin smelting; checkpidars; newMoveXY(vozleX,vozleY, True, 0, True); if (count($14ED) > 0) then MoveItems(BackPack,$14ED,$0000,Ground,0,0,0,500); repeat UseObject(Trap); wait(500); until (GetZ(self) = lodkaZ); Hungry(1,ground); DropOre; CheckPick; ClearJournal; checkcoord; end; procedure checktools; begin if (Count(PickType) = 0) then begin GotoOnBoad; end end; procedure mining; begin ClearJournal; If TargetPresent Then CancelTarget; WaitConnection(3000); if (GetType(ObjAtLayer(RhandLayer)) = PickType) then begin UseObject(ObjAtLayer(RhandLayer)); end; if (GetType(ObjAtLayer(RhandLayer)) <> PickType) then begin UseObject(FindType(PickType, Backpack)); end; WaitJournalLine(Now, 'Select a place', 10000); WaitTargetTile(TyleType,a[c].X,a[c].Y,a[c].Z); WaitJournalLine(Now, 'is attacking|You stop|your tool|no more ore|breaks|stop mining|cannot see|far away|earth elemental|cannot mine|what is this?!', 60000); end; procedure checkweight; begin if (Weight > WLimit) then begin GotoOnBoad; end end; BEGIN Addtosystemjournal('Тестовый автомининг. Made by Jerrod For New Age'); SetARStatus(True); moveThroughNPC := 1; moveOpenDoor := true; TyleType[0] := 1386; менял тайлы даже оставлял 5 тайлов для теста и писало что найдено тайлов 15 TyleType[1] := 1363; TyleType[2] := 1362; TyleType[3] := 1361; TyleType[4] := 1359; TyleType[5] := 1358; TyleType[6] := 1357; TyleType[7] := 1356; TyleType[8] := 1355; TyleType[9] := 1354; TyleType[10] := 1353; TyleType[11] := 1352; TyleType[12] := 1351; TyleType[13] := 1350; TyleType[14] := 1349; TyleType[15] := 1348; TyleType[16] := 1347; TyleType[17] := 1346; TyleType[18] := 1345; TyleType[19] := 1344; TyleType[20] := 1343; TyleType[21] := 1342; TyleType[22] := 1341; TyleType[23] := 1340; TyleType[24] := 1339; while not Dead do begin for s := 0 to 24 do begin b:= GetStaticTilesArray(Xmin,Ymin,Xmax,Ymax, 1, TyleType, a); for c :=0 to b-1 do begin checktools; CheckWeight; checkcoord; newMoveXY(a[c].X,a[c].Y, True, 1, True); WaitTargetType(PickType); UseSkill('Arms Lore') Wait(1000); mining; end; end; Wait(1000); end; END.