Jump to content

Lineage 2


loot


  • You cannot reply to this topic
14 replies to this topic

#1
forZ

forZ

    Покоритель Земель

  • Пользователи
  • PipPipPipPipPipPip
  • 341 posts
  • Location:Череповец
Дайте скрипт чтоб с земли подбирал !!!

#2
ninja

ninja

    Птица-говорун

  • Пользователи
  • PipPipPipPipPipPipPipPipPip
  • 1,593 posts
  • Location:Череповец
  • Interests:Big Red Machine
Цитата(forZ @ 21.11.2011, 14:24) View Post

Дайте скрипт чтоб с земли подбирал !!!



ub main()
while not uo.dead()
wait(1000)
uo.findtype("0x1BF2","-1","ground")
if uo.findcount()>0 then
uo.exec('waittargetobject finditem')
uo.exec('grab')
wait(1000)
endif
wait(1000)
wend
end sub

#3
Talomon

Talomon

    Охотник на Драконов

  • Пользователи
  • PipPipPipPipPip
  • 184 posts
Procedure pickpotion;
var potion:Cardinal;
begin
repeat
findtype($0F0C,ground);
if (FindCount >= 1) and (GetDistance(finditem) <=2) and (GetDistance(finditem) >=0) and connected and (not dead) then begin
potion := finditem;
grab(potion,ground);
wait(1000);
findtype($0F0C,ground);
end;
until (FindCount < 1) or dead;
end;

#4
forZ

forZ

    Покоритель Земель

  • Пользователи
  • PipPipPipPipPipPip
  • 341 posts
  • Location:Череповец
Цитата(ninja @ 23.11.2011, 0:51) View Post

ub main()
while not uo.dead()
wait(1000)
uo.findtype("0x1BF2","-1","ground")
if uo.findcount()>0 then
uo.exec('waittargetobject finditem')
uo.exec('grab')
wait(1000)
endif
wait(1000)
wend
end sub

А чтобы автоматически в пак закидвалось не как ?


#5
Guest_Delete_*

Guest_Delete_*
  • Гости
Цитата(forZ @ 3.12.2011, 20:11) View Post

А чтобы автоматически в пак закидвалось не как ?


sub main()
var fish
while not uo.dead()
uo.ignorereset()
UO.exec('set distance 2')
UO.exec('set finddistance 2')
uo.findtype('0x097B',0,'ground')
if uo.findcount() then
fish=uo.getserial('finditem')
uo.moveitem(fish,1,'my')
wait(100)
endif
wait(1000)
wend
end sub

#6
forZ

forZ

    Покоритель Земель

  • Пользователи
  • PipPipPipPipPipPip
  • 341 posts
  • Location:Череповец
Цитата(Delete @ 3.12.2011, 19:16) View Post

sub main()
var fish
while not uo.dead()
uo.ignorereset()
UO.exec('set distance 2')
UO.exec('set finddistance 2')
uo.findtype('0x097B',0,'ground')
if uo.findcount() then
fish=uo.getserial('finditem')
uo.moveitem(fish,1,'my')
wait(100)
endif
wait(1000)
wend
end sub


подскажи как несколько забить !!!

#7
Guest_Delete_*

Guest_Delete_*
  • Гости
Цитата(forZ @ 3.12.2011, 20:26) View Post

подскажи как несколько забить !!!

Несколько чего ? Ты ясней выражайся ...

#8
forZ

forZ

    Покоритель Земель

  • Пользователи
  • PipPipPipPipPipPip
  • 341 posts
  • Location:Череповец
Цитата(Delete @ 3.12.2011, 19:29) View Post

Несколько чего ? Ты ясней выражайся ...

ну мне надо чтобы всю рыбу с земли лутал tongue.gif

#9
Talomon

Talomon

    Охотник на Драконов

  • Пользователи
  • PipPipPipPipPip
  • 184 posts
Procedure getfish ;

