Yoko

All sides of Injection
It is currently 2024-03-29 14:01:50

All times are UTC+02:00




Post new topic  Reply to topic  [ 24 posts ]  Go to page Previous 1 2
Author Message
 Post subject:
PostPosted: 2009-10-15 23:22:53 
Offline
Expert!
User avatar

Joined: 2005-09-14 15:31:58
Posts: 2152
Location: Latvia
т.к. я правила не нарушаю, я это писать не буду =) могу на заказ написать... цена где то 1кк

_________________
Уроки языка Injection
Основные команды языка Injection
Yoko Injection Code Sweeper
Drw (2009) скрипты
2017 Начал играть на Uorpg.net


Top
   
 Post subject:
PostPosted: 2009-10-15 23:33:02 
Offline

Joined: 2009-10-15 10:01:57
Posts: 5
ок 1кк дам, тока чтоб рубил спокойно на каторге, лес постолбу сдавал, и спам окружающих не сбивал окей?


Top
   
 Post subject:
PostPosted: 2009-10-16 10:18:18 
Offline
Expert!
User avatar

Joined: 2005-09-14 15:31:58
Posts: 2152
Location: Latvia
в аську стукни

_________________
Уроки языка Injection
Основные команды языка Injection
Yoko Injection Code Sweeper
Drw (2009) скрипты
2017 Начал играть на Uorpg.net


Top
   
 Post subject:
PostPosted: 2009-10-18 23:54:23 
Offline
Expert!
User avatar

Joined: 2005-09-14 15:31:58
Posts: 2152
Location: Latvia
Не проверял.
Code:
sub katorga() 
   var f=file("C:\trees3.dat")
   var TreeCount=0,i
   dim TreeX[500],TreeY[500],TreeT[500]
   uo.print('Topor... ')
   uo.exec('addobject axe')
   while uo.targeting()
      wait(100)
   wend
   uo.print('load file...')
   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()
   while not uo.dead()
      for i=1 to TreeCount 
         GotoXY(treex[i],treey[i]) 
         GetTree(str(treeT[i]),str(treeX[i]),str(TreeY[i]),str(uo.getz())) 
      next
      DropLogs()
   wend
endsub
Sub GetTree(type,x,y,z)
   wait(200)
   repeat
      uo.deletejournal()
      uo.waittargettile(type,x,y,z)
      uo.useobject('axe')
   until WaitForChange()==1
end sub
Sub WaitForChange()
   var Text1='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 Text4="That is too far away."
   var Text5="You can't do much in your current state."
   var Text6='There is no wood left to harvest.'
   var Text7='World is saving now...'
   var mess
   for var i=0 to 100
      mess=uo.Journal(0)
      if uo.Journal(0)==Text2 and uo.journalserial(uo.Journal(0))=='0x00000000' or uo.Journal(0)==Text3 and uo.journalserial(uo.Journal(0))=='0x00000000' or uo.Journal(0)==Text4 and uo.journalserial(uo.Journal(0))=='0x00000000' OR uo.Journal(0)==Text6 and uo.journalserial(uo.Journal(0))=='0x00000000' then
         return 1
      endif
      if uo.Journal(0)==Text1 and uo.journalserial(uo.Journal(0))=='0x00000000' then
         return 0
      endif
      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
      endif
      if uo.Journal(0)==Text7 then
         repeat
            wait(1000)
         until uo.Journal(0)<>Text7
      endif
      wait(100)
   next
   return 0
end sub
Sub DropLogs()
   GotoXY(1318,949)
   wait(1000)
   uo.useobject('0x401258E1')
   wait(1000)
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 Numb(x-myX)<=1 and Numb(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 Numb(num)
   if num>=0 then
      return num
   else
      return num*(-1)
   end if
end sub
Sub CheckLag()
   UO.DeleteJournal()
   UO.Click('backpack')
   repeat
      wait(50)
   until UO.InJournal('backpack')
end sub

_________________
Уроки языка Injection
Основные команды языка Injection
Yoko Injection Code Sweeper
Drw (2009) скрипты
2017 Начал играть на Uorpg.net


Top
   
Display posts from previous:  Sort by  
Post new topic  Reply to topic  [ 24 posts ]  Go to page Previous 1 2

All times are UTC+02:00


Who is online

Users browsing this forum: No registered users and 11 guests


You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot post attachments in this forum

Search for:
Jump to:  
cron
Powered by phpBB® Forum Software © phpBB Limited