Крапальните пожалуйсто :D

Zorge · Post by **Zorge** » 2010-02-18 08:25:49

sub Lumber()
var i=0,j=0,k=0,r=0,q=0,ii,jj, a=0
var TopX=324,TopY=65                
dim TreeX[300], TreeY[300],TreeT[300]
dim TreeTile[300]
var flag=0,treeCount=0,clicks=0,flag2=0
var f=file("C:\trees3.dat")

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
var Area=4       ## Ðàçìåð îáðàáàòûâàåìîé òåððèòîðèè, ìîæíî ìåíÿòü îò 1 äî 4.

var TryHiding=1    ## 1 - ïåðåä òåì êàê ðóáèòü äåðåâî, áóäåò ïûòàòüñÿ óéòè â õàéä, 0 - íå áóäåò

var TryRecall=1  ## 1 - ïîñëå òîãî êàê ñîáåðåò LogsQty ëîãîâ, áóäåò ïûòàòüñÿ ðåêîëèòüñÿ äîìîé,              # ñêëàäûâàòü ëîãè íà ïîë è ðåêîëèòüñÿ îáðàòíî (íóæíî âûáðàòü äâå ðóíû), 0 - íå áóäåò.   

var LogsQty=555    ## Êîëè÷åñòâî ëîãîâ, äîáûâ êîòîðîå íàäî ðåêîëèòüñÿ äîìîé.

var RecallFromScroll=0 ## 1 - ñ ðóí, 0 - èç ðóíáóêà

var GetFromFile=1 ## 1 - êîîðäèíàòû äåðåâüåâ áóäóò ñ÷èòûâàòñÿ èç ôàéëà, 0 - ñîáèðàòñÿ èç êëèåíòà

var Const=2 ## âî ñêîëüêî ðàç óâåëè÷èâàòü ðàçìåð òåñòîâîé òåððèòîðèè (êîýôôèöèåíò)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

                              #Ãðàôèêà äåðåâüåâ
TreeTile[0]=3283                              
TreeTile[1]=3277
TreeTile[2]=3293
TreeTile[3]=3296
TreeTile[4]=3302
TreeTile[5]=3299
TreeTile[6]=3290
TreeTile[7]=3288
TreeTile[8]=3286
TreeTile[9]=3280

uo.exec("filterspeech on")
uo.exec("filterspeech add 'Where do you want to use the pickaxe?'")

uo.print('aXE: ')
uo.exec('addobject axe')
wait(5000)

if TryRecall==1 then
   
   uo.print('rUNBOOK' )
   uo.exec('addobject Runebook')
   wait(5000)         
   
   if RecallFromScroll==1 then
      uo.print('Âûáåðè ðóíó äîìîé: ')
      uo.exec('addobject runeHome')
      wait(5000)
      uo.print('Âûáåðè ðóíó â ëåñ: ')
      uo.exec('addobject runeLumber')
      wait(5000)   
   end if
end if

                              #Çàãðóæàåì êîîðäèíàòû èç ôàéëà
if GetFromFile==1 then
   uo.print('Çàãðóæàåì êîîðäèíàòû èç ôàéëà...')
   f.open()
   TreeCount=safe call f.readNumber()
   for i=1 to TreeCount   
       TreeT[i]=safe call f.ReadNumber()
       TreeX[i]=safe call f.ReadNumber()       
       TreeY[i]=safe call f.ReadNumber()       
    next   
   f.close()
else
                              #Ñîáèðàåì êîîðäèíàòû èç êëèåíòà
uo.print('Ñîáèðàåì êîîðäèíàòû äåðåâüåâ â îêðóãå...')
for a=1 to Const
for q=1 to Area
if q==2 then
   gotoxy(uo.getx()+20,uo.gety()-10)
end if   
if q==3 then
   gotoxy(uo.getx(),uo.gety()+20)
end if
if q==4 then
   gotoxy(uo.getx()-20,uo.gety())
end if
for r=0 to 3
if r==1 then
   gotoxy(uo.getx()+10,uo.gety())
end if
if r==2 then
   gotoxy(uo.getx(),uo.gety()+10)
end if
if r==3 then
   gotoxy(uo.getx()-10,uo.gety())
