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

Whelp

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

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

  • Посещение

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

    1

Последний раз Whelp выиграл 18 декабря 2017

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

Репутация

2 Неопределенный

О Whelp

  • Звание
    Путешественник
  • День рождения 23.03.1988

Contact Methods

  • Website URL
    http://vkontakte.ru/rabbit88
  • ICQ
    457361118

Profile Information

  • Location
    Череповец
  1. Whelp

    Помогите!

    Подскажите что за фигня? Не запускается игра через stealth... пишет there is some problem communicating with origin
  2. Whelp

    Маркет

    Просто оставлю это здесь... (хотя хз сожет что и изменилось в правилах)
  3. Whelp

    Мининг в вип шахте.

    Program mining; // Crafted by Rincewind {$Include 'all.inc'} type LumbRecord = Record x,y,tt: integer; end; var k, x, y : Integer; mn1, mf1, mf2, ms1 : Integer; ctime : TDateTime; const Pickaxe1 = $0E85; Pickaxe2 = $0E86; procedure Create_Pickaxe; var t : integer; tt,ic : cardinal; time : TDateTime; begin NewMoveXY(2582,446,true,0,false); FindTypeEx($19B9,$0000,backpack,false); while FindCount > 0 do begin UseType($19B9,$0000); t := 0; repeat waitconnection(5000); CheckSave; wait(1000); t := t + 1; until (InJournalBetweenTimes('Failed.|Success:', time, Now) <> -1) or (t >= 200); FindTypeEx($19B9,$0000,backpack,false); end; FindTypeEx($1EBC,$0000,backpack,false); tt := FindCount; FindTypeEx($1BF2,$0000,backpack,false); if (FindCount < 1) or (FindQuantity < 4) or (tt < 1) then begin AddToSystemJournal('Недостаточное кол-во ресурсов для крафта или нет инструмента'); AddToSystemJournal('Завершение скрипта (скрипт зациклен)'); SetARStatus(false); Disconnect; repeat wait(1000); until false; end; ic := FindItem; FindTypeEx($1EBC,$0000,backpack,false); tt := FindItem; if TargetPresent then CancelTarget; waitconnection(5000); CheckSave; UseObject(tt); repeat waitconnection(5000); CheckSave; WaitForTarget(5000); until TargetPresent; WaitTargetObject(ic); repeat wait(1000); FindTypeEx($0E85,$0000,backpack,false); until (FindCount > 9) or (InJournalBetweenTimes('You stop.', time, Now) <> -1); Step (4,false); Step (4,false); FindTypeEx($0E85,$0000,backpack,false); if FindCount < 1 then begin AddToSystemJournal('Не удалось кирки скрафтить кирку'); AddToSystemJournal('Завершение скрипта (скрипт зациклен)'); SetARStatus(false); Disconnect; repeat wait(1000); until false; end; end; function CheckPickaxe : Boolean; var tmpser : Cardinal; begin Result := true; if (ObjAtLayerEx(RhandLayer,self) = 0) then begin tmpser := findtype(Pickaxe1,backpack); if tmpser = 0 then tmpser := findtype(Pickaxe2,backpack); if tmpser = 0 then begin Result := false; exit; end; if not equip(RhandLayer,tmpser) then begin wait(1000); if not equip(RhandLayer,tmpser) then begin Result := false; exit; end; end; wait(500); checksave; end; end; procedure MiningAround; Begin for x := -2 to 2 do begin for y := -2 to 2 do begin repeat waitconnection(5000); while not CheckPickaxe do begin Create_Pickaxe; end; if TargetPresent then CancelTarget; if WarMode = true then SetWarMode(false); ctime := Now; UseObject(ObjAtLayerEx(RhandLayer,self)); WaitForTarget(5000); If TargetPresent then TargetToTile(1342, GetX(self)+x, GetY(self)+y, GetZ(self)); k := 0; repeat wait(100); k := k + 1; checksave; mn1 := InJournalBetweenTimes('stop', ctime, Now); mf1 := InJournalBetweenTimes('you can', ctime, Now); mf2 := InJournalBetweenTimes('fail', ctime, Now); ms1 := InJournalBetweenTimes('way', ctime, Now); until (mn1<>-1) or (mf1<>-1) or (mf2<>-1) or (ms1<>-1) or (k > 300); until (mn1<>-1); end; end; 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 randomstep(); var ld : Integer; begin if FindType($0F6C,Ground) > 0 then begin SetBadLocation(GetX(FindItem),GetY(FindItem)); end; ld := Random(4); if (ld = 0) then begin Step(0,false); Step(0,false); end; if (ld = 1) then begin Step(2,false); Step(2,false); end; if (ld = 2) then begin Step(4,false); Step(4,false); end; if (ld = 3) then begin Step(6,false); Step(6,false); end; end; Begin moveThroughNPC := 0; AutoMenu('What','Deadly Tools'); AutoMenu('What','Pickaxe'); SetARStatus(true); while (connected) do begin while (true) do begin FindTypeEx($0E85,$ffff,backpack,False); AddToSystemJournal(IntToStr(findcount) + ' - pickaxes'); FindTypeEx($097B,$ffff,backpack,False); AddToSystemJournal(IntToStr(FindFullQuantity) + ' - Стейков'); Hungry(1,backpack); randomstep; AddToSystemJournal('Iron:'+IntToStr(CountEx($19B9,$0000,backpack))+' '+'Copper:'+IntToStr(CountEx($19B9,$08EB,backpack))+' '+'BD:'+IntToStr(CountEx($19B9,$0425,backpack))+' '+'Pagan:'+IntToStr(CountEx($19B9,$050C,backpack))+' '+'Silver:'+IntToStr(CountEx($19B9,$04EB,backpack))+' '+'Spectral:'+IntToStr(CountEx($19B9,$0483,backpack))+' '+'Lava:'+IntToStr(CountEx($19B9,$0486,backpack))+' '+'Ice:'+IntToStr(CountEx($19B9,$0480,backpack))+' '+'Myt:'+IntToStr(CountEx($19B9,$0492,backpack))+' '+'Bas:'+IntToStr(CountEx($19B9,$0487,backpack))+' '+'Sun:'+IntToStr(CountEx($19B9,$0514 ,backpack))+' '+' Daed:'+IntToStr(CountEx($19B9,$0494,backpack))+' Doom:'+IntToStr(CountEx($19B9,$049F,backpack))+' Zulu:'+IntToStr(CountEx($19B9,$0488,backpack))); FindDistance := 2; MiningAround; DropMap; wait(3000); end; end; End.
  4. Whelp

    Для чего нужны эти вещи.

    http://wiki.zhr.ru/info:lordelements:start
  5. Whelp

    blacksmithy + armslore

    Эхх... А у меня он висит на выборе вещи изготовления ((
  6. Whelp

    Решение по шарду

    Меня в бригаду возьмете ? (тоже Череповец)
  7. Whelp

    ХОРОШИЕ НОВОСТИ

    Жду не дождусь!!!
  8. Whelp

    Магери скролл

    Подскажите почему не медитирует ??? program magery; //Translation Injection->Stealth by DerMeister © {$Include 'all.inc'} const scroll=$4FCDC236; //ID скроллов сюда BEGIN while ( (not(dead)) or (not(Connected)) )do begin waitconnection(10000); wait(250); ClearJournal; repeat wait(4000); waittargettype($0EFA); UseObject(scroll); wait(500); until ( (InJournal('Недостаточно маны') > -1) or (not(Connected)) ); repeat useskill('Meditation'); wait(10500); until ( (InJournal('You enter') > -1) or (not(Connected)) ); repeat wait(700); until ( (InJournal('You stop m') > -1) or (not(Connected)) ); end; AddToSystemJournal('End of script'); END.
  9. Whelp

    Помогите ламбер в конюшне

    Стукнул ))
  10. Помогите понять почему не работает этот скрипт в конюшне? Program Lumber; type TreeRecord = Record t,x,y: integer; end; var TreeTile: array[0..50] of integer; TreePlace: array[0..500] of TreeRecord; TreeCount: integer; x,y,c,a,s: integer; /// Options /// const RadiusX=20; RadiusY=20; Axe=$0F43; StartXY=true; StartX=0; StartY=0; //////////////////// procedure CheckCon; begin if Connected=False then begin; repeat Wait(1000); until Connected=True; Wait(5000); end; end; function CheckTool: boolean; begin CheckCon; FindType(Axe, backpack); if (dead=false) and (FindQuantity = 0) and (ObjAtLayer(RhandLayer) = 0) then begin AddToSystemJournal('You have no axe'); s:=0; result:=false; SetARStatus(false); Disconnect; end else result:=true; end; procedure CheckTree; var LCount: integer; t,i: integer; TTile: TStaticCell; begin TTile:=ReadStaticsXY(x, y, WorldNum); LCount:=GetLayerCount(x, y, WorldNum); i:=0; while i < LCount do begin for t:=0 to 28 do begin if TTile.Statics.Tile=TreeTile[t] then begin TreePlace[c].t:=TTile.Statics.Tile; TreePlace[c].x:=x; TreePlace[c].y:=y; c:=c+1; end; end; i:=i+1; end; end; procedure FindTree; begin for x:=GetX(self)-RadiusX to GetX(self)+RadiusX do if x mod 2 = 0 then begin for y:=GetY(self)-RadiusY to GetY(self)+RadiusY do CheckTree; end else begin for y:=GetY(self)+RadiusY to GetY(self)-RadiusY do CheckTree; end; TreeCount:=c-1; end; procedure Lumber; var t: TDateTime; begin for a:=0 to TreeCount do begin CheckCon; t:=now; NewMoveXY(TreePlace[a].x, TreePlace[a].y, true, 1, false); Wait(1000); if CheckTool=true then begin Equipt(RhandLayer,Axe); //UseObject(ObjAtLayerEx(RhandLayer, Axe)); UseType(Axe, $FFFF); WaitTargetTile(TreePlace[a].t, TreePlace[a].x, TreePlace[a].y, 0); repeat Wait(1000); until (InJournalBetweenTimes('tool|far|no wood|equip', t, now) > 0) or (Connected=False) or (dead); end end; end; begin c:=0; s:=1; TreeTile[0]:=3480; TreeTile[1]:=3242; TreeTile[2]:=3277; TreeTile[3]:=3283; TreeTile[4]:=3286; TreeTile[5]:=3288; TreeTile[6]:=3289; TreeTile[7]:=3290; TreeTile[8]:=3291; TreeTile[9]:=3294; TreeTile[10]:=3296; TreeTile[11]:=3299; TreeTile[12]:=3302; TreeTile[13]:=3393; TreeTile[14]:=3394; TreeTile[15]:=3395; TreeTile[16]:=3396; TreeTile[17]:=3415; TreeTile[18]:=3416; TreeTile[19]:=3417; TreeTile[20]:=3418; TreeTile[21]:=3419; TreeTile[22]:=3438; TreeTile[23]:=3439; TreeTile[24]:=3440; TreeTile[25]:=3441; TreeTile[26]:=3442; TreeTile[27]:=3460; TreeTile[28]:=3461; TreeTile[29]:=3462; TreeTile[30]:=3480; TreeTile[31]:=3482; TreeTile[32]:=3488; CheckCon; if StartXY=true then NewMoveXY(StartX, StartY, true, 0, false); FindTree; AddToSystemJournal('Trees found: '+IntToStr(TreeCount)); while (s=1) and (not dead) do Lumber; end. Вне конюшни работает, а на деревьях которые посажены внутри не фурычит.... ((
  11. Почему я не могу сойти с лодки? Трап появляется, а сходить не хочет. Пробовал в разных местах и в брите на причале и везде... (((
  12. Whelp

    Лумбер

    UP
  13. Whelp

    Кто Рубит На Стелсе ?ОТЗОВИТЕСЬ!

    Дисконнектит ((
  14. Whelp

    Snooping&stealing

    У меня почему то не закрывает пак и приходиться снова самому юзать перчатки.... Почему так ? объясните плиз )
×
×
  • Создать...