Нужен не сложный скрипт!оплата гарантируется

[Anfernee]

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

[Mirage]

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

[Anfernee]

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

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

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

[Mirage]

Code: Select all

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

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

[Anfernee]

Code: Select all

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

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

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

[Mirage]

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

[ZeroDX]

Code: Select all

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

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

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

[Mirage]

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

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

[ZeroDX]

ну яж бесплатно...

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

[Anfernee]

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

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

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