Page 1 of 1
Помогите... Скрипт на сбор перьев!!!
Posted: 2009-08-20 06:51:56
by 6aToH
Сильно не пинайте, но какой только скрипт не пробовал, найденный на вашем сайте, ничего не подходит..
Вообщем задача такая:
1) Рекол по руне
2) Убивает 4-5 птичек, режет и собирает перья
3) Рекол по след руне
4) Рекол домой
Ну а если не сложно выброс перьев в сундук и добор регов, но я думаю это уже сам как нибудь смогу накалякать...
Помогите плиз...
Re: Помогите... Скрипт на сбор перьев!!!
Posted: 2009-08-20 09:11:40
by Kynep
6aToH wrote:но я думаю это уже сам как нибудь смогу накалякать...
Ну если выклад смогешь, то остальное не сложнее, достаточно посмотреть скрипты где есть то, что делает твой, правильно вырезать и слепить у себя, все просто!
Re: Помогите... Скрипт на сбор перьев!!!
Posted: 2009-08-20 09:14:51
by 6aToH
[/quote]
Ну если выклад смогешь, то остальное не сложнее, достаточно посмотреть скрипты где есть то, что делает твой, правильно вырезать и слепить у себя, все просто![/quote]
Ну купер не будь врединой помоги пожалуйста, я думаю для тебя это дело 10-ти минут!
Re: Помогите... Скрипт на сбор перьев!!!
Posted: 2009-08-20 09:46:29
by Kynep
6aToH wrote:Ну купер не будь врединой помоги пожалуйста, я думаю для тебя это дело 10-ти минут!
Вот резка и лут, остальное можно делать и руками, сидя за монитором:
http://forum.yoko.com.ua/viewtopic.php?p=50078#50078
Posted: 2009-08-20 09:53:38
by Nmy
сервер?
Posted: 2009-08-21 02:03:35
by 6aToH
Nmy wrote:сервер?
Форготтен ворд
Re: Помогите... Скрипт на сбор перьев!!!
Posted: 2009-08-21 02:05:33
by 6aToH
Пробовал я этот скрипт, не работает он
Не ищет он птичек, тайп вставлял!
Posted: 2009-08-21 06:12:25
by Scripts Writer
TWI
Posted: 2009-08-23 14:55:44
by 6aToH
Scripts Writer wrote:TWI
Включено, но что не все равно не то.. ((
Posted: 2009-10-08 08:12:42
by 6aToH
Вообщем накалялкал я ели как вот такой скрипт:
Code: Select all
sub peria()
g:
uo.print('1')
uo.waittargetobject('0x4002ECDC')
uo.cast('Recall')
wait(3000)
Attack666()
#############
uo.print('2')
uo.waittargetobject('0x400C00CC')
uo.cast('Recall')
wait(3000)
Attack666()
#############
uo.print('3')
uo.waittargetobject('0x400DC3F8')
uo.cast('Recall')
wait(3000)
Attack666()
#############
uo.print('4')
uo.waittargetobject('0x40074B90')
uo.cast('Recall')
wait(3000)
Attack666()
#############
uo.print('5')
uo.waittargetobject('0x400D3C91')
uo.cast('Recall')
wait(3000)
Attack666()
#############
uo.print('6')
uo.waittargetobject('0x400C00A3')
uo.cast('Recall')
wait(3000)
Attack666()
#############
uo.print('7')
uo.waittargetobject('0x400CD44C')
uo.cast('Recall')
wait(3000)
Attack666()
#############
uo.print('8')
uo.waittargetobject('0x400A1A60')
uo.cast('Recall')
wait(3000)
Attack666()
#############
uo.print('9')
uo.waittargetobject('0x40103261')
uo.cast('Recall')
wait(3000)
Attack666()
#############
uo.print('10')
uo.waittargetobject('0x400EE5A6')
uo.cast('Recall')
wait(3000)
Attack666()
#############
uo.print('11')
uo.waittargetobject('0x400CA16C')
uo.cast('Recall')
wait(3000)
Attack666()
#############
uo.print('12')
uo.waittargetobject('0x400A1273')
uo.cast('Recall')
wait(3000)
Attack666()
#############
uo.print('дом!')
uo.waittargetobject('0x40107536')
uo.cast('Recall')
wait(5000)
uo.exec('exec dom')
uo.exec('exec MyMessage')
end sub
######################
sub book()
uo.cast('Recall', '0x4005CD85')
end sub
###############################################
sub Loot4()
VAR i,Exit
DIM Loot[2]
Loot[0]=0x1BD1 ; gp
Loot[1]=0x1BD1 ; BM
Loot[2]=0x0F7A ; BP
UO.SetReceivingContainer('0x40064E29') ;ID backpacka
uo.waittargetobject('lastcorpse')
uo.useobject('lastcorpse')
uo.UseType('0x13F6')
wait(2000)
For i=0 to 0
Exit=0
repeat
UO.FindType(Loot[i],-1,'lastcontainer')
if UO.GetQuantity('finditem') then
UO.Grab('0','finditem')
wait(100)
Else
Exit=1
endif
until Exit==1 OR uo.injournal("loot")
wait(1000)
Next
UO.UnSetReceivingContainer()
wait(1000)
end sub
###############################################
sub dom()
UO.Exec ("setreceivingcontainer 0x400AC775")
while UO.Count ("0x1BD1") > 0
uo.exec("findtype 0x1BD1")
UO.Exec ("grab 500 finditem")
wait (500)
wend
end sub
sub MyMessage()
r:
VAR ky = 15
repeat
UO.Print( "До полёта осталось: " + str( ky ))
ky = ky - 1
wait( 60000 )
Until ky == 0
uo.exec('exec peria')
endsub
##########################
#############################################################
sub Attack666()
wait(1000)
uo.set('finddistance','18')
DIM R[5]
R[1] = 0x0006 # Oei caa?y.
R[2] = 0x00D0
R[3] = 0x0005
R[4] = 0x00CD
R[5] = 0x00E9
VAR LastTimer, Attack
var a
repeat
for a=1 to 3
UO.DeleteJournal()
ggg:
UO.FindType(R[a],-1,'ground')
if UO.FindCount("finditem")>0 then
Attack=UO.GetSerial('finditem')
UO.Exec('warmode 1')
wait(1000)
UO.Attack(Attack)
wait(1000)
WalkN(0,0,Attack)
LastTimer=UO.Timer()
repeat
wait(2000)
until uo.dead(Attack) or UO.InJournal('Body') OR LastTimer+300<UO.Timer()
endif
wait(500)
uo.exec('exec Loot4')
wait(5000)
UO.DeleteJournal()
UO.FindType(R[a],-1,'ground')
if UO.FindCount("finditem") then
goto ggg
next
endif
wait(50)
next
wait(200)
until a==3
end sub
UO.DeleteJournal()
repeat
repeat
wait(100)
until UO.InJournal("Body of")
UO.JournalSerial(UO.InJournal("Body of")-1)
UO.DeleteJournal()
sub Numb(num)
if num>=0 then
return num
else
return num*(-1)
end if
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()
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
Endif
If dx>0 AND dy<0 Then
StepSucess=Go(1,39,300);NE - RightArrow
Endif
If dx<0 AND dy>0 Then
StepSucess=Go(5,37,300);SW - LeftArrow
Endif
If dx<0 AND dy<0 Then
StepSucess=Go(7,38,300);WN - UpArrow
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
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
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
Endif
Endif
If dy<0 Then
StepSucess=Go(0,33,300);N - PgUp
If StepSucess==-1 Then
StepSucess=Go(7,38,300);WN - UpArrow
If StepSucess==-1 Then
StepSucess=Go(1,39,300);NE - RightArrow
Endif
Endif
Endif
Endif
Wend
end sub
sub Go(dir,key,walkwait)
VAR x,y
x=UO.GetX()
y=UO.GetY()
while UO.GetDir()<>dir
UO.Press(key)
wait(walkwait)
If UO.GetDir()<>dir Then
Endif
wend
UO.Press(key)
wait(walkwait)
If x==UO.GetX() AND y==UO.GetY() Then
Endif
If x==UO.GetX() AND y==UO.GetY() Then
return -1
Else
return 1
Endif
end sub
sub main()
UO.Exec('terminate Reconnector')
UO.Exec('exec Reconnector')
wait(5000)
sub Reconnector()
var ReconnectTime, RFlag
ReconnectTime = '0'
RFlag = 1
Repeat
While (UO.ObjAtLayer('Bpack') == '')
if RFlag Then
ReconnectTime = MakeTime()
RFlag = 0
endif
Wait(20000) # WorldSave Protection
UO.Say('')
Wait(3000)
UO.Say('')
Wait(3000)
UO.Say('')
Wait(3000)
UO.LDblClick(357,164)
UO.LClick(616,459)
Wait(3000)
WEnd
Wait(3000)
if (RFlag == 0) and (ReconnectTime <> '0') Then
UO.Exec('terminate main')
UO.Exec('exec main')
UO.TextOpen()
UO.TextPrint('Disconnected & Reconnected @ '+ReconnectTime)
RFlag = 1
ReconnectTime = '0'
endif
Until false
end sub
sub MakeTime()
VAR D, T, Ret, i
Ret = STR(UO.Time())
T = ""
For i = 0 To Len(Ret)
T = Ret[Len(Ret)-i] + T
If (I == 2) OR (I == 4) Then
T = ":" + T
EndIf
Next
Ret = STR(UO.Date())
D = ""
For i = 0 To Len(Ret)
D = Ret[Len(Ret)-i] + D
If (I == 2) OR (I == 4) Then
D = "." + D
EndIf
Next
Ret = T + " @ " + D
RETURN Ret
end sub
sub CheckLag()
UO.DeleteJournal()
UO.Click('backpack')
repeat
wait(500)
until UO.InJournal('cliloc# 0x9ED5')
end sub
Подскажите почему кон лостит на нем??? Вроде де бы при луте...
Posted: 2009-10-08 09:05:56
by CuHTpoH
ввели систему что если много действий быстро сделать то кон лост, своеобразная защита от спама пакетами с клиента
Posted: 2009-10-08 11:29:16
by 6aToH
CuHTpoH wrote:ввели систему что если много действий быстро сделать то кон лост, своеобразная защита от спама пакетами с клиента
Подскажи пожалуйста куда добавить wait`ов или чеклагов... А то и так уже их понапичкал, а толку 0 (((
Posted: 2009-10-09 02:32:53
by 6aToH
Такое ощущение, что авторы тем должны сами отвечать на свои вопросы
Неужели никто не может помочь?????
Posted: 2009-10-09 02:51:09
by CuHTpoH
6aToH wrote:Такое ощущение, что авторы тем должны сами отвечать на свои вопросы
Неужели никто не может помочь?????
Такое ощущение, что опытные скриптеры обязаны круглые сутки дежурить на форуме инжекта и приносить ману небесную страждущим нубасам.
Чем тупее вопрос и жирнее скрипт, тем меньше желание ковырять эту херь, у всех, тем более что 90% скриптов написаны явно ногой, причем сломанной. Щас посмотрю твой скрипт
Posted: 2009-10-09 16:39:39
by Mirage
А я как скриптер среднего уровня просто скажу что во первых мне искренне лень таким делом заниматься (птичек у нас на серваке можно бить не портируясь
))) а во вторых такие скрипты все таки достаточно портят мир игры - так что имхо они зло.
звиняйте.
Posted: 2009-10-11 09:52:07
by 6aToH
CuHTpoH wrote:6aToH wrote:Такое ощущение, что авторы тем должны сами отвечать на свои вопросы
Неужели никто не может помочь?????
Такое ощущение, что опытные скриптеры обязаны круглые сутки дежурить на форуме инжекта и приносить ману небесную страждущим нубасам.
Чем тупее вопрос и жирнее скрипт, тем меньше желание ковырять эту херь, у всех, тем более что 90% скриптов написаны явно ногой, причем сломанной. Щас посмотрю твой скрипт
Спасибо за то что ты посмотришь, можешь все таки получится исправить что то... А на счет дежурства, я уэто тему создавал около двух месяцев назад (((
Posted: 2009-10-12 11:03:22
by 6aToH
Ну как там дела???
Posted: 2009-10-12 11:07:19
by 6aToH
Ну как там дела???