Мининг Опции

[Spirit4]

Люди подкиньте скрипт на инжу, чтоб чар сам ходил копал, ресался если убью и в дом руду относил !

[*Poison*]

хе хе (IMG:style_emoticons/default/smile.gif) такое денег стоит (IMG:style_emoticons/default/smile.gif) За просто так тебе врятли такой макрос выложат

[SysError]

какие же вы все жадные.....

[*Poison*]

Ну ты не жадный-выложи...

[SysError]

и не жалко

неплохой скрипт, щас сам копаю руду им


sub coords()
UO.DeleteJournal()
var x, y, i, tmp, msg
start:
for y= -2 to 2
for x=-2 to 2
tmp:
UO.Exec ("waittargettile "+" 1343 "+STR(UO.GEtx()+x)+" "+STR(UO.GetY()+y)+" 0")
UO.exec ("usetype 0x0E85")
i=0
msg = UO.Weight

while i< 50

if UO.InJournal("There is no ore here to mine.") then
i=200
UO.DeleteJournal()
endif

wait(500)
if UO.InJournal("You loosen some rocks but fail to find any useable ore.") then
i=200
UO.DeleteJournal()
endif

if UO.InJournal("You must wait to perform another action") then
i=200
UO.DeleteJournal()
goto tmp
endif

wait(500)
if UO.Weight <> msg then
msg = 0
goto tmp
endif
wend

next
next
goto start
end sub

sub main()
coords()

[SysError]

вот ещё, ловите, юзайте на здоровье! :wink:

sub main()
var k
var j
var i
var x = 401 # координата чара X
var y = 267 # координата чара Y

While True
i = 1
for k = -4 to 4
for j = -4 to 4
hide()
UO.Print("Kletka "+str(i))
CheckLag()
mine(x,y,k,j)
i = i + 1
Next
Next
wend
end sub

sub CheckLag()
UO.DeleteJournal()
UO.Click('backpack')
repeat
wait(100)
until UO.InJournal('backpack')
UO.DeleteJournal()
end sub

sub mine(x,y,k,j)
var maxtime = 10000
var time
time = 0
CheckLag()
UO.Waittargettile('1339',str(x + k),str(y + j),'0')
UO.UseType('0x0E85')
wait(500)
Repeat
time=time+200
wait(200)
Until (Uo.InJournal("pack") or UO.InJournal ("mine") or UO.InJournal ("away") or UO.InJournal ("location") or Uo.InJournal("loosen") or Uo.InJournal("OOPS") or Uo.InJournal("stop") or UO.InJournal("heavy") or time>maxtime)
check(x,y,k,j)
end sub

sub check(x,y,k,j)
if UO.InJournal("pack") then
mine(x,y,k,j)
endif
if UO.InJournal("heavy") then
mine(x,y,k,j)
endif
if UO.InJournal ("loosen") then
wait(10000)
UO.DeleteJournal()
UO.Print("Repeat Tile")
mine(x,y,k,j)
endif
if UO.InJournal ("stop") then
While not UO.Injournal ('go')
wait (10000)
wend
endif
end sub

sub hide()
while NOT UO.Hidden()
UO.DeleteJournal()
UO.Warmode('0')
wait(200)
UO.UseSkill('Hiding')
repeat
wait(100)
until UO.InJournal('You have hidden') OR UO.InJournal('seem to hide')
wend
wait(100)
end sub

[SysError]

а вот и плавка самой руды )))) (IMG:style_emoticons/default/biggrin.gif)

sub main()
Ruda1:
IF UO.Life >= UO.STR THEN
uo.exec("findtype 0x19B9 -1 ground")
uo.exec("grab 10 finditem")
wait(1000)
uo.exec("usetype 0x19B9")
Wait(1000)
ENDIF
IF UO.Weight > 400 THEN
uo.exec("findtype 0x1bef")
uo.exec("waittargettype 0x1bef lastobject")
uo.exec("drop -1 -1 0 0 ")
ENDIF
goto Ruda1

[Nimbus]

Добрый человек. =)

[Fire Falcon]

ну не знаю как вы а я вот юзаю вот такой скрипт....
sub kopka()
while uo.life >0
uo.waittargetself()
uo.usetype("0x0E85")
wait(8000)
wend
end sub
вот такой простой ) хотя это по майнингу на нашем шарде где на клетке разные руды бывают (IMG:style_emoticons/default/wink.gif)

