Empire of Angels

Главная | Регистрация | Вход
Суббота, 26.07.2025, 03:27
Приветствую Вас Гость | RSS
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
  • Страница 1 из 1
  • 1
Скрипты для UOpilot
TbI4KA^KiLLДата: Понедельник, 01.06.2009, 03:54 | Сообщение # 1
Сержант
Группа: Пользователи
Сообщений: 25
Репутация: 1
Статус: Offline
Уважаемые, не все умеют писать скрипты. Буду очень блогодарин если вы поделитесь своими скриптами !!!
 
MasterДата: Понедельник, 01.06.2009, 09:09 | Сообщение # 2
Полковник
Группа: Модераторы
Сообщений: 152
Репутация: 7
Статус: Offline
Какие нужно? ты напиши на что буду рад помочь.
 
DarkAngelДата: Понедельник, 01.06.2009, 13:55 | Сообщение # 3
Подполковник
Группа: Пользователи
Сообщений: 120
Репутация: 0
Статус: Offline
У кого есть на все крафтовые скилы и на ламбер ??? одолжите пожалуйста !!!

Kiss Of The Dragon !!!
 
BelkaДата: Понедельник, 01.06.2009, 19:43 | Сообщение # 4
Лейтенант
Группа: Пользователи
Сообщений: 49
Репутация: 0
Статус: Offline
былбы очень признателен если ктонибуть дал скрипты на ламбер и мининг

Волков боятся - с козлами дружить........... Народная мудрость
 
MasterДата: Понедельник, 01.06.2009, 21:34 | Сообщение # 5
Полковник
Группа: Модераторы
Сообщений: 152
Репутация: 7
Статус: Offline
Quote (TbI4KA^KiLL)
мастер пожалуйста на мининг

так:
Собственно внизу скрипт который копируете в пилот:
в клиенте на F6 прописываете: Last object, Wait for target, last target
я надеюсь знаете как делать.

Code
set $s1 is no ore here
set $s2 have no line
set $s3 try mining
set $s4 too far away
set $s5 has changed
set $s6 loosen some rocks
set $s7 has increased
set $s8 put the
for #x -2 2 1
for #y -2 2 1
set lasttargetx charposx +#x
set lasttargety charposy +#y
set lasttargetkind 2
:repeat
send F6 400
set timer
while_not (lastmsg = $s1) or (lastmsg = $s2) or (lastmsg = $s3) or (lastmsg = $s4) or (timer > 800)
while_not (lastmsg = $s5) or (lastmsg = $s6) or (lastmsg = $s7) or (lastmsg = $s8) or (timer > 2000)
end_while
if wght >= 420
repeat 5
alarm
end_repeat
pause_script
end_if
goto repeat
end_while
end_for
end_for
set #walk random 5
if #walk = 0
repeat 5
send PageUp 200
end_repeat
end_if
if #walk = 1
repeat 5
send PageDown 200
end_repeat
end_if
if #walk = 2
repeat 5
send Home 200
end_repeat
end_if
if #walk = 3
repeat 5
send End 200
end_repeat
end_if
if #walk = 4
repeat 5
send Up 200
end_repeat
end_if
if #walk = 5
repeat 5
send Down 200
end_repeat
end_if
if #walk = 6
repeat 5
send Left 200
end_repeat
end_if
if #walk = 7
repeat 5
send Right 200
end_repeat
end_if
 
BelkaДата: Вторник, 02.06.2009, 11:10 | Сообщение # 6
Лейтенант
Группа: Пользователи
Сообщений: 49
Репутация: 0
Статус: Offline
спасиб Мастер а непоткинеш на ламбер еще)

Волков боятся - с козлами дружить........... Народная мудрость
 
MasterДата: Вторник, 02.06.2009, 14:37 | Сообщение # 7
Полковник
Группа: Модераторы
Сообщений: 152
Репутация: 7
Статус: Offline
На ламбер для пилота, сколько не пробовал нормальных скриптов нет!!! sad
Нормальные скрипты на ламбер только на Инжекте.
 
MasterДата: Вторник, 02.06.2009, 14:51 | Сообщение # 8
Полковник
Группа: Модераторы
Сообщений: 152
Репутация: 7
Статус: Offline
Хотя!! попробуйде вот этот:

Приведите чара в лес, рубаните 1 раз по дереву и запустите скрипт.
Чар пойдет и будет вырубать вс деревья попадающиеся у него на пути.

Code

:start
set #grad 5
set #wait 300
set #startx charposx
set #starty charposy
set #step 0
set #h hits
set #err 0

