scp na podbiranije

Ask for scripts here

Moderators: Murderator+, Murderator

Post Reply
DenjaGanjubass
Posts: 76
Joined: 2006-07-28 00:21:50

scp na podbiranije

Post by DenjaGanjubass »

napewite plz kamu ne trudno takuju fiwku, 4ar stoit i kagda wtota padaet rjadom on momentaljno eto podbiraet, krome nekotarix vewej, prosto u nas na sewrve fishingom ewo vsjakaja vsjachina vilavlevaetsa, krome ribi, kakajata nuzna, kakajata net
Nmy
Expert!
Posts: 2152
Joined: 2005-09-14 15:31:58
Location: Latvia

Post by Nmy »

Code: Select all

sub AFKLoot2()
   If uo.getglobal('AFKLoot')=='On' then
   uo.setglobal('AFKLoot',0)
   uo.print(' !!! -= AFKLoot Terminated =- !!! ')
   uo.exec('terminate AFKLoot')
   else
   uo.setglobal('AFKLoot','On')
   uo.print(' !!! -= AFKLooting =- !!! ')
    endif
 uo.set('finddistance','3')
 uo.exec('addobject bag')
  while uo.targeting()
  wait(100)
 wend

while uo.weight < uo.str*4
  UO.FindType( -1 , -1 ,'ground')
 while UO.FindCount()
  uo.moveitem('finditem', 0 ,'bag')
  uo.ignore('finditem')
  Wait(500)
  CheckLag()
  UO.FindType( -1 , -1 ,'ground')
 wend
 wait(100)
wend
uo.setglobal('AFKLoot',0)
end sub
Nmy
Expert!
Posts: 2152
Joined: 2005-09-14 15:31:58
Location: Latvia

Post by Nmy »

можно с массивом

Code: Select all

sub AFKLoot()
   If uo.getglobal('AFKLoot')=='On' then
   uo.setglobal('AFKLoot',0)
   uo.print(' !!! -= AFKLoot Terminated =- !!! ')
   uo.exec('terminate AFKLoot')
   else
   uo.setglobal('AFKLoot','On')
   uo.print(' !!! -= AFKLooting =- !!! ')
    endif
VAR n
  Dim Loot[80]
 Loot[1] = '0x1B7A';terrium etc
 Loot[2] = '0x13B9';weps
 Loot[3] = '0x0F60'
 Loot[4] = '0x1440'
 Loot[5] = '0x13B5'
 Loot[6] = '0x13FE'
 Loot[7] = '0x1400'
 Loot[8] = '0x1442'
 Loot[9] = '0x0F4B'
 Loot[10]= '0x13FA'
 Loot[11]= '0x0F49'
 Loot[12]= '0x13AF'
 Loot[13]= '0x0F47'
 Loot[14]= '0x0F45'
 Loot[15]= '0x1438'
 Loot[16]= '0x143C'
 Loot[17]= '0x0F5C'
 Loot[18]= '0x1406'
 Loot[19]= '0x143A'
 Loot[20]= '0x1404'
 Loot[21]= '0x0F62'
 Loot[22]= '0x1402'
 Loot[23]= '0x143E'
 Loot[24]= '0x0F4D';weps
 Loot[25]= '0x13B1';longbow
 Loot[26]= '0x35B6';bow
 Loot[27]= '0x13FC';heavy crossbow
 Loot[28]= '0x35B4';gladiator
 Loot[29]= '0x0DF0';staff
 Loot[30]= '0x0DF2';wand
 Loot[31]= '0x0EFA';book
 Loot[32]= '0x1541';sash
 Loot[33]= '0x1BC3';shield
 Loot[34]= '0x35B5';knuckle
 Loot[35]= '0x1B78';shield
 Loot[36]= '0x1718';hat
 Loot[37]= '0x171A';hat
 Loot[38]= '0x1549';mask
 Loot[39]= '0x1547';headdress
 Loot[40]= '0x1C08';skirt
 Loot[41]= '0x1DB9';leather
 Loot[42]= '0x13C7';l
 Loot[43]= '0x13CC';l
 Loot[44]= '0x13C6';l
 Loot[45]= '0x13CB';l
 Loot[46]= '0x1DB9';studded
 Loot[47]= '0x13D6';s
 Loot[48]= '0x13DB';s
 Loot[49]= '0x13D4';s
 Loot[50]= '0x13D5';s
 Loot[51]= '0x13DA';s
 Loot[52]= '0x13BB';chainmail
 Loot[53]= '0x13BF';c
 Loot[54]= '0x13BE';c
 Loot[55]= '0x13EC';ringmail
 Loot[56]= '0x13F0';r
 Loot[57]= '0x13EE';r
 Loot[58]= '0x13EB';r
 Loot[59]= '0x1413';platemail
 Loot[60]= '0x1415';p
 Loot[61]= '0x1410';p
 Loot[62]= '0x1414';p
 Loot[63]= '0x1411';p
 Loot[64]= '0x1B76';shields
 Loot[65]= '0x1B7B';s
 Loot[66]= '0x1B74';s
 Loot[67]= '0x1B73';s
 Loot[68]= '0x140E';helms
 Loot[69]= '0x1412';h
 Loot[70]= '0x1408';h
 Loot[71]= '0x140A';h
 Loot[72]= '0x140C';h
 Loot[73]= '0x182D';potions
 Loot[74]= '0x183D';p
 Loot[75]= '0x183A';p
 Loot[76]= '0x1088';jewelery
 Loot[77]= '0x1087';j
 Loot[78]= '0x1086';j
 Loot[79]= '0x108A';j
 Loot[80]= '0x1451';bone helm

 uo.set('finddistance','3')
 uo.exec('addobject bag')
  while uo.targeting()
  wait(100)
 wend

