| Yoko http://forum.yoko.com.ua/ |
|
| pomogite dopisat please http://forum.yoko.com.ua/viewtopic.php?f=20&t=3961 |
Page 1 of 1 |
| Author: | Admeral [ 2005-05-09 19:34:43 ] |
| Post subject: | pomogite dopisat please |
imeyetsa vot takoy skript pisal ne ya: sub tinker() VAR Sunduk = '0x401F8A68' VAR Ingi = '0x1BEF' VAR Instrum = '0x1EBC' VAR Bottle = '0x14FB' VAR Kolvo = 200 VAR k = 0 While TRUE UO.FindType( Ingi, -1, Sunduk ) If UO.FindCount() == 0 Then UO.Print("Iron Ingots not found, script terminated") return Endif UO.Grab( Str( Kolvo ), 'finditem' ) wait( 2000 ) While UO.Count( Ingi ) > 0 UO.Print('Ostalos ' + Str( UO.Count( Ingi ) ) + ' ingots' ) UO.DeleteJournal() UO.CancelMenu() UO.WaitMenu ('Tinkering', 'Tools', 'Tools', 'lockpick' ) UO.UseType( Instrum ) k = 0 while NOT UO.InJournal('You put') AND NOT UO.InJournal('fail') AND ( k < 30 ) k = k + 1 wait(500) wend Wend Wend end sub pomogite please dopisat tak shtobi on bral otmi4ki ili nevazhno shto iz backpak i skladival v mesho4ek v hause seyfe na drw!!! |
|
| Page 1 of 1 | All times are UTC+02:00 |
| Powered by phpBB® Forum Software © phpBB Limited https://www.phpbb.com/ |
|