set $msg1 what do you want
set $msg2 it appears
set $msg3 you can't reach
set $msg4 you put the logs
set $msg5 your skill
set $msg6 you see
set $msg7 there are no logs
set $msg9 world save
set $msg10 you hack at
set $msg12 try
set $msg13 too far away

:1
set $right free
set $left free
set $switch 00
set $turn right
set #p 0
set #end 1
set #ai 0

set #dx charposx - #startx
gosub tunex

:12

if_not $switch = 11
if_not chardir = 0
send pageup
wait #wait
end_if

set #chary charposy
send pageup
wait #wait
if #chary = charposy
send pageup
wait #wait
end_if

if_not #chary = charposy

set $left free
set $right free
if #p < 0 and $switch = 00
set #dx charposx - #startx
gosub tunex2
end_if
set $switch 00
set #p #p - 1
set #end 1

set #step #step + 1
set #parity #step / #grad * #grad - #step
if #parity = 0
gosub work
end_if
goto 12
end_if
if $left = free and $right = free
set #end #end + 1
else
set #end #end + 2
end_if

if $switch = 01

:13
set $switch 10

if $left = free and $right = free

if $turn = left
set $turn right
else
set $turn left
end_if
end_if
end_if

if $switch = 10

set #dx charposx - #startx
gosub tunex2

if $left = stop and $right = stop

if #leftstop < #rightstop

set $turn left
set #end #leftstop
else
set $turn right
set #end #rightstop
end_if

set $left free
set $right free
set #ai #ai + 2
if #ai > #end
set #end #ai
end_if
set #p 0

if_not chardir = 4
send end
wait #wait
end_if
repeat #ai / 2
set #chary charposy
send end
wait #wait + 50
if_not #chary = charposy
set #step #step - 1
set #p #p + 1
else
break
end_if
end_repeat
end_if
set $switch 11
end_if
end_if

if ( $left = free or $right = free ) and ( $switch = 00 or $switch = 11 )
repeat #end / 2
if $turn = right and $right = free
if_not chardir = 2
send pagedown
wait #wait
end_if
set #charx charposx
send pagedown
wait #wait
if charposx = #charx
send pagedown

wait #wait
end_if
if #charx = charposx
set $turn left

set $right stop
set #end #end + 1
set #rightstop #end + 1
goto 13
end_if
else
if $turn = left and $left = free
if_not chardir = 6
send home
wait #wait
end_if
set #charx charposx
send home
wait #wait

if charposx = #charx
send home
wait #wait
end_if
if #charx = charposx
set $turn right
set $left stop
set #end #end + 1
set #leftstop #end + 1
goto 13
end_if
end_if
end_if

end_repeat
set $switch 01
end_if

goto 12

:tunex
if_not #dx = 0
:tunex2
if #dx < 0
if_not chardir = 2
send pagedown
wait #wait
end_if
repeat -#dx
set #charx charposx
send pagedown

wait #wait
if #charx = charposx
send pagedown
wait #wait
end_if
end_repeat
end_if
if #dx > 0
if_not chardir = 6
send home
wait #wait
end_if

repeat #dx
set #charx charposx
send home
wait #wait
if #charx = charposx
send home
wait #wait
end_if
end_repeat
end_if
end_if
return

:work
set #workx charposx - 2

set #worky charposy - 2
repeat 5
repeat 5
set #tempx #workx / 2 * 2
set #tempx #workx - #tempx
set #tempy #worky / 3 * 3
set #tempy #worky - #tempy
if_not #tempx = 0 and #tempy = 0
set #workx #workx + 1
continue
end_if

set lasttargetx #workx
set lasttargety #worky
:chop
send f11
waitfortarget 1000
set timer
while ( lastmsg what ) and timer < 6000
wait 100
end_while

if ( lastmsg put ) or ( lastmsg fail )
goto chop
end_if
set #workx #workx + 1
end_repeat
set #workx charposx - 2
set #worky #worky + 1
end_repeat
return
 
PinGraMДата: Вторник, 02.06.2009, 18:41 | Сообщение # 9
Полковник
Группа: Администраторы
Сообщений: 230
Репутация: 5
Статус: Offline
при скидывании скриптов пользуйтесь инструментом [ c o d e ] меньше лагов будет на форуме и больше стабильности
нужна ли тема куда люди будут скидывать рабочие скрипты для уо пилота ?


