скрипт на мининг

Anything and all.

Moderators: Murderator+, Murderator

Post Reply
Cat
Posts: 28
Joined: 2004-06-17 14:59:15
Location: Екатеринбург

скрипт на мининг

Post by Cat »

хо4у подправить штобы бот всю руду которую накапает выкидывал на пол сразу же если она ниже мифрила, но 4то имено изменить надо я не в курсе тоесть какую команду вписать 4то бы, при попадании ид ора он сразу кидал его на пол

###############################################################
sub Exist()
#############Iron
If UO.Count(0x19B9, 0x0000) > 0 Then
ProDrop(0x19B9, 0x0000)
EndIF
############Rasty
If UO.Count(0x19B9,0x0750) > 0 Then
ProDrop(0x19B9,0x0750)
EndIF
############Bronze
If UO.Count(0x19B9, 0x06D6) > 0 Then
ProDrop(0x19B9, 0x06D6)
EndIF
############Old Copper
If UO.Count(0x19B9, 0x0590) > 0 Then
ProDrop(0x19B9, 0x0590)
EndIF
############Dull Copper
If UO.Count(0x19B9, 0x060A) > 0 Then
ProDrop(0x19B9, 0x060A)
EndIF
############Copper
If UO.Count(0x19B9, 0x0641) > 0 Then
ProDrop(0x19B9, 0x0641)
EndIF
############Pirit
If UO.Count(0x19B9, 0x0665) > 0 Then
ProDrop(0x19B9, 0x0665)
EndIF
############Silver
If UO.Count(0x19B9, 0x0482) > 0 Then
ProDrop(0x19B9, 0x0482)
EndIF
############Gold
If UO.Count(0x19B9, 0x04AA) > 0 Then
ProDrop(0x19B9, 0x04AA)
EndIF
############Shadow
If UO.Count(0x19B9, 0x0770) > 0 Then
ProDrop(0x19B9, 0x0770)
EndIF
############Verit
If UO.Count(0x19B9, 0x07D1) > 0 Then
ProDrop(0x19B9, 0x07D1)
EndIF
############Agapit
If UO.Count(0x19B9, 0x0400) > 0 Then
ProDrop(0x19B9, 0x0400)
EndIF
############Blood = 0x04C2
If UO.Count(0x19B9, 0x04C2) > 0 Then
ProDrop(0x19B9, 0x04C2)
EndIF
############Azurit = 0x04DF
If UO.Count(0x19B9, 0x04DF) > 0 Then
ProDrop(0x19B9, 0x04DF)
EndIF
############Mithril
If UO.Count(0x19B9, 0x052D) > 0 Then
ProDrop(0x19B9, 0x052D)
EndIF
############Valorite
If UO.Count(0x19B9, 0x0515) > 0 Then
ProDrop(0x19B9, 0x0515)
EndIF
############Winter
If UO.Count(0x19B9, 0x0481) > 0 Then
ProDrop(0x19B9, 0x0481)
EndIF
############Black Rock Ore
If UO.Count(0x19B9,0x0455) > 0 Then
ProDrop(0x19B9,0x0455)
EndIF
############Ambers
If UO.Count(0x0F25,0x0000) > 0 Then
ProDrop(0x0F25,0x0000)
EndIF


###############################################################
sub ProDrop(T,C)
UO.FindType(T,C,'backpack')
Var b = UO.GetSerial("finditem")
UO.FindType(T,C,'ground')
Var g = UO.GetSerial("finditem")
UO.MoveItem(b, "0", g,str(uo.getx(g)),str(uo.gety(g)),"0")
Wait(500)
If Uo.Count(T,C) > 0 Then
Clear(T,C)
endIF
end sub
Top
Purgen
Posts: 187
Joined: 2005-04-04 18:23:12

Post by Purgen »

сломал моск :shock:
Top
Scripts Writer
Posts: 2259
Joined: 2005-04-19 18:00:29
Location: Московская область
Contact:
Contact Scripts Writer

Re: скрипт на мининг

Post by Scripts Writer »

Cat wrote:хо4у подправить штобы бот всю руду которую накапает выкидывал на пол сразу же если она ниже мифрила, но 4то имено изменить надо я не в курсе тоесть какую команду вписать 4то бы, при попадании ид ора он сразу кидал его на пол