end if
for j=0 to 8
   for i=0 to 8
      clicks=0
      flag=0
      uo.DeleteJournal()
                              #Êëèêàåì íà òàéë
      uo.usetype('0x09A8')
      waitForTarget()
      uo.DeleteJournal()
      uo.LClick(TopX+i*21-j*21,TopY+i*21+j*21)
      WaitForTryRock()
                              #Ïðîâåðÿåì äåðåâî ëè ýòî
      flag=0
      for k=0 to 9 
         if uo.LastTile(0)==TreeTile[k]+1 then
            flag=2
         end if
      next
      if flag==0 then
         for k=0 to 9 
            if uo.LastTile(0)==TreeTile[k] then
               flag=1
            end if
         next
      end if   
                              #Êëèêíóëè íà ñòâîë
      if flag==1 then 
         flag2=0
         if treeCount>0 then
            for ii=1 to treeCount
               if treeX[ii]==uo.lastTile(1) AND treeY[ii]==uo.lastTile(2) then
                  flag2=1
               end if
            next
         end if   
         if flag2==0   then
            treeCount=treeCount+1
            TreeX[treeCount]=uo.LastTile(1)
            treeY[treeCount]=uo.lastTile(2)
            TreeT[treeCount]=uo.LastTile(0)
            uo.print('Íàéäåíî äåðåâî: x='+str(uo.lasttile(1))+' y='+str(uo.lastTile(2)))
         end if   
      end if         
                              #Êëèêíóëè ïî ëèñòâå
      if flag==2 then
         flag2=0
         if treeCount>0 then
            for ii=1 to treeCount
               if treeX[ii]==uo.lastTile(1) AND treeY[ii]==uo.lastTile(2) then
                  flag2=1
               end if
            next
         end if   
         if flag2==0   then
            treeCount=treeCount+1
            TreeX[treeCount]=uo.LastTile(1)
            treeY[treeCount]=uo.LastTile(2)
            TreeT[treeCount]=uo.LastTile(0)-1
            uo.print('Íàéäåíî äåðåâî: x='+str(uo.lasttile(1))+' y='+str(uo.lastTile(2)))            
         end if   
      end if         
next   
next
next
next
next
uo.exec("filterspeech off")
uo.print('Àíàëèç çàêîí÷åí, êîîðäèíàòû äåðåâüåâ çàïèñàíû â ôàéë C:\trees.dat')
SaveToFile(treeCount,TreeX,TreeY,TreeT)
end if
uo.print('Äåðåâüåâ íàéäåíî: '+str(treeCount))
wait(2000)
                              #Õîäèì ïî ñîáðàííûì êîîðäèíàòàì
while 1==1
   if treeCount>0 then 
      for i=1 to treeCount
         if TryRecall==1 AND uo.Count('ZLK')>=LogsQty then
            ToRecall(RecallFromScroll)
         end if
         uo.print('Èäåì ê äåðåâó '+str(i)+': x='+str(treex[i])+' y='+str(treey[i]))         
         flag=gotoxy(treex[i],treey[i])
         if flag==1 then   
            if TryHiding==1 then
               ToHide()
            end if         
            GetTree(str(treeT[i]),str(treeX[i]),str(TreeY[i]),str(uo.getz()))
         end if         
      next
   end if
wend   
end sub

sub GetTree(type,x,y,z)
var i
   uo.print('Íà÷èíàåì ðóáêó äåðåâà...')
   for i=0 to 30
      if uo.warmode()==1 then
         return 0
      end if
      wait(200)
      uo.deletejournal()
      uo.waittargettile(type,x,y,z)
      uo.useobject('axe')
      if WaitForChange()==1 then
         return 1
      end if   
   next
   return 0
end sub

sub ToRecall(FromScroll)
    RecallToHome(FromScroll)
    wait(1000)
    Unload()
    wait(1000)
    RecallToLumber(FromScroll)
end sub


sub RecallToHome(FromScroll)
var i
   uo.print('Ðåêîëèìñÿ äîìîé...')
   for i=1 to 10
      uo.deletejournal()
      if FromScroll==0 then
         RecallRunebookhome()
      else
         uo.waittargetobject('runeHome')
         uo.cast('Recall')
      end if
      if WaitForRecall()==1 then
         return 1
      end if
   next
   return 0
end sub


sub RecallToLumber(FromScroll)
var i
   uo.print('Ðåêîëèìñÿ îáðàòíî...')
   for i=1 to 10
      uo.deletejournal()
      if FromScroll==0 then
         RecallRunebookles()
      else
         uo.waittargetobject('runeLumber')
         uo.cast('Recall')
      end if
      if waitForRecall()==1 then
         return 1
      end if
   next
   return 0
end sub

sub ToHide()
var i
   uo.print('Ïûòàåìñÿ óéòè â õàéä...')
   for i=1 to 15      
      uo.deletejournal()
      uo.useskill('Hiding')
      if WaitForHide()==1 then
         return 1
      end if
   next
   return 0      
end sub

sub WaitForRecall()
var Text1=uo.getname()+": The spell fizzles."
var mess='',lastX=uo.getX(),lastY=uo.getY()
   for var i=0 to 400
      mess=uo.journal(0)
      if uo.Journal(0)==Text1 then
         return 0
      end if
      if uo.getX()<>lastX OR uo.getY()<>LastY then
         return 1
      end if
      wait(50)
   next
   return 0
end sub

