Yoko

Posted: **2005-01-10 02:53:05**

Замучился с командой...
чтобы тыкать по определенной ккординате на экране
X=65535 Y=65535 Z=0

Posted: **2005-01-10 08:35:40**

подскажите как правильно прописать клик по координате на экране...

тоесть чтобы тыкал всегда роно в пяти тайлах левее чара..

Posted: **2005-01-10 13:13:45**

В инжекте нет инструментов для работы с экранными координатами. Насколько я понял ты хочешь таким образом реализовать хождение? Ничего не получится.

Posted: **2005-01-10 14:31:03**

нет, ты ошибся...
таким образом я хотел реализовать скрипт на одевание со столба для PVP_alfa...
sub Dress()
VAR Stolb='0x1183'
UO.UseFromGround(Stolb)
end sub
это тыкать на столб....а как сделать, чтобы тыкал на определынные кнопки в менюшке столба....незнаю(((

Posted: **2005-01-10 14:33:13**

kotar wrote:подскажите как правильно прописать клик по координате на экране...

тоесть чтобы тыкал всегда роно в пяти тайлах левее чара..

Code: Select all

var mx, my, mz, i, j
mx = UO.GetX("self")
my = UO.GetY("self")
mz = UO.GetZ("self")
i = mx 0 
j = my-3 
UO.Waittargettile("1341", str(i), str(j), str(mz))

Posted: **2005-01-10 15:41:12**

а координаты куда писать?

Posted: **2005-01-10 16:01:55**

Играл я там когда-то, вот тибе одевалка... давно я её делал ))

Code: Select all

sub Dress_alfa_man()
While NOT UO.Dead()
var n
Dim Select[3]
    Select[1]='1'  ; Бинты
    Select[2]='12' ; Химия 2
    Select[3]='3'  ; Реги

Dim Item[3]
    Item[1]='0x0E21'
    Item[2]='0x09B0'
    Item[3]='0x0E76'
If UO.GetGlobal('DressMan')<>'yes' Then
   UO.set('norbcalc','1')
   UO.SetGlobal('DressMan','yes')
EndIf
If UO.GetGlobal('DressManCheck')<>'on' Then
   UO.SetGlobal('DressManCheck','on')
      If UO.CountGround('0x0ED4','0x08BB') or UO.CountGround('0x0ED4','0x079B') Then
         If NOT UO.ObjAtLayer('Torso') or UO.Count('0x0EFA')==0 Then ;Проверка на пак
            UO.UseObject('backpack')
            Wait(1000)
         EndIf
         If NOT UO.ObjAtLayer('Torso') Then
            UO.Recall('0x4001361C','3') ; Армор(Кристал)
               REPEAT
                  Wait(300)
               Until UO.ObjAtLayer('Torso')
         EndIf
         If NOT UO.ObjAtLayer('Horse') Then
            UO.Recall('0x40013766','4') ; Зостер
               REPEAT
                  Wait(300)
               Until UO.ObjAtLayer('Horse')
         EndIf
         For n = 1 TO 3
            If UO.Count(Item[n])==0 Then
               UO.Recall('0x40013766',Select[n])
               UO.DeleteJournal()
                  REPEAT
                     Wait(300)
                  Until UO.InJournal("You put")
            EndIf
         Next
         UO.Print('Done!')
      Else
         UO.Print("I don't see equipment stone!")
      EndIf
   UO.SetGlobal('DressManCheck','off')
Else
   UO.Print("Wait")
EndIf
end sub

Posted: **2005-01-11 11:01:07**

kotar wrote:а координаты куда писать?

он берет твои координаты и автоматически ожидает прицела в трех тайлах от тебя

Posted: **2005-01-13 07:46:18**

ых да изврат

тыкать в 5 клетках от чара на столб

)))
а ты все время целишься вставать чтоб ровно было ?
useobject есть такая штука

а одевалка
sub menunub()
uo.exec("useobject 0x4000B553")
wait(500)
UO.LClick(235,188)
wait(200)
uo.exec("useobject 0x4000B553")
wait(500)
UO.LClick(279,206)
wait(200)
uo.exec("useobject 0x4000B553")
wait(500)
UO.LClick(211,229)
wait(200)
uo.exec("useobject 0x4000B44E")
wait(500)
UO.LClick(175,242)
wait(200)
uo.exec("useobject 0x4000B44E")
wait(500)
UO.LClick(205,323)
wait(200)
uo.exec("useobject 0x4000B553")
wait(500)
UO.LClick(211,306)
wait(300)
uo.exec("useobject 0x4000B2E3")
wait(500)
UO.LClick(60,263)
wait(500)
UO.LClick(213,266)
wait(100)
end sub

Posted: **2005-01-13 08:58:16**

admir wrote:ых да изврат
тыкать в 5 клетках от чара на столб )))
а ты все время целишься вставать чтоб ровно было ?
useobject есть такая штука
а одевалка
sub menunub()
uo.exec("useobject 0x4000B553")
wait(500)
UO.LClick(235,188)
wait(200)
uo.exec("useobject 0x4000B553")
wait(500)
UO.LClick(279,206)
wait(200)
uo.exec("useobject 0x4000B553")
wait(500)
UO.LClick(211,229)
wait(200)
uo.exec("useobject 0x4000B44E")
wait(500)
UO.LClick(175,242)
wait(200)
uo.exec("useobject 0x4000B44E")
wait(500)
UO.LClick(205,323)
wait(200)
uo.exec("useobject 0x4000B553")
wait(500)
UO.LClick(211,306)
wait(300)
uo.exec("useobject 0x4000B2E3")
wait(500)
UO.LClick(60,263)
wait(500)
UO.LClick(213,266)
wait(100)
end sub

И что это? за макрос такой моднявый

))

Posted: **2005-01-13 20:12:08**

Я думаю, это он так с гампами работает...

Posted: **2005-01-28 07:16:33**

2Man666
лол хочешь сказать у тебя круче макрос?))) ыы

Posted: **2005-01-28 07:40:49**

котар раскажи как инжект включил на альфе

Posted: **2005-01-28 07:58:43**

zolupo wrote:2Man666
лол хочешь сказать у тебя круче макрос?))) ыы

Нет конечно... я же нубь

Posted: **2005-01-28 08:01:37**

ок ок )) я на альфе тоже нуб)

Posted: **2005-02-06 15:29:02**

666Man666 wrote:Играл я там когда-то, вот тибе одевалка... давно я её делал ))[/code]

Как сделать чтоб ламу покупал. все вроде ясно но не могу число под ламу подобрать и странно что зостр 4 цифра. Вобщем вопрос в том по какому принципу ети цифры получаются (чтоб 2 банки например 12 почемуто)?

Posted: **2005-02-07 17:05:30**

не прошу скрипт делать. просто скажите откуда числа про которые я спрашивал ведь ктото делал ето уже.

Posted: **2005-02-08 09:10:04**

,infotile
Эта команда дает инфу о тайле пола на который ты тыкнишь .......его координаты там присетствуют

Posted: **2005-02-09 15:31:10**

ето да ты прав но не в етом случае. там выходит меню и в ней стрелочки ну типа кнопочки которые нада нажать так вот их нада както нажать и в скрипте както ето делали но откуда взяли цыфры? если есть персонаж на альфе зайди пожалуста мне кажется там делов 2 минуты просто нада понять про что я говарю. столбы те что не у банка

Posted: **2005-02-09 16:14:01**

Так МАН же дал скрипт.

Yoko

Координаты!

Координаты!