Search found 11 matches

by Ooze
2011-06-16 08:55:29
Forum: Scripting Ore
Topic: То, что ищут многие...
Replies: 222
Views: 263258

Re: То, что ищут многие...

Если правильно понял то это

If Char<>0 Then
UO&#46;SetArm('CWeapon')
UO&#46;WaitTargetObject(Char)
UO&#46;UseType('0x0E21')
UO&#46;Print("?anno?aeo!!!")
wait(500)
UO&#46;Exec("bandageself")
wait(500)
UO&#46;Arm('CWeapon')
Else


надо заменить на это

If Char<>0 Then
UO&#46;SetArm ...
by Ooze
2011-06-16 08:04:25
Forum: Scripting Ore
Topic: То, что ищут многие...
Replies: 222
Views: 263258

Re: То, что ищут многие...

sub resurct()
var tBandage = '0x0E21'
if UO&#46;Count(tBandage) < 20 then
UO&#46;Print("HE4EM PECATb")
return
end if
VAR i,k,CharX,CharY,MyX,MyY,Char
DIM Player&#91;8&#93;

Player&#91;0&#93;='0x0011325C' ;SVOLOCH(P)
Player&#91;1&#93;='0x0005A98F' ;KadP(P)
Player&#91;2&#93;='0x0010023D ...
by Ooze
2011-05-23 14:03:08
Forum: Scripting Ore
Topic: Поправьте пожаста скрипт на варку
Replies: 6
Views: 1764

Re: Поправьте пожаста скрипт на варку

получилось проверить, все супер как хотелось, спс огромное
by Ooze
2011-05-23 13:29:53
Forum: Scripting Ore
Topic: Поправьте пожаста скрипт на варку
Replies: 6
Views: 1764

Re: Поправьте пожаста скрипт на варку

он работал просто не брал ничего( потом проверю, курсовая выиграла по статусу важности)) а про точку с запятой, у меня не через нее, не через решотку ничего не работает, пока полностью текст не убереш
by Ooze
2011-05-22 21:21:05
Forum: Scripting Ore
Topic: Поправьте пожаста скрипт на варку
Replies: 6
Views: 1764

Re: Поправьте пожаста скрипт на варку

Mirage wrote:uo.findtype(kegg,'-1','0x779B2DFB') - 1

Что за запись?
Где комментирование строки? :roll:

я не разбираюсь в этом, знал бы сам подумал))
а что там должно быть?
нашел в инете с комментированием тока этих строк
by Ooze
2011-05-22 20:50:47
Forum: Scripting Ore
Topic: Поправьте пожаста скрипт на варку
Replies: 6
Views: 1764

Поправьте пожаста скрипт на варку


sub main()
var kegg="0x1940"
var text="Charges now&#58; &#91;25/ 75&#93;"

repeat
if uo&#46;count(kegg)<1 then
uo&#46;findtype(kegg,'-1','0x779B2DFB') - 1
uo&#46;moveitem('finditem',1,'backpack')
endif
wait(500)
if UO&#46;Count('0x0F87')<1 then
UO&#46;FindType('0x0F87',-1,'0x779B2DFB ...
by Ooze
2011-05-13 17:51:26
Forum: I need script!
Topic: Помогите с макросом на БС
Replies: 0
Views: 3244

Помогите с макросом на БС

нигде не нашел макроса на постояный крафт Platemail legs что бы инги с пола юзал и для второга чара который с пола переплавляет эти штаны, помогите пожаста =(
by Ooze
2011-05-05 06:55:40
Forum: Scripting Ore
Topic: допишите пожаста мининг
Replies: 3
Views: 1617

Re: допишите пожаста мининг

Mirage wrote:В твоем случае достаточно в основной скрипт добавить такой кусок

Code: Select all

sub infinity()
   repeat
     min()
   until uo.dead()
endsub


Спасибо, попробую щас вставлять это и пробывать с какой строны работает
by Ooze
2011-05-04 06:03:47
Forum: Scripting Ore
Topic: допишите пожаста мининг
Replies: 3
Views: 1617

допишите пожаста мининг

А точнее доработать что бы все тоже самое только нон стопом капал пока сам скрипт не остановиш
sub min()
VAR Kirka = '0x0e85'
VAR MaxVes = 1100
VAR TileNum = '1339'
VAR x, y, t, k
VAR MaxTime = 100
VAR ms1 = "There is not of mine"
VAR ms2 = "You can't use"
VAR ms3 = "You put the"
VAR ms4 = "You ...
by Ooze
2011-05-03 12:20:40
Forum: I need script!
Topic: Помогите найти проблему в макросе на пойзон
Replies: 2
Views: 1616

Re: Помогите найти проблему в макросе на пойзон

Grin wrote:

Code: Select all

UO.UseSkill('Poisoning')
UO.WaitTargetType('0x0F0A')
wait(350)
UO.WaitTargetType('0x0F3F')

Code: Select all

UO.WaitTargetObject('^0x0F0A', '^0x0F3F')
UO.UseSkill('Poisoning')

это надо заменить? Спасибо, заменил часть и вроде не появляется
by Ooze
2011-05-03 10:56:57
Forum: I need script!
Topic: Помогите найти проблему в макросе на пойзон
Replies: 2
Views: 1616

Помогите найти проблему в макросе на пойзон

sub pois()
While 1==1
UO&#46;CancelMenu()
UO&#46;AutoMenu( 'Select a potion to make', 'Lesser Poison' ) # выбираешь тип тотлов
wait(1000)
repeat
if UO&#46;Count('0x0F88')==0 then
UO&#46;FindType('0x0F88',-1,'ground') поиск найтшайда
UO&#46;Grab('1','finditem') берем найтшайд в пак
wait(500 ...