Code: Select all

sub Exist()

############Mithril
If UO.Count(0x19B9, 0x052D) > 0 Then
  ProDrop(0x19B9, 0x052D)
EndIF
############Valorite
If UO.Count(0x19B9, 0x0515) > 0 Then
  ProDrop(0x19B9, 0x0515)
EndIF
############Winter
If UO.Count(0x19B9, 0x0481) > 0 Then
  ProDrop(0x19B9, 0x0481)
EndIF
############Black Rock Ore
If UO.Count(0x19B9,0x0455) > 0 Then
  ProDrop(0x19B9,0x0455)
EndIF
############Ambers
If UO.Count(0x0F25,0x0000) > 0 Then
  ProDrop(0x0F25,0x0000)
EndIF
end sub


sub ProDrop(T,C)
UO.FindType(T,C,'backpack') 
Var b = UO.GetSerial("finditem")
UO.FindType(T,C,'ground') 
Var g = UO.GetSerial("finditem")
UO.MoveItem(b, "0", g,str(uo.getx(g)),str(uo.gety(g)),"0")
Wait(500)
If Uo.Count(T,C) > 0 Then 
Clear(T,C)
endIF
end sub
Top
Purgen
Posts: 187
Joined: 2005-04-04 18:23:12

Post by Purgen »

а массивчиком не судьба?
Возьмите любой автолут, и слово grab замените на drophere. Ну и поменять, место поиска конечно (с трупа на свой пак)
Top
Cat
Posts: 28
Joined: 2004-06-17 14:59:15
Location: Екатеринбург

Post by Cat »

Purgen wrote:а массивчиком не судьба?
Возьмите любой автолут, и слово grab замените на drophere. Ну и поменять, место поиска конечно (с трупа на свой пак)

sub main()
Uo.Print('Yoko Injection')
end sub

sub mining()
################
GoToTile(4550,3171,0,False)#1
mineone()
GoToTile(4549,3173,0,False)#2
mineone()
GoToTile(4547,3171,0,False)#3
mineone()
GoToTile(4545,3173,0,False)#4
mineone()
GoToTile(4552,3174,0,False)#5
mineone()
# GoToTile(1980,266,0,False)#6
# mineone()
# GoToTile(1977,265,0,False)#7
# mineone()
################


mining()
end sub

sub mineone()
VAR Kirka = '0x0E85' ; ??? ?????
VAR MaxVes = 300 ; ???????????? ???, ?????????? ????? ????? 10-15 ???????
VAR TileNum = '1339' ; ???? ???? ?????? (???????? ???????????????? ???)
VAR x, y, t, k
VAR MaxTime = 45 ; ?????????? ? 1/10 ???.
VAR ms1 = "There is no ore here to mine"
VAR ms2 = "You can't use"
VAR ms3 = "You put the"
VAR ms4 = "You loosen some rocks"
VAR ms5 = "You are too far away"
VAR ms6 = "Try mining in rock"
VAR ms7 = "You can't see that"
for y=-2 to 2
for x=-2 to 2

k = 0
CheckLag()
repeat
UO.DeleteJournal()
t = UO.Timer()
k = k + 1
UO.CancelTarget()
wait(300)
UO.WaitTargetTile( TileNum, STR( UO.GetX() + x ), STR( UO.GetY() + y ), 0)
CheckLag()
wait(1000)
UO.Exec('disarm')
wait(500)
UO.UseType( Kirka )
CheckLag()
repeat
wait(300)
autoheal()
ves()
until UO.InJournal(ms1) OR UO.InJournal(ms2) OR UO.InJournal(ms3) OR UO.InJournal(ms4) OR UO.InJournal(ms5) OR UO.InJournal(ms6) OR UO.InJournal(ms7) OR ((t + MaxTime) < UO.Timer())
wait(3100)
until ( NOT UO.InJournal(ms4) AND NOT UO.InJournal(ms3) OR (k > 10) )
next
next

end sub