var fish : Cardinal ;
Begin;
repeat
findtype($09CC,ground);
if (FindCount >= 1) and (GetDistance(finditem) <=2) and (GetDistance(finditem) >=0) and connected and (not dead) then begin
fish := finditem;
grab(fish,ground); wait(500);
findtype($09CC,ground);
end;
until (FindCount < 1) or dead;

repeat
findtype($09CD,ground);
if (FindCount >= 1) and (GetDistance(finditem) <=2) and (GetDistance(finditem) >=0) and connected and (not dead) then begin
fish := finditem;
grab(fish,ground); wait(500);
findtype($09CD,ground);
end;
until (FindCount < 1) or dead;

repeat
findtype($09CF,ground);
if (FindCount >= 1) and (GetDistance(finditem) <=2) and (GetDistance(finditem) >=0) and connected and (not dead) then begin
fish := finditem;
grab(fish,ground); wait(500);
findtype($09CF,ground);
end;
until (FindCount < 1) or dead;

repeat
findtype($0DD6,ground);
if (FindCount >= 1) and (GetDistance(finditem) <=2) and (GetDistance(finditem) >=0) and connected and (not dead) then begin
fish := finditem;
grab(fish,ground); wait(500);
findtype($0DD6,ground);
end;
until (FindCount < 1) or dead;

repeat
findtype($09CE,ground);
if (FindCount >= 1) and (GetDistance(finditem) <=2) and (GetDistance(finditem) >=0) and connected and (not dead) then begin
fish := finditem;
grab(fish,ground); wait(500);
findtype($09CE,ground);
end;
until (FindCount < 1) or dead;

repeat
findtype($0DD7,ground);
if (FindCount >= 1) and (GetDistance(finditem) <=2) and (GetDistance(finditem) >=0) and connected and (not dead) then begin
fish := finditem;
grab(fish,ground); wait(500);
findtype($0DD7,ground);
end;
until (FindCount < 1) or dead;

repeat
findtype($0DD8,ground);
if (FindCount >= 1) and (GetDistance(finditem) <=2) and (GetDistance(finditem) >=0) and connected and (not dead) then begin
fish := finditem;
grab(fish,ground); wait(500);
findtype($0DD8,ground);
end;
until (FindCount < 1) or dead;

End;

#10
Guest_Delete_*

Guest_Delete_*
  • Гости
sub grabfish()
dim fish[4]
fish[1]='0x09CC'
fish[2]='0x09CE'
fish[3]='0x09CF'
var i
var a
i=1
while i<4
a=uo.count(fish[i])
while uo.countonground(fish[i])>0
uo.findtype(fish[i],"-1",1)
a=uo.countonground(fish[i])
uo.deletejournal()
uo.waittargetobject(uo.getserial('finditem'))
uo.grab()
repeat
wait(100)
until a<>uo.countonground(fish[i]) or uo.injournal("Unexpected")
wend
i=i+1
wend
endsub

Эт не мой , тут на форуме нашол. И не могу сказать работает он или нет

#11
forZ

forZ

    Покоритель Земель

  • Пользователи
  • PipPipPipPipPipPip
  • 341 posts
  • Location:Череповец
Цитата(Talomon @ 3.12.2011, 19:33) View Post

Procedure getfish ;

var fish : Cardinal ;
Begin;
repeat
findtype($09CC,ground);
if (FindCount >= 1) and (GetDistance(finditem) <=2) and (GetDistance(finditem) >=0) and connected and (not dead) then begin
fish := finditem;
grab(fish,ground); wait(500);
findtype($09CC,ground);
end;
until (FindCount < 1) or dead;

repeat
findtype($09CD,ground);
if (FindCount >= 1) and (GetDistance(finditem) <=2) and (GetDistance(finditem) >=0) and connected and (not dead) then begin
fish := finditem;
grab(fish,ground); wait(500);
findtype($09CD,ground);
end;
until (FindCount < 1) or dead;

repeat
findtype($09CF,ground);
if (FindCount >= 1) and (GetDistance(finditem) <=2) and (GetDistance(finditem) >=0) and connected and (not dead) then begin
fish := finditem;
grab(fish,ground); wait(500);
findtype($09CF,ground);
end;
until (FindCount < 1) or dead;

