Главная Мой профиль Регистрация Выход Вход
Приветствую Вас Гость | RSS
Воскресенье
09.12.2018
22:44
The Abyss Hooligans
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
  • Страница 1 из 1
  • 1
Форум » Скрипты » Скрипты в помощь игрокам гильдии. » Макрос на Ламбер. (Из названия все понятно:))
Макрос на Ламбер.
Moon_DogДата: Среда, 08.02.2012, 00:26 | Сообщение # 1
Рядовой
Группа: Администраторы
Сообщений: 5
Репутация: 1
Статус: Offline
F9 - lastobject+waitfortarget+lasttarget

: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
 
Moon_DogДата: Среда, 08.02.2012, 00:26 | Сообщение # 2
Рядовой
Группа: Администраторы
Сообщений: 5
Репутация: 1
Статус: Offline
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 f9
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
 
Форум » Скрипты » Скрипты в помощь игрокам гильдии. » Макрос на Ламбер. (Из названия все понятно:))
  • Страница 1 из 1
  • 1
Поиск:


 Copyright MyCorp © 2018
Бесплатный конструктор сайтов - uCoz