sub WaitForHide()
var Text1=uo.getname()+": You have hidden yourself well"
var Text2=uo.getname()+": You can't seem to hide here."
var mess
   for var i=0 to 200
      mess=uo.journal(0)
      if uo.Journal(0)==Text1 then
         return 1
      end if   
      if uo.Journal(0)==Text2 then
         return 0
      end if   
      wait(50)
   next
   return 0
end sub

sub WaitForChange()
var Text1=uo.getname()+': You hack at the tree for a while, but fail to produce any useable wood.'
var Text2='There are no logs here to chop.'
var Text3="You can't reach this."
var mess
   for var i=0 to 200
      mess=uo.journal(0)
      if uo.Journal(0)==Text2 OR uo.Journal(0)==Text3 then
         return 1
      end if   
      if uo.Journal(0)==Text1 then
         return 0
      end if         
      if mess[0]=='Y' AND mess[1]=='o' AND mess[2]=='u' AND mess[4]=='p' AND mess[5]=='u' AND mess[6]=='t' then
         return 0
      end if
      wait(50)
   next
   return 0
end sub

sub WaitForTryRock()
var Text1="That is too far away."
var Text2="Try mining in rock."
var Text3="There is no ore here to mine."
var Text4="You have no line of sight to that location"
var Text5="You can't see the target"
   for var i=0 to 50
      if uo.Journal(0)==Text1 OR uo.Journal(0)==Text2 OR uo.Journal(0)==Text3 OR uo.Journal(0)==Text4 OR uo.Journal(0)==Text5 then
         return 1
      end if   
      wait(200)
   next
   return 0
end sub

sub WaitForTarget()
   for var i=0 to 50
      if uo.Targeting()==1 then
         return 1
      end if
      wait(200)
   next
   return 0
end sub

sub WaitForChangeXY(myX,myY,lastX,lastY)
   for var i=1 to 50
      if lastX<>myX OR lastY<>myY then
         return 1
      end if
      wait(200)
   next
   return 0
end sub

sub gotoXY(x,y)
var myX,myY,lastX=0,lastY=0,i,halt=0,z,r=0
   for i=1 to 60
      MyX=uo.getX();
      MyY=uo.getY();
      if LastX==MyX AND LastY==MyY then
         halt=halt+1
      else
         halt=0
      end if
      if halt>=10 then
         if uo.GetDir()==1 then
            for z=0 to 8
               uo.press(40)
            next
         end if
         if uo.GetDir()==3 then
            for z=0 to 8
               uo.press(37)
            next
         end if      
         if uo.GetDir()==5 then
            for z=0 to 8
               uo.press(38)
            next
         end if               
         if uo.GetDir()==7 then
            for z=0 to 8
               uo.press(39)
            next
         end if   
         halt=15
      end if
      if abs(x-myX)<=1 AND abs(y-myY)<=2 then
         return 1
      end if      
      if x<=MyX then
         if y<=MyY then
            for z=0 to 3
               uo.press(38)
            next
         else   
            for z=0 to 3
               uo.press(37)
            next
         end if
      else
         if y<=MyY then
            for z=0 to 3
               uo.press(39)
            next
         else
            for z=0 to 3
               uo.press(40)
            next
         end if         
      end if
      lastX=myX
      lastY=myY
      wait(200)
   next
   return 0
end sub

sub abs(num)
   if num>=0 then
      return num
   else 
      return num*(-1)
   end if
end sub   

sub SaveToFile(TreeCount,TreeX,TreeY,TreeT)
   var f=file("C:\trees3.dat")
   var s=0,i=0
   f.open()
   f.create()
   s=safe call f.writeln(TreeCount)
   for i=1 to TreeCount   
       s=safe call f.writeln(str(TreeT[i])+' '+str(treeX[i])+' '+str(TreeY[i]))
    next   
   f.close()
end sub

sub main()
Lumber()
end sub

sub Unload()
var UnloadCont='0x40125B73' #àéäè ñåéôà
ToHide() 
VAR Exit, i
DIM Ore[5] 
Ore[0]=0x1bdd 
Ore[1]=0x1bdd 
Ore[2]=0x1bdd 
Ore[3]=0x1bdd 

UO.SetReceivingContainer(UnloadCont) ; storecontainer 
wait(500) 


For i=0 to 3 
Exit=0 
repeat 
UO.FindType(Ore[i]) 
if UO.GetQuantity('finditem')>0 then 
UO.Grab('0','finditem') 
CheckLag() 
wait(1500) 
Else 
Exit=1 
endif 
until Exit==1 
Next 

UO.UnSetReceivingContainer() 
end sub 

sub CheckLag()
   UO.DeleteJournal()
   UO.Click('backpack')

      repeat
      wait(500)
   until UO.InJournal('backpack')
end sub

