Yoko

All sides of Injection
It is currently 2018-12-15 14:36:09

All times are UTC+02:00




Post new topic  Reply to topic  [ 10 posts ] 
Author Message
PostPosted: 2012-12-23 16:18:08 
Offline
User avatar

Joined: 2006-12-19 09:38:27
Posts: 64
работа только от эксперта этого форума!


Top
   
PostPosted: 2012-12-23 18:11:29 
Offline
User avatar

Joined: 2009-05-28 09:58:28
Posts: 2783
Location: Иваново
задачу то опиши - может и новички помогут :)

_________________
Image
YokoInjection CodeSweeper
Ошибка "Unhandled exception in parser"


Top
   
PostPosted: 2012-12-23 18:36:12 
Offline
User avatar

Joined: 2006-12-19 09:38:27
Posts: 64
Mirage wrote:
задачу то опиши - может и новички помогут :)

1) оском, имеется дракон, в менб драка устанавливается тайлы на которые он плюет! надо сделать так что бы рпи нажатии разных кнопок дран плювал на раные тайлы!
2) что бы пил вамп автоматов кровь с пола и что бы не вылетал клиент при этом.
и немного простых скриптов!

для точного оописания, я могу тдать все необходимое, чара, драка и т.д.


Top
   
PostPosted: 2012-12-23 21:53:01 
Offline
User avatar

Joined: 2009-05-28 09:58:28
Posts: 2783
Location: Иваново
Code:
sub dblood()
   Dim B[5]
   var a
   B[1]=0x122E
   B[2]=0x122A
   B[3]=0x122C
   B[4]=0x122D
   B[5]=0x122B
   uo.set('finddistance','3')
   Repeat
      for a=1 to 5
         UO.FindType(B[a],"-1","ground")
         if UO.FindCount("finditem")>0 and UO.GetDistance("finditem")<=3 then
            UO.UseObject("finditem")
            wait(300)
         end if
      next
   Until UO.Dead()
end sub

кровь типо так?

_________________
Image
YokoInjection CodeSweeper
Ошибка "Unhandled exception in parser"


Top
   
PostPosted: 2012-12-24 09:43:30 
Offline
User avatar

Joined: 2006-12-19 09:38:27
Posts: 64
Mirage wrote:
Code:
sub dblood()
   Dim B[5]
   var a
   B[1]=0x122E
   B[2]=0x122A
   B[3]=0x122C
   B[4]=0x122D
   B[5]=0x122B
   uo.set('finddistance','3')
   Repeat
      for a=1 to 5
         UO.FindType(B[a],"-1","ground")
         if UO.FindCount("finditem")>0 and UO.GetDistance("finditem")<=3 then
            UO.UseObject("finditem")
            wait(300)
         end if
      next
   Until UO.Dead()
end sub

кровь типо так?


Типа, ну что бы не вылетал чар с игры и не тормозила ультима


Top
   
PostPosted: 2012-12-24 12:24:27 
Offline
User avatar

Joined: 2009-05-28 09:58:28
Posts: 2783
Location: Иваново
Легко. Убери цикл Repeat - Until UO.Dead(). А то вопрос уровня "как ездить на машине и не попасть в аварию".
Автономные циклы = зло. Хоткеи в 99% случаях рулят над автономками.

_________________
Image
YokoInjection CodeSweeper
Ошибка "Unhandled exception in parser"


Top
   
PostPosted: 2012-12-24 17:51:33 
Offline
User avatar

Joined: 2006-12-08 10:51:50
Posts: 709
Location: Москва
Mirage wrote:
Code:
sub dblood()
   Dim B[5]
   var a
   B[1]=0x122E
   B[2]=0x122A
   B[3]=0x122C
   B[4]=0x122D
   B[5]=0x122B
   uo.set('finddistance','3')
   Repeat
      for a=1 to 5
         UO.FindType(B[a],"-1","ground")
         if UO.FindCount("finditem")>0 and UO.GetDistance("finditem")<=3 then
            UO.UseObject("finditem")
            wait(300)
         end if
      next
   Until UO.Dead()
end sub

кровь типо так?


прогони скрипт через второю строку своей подписи :lol:


Top
   
PostPosted: 2012-12-24 18:07:15 
Offline
User avatar

Joined: 2009-05-28 09:58:28
Posts: 2783
Location: Иваново
:roll:
ну яж бесплатно... :mrgreen:
+ это какой то набросок из старинного архива.

Усё исправлено. 8)

_________________
Image
YokoInjection CodeSweeper
Ошибка "Unhandled exception in parser"


Top
   
PostPosted: 2012-12-24 21:59:38 
Offline
User avatar

Joined: 2006-12-08 10:51:50
Posts: 709
Location: Москва
Mirage wrote:
ну яж бесплатно... :mrgreen:

в "бесплатно" можно и shutdown - s -t 00 запихнуть :lol:


Top
   
PostPosted: 2012-12-24 22:31:14 
Offline
User avatar

Joined: 2006-12-19 09:38:27
Posts: 64
Mirage wrote:
:roll:
ну яж бесплатно... :mrgreen:
+ это какой то набросок из старинного архива.

Усё исправлено. 8)

Заплатить не проблема, главное мне нужно все в комплексе и не выпрашивать у каждого, а дать ТЗ, мне его выполнят, я заплачу.
Кто тут отважный скриптер?))


Top
   
Display posts from previous:  Sort by  
Post new topic  Reply to topic  [ 10 posts ] 

All times are UTC+02:00


Who is online

Users browsing this forum: No registered users and 1 guest


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:  
Powered by phpBB® Forum Software © phpBB Limited