|
Post by bojangles on Jul 5, 2013 9:59:17 GMT
Just chasing a simple mining script please! Cheers
|
|
|
Post by Manticore on Jul 8, 2013 3:22:07 GMT
Hmm, how simple?
|
|
|
Post by Manticore on Jul 8, 2013 8:04:53 GMT
sub maning() var mx, my, mz, i, j, jor, ser, noto Uo.exec("set norbcheck 1"); uo.exec("set norbcalc 1");
uo.exec('addobject Shovel') while uo.targeting() wait(100) wend uo.exec('addobject Runebook') while uo.targeting() wait(100) wend
na4alo: mx = UO.GetX("self") my = UO.GetY("self") mz = UO.GetZ("self") UO.DeleteJournal() for i = mx-4 to mx+4 for j = my -4 to my+4 while not UO.Hidden() UO.Warmode("0") uo.print("Hiding...") UO.UseSkill("Hiding") wait(4000) wend UO.Print("Details: "+str(mx-i)+" "+str(my-j)) while not UO.InJournal("no ore here") and not UO.InJournal("location") and not UO.InJournal("far away") and not UO.InJournal("in rock") and not UO.InJournal("Iron Ore") and not UO.InJournal("Copper") and not UO.InJournal("Rusty Ore") UO.DeleteJournal() if uo.waiting() then uo.canceltarget() endif UO.Waittargettile("1341", str(i), str(j), str(mz)) UO.Useobject("Shovel") while not UO.InJournal("You put") and not UO.InJournal("heavy") and not UO.InJournal("location") and not UO.InJournal("no ore") and not UO.InJournal("but fail") and not UO.InJournal("far away") and not UO.InJournal("in rock") wait (500) if uo.injournal("heavy") or uo.dead() then pwav() Pause() endif for jor = 0 to 9 ser = uo.journalserial(jor) noto = uo.getnotoriety(ser) if noto <> 1 and noto <> 0 and not uo.injournal("elemental") then if uo.waiting() then uo.canceltarget() endif Save() pwavw() wait(180000) loot() wait(3000) goto reccal endif next wend if uo.weight > 625 then goto end endif wend UO.DeleteJournal() next next goto na4alo end: if uo.waiting() then uo.canceltarget() endif uo.exec("recall Runebook 21") wait(10000) loot() wait(3000) reccal: uo.deletejournal() if uo.waiting() then uo.canceltarget() endif uo.exec("recall Runebook 94") mx = UO.GetX("self") my = UO.GetY("self") wait(10000) if not UO.GetX("self") <> mx and not UO.GetY("self") <> my then goto reccal endif goto na4alo end sub
sub loot() if uo.waiting() then uo.canceltarget() endif VAR a,Exit VAR UnloadCont='0x40041342' DIM Ore[5] Ore[0]=0x19B9 ; 4 and more ore Ore[1]=0x19B7 ; 1 ore Ore[2]=0x19BA ; 2 ore Ore[3]=0x19B8 ; 3 ore UO.SetReceivingContainer(UnloadCont) wait(500) For a=0 to 3 Exit=0 repeat UO.FindType(Ore[a]) if UO.GetQuantity('finditem')>0 then UO.Grab('0','finditem') wait(1500) Else Exit=1 endif until Exit==1 Next UO.UnSetReceivingContainer() end sub
sub Save() var mx, my reccal: uo.deletejournal() if uo.waiting() then uo.canceltarget() endif mx = UO.GetX("self") my = UO.GetY("self") UO.DeleteJournal() UO.FindType('0x1F14',-1,'my') wait(200) UO.Cast('Recall','finditem') wait(4000) if not UO.GetX("self") <> mx and not UO.GetY("self") <> my then goto reccal endif end sub
sub pwav() uo.playwav("E:\UO\inject\SOUND\chanting sound 01.wav") endsub
sub pwavw() uo.playwav("E:\UO\inject\SOUND\chanting sound 01.wav") endsub
sub Pause() UO.DeleteJournal() REPEAT WAIT(3000)
UNTIL UO.InJournal('GO')
endif end sub
|
|
|
Post by Manticore on Jul 8, 2013 8:13:55 GMT
OR
sub main() var startX = UO.GetX() var startY = UO.GetY() var counter var currY = 0 var xLength = 12 var yLength = 4
UO.Set("quiet", "1") #UO.Set("quiet", "0")
While TRUE dropMaps() moveTo(startX, startY + currY) For counter = 0 To xLength-1 UO.Press(34) mine() Next currY = currY + 1 moveTo(startX + xLength-1, startY + currY) For counter = 0 To xLength-1 UO.Press(36) mine() Next currY = currY + 1 If currY > yLength - 1 Then moveTo(startX, startY) currY = 0 EndIf Wend end sub
sub mine() var time, g, x, y x = UO.GetX() y = UO.GetY() UO.DeleteJournal() For g = 1339 to 1360 If UO.PrivateGetTile(x, y, 0 , g, g) Then #UO.WaitTargetTile(g, x, y, 0) goto ContinueToMine End If Next ContinueToMine: #UO.Print("Graphic is " + STR(g))
UO.Usetype(0x0F39) wait(1000) UO.Press(115) time = 0 Repeat Wait(50) time = time + 50 Until UO.InJournal("Select a") || time > 5000 time = 0 Repeat Wait(200) time = time + 200 Until UO.InJournal("no more|dig anything|You stop|tool|see that") || time > 10000 If UO.InJournal("no ore|dig anything") Then wait(1000) End If If UO.Stamina < 10 Then UO.Usetype(0x097D) While UO.Stamina < 10 UO.Print("Stamina too low, waiting...") Wait(1000) Wend End if UO.DeleteJournal() end sub
sub moveTo(x,y) var deltaX var deltaY While NOT UO.GetX() == x || NOT UO.GetY() == y deltaX = x - UO.GetX() deltaY = y - UO.GetY() UO.Print(str(deltaX)) UO.Print(str(deltaY)) If deltaX < 0 Then deltaX = deltaX * -1 End If If deltaY < 0 Then deltaY = deltaY * -1 End If If UO.GetX() > x Then keyPress(36, deltaX) Else If UO.GetX() < x Then keyPress(34, deltaX) Else If UO.GetY() > y Then keyPress(33, deltaY) Else If UO.GetY() < y Then keyPress(35, deltaY) EndIf EndIf EndIf EndIf Wait(1000) Wend end sub
sub keyPress(key, amount) var i UO.Press(40) For i = 0 To amount UO.Press(key) Wait(300) Next end sub
sub smelt() Repeat UO.FindType(0x19B9, -1, 'my') UO.UseType(0x19B9) Wait(500) Until UO.FindCount() == 0 end sub
sub dropMaps() UO.FindType(0x14ED, -1, 'my') While UO.FindCount() > 0 UO.MoveItem('finditem','0','ground') Wait(100) UO.FindType(0x14ED, -1, 'my') Wend end sub
|
|
|
Post by EllPeedia on Oct 21, 2019 12:44:50 GMT
Ed Pills Propecia Generico Bologna <a href=http://cheapciali.com>online pharmacy</a> Does Amoxicillin Cause Headaches
|
|
|
Post by LesCredia on Oct 28, 2019 15:06:29 GMT
Forum Levitra Generico <a href=http://cialusa.com>cialis price</a> Levitra 10 Mg Generic
|
|
|
Post by Deannaromia on Jan 24, 2020 18:47:58 GMT
Onto can also be donn‚e in board arrow or <a href=http://prescriptioncial.com/>generic cialis without a prescription</a> sopped enzyme interestingly
|
|
|
Post by Deannaromia on Jan 24, 2020 19:58:41 GMT
Heredity Mind Such It Bands Differing and How to Peter out It <a href=http://prescriptioncial.com/>cheapest cialis no prescription</a> which can be done by rating your inguinal solitaire jut
|
|
|
Post by JalevalovRer on Mar 4, 2020 8:03:55 GMT
XRumer... This software product will help you in the shortest possible time to increase traffic to your site hundreds, thousands of times. The system was developed for several years, during the creation of the experience of professional optimizers for search engines was used. Both professionals and beginners will be able to evaluate and use the truly unique and powerful features of the XRumer program. When using, not only the direct influx of visitors sharply increases - in addition, the positions of your site in search engines significantly increase up to the leading positions. Evaluate and use the truly unique and powerful features of the program ... For Xrumer Acquisition Issues - bit.ly/2KDtGl7 In the course of its work, the XRumer program is able to recognize captcha by automatically downloading the picture and decrypting it. As practice has shown, decoding this type of captcha takes no more than 1-1.5 seconds, and usually even less on a computer with a processor with an operating frequency of 1 GHz. Traffic on this takes quite a bit, because such pictures "weigh" no more than 3-5 Kb. For Xrumer Acquisition Issues - bit.ly/2lgBzxz <a href=https://www.etrafficsurge.com/index.php?main_page=shopping_cart&zenid=b75ad6118c3db74a19911b71a3a270b6>XRumer</a> <a href=http://cabinete-doctori.ro/50-cabinete-si-clinici-medicale-timis/728-centrul-medical-dr-aljobory-timisoara>XRumer</a> <a href=http://www.ahrartextiles.com/products.php?product=Bath-Robes#reviews>Captcha Recognition</a> 434_55c
|
|
|
Post by ghjuvHic on Mar 10, 2020 20:30:02 GMT
viagra 100mg viagra generic <a href="https://pharm-usa-official.com/#">buy viagra </a> generic viagra buy viagra bh88апрпhfa viagra online buy viagra <a href=https://pharm-usa-official.com/#>viagra pills </a> buy viagra viagra online
|
|
|
Post by fzmceHic on Mar 18, 2020 14:03:00 GMT
viagra pills generic viagra <a href="http://autoshed.ru/ #">buy viagra </a> buy viagra generic viagra ufiouas0209sss viagra generic cheap viagra <a href=http://la2balance.ru/>viagra generic </a> generic viagra viagra pills
|
|
|
Post by qlusoHic on Mar 19, 2020 8:26:37 GMT
buy viagra viagra online <a href="http://tivoli-co.ru/ #">viagra generic </a> buy viagra generic viagra viagra online buy viagra <a href=http://nailray.ru/>viagra buy </a> viagra pills viagra pills
|
|
|
Post by AcedeAcible on Jul 15, 2020 7:14:00 GMT
credit karma canada creditscorewww.com/ free annual credit report <a href="http://creditscorewww.com/ ">boost credit score </a> anual credit report
|
|
|
Post by AcedeAcible on Jul 15, 2020 13:06:50 GMT
|
|
|
Post by AcedeAcible on Jul 16, 2020 0:00:41 GMT
social credit score creditscorewww.com/ credit scores <a href="http://creditscorewww.com/ ">check your credit report </a> credit karma canada
|
|