Прямая связь с администрацией по скайпу: gods.dragon
We've noticed that you've been inactive for over 10 minute(s). We've stopped running the Shoutbox due to your inactivity. If you are back again, please click the I'm Back button below.
Дело было так, буквально 2 минуты назад, я упал в муне! пошол реснулся одел браслет 2 раза клацнул на серьги и случилось типо они оделись ток нихера неоделись, как бывает когда на обычной бижухе кончаютьса заряды... ДЕ МОИ НЬЮБИ СЕРЬГИ !??!?
sub killelem()
VAR LastTimer, Elem ,i,n
LastTimer=UO.Timer()
Dim NPC[3]
NPC[1]='0x0018'
NPC[2]='0x0003'
NPC[3]='0x001C'
While not UO.DEAD()
UO.DeleteJournal()
for n=1 to 3
UO.FindType('NPC[n]',-1,'ground')
Elem=UO.GetSerial('finditem')
UO.Exec('warmode 1')
UO.Attack(Elem)
WalkN(0,0,Elem)
UO.Say('Dye, mother fucker!')
repeat
wait(2000)
until UO.InJournal('Body') OR LastTimer+300<UO.Timer() or uo.dead(Elem)
UO.Exec('warmode 0')
wait(100)
LastTimer=UO.Timer()
if UO.Life<50 and UO.Count('0x0E21') then
repeat
UO.BandageSelf()
wait(4000)
until UO.Life>170 OR LastTimer+300<UO.Timer()
endif
lootpp()
next
wend
end sub
sub WalkN(x,y,Target)
VAR i,StepSucess
VAR dx,dy,Exit=0
While Exit<>1
If Target<>"" Then
dx=UO.GetX(Target)-UO.GetX()
dy=UO.GetY(Target)-UO.GetY()
; UO.Print("Target locked!")
If UO.GetDistance(Target)<2 Then
Exit=1
Endif
Else
dx=x-UO.GetX()
dy=y-UO.GetY()
If dx==0 AND dy==0 Then
Exit=1
Endif
Endif
If dx<>0 AND dy<>0 Then
If dx>0 AND dy>0 Then
StepSucess=Go(3,40,300);SE - DownArrow
If StepSucess==-1 Then
StepSucess=Go(7,38,300);WN - UpArrow
StepSucess=Go(1,39,300);NE - RightArrow
If StepSucess==-1 Then
StepSucess=Go(5,37,300);SW - LeftArrow
Endif
Endif
Endif
If dx>0 AND dy<0 Then
StepSucess=Go(1,39,300);NE - RightArrow
If StepSucess==-1 Then
StepSucess=Go(5,37,300);SW - LeftArrow
StepSucess=Go(3,40,300);SE - DownArrow
If StepSucess==-1 Then
StepSucess=Go(7,38,300);WN - UpArrow
Endif
Endif
Endif
If dx<0 AND dy>0 Then
StepSucess=Go(5,37,300);SW - LeftArrow
If StepSucess==-1 Then
StepSucess=Go(1,39,300);NE - RightArrow
StepSucess=Go(7,38,300);WN - UpArrow
If StepSucess==-1 Then
StepSucess=Go(3,40,300);SE - DownArrow
Endif
Endif
Endif
If dx<0 AND dy<0 Then
StepSucess=Go(7,38,300);WN - UpArrow
If StepSucess==-1 Then
StepSucess=Go(3,40,300);SE - DownArrow
StepSucess=Go(5,37,300);SW - LeftArrow
If StepSucess==-1 Then
StepSucess=Go(1,39,300);NE - RightArrow
Endif
Endif
Endif
Endif
If dx<>0 AND dy==0 Then
If dx>0 Then
StepSucess=Go(2,34,300);E - PgDown
If StepSucess==-1 Then
StepSucess=Go(3,40,300);SE - DownArrow
If StepSucess==-1 Then
StepSucess=Go(1,39,300);NE - RightArrow
Endif
StepSucess=Go(2,34,300);E - PgDown
Endif
Endif
If dx<0 Then
StepSucess=Go(6,36,300);W - Home
If StepSucess==-1 Then
StepSucess=Go(7,38,300);WN - UpArrow
If StepSucess==-1 Then
StepSucess=Go(5,37,300);SW - LeftArrow
Endif
StepSucess=Go(6,36,300);W - Home
Endif
Endif
Endif
If dx==0 AND dy<>0 Then
If dy>0 Then
StepSucess=Go(4,35,300);S - End
If StepSucess==-1 Then
StepSucess=Go(3,40,300);SE - DownArrow
If StepSucess==-1 Then
StepSucess=Go(5,37,300);SW - LeftArrow
Endif
StepSucess=Go(4,35,300);S - End
Endif
Endif
If dy<0 Then
StepSucess=Go(0,33,300);N - PgUp
If StepSucess==-1 Then
StepSucess=Go(1,39,300);NE - RightArrow
If StepSucess==-1 Then
StepSucess=Go(7,38,300);WN - UpArrow
Endif
StepSucess=Go(0,33,300);N - PgUp
Endif
Endif
Endif
Wend
end sub
sub lootpp()
DIM R[13]; и здес тож нада добавлять
var c
R[1] = 0x0DE1
R[2] = 0x0EED
R[3] = 0x09AA
R[4] = 0x1541
R[5] = 0x1088
R[6] = 0x1086
R[7] = 0x108A
R[8] = 0x14ED
R[9] = 0x1515
R[10] = 0x1F03
R[11] = 0x0F09
R[12] = 0x1549
R[13] = 0x204E
UO.UseObject('lastcorpse')
wait(100)
for c=1 to 13;Дабавляё болше если таипы добавляш
repeat
uo.findtype(R[c],"-1","lastcorpse")
if UO.FindCount()>0 and Uo.GetDistance("lastcorpse")<=4 then
UO.Grab("0","finditem")
wait(100)
end if
until UO.FindCount()<1
wait(50)
next
end sub
end sub
Поидеи он должен атаконуть указанного тайпом моба, подбежать убить и дальше ждать его респа! долго мы ипались с этим скриптом он у нас и атаковал, и лутил или только атаковал вобщем проблем с ним было ппц, но неразу он сцуко небежал.. кто знаеть помогите разобратьса пожалуйсто ! ! Сейчас при включени этого скрипта он выдаёт ошибку Line: 142 Funcion not found - GO
Извенюсь конечно за вторую тему, кто то когдато уже создавал что то подобное! Увы, та тема уползла в самы низ очень быстро!
Напишите пожалуйсто чтобы крафтер буть он тейлором, буть он Блексмитером! Ковал или шил из определённого материала определённые сеты, ну например положил пачку ресов зделал 1 фул для примера и он пошол чтопать пока некончятьса ресурсы ! Если конечно это возможно, пожалуйсто!
Заранее спасибо!!!
Может он немного банален или слишком закрученный, незнаю не сильно разбераюсь и зделал как мог! Один вопрос как зделать так что бы запустить его и что бы он срабатывал раз в час примерно!
sub pochinka()
uo.usetype('0x0F52', '0x07A2'); id levoy pushki
uo.waittargettype('0x0F51', '0x0486'); id pushki
uo.usetype('0x1865'); repair tools
wait(300)
uo.usetype('0x0F51', '0x0486')
end sub
Find content
Male