while uo.weight < uo.str*4
  For n = 1 To 80
  UO.FindType( Loot[n] , -1 ,'ground')
 while UO.FindCount()
  uo.moveitem('finditem', 0 ,'bag')
  uo.ignore('finditem')
  Wait(500)
  CheckLag()
  UO.FindType( Loot[n] , -1 ,'ground')
 wend
 Next
wend
uo.setglobal('AFKLoot',0)
end sub
DenjaGanjubass
Posts: 76
Joined: 2006-07-28 00:21:50

Post by DenjaGanjubass »

v pervom on podberaet vsjo a vo vtorom toljko vibranoje ?
DenjaGanjubass
Posts: 76
Joined: 2006-07-28 00:21:50

Post by DenjaGanjubass »

Code: Select all

sub AFKLoot() 
   If uo.getglobal('AFKLoot')=='On' then
   uo.setglobal('AFKLoot',0)
   uo.print(' !!!AFKLOOT OFF!!! ')
   uo.exec('terminate AFKLoot')
   else
   uo.setglobal('AFKLoot','On')
   uo.print(' !!!AFKLOOT START!!! ')
    endif
VAR n
  Dim Loot[62]
 Loot[1] = '0x0EED';Money money money
 Loot[2] = '0x13B9';weps
 Loot[3] = '0x0F60'
 Loot[4] = '0x1440'
 Loot[5] = '0x13B5'
 Loot[6] = '0x13FE'
 Loot[7] = '0x1400'
 Loot[8] = '0x1442'
 Loot[9] = '0x0F4B'
 Loot[10]= '0x13FA'
 Loot[11]= '0x0F49'
 Loot[12]= '0x13AF'
 Loot[13]= '0x0F47'
 Loot[14]= '0x0F45'
 Loot[15]= '0x1438'
 Loot[16]= '0x143C'
 Loot[17]= '0x0F5C'
 Loot[18]= '0x1406'
 Loot[19]= '0x143A'
 Loot[20]= '0x1404'
 Loot[21]= '0x0F62'
 Loot[22]= '0x1402'
 Loot[23]= '0x143E'
 Loot[24]= '0x0F4D';weps
 Loot[25]= '0x14ED';Waterstained sos
 Loot[26]= '0x35B6';bow
 Loot[27]= '0x13FC';heavy crossbow
 Loot[28]= '0x35B4';gladiator
 Loot[29]= '0x0DF0';staff
 Loot[30]= '0x1DB9';leather
 Loot[31]= '0x13C7';l
 Loot[32]= '0x14ED';tresure map
 Loot[33]= '0x13CC';l
 Loot[34]= '0x13C6';l
 Loot[35]= '0x13CB';l
 Loot[36]= '0x1DB9';studded
 Loot[37]= '0x13D6';s
 Loot[38]= '0x13DB';s
 Loot[39]= '0x13D4';s
 Loot[40]= '0x13D5';s
 Loot[41]= '0x13DA';s
 Loot[42]= '0x13BB';chainmail
 Loot[43]= '0x13BF';c
 Loot[44]= '0x13BE';c
 Loot[45]= '0x13EC';ringmail
 Loot[46]= '0x13F0';r
 Loot[47]= '0x13EE';r
 Loot[48]= '0x13EB';r
 Loot[49]= '0x1413';platemail
 Loot[50]= '0x1415';p
 Loot[51]= '0x1410';p
 Loot[52]= '0x1414';p
 Loot[53]= '0x1411';p
 Loot[54]= '0x1B76';shields
 Loot[55]= '0x1B7B';s
 Loot[56]= '0x1B74';s
 Loot[57]= '0x1B73';s
 Loot[58]= '0x140E';helms
 Loot[59]= '0x1412';h
 Loot[60]= '0x1408';h
 Loot[61]= '0x140A';h
 Loot[62]= '0x140C';h

 uo.set('finddistance','3')
 uo.exec('addobject bag')
  while uo.targeting()
  wait(100)
 wend

