Перейти к публикации

Scavenger

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

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

  • Посещение

  • Дней в лидерах

    1

Последний раз Scavenger выиграл 25 декабря 2016

Публикации Scavenger были самыми популярными!

Репутация

13 Хороший человек

О Scavenger

  • Звание
    Скиталец
  1. Scavenger

    boats block map.

    *bump* topic Again there are boats blocking access to area. .where = 5169 2623 Please can admin search for boats and maybe delete them all ? Many boats have been there for over a year.
  2. Scavenger

    boats block map.

    boats left on map block landing/spawns. small space with 7 boats make it difficult to get to spawn. Can admin make boat drift(move) if nobody sail for a day or sink if nobody use for a week?
  3. Not sure if this is already reported in Russian forms (google translate not very good) I wanted to move house. I unsecured chest and put in backpack. Then I clicked on sign and demolished house (small log cabin). Immediately the old secure chest in my backpack vanished along with all its contents. I thought I was drunk so I made house again with new secure chest and tried again. Also chest vanished. This is serious problem. lucky I only had fishing rods and nets and little gold, but maybe could have been all my good items. Please check code for demolish house, should not delete chest in backpack as well. regards
  4. Scavenger

    please fix wiki for Ranger skills

    http://wiki.zhr.ru/eng/doku.php?id=info:classes:start http://wiki.zuluhotel.net/info:classes:start for Ranger, both English and Russian show camping as classe skill: Basic skills:animal loreanimal tamingarcherycampingcookingFishing - Fishing.trackingveterinary but Russian details page show cartography. English details page broken link. Even with google translate I am not always able to understand the forum, but it looks like cartography is classe skill and not camping. regards
  5. Scavenger

    Ветеринария

    you can change the animal type in the "const" section not started veterinary yet but used last season. I used bulls in the farm pens. started with a tame spider/scorpion/snake.. it worked well enough in a field of bulls, if one died it looks for the next. Change these: animal = $00E8; //E8 and E9 = bulls animal_alt = $00E9; PoisonPet = $001F56E7; //spider or scorpion id format go funny again, but should all be there. tames bull, set poison against bull and vet bull till it dies. Program VetBulls;{$Include 'all.inc'}const animal = $00E8; //E8 and E9 = bulls animal_alt = $00E9; PoisonPet = $001F56E7; //spider or scorpion id Bandage = $0E21; where unresmsg, failmsg, succeedmsg while: Integer; starttimechk : TDateTime; Victim:Cardinal; t: Integer; HaveBull: Boolean;//###########################################################//###########################################################Procedure FindBull; Begin repeat UoSay('Looking for Bulls'); FindType(animal, ground); if (FindItem > 0) then begin Victim: = FindItem; HaveBull:= true; end; FindType(animal_alt, ground); if (FindItem > 0) then begin Victim: = FindItem; HaveBull:= true; end; wait(10000); until HaveBull = true; end;//###########################################################//###########################################################procedure tame; begin if TargetPresent then CancelTarget; NewMoveXY(GetX(Victim),GetY(Victim),true,1,true); wait(500); waittargetobject (Victim); wait(1000); UseSkill('Animal Taming'); NewMoveXY(GetX(Victim),GetY(Victim),true,1,true); wait(2000); end;//###########################################################//###########################################################procedure jscan; begin repeat all = all + 1; wait(500); unresmsg := InJournalBetweenTimes('unresponsive', starttimechk, Now); failmsg := InJournalBetweenTimes('fail', starttimechk, Now); succeedmsg := InJournalBetweenTimes('successfully', starttimechk, Now); until (unresmsg<>-1) or (failmsg<>-1) or (succeedmsg<>-1) or (tout > 300); end;//###########################################################//###########################################################procedure check; begin if (unresmsg<>-1) then UoSay('grumpy animal, feel my response'); if (failmsg<>-1) then tame; if (succeedmsg<>-1) then UOsay('already tame'); if (all> 70) then UOsay ( 'timeout at' + IntToStr (all)); end;//###########################################################//###########################################################Procedure SetPoisonOnIt; begin waittargetobject (Victim); UoSay('all kill'); HaveBull:= false; end;//###########################################################//###########################################################Procedure vet; begin While GetHP(Victim)>0 Do begin for t := 0 to 10 do begin NewMoveXY(GetX(Victim),GetY(Victim),true,0,true); waittargetobject (Victim); useObject(Findtype(Bandage,Backpack)); wait(800); end; // Waittargetobject (PoisonPet); //useObject(Findtype(Bandage,Backpack)); //wait(800); end; end;//###########################################################//###########################################################Begin SetARStatus(true); MoveThroughNPC:=1; MoveOpenDoor:= true; HaveBull:= false; while (not Dead) do begin hungry(1,backpack); clearjournal; FindDistance:=15; everything: = 1; FindBull; starttimechk := Now; tame; jscan; check; SetPoisonOnIt; vet; end;end. //###########################################################//###########################################################
  6. Scavenger

    Огромная просьба тэйлор

    very useful page : http://www.stealth.od.ua/Doc:Api or Russian http://www.stealth.od.ua/Doc:RU/Api try it out, might need to be tweaked. at the least it should get you well on your way to what you want. //########################################################### procedure grabcloth; begin FindDistance := 2; FindType(cloth, ground); //http://www.stealth.od.ua/Doc:Api/F#FindType MoveItem(finditem,60000,Backpack,0,0,0); wait(1000); end; //########################################################### //########################################################### procedure counters; begin FindType(cloth, backpack); AddToSystemJournal('You have ' +IntToStr(FindFullQuantity) +' cloth left.'); if (FindFullQuantity < 100) then begin grabcloth; end; end; //###########################################################
  7. Scavenger

    Огромная просьба тэйлор

    Cloth in backpack, stand next to trash bin, Change id of bin and type of TailorItem you make Program Tailor;{$Include 'all.inc'}const spool = $0F9D; cloth = $1765; TailorItem = $1537; //change per what you make bin = $1234567; //change bin IDvar t : Integer; amount : Integer;//###########################################################//###########################################################procedure dropoff; begin FindType(TailorItem,backpack); while (findcount > 0) do begin FindType(TailorItem,backpack); amount := ( (FindFullQuantity) + amount ); AddToSystemJournal('trashed ' +IntToStr(amount)); MoveItem(finditem,0,bin,0,0,0); wait(2000); end; hungry(1,Backpack); wait(500); end;//###########################################################//###########################################################procedure counters; begin FindType(cloth, backpack); AddToSystemJournal('You have ' +IntToStr(FindFullQuantity) +' cloth left.'); end;//###########################################################//###########################################################Begin SetARStatus(true); while (true) do begin Hungry(2,backpack); wait(500); for t := 0 to 50 do begin CancelMenu; WaitMenu('What', 'Pants'); WaitMenu('make', 'Kilt'); if TargetPresent then CancelTarget; wait(500); WaitTargetobject(findtype(cloth,backpack)); wait(500); UseObject(findtype(spool,backpack)); wait(500); wait(8000); end; dropoff; counters; end;End.//###########################################################//###########################################################
  8. Scavenger

    Мининг на месте

    Google translate not very clear, I think you want script to mine (in tent?) and do lore. this should mine in a specified box area, you will need to test the lore and how long you want to do lore. I use in minoc mine to mine from a set square but just added the chest and the lore. hope it works. added lore and drop off to chest, but NOT TESTED. It does compile so it should work. test first. CHANGE THESE: MaxW = 2569;MaxE = 2579;MaxN = 451;MaxS = 459;ChestX = 1111;ChestY = 2222; ChestID = $3333333333; MaxN/S/E/W are corners of a square(top left and bottom right), these coords are inside minoc mine, chestX/Y/ID are details for chest to drop ore Program BoxStripMiner;{$Include 'all.inc'}Const ores = $19B9; pick = $0E85; MaxW = 2569; MaxE = 2579; MaxN = 451; MaxS = 459; ChestX = 1111; ChestY = 2222; ChestID = $3333333333;Var Collected : Integer; s : Integer; i : Integer; t : Integer; moveX : Integer; moveY : Integer; mineX : Integer; mineY : Integer; change : Integer; amount : Integer; stripped : Boolean; jtime : TDateTime;//###########################################################//###########################################################procedure dropoff; begin NewMoveXY(chestX,chestY, True, 1, false); NewMoveXY(chestX,chestY, True, 1, false); UseObject(chestID); wait(2500); findType(ores,BackPack); while (findcount > 0) do begin findType(ores,BackPack); amount := ( (FindFullQuantity) + amount ); AddToSystemJournal('stashed ' +IntToStr(amount)); MoveItem(finditem,0,chestID,0,0,0); wait(2000); end; hungry(1,Backpack); wait(500); end;//###########################################################//###########################################################procedure lore; begin Hungry(2,backpack); wait(500); for t := 0 to 1000 do begin Waittargetobject(findtype($0F51,backpack)); UseSkill('Arms Lore'); wait(10500); end; end;//###########################################################//###########################################################procedure StartPoint; begin NewMoveXY(MaxW,MaxN, True, 1, True); mineX := (GetX(self)); mineY := (GetY(self)); change := 1; end;//###########################################################//###########################################################procedure DropMap; begin repeat FindTypeEx($14ED,$ffff,Backpack,False); if (findcount > 0) then Drop(finditem, 0, 0, 0, 0); wait(100); checksave; until findcount = 0; end;//###########################################################//###########################################################procedure Counters; begin checksave; hungry(1, backpack); AddToSystemJournal('Miner is on circuit ' +IntToStr(i)); CountEx($0F2D,$06FE,Backpack); AddToSystemJournal('Paradise Gems collected ' +IntToStr(FindFullQuantity)); CountEx($0F2D,$0ADC,Backpack); AddToSystemJournal('Hell Gems collected ' +IntToStr(FindFullQuantity)); CountEx($0F21,$FFFF,Backpack); AddToSystemJournal('Void Gems collected ' +IntToStr(FindFullQuantity)); FindTypeEx($097B,$FFFF,backpack,False); AddToSystemJournal('Miner has ' +IntToStr(FindFullQuantity) + ' - FishSteaks'); AddToSystemJournal('Miner is at ' +IntToStr(GetX(self)) +'X ' +IntToStr(GetY(self)) +'Y.') end;//###########################################################//###########################################################procedure checkpick; begin if (ObjAtLayer(RhandLayer) = 0) then begin FindType(pick, backpack); if (FindFullQuantity = 0) then begin dropoff; lore; end; wait(200); Equip(RhandLayer,finditem); end; end;//###########################################################//###########################################################procedure SpotMine; begin Stripped := False; repeat waitconnection(5000); if TargetPresent then CancelTarget; if WarMode = true then SetWarMode(false); checkpick; jtime := Now; UseObject(ObjAtLayerEx(RhandLayer,self)); WaitForTarget(5000); If TargetPresent then TargetToTile($FFFF, getX(self), getY(self), GetZ(self)); s := 0; wait(100); s := s + 1; checksave; if (InJournalBetweenTimes('There is no metal', jtime, Now)<>-1) then begin Stripped := true; end; if (InJournalBetweenTimes('you can', jtime, Now)<>-1) then begin Stripped := true; end; if (InJournalBetweenTimes('it seems', jtime, Now)<>-1) then begin Stripped := true; end; if (InJournalBetweenTimes('way', jtime, Now)<>-1) then begin Stripped := true; end; if s > 300 then begin Stripped := true; AddToSystemJournal('Miner timeout on ' +IntToStr(mineX) +'X ' +IntToStr(mineY) +'Y.') end; until (Stripped = true); end;//###########################################################//###########################################################procedure NextSpot; begin moveThroughNPC:=0; if (GetY(self) > MaxS) then begin i := i + 1; StartPoint; DropMap; Counters; end; if (GetX(self) < MaxE) then begin moveX := (GetX(self) + change); moveY := GetY(self); NewMoveXY(moveX,moveY, True, 0, True); end; if (GetX(self) >= MaxE) then begin change := (change * -1); moveX := (GetX(self) + change); moveY := (GetY(self) + 1); NewMoveXY(moveX,moveY, True, 0, True); Counters; end; if (GetX(self) <= MaxW) then begin change := (change * -1); moveX := (GetX(self) + change); moveY := (GetY(self) + 1); NewMoveXY(moveX,moveY, True, 0, True); Counters; end; dropoff; lore; end;//###########################################################//###########################################################Begin Collected := 0; i := 1; StartPoint; SetARStatus(true); while (connected) do begin checkpick; SpotMine; checkpick; NextSpot; end;End.//###########################################################//###########################################################
  9. Scavenger

    скрипт на кач резиста на поизон филде

    pf1 & pf2 are the 2 poisonfield objects for north/south and east/west, the graphics.. there should be no space after the $ $ 3920 should be "$3920" but auto-correct in browser.
  10. Scavenger

    скрипт на кач резиста на поизон филде

    Program SpellResist;{$Include 'all.inc'}ConstPF1 = $3920;PF2 = $3914;PFX = 375;PFY = 3586;PFZ = 29;homeX = 372;homeY = 3586;VarStandX: Integer;StandY: Integer;IsField: Boolean;i: integer;ctime: TDateTime;// ################################################ ###########Procedure Starthome; begin MoveOpenDoor: = true; NewMoveXY (homeX, homeY, True, 0, True); end;// ################################################ ###########// ################################################ ###########Procedure CureMe; begin if (Poisoned) then begin WaitTargetSelf; Cast ( 'Cure'); wait (4000); end; end;// ################################################ ###########// ################################################ ###########Procedure CastPoisonField; begin WaitTargetTile ($FFF, PFX, PFY, PFZ); Cast ( 'Poison Field'); wait (4000); end;// ################################################ ###########// ################################################ ###########Procedure CheckPoisonField; begin repeat CastPoisonField; UoSay ( 'Looking for Poison Field'); FindType (PF1, ground); if (FindItem> 0) then begin StandX: = (getX (FindItem)); StandY: = (getY (FindItem)); IsField: = true; end; FindType (PF2, ground); if (FindItem> 0) then begin StandX: = (getX (FindItem)); StandY: = (getY (FindItem)); IsField: = true; end; wait (1000); until IsField = true; end; // ################################################ ###########// ################################################ ###########Procedure StandInPoisonField; begin // NewMoveXY (StandX, StandY, true, 0, true); NewMoveXY (PFX, PFY, true, 0, true); end;// ################################################ ###########// ################################################ ###########Procedure WaitForFieldToFade; begin UseSkill ( 'Spirit Speak'); repeat wait (10000); if (FindType (PF1, ground) = 0) and (FindType (PF2, ground) = 0) then begin IsField: = false; end; until IsField = false; end;// ################################################ ###########// ################################################ ###########Procedure CheckMana;begin ClearJournal; If (Mana <80) then begin useskill ( 'Meditation'); checksave; if (InJournal ( 'You must')> -1) then begin wait (10000); repeat wait (100); ctime: = Now; i: = 0 useskill ( 'Meditation'); wait (10000); checksave; i: = i + 1; until (InJournalBetweenTimes ( 'You stop med | You lose | You cant focus | You are at peace', ctime, Now) <> - 1) or (i> 100); end; wait (10000); end;end;// ################################################ ###########// ################################################ ###########begin MoveThroughNPC: = 1; MoveOpenDoor: = true; SetARStatus (true); starthome; FindDistance: = 10; IsField: = false; while (not Dead) do begin Starthome; CureMe; CheckMana; CheckPoisonField; StandInPoisonField; WaitForFieldToFade; hungry (2, backpack); end; end. Similar script. You can also try this for resist. format broken, think I fixed but look out for "$ ???" should not have spaces. "$???"
  11. Scavenger

    Вопрос по инже

    You can use stealth and setup a list of items autobuy(item1, colour, amount) autobuy(item2, colour, amount) autobuy(item3, colour, amount) autobuy(item4....., colour, amount) when you go to vendor and say "buy" it will buy all items on list if you have money http://stealth.od.ua/Doc:Manual/Reference/Buy_Sell
  12. Scavenger

    Stealth 6.7.1 как полет?

    Using stealth 6.7.0 with no problem
×
×
  • Создать...