Код

##############################################################

#                        Mining script                       #

#                         by LorguS.                         #

##############################################################



Sub Main() 

UO.DeleteJournal() 

UO.Exec('exec BeginMiningcommon') 

wait (100)

UO.Exec('exec Alarm')

wait (100)

UO.Exec('exec bondage')

wait (100)

UO.Exec('exec healbottle')

wait (100)

UO.Exec('exec part')

wait (100)

UO.Exec('exec autoguard')

wait (100)

UO.Exec('exec Reconnector')

wait (100)

UO.Exec('exec healfish')

EndSub 



sub DropDownOre(color)

UO.Print("Dropping down junk ore...")

wait(100)

   UO.FindType("TVJ",color)

if UO.FindCount()>0 then

   UO.Drop("0","0","0","finditem")

   endif

   UO.FindType("GWJ",color)

if UO.FindCount()>0 then

   UO.Drop("0","0","0","0","finditem")

   endif

   UO.FindType("EWJ",color)

if UO.FindCount()>0 then

   UO.Drop("0","0","0","0","finditem")

   endif

   UO.FindType("DWJ",color)

if UO.FindCount()>0 then

   UO.Drop("0","0","0","0","finditem")

   endif

wait(100)   

end sub



sub GrabTreasurePiese(TrType)

var i

      UO.findtype(TrType,"-1","ground")

      if uo.findcount()>0 then

       for i=1 to uo.findcount()

          UO.grab("0", "~"+TrType)

          wait(400)

          UO.usetype(TrType)

          wait(350)

       next

      endif 

end sub



sub GrabTreasureOne()

   var i

   UO.set("finddistance","3")

   DropDownOre("0x0000")

   wait(200)

   DropDownOre("0x0944")

   wait(200)

   DropDownOre("0x06D6")

   wait(200)

   DropDownOre("0x03DA")

   wait(200)

   GrabTreasurePiese("QGK")

   GrabTreasurePiese("EGK")

   GrabTreasurePiese("DGK")

   GrabTreasurePiese("IGK")

   GrabTreasurePiese("HGK")

   GrabTreasurePiese("JGK")

   GrabTreasurePiese("GGK")

   GrabTreasurePiese("VKK")

   GrabTreasurePiese("KGK")

   GrabTreasurePiese("FGK")

      UO.findtype("DWJ","0x0944","ground")

      if uo.findcount()>0 then

       for i=1 to uo.findcount()

          UO.grab("0", "finditem")

          wait(400)

       next   

      endif  

      UO.findtype("DWJ","0x06D6","ground")

      if uo.findcount()>0 then

       for i=1 to uo.findcount()

          UO.grab("0", "finditem")

          wait(400)

       next   

      endif 

      UO.findtype("DWJ","0x03DA","ground")

      if uo.findcount()>0 then

       for i=1 to uo.findcount()

          UO.grab("0", "finditem")

          wait(400)

       next   

      endif       

   wait(2000)

endsub



sub MiningOne(x,y)

var index=0

var finished=0



wait(100)

UO.DeleteJournal()

UO.exec("waittargettile tile " + str(UO.GetX() + x) + " " + str(UO.gety() + y) + " " + str(UO.GetZ()))

UO.SetGlobal("Errors","2")

UO.findtype("NPF")

if UO.FindCount()>0 then

   UO.UseObject("finditem")

   UO.SetGlobal("Errors","0")

   end if

UO.FindType("TWF")

if UO.FindCount()>0 then

   UO.UseObject("finditem")

   UO.SetGlobal("Errors","0")

   end if

wait(500)

while (index<=80) and (not (finished))

   if UO.InJournal("You put") then

      finished=1

      wait(200)

      end if

   if UO.InJournal("useable ore.") then 

      index=80

      UO.SetGlobal("NextCell","0")

      wait(200)

      end if      

   if UO.InJournal("distribe") or UO.InJournal("Try mining") or UO.InJournal("reach") or UO.InJournal("no ore") then 

      index=80

      UO.SetGlobal("NextCell","1")

      wait(200)

      end if

   if UO.InJournal("treasure") then

      UO.Print("I found treasure!!!")

      GrabTreasureOne()   

      index=80

      UO.SetGlobal("NextCell","1")

      end if   

   if UO.InJournal("too heavy") and (not (UO.InJournal("Some")))then

      RecallForMining()

      index=80

      UO.SetGlobal("Errors","1")

      end if      

   if UO.InJournal("You put the Some with ore at your feet.") and UO.InJournal("Elemental") then 

      index=80

      UO.SetGlobal("NextCell","1")

      wait(300)

      uo.say("Guards")

      end if 

   if (uo.countground(0x0F0D)>0) then          

            while (uo.countground(0x0F0D)>0)