while uo.weight < uo.str*4
  For n = 1 To 80
  UO.FindType( Loot[n] , -1 ,'ground')
 while UO.FindCount()
  uo.moveitem('finditem', 0 ,'bag')
  uo.ignore('finditem')
  Wait(1000)
  CheckLag()
  UO.FindType( Loot[n] , -1 ,'ground')
 wend
 Next
wend
uo.setglobal('AFKLoot',0)
end sub

sub CheckLag()
if uo.Waiting()>0 then
uo.Exec('canceltarget')
end if
uo.DeleteJournal()
uo.Click('backpack')
repeat
wait(50)
until uo.InJournal('backpack')
end sub


PROVERJ V CHOM VIWKA TAVO WTO KAGDA JA ZAPUSKAJU AFKLOOT 2 U MENJA VISKAKEVAET TABLICHKA Unhandled exception in parser. ?? V CHOM FISHKA , HELP PLIZ
Nmy
Expert!
Posts: 2152
Joined: 2005-09-14 15:31:58
Location: Latvia

Post by Nmy »

сам чтото накавырячил... вот и ищи...
DenjaGanjubass
Posts: 76
Joined: 2006-07-28 00:21:50

Post by DenjaGanjubass »

Code: Select all

sub AFKLoot2() 
   If uo.getglobal('AFKLoot')=='On' then
   uo.setglobal('AFKLoot',0)
   uo.print(' !!! -= AFKLoot Terminated =- !!! ')
   uo.exec('terminate AFKLoot')
   else
   uo.setglobal('AFKLoot','On')
   uo.print(' !!! -= AFKLooting =- !!! ')
    endif
 uo.set('finddistance','3')
 uo.exec('addobject bag')
  while uo.targeting()
  wait(100)
 wend

while uo.weight < uo.str*4
  UO.FindType( -1 , -1 ,'ground')
 while UO.FindCount()
  uo.moveitem('finditem', 0 ,'bag')
  uo.ignore('finditem')
  Wait(500)
  CheckLag()
  UO.FindType( -1 , -1 ,'ground')
 wend
 wait(100)
wend
uo.setglobal('AFKLoot',0)
end sub


a kak mne zdelatj wtobon vsjo podnemal krome odnavo itema, kak izlju4itj onu vewj , tip etova 4udo 0x0DD6
Scripts Writer
Posts: 2259
Joined: 2005-04-19 18:00:29
Location: Московская область
Contact:

Post by Scripts Writer »

Code: Select all