##############################
###############################################################
sub Exist()
#############Iron
If UO.Count(0x19B9, 0x0000) > 0 Then
ProDrop(0x19B9, 0x0000)
EndIF
############Rasty
If UO.Count(0x19B9,0x0750) > 0 Then
ProDrop(0x19B9,0x0750)
EndIF
############Bronze
If UO.Count(0x19B9, 0x06D6) > 0 Then
ProDrop(0x19B9, 0x06D6)
EndIF
############Old Copper
If UO.Count(0x19B9, 0x0590) > 0 Then
ProDrop(0x19B9, 0x0590)
EndIF
############Dull Copper
If UO.Count(0x19B9, 0x060A) > 0 Then
ProDrop(0x19B9, 0x060A)
EndIF
############Copper
If UO.Count(0x19B9, 0x0641) > 0 Then
ProDrop(0x19B9, 0x0641)
EndIF
############Pirit
If UO.Count(0x19B9, 0x0665) > 0 Then
ProDrop(0x19B9, 0x0665)
EndIF
############Silver
If UO.Count(0x19B9, 0x0482) > 0 Then
ProDrop(0x19B9, 0x0482)
EndIF
############Gold
If UO.Count(0x19B9, 0x04AA) > 0 Then
ProDrop(0x19B9, 0x04AA)
EndIF
############Shadow
If UO.Count(0x19B9, 0x0770) > 0 Then
ProDrop(0x19B9, 0x0770)
EndIF
############Verit
If UO.Count(0x19B9, 0x07D1) > 0 Then
ProDrop(0x19B9, 0x07D1)
EndIF
############Agapit
If UO.Count(0x19B9, 0x0400) > 0 Then
ProDrop(0x19B9, 0x0400)
EndIF
############Blood = 0x04C2
If UO.Count(0x19B9, 0x04C2) > 0 Then
ProDrop(0x19B9, 0x04C2)
EndIF
############Azurit = 0x04DF
If UO.Count(0x19B9, 0x04DF) > 0 Then
ProDrop(0x19B9, 0x04DF)
EndIF
############Mithril
If UO.Count(0x19B9, 0x052D) > 0 Then
ProDrop(0x19B9, 0x052D)
EndIF
############Valorite
If UO.Count(0x19B9, 0x0515) > 0 Then
ProDrop(0x19B9, 0x0515)
EndIF
############Winter
If UO.Count(0x19B9, 0x0481) > 0 Then
ProDrop(0x19B9, 0x0481)
EndIF
############Black Rock Ore
If UO.Count(0x19B9,0x0455) > 0 Then
ProDrop(0x19B9,0x0455)
EndIF
############Ambers
If UO.Count(0x0F25,0x0000) > 0 Then
ProDrop(0x0F25,0x0000)
EndIF


############### Ostalnoe GaVnO

#VAR Sunduks = '0x4938AB0C'
#VAR Arrow = '0x19B9'
#While UO.Count( Arrow ) > 1
# UO.FindType( Arrow )
# If UO.FindCount() > 0 Then
# UO.MoveItem( 'finditem', 0, Sunduks)
# wait (500)
# Endif
# Wend
##############################
end sub
###############################################################
#????? ????
###############################################################
sub ProDrop(T,C)
UO.FindType(T,C,'backpack')
Var b = UO.GetSerial("finditem")
UO.FindType(T,C,'ground')
Var g = UO.GetSerial("finditem")
UO.MoveItem(b, "0", g,str(uo.getx(g)),str(uo.gety(g)),"0")
Wait(500)
If Uo.Count(T,C) > 0 Then
Clear(T,C)
endIF
end sub
##############################

sub ves()
if uo.weight > 300 then ; ???????????? ??? ??? ??????? ????? ? ?????
GoToTile(4558,3172,0,False)
GoToTile(4558,3172,0,False)
wait(2000)
Exist()
wait(1000)
GoToTile(4552,3172,0,False)
endif
end sub