sub RecallRunebookhome()
ToHide()
UO.UseObject('Runebook')
wait(500)
UO.LClick(136,70)
wait(1000)
end sub

sub RecallRunebookles()
ToHide()
Uo.UseObject('Runebook')
wait(500)
UO.LClick(136,160)
wait(1000)
end sub

Привет всем, вот играю на DRW и пользуюсь таким скриптом на ламбер. Скрипт старый, но хороший. И вобщем то нет проблем, но хотелось бы, что бы в случае появления элема, чар просто останавливался и продолжал рубить дальше после определённой задержке :roll:

И так внимание на экран, вопрос знатокам

Куда поставить эту саму задержку, подскажи если не сложно. Последний раз просил тут помощи года 2-3 тому-назад, мне помогли и я исчез и ненадоедал, помогите пожалуйсто и я опять исчезну года на 2-3

kostjan · Post by **kostjan** » 2010-02-18 22:27:43

Да сделай просто, поставь в сам скрипт Ламбера! Я себе делал что-то типо этого токо у меня он после убийства опять начинал рубить!

Code: Select all

if uo.injournal("is attacking you") or uo.injournal("Elemental") then
Pauza()

А Это в самый низ скрипта чтобы немешало!

Code: Select all

sub Pauza()
UO.DeleteJournal() 
REPEAT 
UO.Print("Скрипт на паузе, ждём пока уйдёт элеменаль!")
WAIT(30000) ; Время скоко ждать
UO.Print("Идём дальше рубить!") 
endif 
end sub

Zorge · Post by **Zorge** » 2010-02-19 13:50:06

Code: Select all

 if uo.injournal("is attacking you") or uo.injournal("Elemental") then
Pauza()

Дружо подскажи еще куда это дело вставить :oops:

А то столько вариантов перепробывал и не один не подошел, чар совершенно не реагирует, не при атаке, не при появлении элема, и даже заменил "Elemental" на "Ent" Совсем туго!
И куда бы вставить, что бы работал родной :roll:

kostjan · Post by **kostjan** » 2010-02-19 15:28:55

Поставь там где он юзает Hatchet перед тем как рубить... Просто лень искать у тебя это в скрипте... После того как он юзает Hatchet вставь мою строчку!

А у меня скрипт был такой ешё что он в ГЗ рубил т.е в Миноке - так он просто при появлении Элементаля кричал "Guards"

Zorge · Post by **Zorge** » 2010-02-19 16:32:54

kostjan wrote:Поставь там где он юзает Hatchet перед тем как рубить... Просто лень искать у тебя это в скрипте... После того как он юзает Hatchet вставь мою строчку! А у меня скрипт был такой ешё что он в ГЗ рубил т.е в Миноке - так он просто при появлении Элементаля кричал "Guards"

Ну да, только нынче в ГЗ не порубишь, убрали такую халявную халяву. А что такое Hatchet :mrgreen:

я снова весь в поиске.

Zorge · Post by **Zorge** » 2010-02-19 16:34:06

ААА люди помогите!!! Есть что вставить, но нет во что вставить, помогите срочно вставить :mrgreen:

Mirage · Post by **Mirage** » 2010-02-19 17:40:35

смазка в помощь - вставится максимально быстро

Zorge · Post by **Zorge** » 2010-02-19 19:36:40

Mirage wrote:смазка в помощь - вставится максимально быстро

Это я повелитель этого топа, только я могу тут шутить :mrgreen:

Ну подскажите, я же ночью не усну, помогите, кто чем может

kostjan · Post by **kostjan** » 2010-02-20 15:04:30

Что за привычка дурная, чтобы всё сделали за вас... Тебе уже всё расписали прочитай хоть свой скрипт также мануалы почитай! :arrow:

Zorge · Post by **Zorge** » 2010-02-20 17:56:47

kostjan wrote:Что за привычка дурная, чтобы всё сделали за вас... Тебе уже всё расписали прочитай хоть свой скрипт также мануалы почитай!

Люди, ну вот, что за дурная привычка, так реагировать на дурные привычки. Не пью не курю, а ты про дурные привычки :cry:

kostjan · Post by **kostjan** » 2010-02-21 12:41:29

Обьясняю подробно вставляеш эту строку туда, где в твоём скрипте он перед рубкой юзает ТОПОР! :!:

Yoko

Крапальните пожалуйсто :D

Крапальните пожалуйсто :D

Re: Крапальните пожалуйсто :D

Re: Крапальните пожалуйсто :D

Re: Крапальните пожалуйсто :D

Re: Крапальните пожалуйсто :D

Re: Крапальните пожалуйсто :D

Re: Крапальните пожалуйсто :D

Re: Крапальните пожалуйсто :D

Re: Крапальните пожалуйсто :D

Re: Крапальните пожалуйсто :D

Re: Крапальните пожалуйсто :D