if not uo.GetGraphic('finditem') == '0x0DD6' then
  #loot ...
else
  uo.Ignore('finditem')
end if
  #...
uo.IgnoreReset()
end sub
DenjaGanjubass
Posts: 76
Joined: 2006-07-28 00:21:50

Post by DenjaGanjubass »

a kuda mne eto vsavitj ?? :(
DenjaGanjubass
Posts: 76
Joined: 2006-07-28 00:21:50

Post by DenjaGanjubass »

eee, nu pomogite, ja bez vas, acani, kak bez ruk
Nmy
Expert!
Posts: 2152
Joined: 2005-09-14 15:31:58
Location: Latvia

Post by Nmy »

Code: Select all

sub AFKLoot2()
   If uo.getglobal('AFKLoot')=='On' then
   uo.setglobal('AFKLoot',0)
   uo.print(' !!! -= AFKLoot Terminated =- !!! ')
   uo.exec('terminate AFKLoot')
   else
   uo.setglobal('AFKLoot','On')
   uo.print(' !!! -= AFKLooting =- !!! ')
    endif
 uo.set('finddistance','3')
 uo.exec('addobject bag')
  while uo.targeting()
  wait(100)
 wend

while uo.weight < uo.str*4
  UO.FindType( -1 , -1 ,'ground')
 while UO.FindCount()
  If uo.GetGraphic('finditem') == '0x0DD6' then
  uo.ignore('finditem')
  Endif
  uo.moveitem('finditem', 0 ,'bag')
  uo.ignore('finditem')
  Wait(500)
  CheckLag()
  UO.FindType( -1 , -1 ,'ground')
 wend
 wait(100)
wend
uo.setglobal('AFKLoot',0)
end sub
DenjaGanjubass
Posts: 76
Joined: 2006-07-28 00:21:50

Post by DenjaGanjubass »

sps, a mozhno wtob on mnogije tipi ignoriroval ?
Nmy
Expert!
Posts: 2152
Joined: 2005-09-14 15:31:58
Location: Latvia

Post by Nmy »

DenjaGanjubass wrote:sps, a mozhno wtob on mnogije tipi ignoriroval ?


Code: Select all

If uo.GetGraphic('finditem') == '0x0DD6' or uo.GetGraphic('finditem') == '0x0001' or uo.GetGraphic('finditem') == '0x0002' or uo.GetGraphic('finditem') == '0x0003'
DenjaGanjubass
Posts: 76
Joined: 2006-07-28 00:21:50

Post by DenjaGanjubass »

respekt
Killborn
Posts: 3
Joined: 2006-02-01 21:19:07

Post by Killborn »

Спасибо за скрипт, но есть вопрос. Как только он подбирает вещь, скрипт останавливается. Как это исправить?
Nmy
Expert!
Posts: 2152
Joined: 2005-09-14 15:31:58
Location: Latvia

Post by Nmy »

Killborn wrote:Спасибо за скрипт, но есть вопрос. Как только он подбирает вещь, скрипт останавливается. Как это исправить?

Code: Select all

while uo.weight < uo.str*4

он работает пока вес меньше чем сила * 4
Killborn
Posts: 3
Joined: 2006-02-01 21:19:07

Post by Killborn »

Если в инже поставить галочку на verbose logging, то в окне УО побегут строки Items found:0, а как только он напишет Items found:1, строки прекращают бежать и скрипт перестает подбирать вещи.

Я подумал, это не может быть изза функции checklag? Потому что как только я убираю ее из скрипта, скрипт начинает поднимать все вещи подряд, без игнора.

А использовал я эту функцию:

Code: Select all

sub CheckLag() 
   UO.DeleteJournal() ; вытрем все сообщения в журнале (Inj, но не клиента)
   UO.Click('backpack') ; одиночный клик по вашему backpack
;       ждем сообщения в журнале
   repeat
      wait(100)
   until UO.InJournal("Backpack")
;       этот цикл завершится, если это сообщение появится.... замечу "Backpack" и "backpack"
;       регистр важен Пишите точно что ждете
end sub
Post Reply