| Yoko http://forum.yoko.com.ua/ |
|
| unneeded ore drop. http://forum.yoko.com.ua/viewtopic.php?f=17&t=14389 |
Page 1 of 1 |
| Author: | Ever1x [ 2009-02-09 18:57:10 ] |
| Post subject: | unneeded ore drop. |
I want script that will drop unneeded ores. when i run script, if he finds iron cooper or bronze he drops it. sub dropore() var iron ='type,colour' var cooper ='type,colour' var bronze ='type,colour' ; ??? right ..... |
|
| Author: | Kynep [ 2009-02-09 19:15:14 ] |
| Post subject: | Re: unneeded ore drop. |
Ever1x wrote: I want script that will drop unneeded ores.
when i run script, if he finds iron cooper or bronze he drops it. ??? right ..... No, here is algorytm, next think your self: Code: sub dropore() |
|
| Author: | Kynep [ 2009-02-09 20:42:31 ] |
| Post subject: | |
I make some mistake, sorry |
|
| Author: | Ever1x [ 2009-02-09 20:51:11 ] |
| Post subject: | |
you only changed types and colors? Quote: sub mine()
UO.DeleteJournal() var x, y, i, tmp, inside, moveX, moveY, st, first st=0 first=UO.GetX() start: inside=0 for y=-2 to 2 for x=-2 to 2 try: UO.Exec ("waittargettile "+" 1340 "+STR(UO.GEtX()+x)+" "+STR(UO.GetY()+y)+" 0") UO.exec ("usetype 0x0E85") #UO.Print (""+STR(x)) #UO.Print (""+STR(y)) i=0 while i< 100 if UO.InJournal("You loosen some rocks but fail to find any useable ore") then wait (300) i=200 UO.DeleteJournal() goto try endif if UO.InJournal("Try mining elsewhere") then i=200 UO.DeleteJournal() endif if UO.InJournal("You must wait to perform another action") then wait (300) i=200 UO.DeleteJournal() goto try endif if uo.InJournal("till")then uo.playwav("C:\WINDOWS\Media\ringin.wav") gumpclick() wait(300) i=200 UO.DeleteJournal() goto try endif if uo.InJournal("Elemental") or uo.InJournal("is attacking you")then uo.playwav("C:\WINDOWS\Media\ringin.wav") killelem() uo.useobject("sword") i=200 UO.DeleteJournal() goto try endif if UO.InJournal("There is nothing here to mine for") then wait (200) i=200 UO.DeleteJournal() endif if UO.InJournal("You have no line of sight to that location") then wait (300) i=200 UO.DeleteJournal() endif wait (500) ;UO.FindType(0x19B9, 0x06D6, 2) ;UO.Drop('0',STR(UO.GetX('self')),STR(UO.GetY('self')),STR(UO.GetZ('self')),'finditem') i=i+1 wend next next if st == 0 then no_ore() uo.print("!! RUDA ZAKONCHILAS !!") endif endsub What does these things mean? |
|
| Author: | Kynep [ 2009-02-09 21:46:26 ] |
| Post subject: | |
Ever1x wrote: you only changed types and colors?
No. I add new for-next cicle. Fist script not work corectly. |
|
| Author: | Ever1x [ 2009-02-09 22:25:57 ] |
| Post subject: | |
what does i mean? I can't get it. |
|
| Page 1 of 1 | All times are UTC+02:00 |
| Powered by phpBB® Forum Software © phpBB Limited https://www.phpbb.com/ |
|