Yoko
http://forum.yoko.com.ua/

Нужен не сложный скрипт!оплата гарантируется
http://forum.yoko.com.ua/viewtopic.php?f=16&t=17134
Page 1 of 1

Author:  Anfernee [ 2012-12-23 16:18:08 ]
Post subject:  Нужен не сложный скрипт!оплата гарантируется

работа только от эксперта этого форума!

Author:  Mirage [ 2012-12-23 18:11:29 ]
Post subject:  Re: Нужен не сложный скрипт!оплата гарантируется

задачу то опиши - может и новички помогут :)

Author:  Anfernee [ 2012-12-23 18:36:12 ]
Post subject:  Re: Нужен не сложный скрипт!оплата гарантируется

Mirage wrote:
задачу то опиши - может и новички помогут :)

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

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

Author:  Mirage [ 2012-12-23 21:53:01 ]
Post subject:  Re: Нужен не сложный скрипт!оплата гарантируется

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

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

Author:  Anfernee [ 2012-12-24 09:43:30 ]
Post subject:  Re: Нужен не сложный скрипт!оплата гарантируется

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

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


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

Author:  Mirage [ 2012-12-24 12:24:27 ]
Post subject:  Re: Нужен не сложный скрипт!оплата гарантируется

Легко. Убери цикл Repeat - Until UO.Dead(). А то вопрос уровня "как ездить на машине и не попасть в аварию".
Автономные циклы = зло. Хоткеи в 99% случаях рулят над автономками.

Author:  ZeroDX [ 2012-12-24 17:51:33 ]
Post subject:  Re: Нужен не сложный скрипт!оплата гарантируется

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:

Author:  Mirage [ 2012-12-24 18:07:15 ]
Post subject:  Re: Нужен не сложный скрипт!оплата гарантируется

:roll:
ну яж бесплатно... :mrgreen:
+ это какой то набросок из старинного архива.

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

Author:  ZeroDX [ 2012-12-24 21:59:38 ]
Post subject:  Re: Нужен не сложный скрипт!оплата гарантируется

Mirage wrote:
ну яж бесплатно... :mrgreen:

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

Author:  Anfernee [ 2012-12-24 22:31:14 ]
Post subject:  Re: Нужен не сложный скрипт!оплата гарантируется

Mirage wrote:
:roll:
ну яж бесплатно... :mrgreen:
+ это какой то набросок из старинного архива.

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

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

Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/