uo.findtype(0x0F0D,-1,1)

             uo.grab(0,'finditem')

             wait(300)

wend

          endif



index=index+1

wait(100)

wend      

 if finished==1 and UO.GetGlobal("RareOre")=="2" then

      UO.SetGlobal("NextCell","0")

      if UO.InJournal("Iron Ore") then

       # DropDownOre("0x0000")

         UO.SetGlobal("NextCell","0")

         end if

      if UO.InJournal("Rusty Ore") then

         DropDownOre("0x0750")

         UO.SetGlobal("NextCell","1")

         end if

      if UO.InJournal("Dull Copper Ore") then

         DropDownOre("0x060A")

         UO.SetGlobal("NextCell","1")

         end if

      if UO.InJournal("Old Copper Ore") then

         DropDownOre("0x0590")

         UO.SetGlobal("NextCell","0")

         end if

      if UO.InJournal("Copper Ore") then

         DropDownOre("0x04BB")

         UO.SetGlobal("NextCell","1")

         end if

      end if

 if finished==1 and UO.GetGlobal("RareOre")=="1" then

      if UO.InJournal("Iron Ore") then

               UO.SetGlobal("NextCell","0")

         end if

      if UO.InJournal("Rusty Ore") then

               UO.SetGlobal("NextCell","0")

         end if

      if UO.InJournal("Dull Copper Ore") then

               UO.SetGlobal("NextCell","0")

         end if

      if UO.InJournal("Old Copper Ore") then

               UO.SetGlobal("NextCell","0")

         end if

      if UO.InJournal("Copper Ore") then

               UO.SetGlobal("NextCell","0")

         end if

         if UO.InJournal(" attacking you") then 

UO.Say("Guards")

wait(1500)

endif 

      end if      

end sub



sub PerformMiningProcess()

var x=-3

var y=-3

UO.SetGlobal("Errors","0")

wait(100)

while ((x+y)<=6) and (UO.GetGlobal("Errors")=="0")

UO.Print("Digging: x = "+str(x)+"   y = "+str(y))

MiningOne(x,y)

if UO.GetGlobal("NextCell")=="1" then

   wait(100)

   if x<3 then

      x=x+1

      else

   if y<3 then

      y=y+1

      x=-3

      end if

   if y==3 then

      y=y+1

      end if

    end if  

   end if

wait(100)   

wend

     #if UO.GetGlobal("Errors")=="2" then

     #Message("Maybe you shoul find some tools to dig?")

     #end if

   if UO.GetGlobal("Errors")=="3" then

      end if

   if (UO.GetGlobal("Errors")=="0") or (UO.GetGlobal("Error")=="1") then

   UO.Print("Successfuly finished mining here.")

   UO.Print("=================================")

   UO.Print("Thank You for using Mining script")

   UO.Print("           by LorguS          ")

   UO.Print("=================================")

   end if

   UO.Press(39)

   wait(300)

   UO.Press(39)

   wait(300)

   UO.Press(39)

   wait(300)

   UO.Press(39)

        wait(700)

        BeginMiningcommon()

end sub   



sub BeginMiningCommon()

UO.SetGlobal("RareOre","1")

PerformMiningProcess()

end sub



sub BeginMiningRares()

UO.SetGlobal("RareOre","2")

PerformMiningProcess() 

end sub





end sub



#############################################################

#                      Recall script 

#############################################################



sub RecallForMining() 

var i     

      uo.recall("0x41B21B89","14") 

      for i = 1 to 4 

      wait (10000)

      uo.findtype(uo.int2hex(6582+i)) 

      while uo.findcount() > 0 

        uo.MoveItem("finditem","-1","0x4028FF20") 

        wait(3000) 

        uo.findtype(uo.int2hex(6582+i)) 

      wend 

    next 

    meditate() 

    wait(4000)

    uo.recall("0x41B21B89","5") 

    wait(10000)

    BeginMiningcommon()