+
sub lootDead()
Uo.Print(' Лутаю Труп ' )
var i
dim a[41]
a[1]='0x1412'
a[2]='0x1410'
a[3]='0x1414'
a[4]='0x1415'
a[5]='0x1411'
a[6]='0x1413'
a[7]='0x1f03'
a[8]='0x1f49'
a[9]='0x1f56'
a[10]='0x1f4a'
a[11]='0x1f50'
a[12]='0x0f63'
a[13]='0x1402'
a[14]='0x0e87'
a[15]='0x0f4e'
a[16]='0x143e'
a[17]='0x13bb'
a[18]='0x0eed'
a[19]='0x1f5f'
a[20]='0x13bf'
a[21]='0x13be'
a[22]='0x0f49'
a[23]='0x1438'
a[24]='0x1406'
a[25]='0x0df0'
a[26]='0x1c04'
a[27]='0x0F08' # мана
a[28]='0x0F0C'
a[29]='0x0F0B'
a[30]='0x0E75'
a[31]='0x0E79'
a[32]='0x0F47'
a[33]='0x0DF0'
a[34]='0x0F4B'
a[35]='0x1442'
a[36]='0x1404'
a[37]='0x1ECE'
a[38]='0x143A'
a[39]='0x1940'
a[40]='0x1F4C'
a[41]='0x09AA'
for i = 1 to 41
UO.FindType(a[i],'-2','lastcontainer')
while uo.findcount()
UO.Grab('loot trup','finditem')
uo.ignore("finditem")
wait(10)
UO.FindType(a[i],'-2','lastcontainer')
wend
uo.ignorereset()
next
Uo.Say(' ')
Uo.Say(' ')
Uo.Say(' ')
Uo.Say(' ')
Uo.Say(' ')
Uo.Say(' ')
end sub
Top
Cat
Posts: 28
Joined: 2004-06-17 14:59:15
Location: Екатеринбург

Post by Cat »

Purgen wrote:а массивчиком не судьба?
Возьмите любой автолут, и слово grab замените на drophere. Ну и поменять, место поиска конечно (с трупа на свой пак)
а как их свовместить?
Top
Cat
Posts: 28
Joined: 2004-06-17 14:59:15
Location: Екатеринбург

Re: скрипт на мининг

Post by Cat »

Scripts Writer wrote:
Cat wrote:хо4у подправить штобы бот всю руду которую накапает выкидывал на пол сразу же если она ниже мифрила, но 4то имено изменить надо я не в курсе тоесть какую команду вписать 4то бы, при попадании ид ора он сразу кидал его на пол

Code: Select all

sub Exist()

############Mithril
If UO.Count(0x19B9, 0x052D) > 0 Then
  ProDrop(0x19B9, 0x052D)
EndIF
############Valorite
If UO.Count(0x19B9, 0x0515) > 0 Then
  ProDrop(0x19B9, 0x0515)
EndIF
############Winter
If UO.Count(0x19B9, 0x0481) > 0 Then
  ProDrop(0x19B9, 0x0481)
EndIF
############Black Rock Ore
If UO.Count(0x19B9,0x0455) > 0 Then
  ProDrop(0x19B9,0x0455)
EndIF
############Ambers
If UO.Count(0x0F25,0x0000) > 0 Then
  ProDrop(0x0F25,0x0000)
EndIF
end sub


sub ProDrop(T,C)
UO.FindType(T,C,'backpack') 
Var b = UO.GetSerial("finditem")
UO.FindType(T,C,'ground') 
Var g = UO.GetSerial("finditem")
UO.MoveItem(b, "0", g,str(uo.getx(g)),str(uo.gety(g)),"0")
Wait(500)
If Uo.Count(T,C) > 0 Then 
Clear(T,C)
endIF
end sub


изменилось тока то, 4то когда он с полным покетом приходит выкидывать оры, он тока выделеные оры выкидывает на пол и уходит. Совсем не то 4то надо
Top
Cat
Posts: 28
Joined: 2004-06-17 14:59:15
Location: Екатеринбург

Post by Cat »

Purgen wrote:сломал моск :shock:

Хо4у сделать 4то бы Бот когда копал, все оры которые бы падали в бэкпак, ниже мифрила, сразу улетали на пол, а оставались и относил бы он, тока нужные оры
Top
Purgen
Posts: 187
Joined: 2005-04-04 18:23:12

Post by Purgen »

вечером до УО доберусь - напишу (если не забуду)
Top
Cat
Posts: 28
Joined: 2004-06-17 14:59:15
Location: Екатеринбург

Post by Cat »

Purgen wrote:вечером до УО доберусь - напишу (если не забуду)

подождемс :D
Top
Post Reply

Return to “Scripting Ore”