А то вот у мя чет не работает тот скрипт каторый в пвп
Или мож есть уже выкладывали не магу найди помагите плз
FollowHim
Moderators: Murderator+, Murderator
способ замены масла
Конечно Сань, ты чаго? Чагаев наголову сильнее и быстрее раз так в дцать, в общем, Чагаев всех сильнее в супертяже, первый сильный боксер за последнее время Не даром - Белый Тайсон. Держись Клич
Last edited by LordTom on 2009-12-23 21:28:13, edited 2 times in total.
-
CONDOMchick
- Posts: 362
- Joined: 2005-04-23 20:18:57
вопрос к создателям форума
У каждого на жизненном пути встречались люди с, мягко говоря, необычными фамилиями. Даваите, посмеёмся вместе! Натолкнуло меня на эту тему следующее: мой МЧ летом работал в институте, создавал архивну
ТЕЛЕФОН Мужик просыпается в три часа ночи от телефонного звонка, глаза кое-как продрал, снимает трубку: Алло !?То есть как это пошел на @#$ ?!!! Звонит у меня телефон. Муж поднимает трубк
ТЕЛЕФОН Мужик просыпается в три часа ночи от телефонного звонка, глаза кое-как продрал, снимает трубку: Алло !?То есть как это пошел на @#$ ?!!! Звонит у меня телефон. Муж поднимает трубк
Last edited by LordTom on 2009-12-23 18:20:26, edited 2 times in total.
Savage wrote:Edred wrote:Savage wrote:Догонялка, убивалка, лутилка... А играть тогда зачем? Для чего, в чем кайф?
Кайф-то как раз в написании догонялок, убивалок, лутилок...
Безспорно, но афтар не претендует на писателя....
он претендует на обиженного юзера. знаешь, бывают такие - "я знаю, что вы все гуру, и без вас мне не обойтись, но я всех вас ненавижу за это."
kooler wrote:Тут че все тока на дрв играют? И я сматрю тут одни дауны да?
Пиздец вас читать смешно нахуй вабще этот форум нужен?
Давай скрипт если есть если нету молчи нахуй блять хуль рот ваще открываеШ? Сука чепены малолетние
малолетний и писал. теперь, думаю, тебе вообще никто ничего не даст. никто не обязан выкладывать что-то по твоему первому требованию. у тех, кто не знает и не хочет знать, как и ты, что и как писать в скрипте, есть лишь два варианта - молча ждать похожего на требуемый вариант скрипта и уже просить подправить под тебя, или скромно попросить помощи в написании, но не орать на весь форум, требуя то, чего тебе никто не обязан...
а на счет дрв - так их от туда толпа целая пришла сюда. с остальных шардов меньше народу.
kooler wrote:Ты чо интелект чтоль?
в отличие от тебя - да.
kooler wrote: ты мля мне расказывай наъуй форум нужен? я нормально спросил сначла есть ли у каво или нет я не умею писать скрипты и чо терь? нет блять сука шакалы флуд развели пиздец
форум этот не для даунов, вроде тебя, а для тех, кто уже что-то умеет и нуждается в помощи в дальнейшем продвижении вперед.
kooler wrote:Госпади рот завалилбы умелец тупоголовый
как ты себе представляешь такое сочетание то? если б ты был у нас тут светлая голова - то тут бы не постил такие темы. там дел то всего - порыться в документации, да подправить что-нить уже существующее под себя. а раз ты этого не хочешь сделать, да еще и орешь, почем зря, будем тебя презирать всем форумом.
представляю вам ромку
Veronika не капризничай есть только Боря Моисеев и Элтон Джон Че-то и правдавыбор какой-то ограниченный Никак не могу выбрать Ну ты можеш сейчас невыбирать. п
Средство одно: иметь собственную высокую психосоматическую устойчивость, и тогда ничего и ни от кого извне к Вам не пристанет. А устойчивость такую дает йога, но НЕ быстро. (ВСБ). написать (сказ
Средство одно: иметь собственную высокую психосоматическую устойчивость, и тогда ничего и ни от кого извне к Вам не пристанет. А устойчивость такую дает йога, но НЕ быстро. (ВСБ). написать (сказ
Last edited by LordTom on 2009-12-23 11:58:25, edited 2 times in total.
доганялка есть тока работает не на все 100%
бери любую ходилку я брал саваджа например ставишь задержку на шаг по 10 убираешь везде чеклаг и все далее запускаешь скриптик
включить alwaysrun обязательно ваще скрипт так себе не идеальный но по ровной местности сойдет
бери любую ходилку я брал саваджа например ставишь задержку на шаг по 10 убираешь везде чеклаг и все далее запускаешь скриптик
включить alwaysrun обязательно ваще скрипт так себе не идеальный но по ровной местности сойдет
Code: Select all
sub fol()
var x,y
while uo.getdistance('laststatus')>0
x=uo.getx('laststatus')
y=uo.gety('laststatus')
go(x,y)
wend
endsub
Sub go(x,y)
VAR i
VAR dir,ldir,rdir,key,olddir
VAR dx,dy,Exit=0
VAR CacheLimit=9,CacheIndex="Text"
DIM CacheX[10], CacheY[10]
CacheX[0]="Test"
If dx<>0 AND dy<>0 Then
If dx>0 AND dy>0 Then ; GoSE
dir=3
ldir=2
rdir=4
key=40 ; DownArrow
olddir=UO.GetDir()
If StepArrow(UO.GetX(),UO.GetY(),dir,ldir,rdir,key) Then
If olddir==2 Then ; GoNE
dir=1
ldir=0
rdir=1
key=39 ; RightArrow
While UO.GetDir()<>1
StepArrow(UO.GetX(),UO.GetY(),dir,ldir,rdir,key)
Wend
Else ; GoSW
dir=5
ldir=5
rdir=6
key=37 ; LeftArrow
While UO.GetDir()<>5
StepArrow(UO.GetX(),UO.GetY(),dir,ldir,rdir,key)
Wend
Endif
Endif
Endif
If dx>0 AND dy<0 Then ; GoNE
dir=1
ldir=0
rdir=2
key=39 ; RightArrow
olddir=UO.GetDir()
If StepArrow(UO.GetX(),UO.GetY(),dir,ldir,rdir,key) Then
If olddir==0 Then ; GoWN
dir=7
ldir=6
rdir=7
key=38 ; UpArrow
While UO.GetDir()<>7
StepArrow(UO.GetX(),UO.GetY(),dir,ldir,rdir,key)
Wend
Else ; GoSE
dir=3
ldir=3
rdir=4
key=40 ; DownArrow
While UO.GetDir()<>3
StepArrow(UO.GetX(),UO.GetY(),dir,ldir,rdir,key)
Wend
Endif
Endif
Endif
If dx<0 AND dy>0 Then ; GoSW
dir=5
ldir=4
rdir=6
key=37 ; LeftArrow
olddir=UO.GetDir()
If StepArrow(UO.GetX(),UO.GetY(),dir,ldir,rdir,key) Then
If olddir==6 Then ; GoWN
dir=7
ldir=7
rdir=0
key=38 ; UpArrow
While UO.GetDir()<>7
StepArrow(UO.GetX(),UO.GetY(),dir,ldir,rdir,key)
Wend
Else ; GoSE
dir=3
ldir=2
rdir=3
key=40 ; DownArrow
While UO.GetDir()<>3
StepArrow(UO.GetX(),UO.GetY(),dir,ldir,rdir,key)
Wend
Endif
Endif
Endif
If dx<0 AND dy<0 Then ; GoWN
dir=7
ldir=6
rdir=0
key=38 ; UpArrow
olddir=UO.GetDir()
If StepArrow(UO.GetX(),UO.GetY(),dir,ldir,rdir,key) Then
If olddir==0 Then ; GoNE
dir=1
ldir=1
rdir=2
key=39 ; RightArrow
While UO.GetDir()<>1
StepArrow(UO.GetX(),UO.GetY(),dir,ldir,rdir,key)
Wend
Else ; GoSW
dir=5
ldir=4
rdir=5
key=37 ; LeftArrow
While UO.GetDir()<>5
StepArrow(UO.GetX(),UO.GetY(),dir,ldir,rdir,key)
Wend
Endif
Endif
Endif
Endif
If dx<>0 AND dy==0 Then
If dx>0 Then ; GoE
dir=2
key=34 ; PgDown
olddir=UO.GetDir()
If StepEdit(UO.GetX(),UO.GetY(),dir,key) Then
If olddir==2 Then ; GoSE
dir=3
ldir=3
rdir=4
key=40 ; DownArrow
While UO.GetDir()<>3
StepArrow(UO.GetX(),UO.GetY(),dir,ldir,rdir,key)
Wend
Else ; GoNE
dir=1
ldir=1
rdir=0
key=39 ; RightArrow
While UO.GetDir()<>1
StepArrow(UO.GetX(),UO.GetY(),dir,ldir,rdir,key)
Wend
Endif
Endif
Endif
If dx<0 Then ; GoW
dir=6
key=36 ; Home key
olddir=UO.GetDir()
If StepEdit(UO.GetX(),UO.GetY(),dir,key) Then
If olddir==0 Then ; GoWN
dir=7
ldir=7
rdir=0
key=38 ; UpArrow
While UO.GetDir()<>7
StepArrow(UO.GetX(),UO.GetY(),dir,ldir,rdir,key)
Wend
Else ; GoSW
dir=5
ldir=4
rdir=5
key=37 ; LeftArrow
While UO.GetDir()<>5
StepArrow(UO.GetX(),UO.GetY(),dir,ldir,rdir,key)
Wend
Endif
Endif
Endif
Endif
If dx==0 AND dy<>0 Then
If dy>0 Then ; GoS
dir=4
key=35 ; End
If StepEdit(UO.GetX(),UO.GetY(),dir,key) Then
If olddir==2 Then ; GoSE
dir=3
ldir=2
rdir=3
key=40 ; DownArrow
While UO.GetDir()<>3
StepArrow(UO.GetX(),UO.GetY(),dir,ldir,rdir,key)
Wend
Else ; GoSW
dir=5
ldir=6
rdir=5
key=37 ; LeftArrow
While UO.GetDir()<>5
StepArrow(UO.GetX(),UO.GetY(),dir,ldir,rdir,key)
Wend
Endif
Endif
Endif
If dy<0 Then ;GoN
dir=0
key=33 ; PgUp
olddir=UO.GetDir()
If StepEdit(UO.GetX(),UO.GetY(),dir,key) Then
If olddir==2 Then ; GoNE
dir=1
ldir=1
rdir=2
key=39 ; RightArrow
While UO.GetDir()<>1
StepArrow(UO.GetX(),UO.GetY(),dir,ldir,rdir,key)
Wend
Else ; GoWN
dir=7
ldir=7
rdir=6
key=38 ; UpArrow
While UO.GetDir()<>7
StepArrow(UO.GetX(),UO.GetY(),dir,ldir,rdir,key)
Wend
Endif
Endif
Endif
Endif
end sub
Sub StepEdit(x,y,dir,key)
VAR walkwait=50
VAR ErrLevel=0
If UO.GetDir()<>dir Then
UO.Press(key)
wait(walkwait)
If UO.GetDir()<>dir Then
Endif
Endif
UO.Press(key)
wait(walkwait)
If x==UO.GetX() AND y==UO.GetY() Then
If x==UO.GetX() AND y==UO.GetY() Then
;zatik
ErrLevel=1
Endif
Endif
Return ErrLevel
end sub
Sub StepArrow(x,y,dir,ldir,rdir,key)
VAR walkwait=50
VAR ErrLevel=0
If UO.GetDir()<>dir Then
UO.Press(key)
wait(walkwait)
If UO.GetDir()<>dir AND UO.GetDir()<>ldir AND UO.GetDir()<>rdir Then
wait(10)
Endif
Endif
If UO.GetX()==x AND UO.GetY()==y Then
UO.Press(key)
wait(walkwait)
If UO.GetDir()==dir AND UO.GetX()==x AND UO.GetY()==y Then
If UO.GetDir()==dir AND UO.GetX()==x AND UO.GetY()==y Then
; zatik
ErrLevel=1
Endif
Endif
Endif
Return ErrLevel
end sub