|
Скрипты для UOpilot
|
|
| TbI4KA^KiLL | Дата: Понедельник, 01.06.2009, 03:54 | Сообщение # 1 |
 Сержант
Группа: Пользователи
Сообщений: 25
Статус: Offline
| Уважаемые, не все умеют писать скрипты. Буду очень блогодарин если вы поделитесь своими скриптами !!!
|
| |
| |
| Master | Дата: Понедельник, 01.06.2009, 09:09 | Сообщение # 2 |
 Полковник
Группа: Модераторы
Сообщений: 152
Статус: Offline
| Какие нужно? ты напиши на что буду рад помочь.
|
| |
| |
| DarkAngel | Дата: Понедельник, 01.06.2009, 13:55 | Сообщение # 3 |
 Подполковник
Группа: Пользователи
Сообщений: 120
Статус: Offline
| У кого есть на все крафтовые скилы и на ламбер ??? одолжите пожалуйста !!!
Kiss Of The Dragon !!!
|
| |
| |
| Belka | Дата: Понедельник, 01.06.2009, 19:43 | Сообщение # 4 |
 Лейтенант
Группа: Пользователи
Сообщений: 49
Статус: Offline
| былбы очень признателен если ктонибуть дал скрипты на ламбер и мининг
Волков боятся - с козлами дружить........... Народная мудрость
|
| |
| |
| Master | Дата: Понедельник, 01.06.2009, 21:34 | Сообщение # 5 |
|
Полковник
Группа: Модераторы
Сообщений: 152
Статус: 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
Статус: Offline
| спасиб Мастер а непоткинеш на ламбер еще)
Волков боятся - с козлами дружить........... Народная мудрость
|
| |
| |
| Master | Дата: Вторник, 02.06.2009, 14:37 | Сообщение # 7 |
|
Полковник
Группа: Модераторы
Сообщений: 152
Статус: Offline
| На ламбер для пилота, сколько не пробовал нормальных скриптов нет!!! 
Нормальные скрипты на ламбер только на Инжекте.
|
| |
| |
| Master | Дата: Вторник, 02.06.2009, 14:51 | Сообщение # 8 |
|
Полковник
Группа: Модераторы
Сообщений: 152
Статус: 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
Статус: 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
Статус: Offline
| Quote (Starfall) 7.6. Запрещено использование программ для добычи ресурсов на макросе, без участия человека. Под добычей ресурсов подразумевается добыча руды, добыча дерева,ловля рыбы, убийство монстров и т.д.
Наказание - вплоть до блокирования аккаунта на усмотрение Администрации.
? Все правильно!! ЧИТАЙ ВНИМАТЕЛЬНО "без участия человека"!!!!!
Но ведь макросы то не запрещены...
капай, руби.
|
| |
| |
| Starfall | Дата: Среда, 03.06.2009, 13:08 | Сообщение # 11 |
 Рядовой
Группа: Пользователи
Сообщений: 10
Статус: 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
Статус: 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
Статус: Offline
| понимаю, что вопрос не уместен для вашего форума, но все же... нужно чтобы пилот щелкал на клавишу f3 каждую секунду, потом через 125 секунд нажималась кнопка f4, так чтобы f3 на 5 сек переставала нажиматься, но потом снова включалась через эти 5 секунд... если кто владеет этим языком, сделайте пожалуйста, буду очень признателен
|
| |
| |