end sub

##########################################################

#                     AutoBondage script

##########################################################

sub bondage()

var myarm

  while (1)

     if (UO.Str-UO.Life)>10 then

       #UO.exec("waittargetself")

       UO.exec("bandageself")

       wait(500)

       wait(4100)

     endif

   wait(500)

   wend

end sub



#############################################################

#         AutoHeal potion

#############################################################



sub healbottle()

   while true

   if (UO.str-UO.life)>100 then

   UO.usetype("0x0F0C");

   wait(5000)

   endif

   wait(3000)

   wend

end sub



#############################################################

#                        Alarm sript

#############################################################

#============================================================== 

#  Gong(counter) - playing wav-file 'counter'-times 

#-------------------------------------------------------------- 

sub Gong(times); play wav-file 

   VAR i 

   for i=1 to times 

      UO.Exec("playwav d:injectionringin") 

      wait(1200); time to play sample at once 

   next 

end sub 





#============================================================== 

#  Alarm() - when char lose some HP, U are informed :) 

#-------------------------------------------------------------- 

sub Alarm() 

   VAR CharHP=50

   while 1==1 

      wait(1000) 

      if UO.Life<CharHP then 

         gong(1) 

      endif       

   wend 

end sub 



#############################################################

#        AutoGuard Script

#############################################################



sub autoguard()

   while true

   if (UO.str-UO.life)>10 then

   UO.msg("Guards");

   wait(5000)

   endif

   wait(1000)

   wend

end sub



#############################################################

#    Meditate script

#############################################################



sub Meditate()

   while true

     UO.DeleteJournal()

     while (UO.mana<UO.int) and (not UO.InJournal("You must wait to perform another action"))   

       UO.UseSkill("Meditation")

       wait(5000)

     wend

end sub



#############################################################

#      Reconnector script

#############################################################



sub Reconnector() 

   var ReconnectTime, RFlag 

   ReconnectTime = '0' 

   RFlag = 1 

   Repeat 

         While (UO.ObjAtLayer('Bpack') == '') 

               if RFlag Then 

                  ReconnectTime = MakeTime() 

                  RFlag = 0 

               endif 

               Wait(20000) # WorldSave Protection 

               UO.Say('') 

               Wait(3000) 

               UO.Say('') 

               Wait(3000) 

               UO.Say('') 

               Wait(3000) 

               UO.LDblClick(357,164) 

               UO.LClick(616,459) 

               Wait(3000)        

         WEnd 

         Wait(3000) 

         if (RFlag == 0) and (ReconnectTime <> '0') Then 

            UO.TextOpen() 

            UO.TextPrint('Disconnected & Reconnected @ '+ReconnectTime) 

            RFlag = 1 

            ReconnectTime = '0' 

         endif 

   Until false 

end sub 



sub MakeTime() 

  VAR D, T, Ret, i 

  Ret = STR(UO.Time()) 

  T = "" 

  For i = 0 To Len(Ret) 

      T = Ret[Len(Ret)-i] + T 

      If (I == 2) OR (I == 4) Then 

         T = ":" + T 

      EndIf 

  Next 

  Ret = STR(UO.Date()) 

  D = "" 

  For i = 0 To Len(Ret) 

      D = Ret[Len(Ret)-i] + D 

      If (I == 2) OR (I == 4) Then 

         D = "." + D 

      EndIf 

  Next 

  Ret = T + " @ " + D 

  RETURN Ret 

end sub 



#############################################################

#  AutoParticl

#############################################################



sub part()

   while true

   if (UO.str-UO.life)>50 then

   UO.usetype("0x0F09");

   wait(5000)

   endif

   wait(3000)

   wend

end sub



#############################################################

#  AutoUse Heal Fish

#############################################################

sub healfish()

   while true

   if (UO.str-UO.life)>150 then

   UO.usetype("0x0DD6","0x0798");

   wait(5000)

   endif

   wait(3000)

   wend

end sub

в придачу так сказать)
юзайте на злровье коменты писать влом)) скрипт двух режимный ))
и щас настроен под шард руо....там руды менять надо еси хотите....вообщем пользуйтесь)

[Steiner]

А коментарии написать можешь если не сложно а то я в Инже не чего не писал пожалуста если не сложно напиши