"Чтобы узнать цену года, спроси студента, который провалился на экзамене.
Чтобы узнать цену месяца, спроси мать, родившую преждевременно.
Чтобы узнать цену недели, спроси редактора еженедельника.
Чтобы узнать цену часа, спроси влюбленного, ждущего свою возлюбленную.
Чтобы узнать цену минуты, спроси опоздавшего на поезд.
Чтобы узнать цену секунды, спроси того, кто потерял близкого человека в автомобильной катастрофе.
Чтобы узнать цену одной тысячной секунды, спроси серебряного медалиста Олимпийских игр".
Вебер.

Прежде чем стать сверхчеловеками, пусть они сперва станут просто людьми!
Ницше.

"Никто не жертвует в бою честно заслуженным перевесом над противником, малышка... И даже нечестно заслуженным"
Дэвид Вебер — Дорога ярости
David Weber. Path of the Fury (1992)

admin@angelsuo.ru
ICQ 328-595-333

 
MasterДата: Среда, 03.06.2009, 09:14 | Сообщение # 10
Полковник
Группа: Модераторы
Сообщений: 152
Репутация: 7
Статус: Offline
Quote (Starfall)
7.6. Запрещено использование программ для добычи ресурсов на макросе, без участия человека. Под добычей ресурсов подразумевается добыча руды, добыча дерева,ловля рыбы, убийство монстров и т.д.
Наказание - вплоть до блокирования аккаунта на усмотрение Администрации.
?

Все правильно!! ЧИТАЙ ВНИМАТЕЛЬНО "без участия человека"!!!!!
Но ведь макросы то не запрещены...
капай, руби.

 
StarfallДата: Среда, 03.06.2009, 13:08 | Сообщение # 11
Рядовой
Группа: Пользователи
Сообщений: 10
Репутация: 0
Статус: Offline
Code
set $s1 There is no ore here to mine.
set $s2 Try mining in rock.
:rep
send F2 500
if lastmsg = $s1 or lastmsg = $s2
goto walking
else
wait 4000
goto rep
end_if
:walking
set #walk random 8
if #walk = #anti
goto walking
end_if
if #walk = 0
repeat 2
send PageUp
end_repeat
set #anti 1
end_if
if #walk = 1
repeat 2
send End
end_repeat
set #anti 0
end_if
if #walk = 2
repeat 2
send Home
end_repeat
set #anti 3
end_if
if #walk = 3
repeat 2
send PageDown
end_repeat
set #anti 2
end_if
if #walk = 4
repeat 2
send Up
end_repeat
set #anti 5
end_if
if #walk = 5
repeat 2
send Down
end_repeat
set #anti 4
end_if
if #walk = 6
repeat 2
send Left
end_repeat
set #anti 7
end_if
if #walk = 7
repeat 2
send Right
end_repeat
set #anti 6
end_if

под F2 прописывается макрос на миннинг в assist`е
то есть клик на кирку и на место капания...)

Сообщение отредактировал Starfall - Среда, 03.06.2009, 13:09
 
MasterДата: Понедельник, 29.06.2009, 00:23 | Сообщение # 12
Полковник
Группа: Модераторы
Сообщений: 152
Репутация: 7
Статус: Offline
по просьбе kolotel выкладываю скрипт на lockpicking:
1. нужен корабль:
2. от корабля получить ключ
3. на F11 прописать простое действие: (закрыть ключем сундук на корабле)
4. на F12 прописать: открыть замок отмычкой (которая в паке) замок на сундуке на корабле.
макрос в пилоте:

Send f11 2500
if lastmsg locked
send f12
end_if
if wght < 300
drag 187,350 229, 210 150
wait 1000
end_if
wait 500

соответственно: отмычки крафтятся из айрона:
он весят определенное кол-во веса. поэтому в процессе кача отмыки ломаются поэтому в макросе прописано если вес в паке меньше 300, то он с определенных координат( который прописывает сам игрок) перетаскивает в пак вот эта строчка: (drag 187,350 229, 210 150) т.е 187, 350 это откуда, а 229,210 это куда , а 150 это сколько)...
я думаю что все понято))

 
GoldyДата: Среда, 28.07.2010, 17:34 | Сообщение # 13
Рядовой
Группа: Пользователи
Сообщений: 1
Репутация: 0
Статус: Offline
понимаю, что вопрос не уместен для вашего форума, но все же... нужно чтобы пилот щелкал на клавишу f3 каждую секунду, потом через 125 секунд нажималась кнопка f4, так чтобы f3 на 5 сек переставала нажиматься, но потом снова включалась через эти 5 секунд...

если кто владеет этим языком, сделайте пожалуйста, буду очень признателен

 
  • Страница 1 из 1
  • 1
Поиск:


Copyright MyCorp © 2025 | Бесплатный хостинг uCoz