repeat
findtype($0DD6,ground);
if (FindCount >= 1) and (GetDistance(finditem) <=2) and (GetDistance(finditem) >=0) and connected and (not dead) then begin
fish := finditem;
grab(fish,ground); wait(500);
findtype($0DD6,ground);
end;
until (FindCount < 1) or dead;

repeat
findtype($09CE,ground);
if (FindCount >= 1) and (GetDistance(finditem) <=2) and (GetDistance(finditem) >=0) and connected and (not dead) then begin
fish := finditem;
grab(fish,ground); wait(500);
findtype($09CE,ground);
end;
until (FindCount < 1) or dead;

repeat
findtype($0DD7,ground);
if (FindCount >= 1) and (GetDistance(finditem) <=2) and (GetDistance(finditem) >=0) and connected and (not dead) then begin
fish := finditem;
grab(fish,ground); wait(500);
findtype($0DD7,ground);
end;
until (FindCount < 1) or dead;

repeat
findtype($0DD8,ground);
if (FindCount >= 1) and (GetDistance(finditem) <=2) and (GetDistance(finditem) >=0) and connected and (not dead) then begin
fish := finditem;
grab(fish,ground); wait(500);
findtype($0DD8,ground);
end;
until (FindCount < 1) or dead;

End;


20:49:25 [Loord]: Compiling
20:49:25 [Loord]: Compiler: [Error] (1:1): Unexpected end of file
20:49:25 [Loord]: Compiling failed
20:49:25 [Loord]: Script loot.txt stoped successfuly


#12
Овчарка

Овчарка

    Сын собаки

  • Гости
  • PipPipPipPipPip
  • 221 posts
А есть у когонить скрипт на лут из трупа?

#13
forZ

forZ

    Покоритель Земель

  • Пользователи
  • PipPipPipPipPipPip
  • 341 posts
  • Location:Череповец
Цитата(Delete @ 3.12.2011, 19:35) View Post

sub grabfish()
dim fish[4]
fish[1]='0x09CC'
fish[2]='0x09CE'
fish[3]='0x09CF'
var i
var a
i=1
while i<4
a=uo.count(fish[i])
while uo.countonground(fish[i])>0
uo.findtype(fish[i],"-1",1)
a=uo.countonground(fish[i])
uo.deletejournal()
uo.waittargetobject(uo.getserial('finditem'))
uo.grab()
repeat
wait(100)
until a<>uo.countonground(fish[i]) or uo.injournal("Unexpected")
wend
i=i+1
wend
endsub

Эт не мой , тут на форуме нашол. И не могу сказать работает он или нет


и этот не робит ((((

#14
Talomon

Talomon

    Охотник на Драконов

  • Пользователи
  • PipPipPipPipPip
  • 184 posts
Цитата
20:49:25 [Loord]: Compiling
20:49:25 [Loord]: Compiler: [Error] (1:1): Unexpected end of file
20:49:25 [Loord]: Compiling failed
20:49:25 [Loord]: Script loot.txt stoped successfuly

то что я запостил это не полноценный скрипт а процедура, используется так: в скрипте на фишинг, ближе к концу, когда хочешь чтобы он собирал рыбку, пишешь getfish;
а саму процедуру копипастишь куданить в начале скрипта после

Program ****
{Include all.inc}
var ****

<---- вот сюда и вставляешь
почитай на оф. форуме стелса про скриптостроение хоть чуть-чуть

Edited by Talomon, 04 December 2011 - 05:19 AM.


#15
Slauka

Slauka

    Скиталец

  • Пользователи
  • Pip
  • 2 posts
Народ дай пожалуйста скрипт на стелс программе на снуппинг со стилингом!!! dry.gif
Суть следующая: основной чар ворует один итем, когда он его своровал он выкидовает его из бэк пэка себе под ноги, левочар подбирает у него этот итем из под ног и кладет себе в бэк пэк. Основной опять ворует и кидает





0 user(s) are reading this topic

members, guests, anonymous users