Помогите... Скрипт на сбор перьев!!!

6aToH · Post by **6aToH** » 2009-08-20 06:51:56

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

Вообщем задача такая:
1) Рекол по руне
2) Убивает 4-5 птичек, режет и собирает перья
3) Рекол по след руне
4) Рекол домой

Ну а если не сложно выброс перьев в сундук и добор регов, но я думаю это уже сам как нибудь смогу накалякать...
Помогите плиз...

Kynep · Post by **Kynep** » 2009-08-20 09:11:40

6aToH wrote:но я думаю это уже сам как нибудь смогу накалякать...

Ну если выклад смогешь, то остальное не сложнее, достаточно посмотреть скрипты где есть то, что делает твой, правильно вырезать и слепить у себя, все просто!

6aToH · Post by **6aToH** » 2009-08-20 09:14:51

[/quote]
Ну если выклад смогешь, то остальное не сложнее, достаточно посмотреть скрипты где есть то, что делает твой, правильно вырезать и слепить у себя, все просто![/quote]
Ну купер не будь врединой помоги пожалуйста, я думаю для тебя это дело 10-ти минут!

Kynep · Post by **Kynep** » 2009-08-20 09:46:29

6aToH wrote:Ну купер не будь врединой помоги пожалуйста, я думаю для тебя это дело 10-ти минут!

Вот резка и лут, остальное можно делать и руками, сидя за монитором:

http://forum.yoko.com.ua/viewtopic.php?p=50078#50078

Nmy · Post by **Nmy** » 2009-08-20 09:53:38

сервер?

6aToH · Post by **6aToH** » 2009-08-21 02:03:35

Nmy wrote:сервер?

Форготтен ворд

6aToH · Post by **6aToH** » 2009-08-21 02:05:33

Kynep wrote:
6aToH wrote:Ну купер не будь врединой помоги пожалуйста, я думаю для тебя это дело 10-ти минут!

Вот резка и лут, остальное можно делать и руками, сидя за монитором:

http://forum.yoko.com.ua/viewtopic.php?p=50078#50078

Пробовал я этот скрипт, не работает он

Не ищет он птичек, тайп вставлял!

Scripts Writer · Post by **Scripts Writer** » 2009-08-21 06:12:25

6aToH · Post by **6aToH** » 2009-08-23 14:55:44

Scripts Writer wrote:TWI

Включено, но что не все равно не то.. ((

6aToH · Post by **6aToH** » 2009-10-08 08:12:42

Вообщем накалялкал я ели как вот такой скрипт:

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

Подскажите почему кон лостит на нем??? Вроде де бы при луте...

CuHTpoH · Post by **CuHTpoH** » 2009-10-08 09:05:56

ввели систему что если много действий быстро сделать то кон лост, своеобразная защита от спама пакетами с клиента

6aToH · Post by **6aToH** » 2009-10-08 11:29:16

CuHTpoH wrote:ввели систему что если много действий быстро сделать то кон лост, своеобразная защита от спама пакетами с клиента

Подскажи пожалуйста куда добавить wait`ов или чеклагов... А то и так уже их понапичкал, а толку 0 (((

6aToH · Post by **6aToH** » 2009-10-09 02:32:53

Такое ощущение, что авторы тем должны сами отвечать на свои вопросы

Неужели никто не может помочь?????

CuHTpoH · Post by **CuHTpoH** » 2009-10-09 02:51:09

6aToH wrote:Такое ощущение, что авторы тем должны сами отвечать на свои вопросы Неужели никто не может помочь?????

Такое ощущение, что опытные скриптеры обязаны круглые сутки дежурить на форуме инжекта и приносить ману небесную страждущим нубасам.
Чем тупее вопрос и жирнее скрипт, тем меньше желание ковырять эту херь, у всех, тем более что 90% скриптов написаны явно ногой, причем сломанной. Щас посмотрю твой скрипт

Mirage · Post by **Mirage** » 2009-10-09 16:39:39

А я как скриптер среднего уровня просто скажу что во первых мне искренне лень таким делом заниматься (птичек у нас на серваке можно бить не портируясь

))) а во вторых такие скрипты все таки достаточно портят мир игры - так что имхо они зло. :evil:

звиняйте.

6aToH · Post by **6aToH** » 2009-10-11 09:52:07

CuHTpoH wrote:
6aToH wrote:Такое ощущение, что авторы тем должны сами отвечать на свои вопросы Неужели никто не может помочь?????
Такое ощущение, что опытные скриптеры обязаны круглые сутки дежурить на форуме инжекта и приносить ману небесную страждущим нубасам.
Чем тупее вопрос и жирнее скрипт, тем меньше желание ковырять эту херь, у всех, тем более что 90% скриптов написаны явно ногой, причем сломанной. Щас посмотрю твой скрипт

Спасибо за то что ты посмотришь, можешь все таки получится исправить что то... А на счет дежурства, я уэто тему создавал около двух месяцев назад (((

6aToH · Post by **6aToH** » 2009-10-12 11:03:22

Ну как там дела???

6aToH · Post by **6aToH** » 2009-10-12 11:07:19

Ну как там дела???

Yoko

Помогите... Скрипт на сбор перьев!!!

Помогите... Скрипт на сбор перьев!!!

Re: Помогите... Скрипт на сбор перьев!!!

Re: Помогите... Скрипт на сбор перьев!!!

Re: Помогите... Скрипт на сбор перьев!!!

Re: Помогите... Скрипт на сбор перьев!!!