Mining Security - Форум

Поиск

Вход на сайт

Наш опрос

Статистика

[ Обновленные темы · Новые сообщения · Участники · Правила форума · Поиск · RSS ]

Страница 1 из 1
1

Mining Security

MaG1StR_Yoda

Дата: Пятница, 26.06.2020, 20:07 | Сообщение # 1

Генералиссимус

Группа: Администраторы

Сообщений: 1026

Статус: Оффлайн

Врубаем Guard , затем отключаем передвижение
--------------------------------------------------------
sub Guard()
var state = 0 ;0 - peace, 1 - war,
var target = ''
var hp = 100
var fd = 0

uo.set('finddistance', 20)

uo.DeleteJournal()

while 1
if state == 0 then
fd = fd + 1

if fd > 25 then
fd = 0
if inChat('earth elemental') or inChat('slime') or inChat('razz') or inChat ('an ice elemental') or inChat ('gargoyle')then

uo.findtype('0x000E', -1, 'ground') ;golem
if uo.findcount() then
target = uo.getserial('finditem')
end if

uo.findtype('0x0004', -1, 'ground') ;gargoyle
if uo.findcount() then
target = uo.getserial('finditem')
end if

uo.findtype('0x0033', -1, 'ground') ;slime
if uo.findcount() then
target = uo.getserial('finditem')
end if

uo.findtype('0x000D', -1, 'ground') ;vortex
if uo.findcount() then
target = uo.getserial('finditem')
end if

uo.findtype('0x0010', -1, 'ground') ;ice elemantal
if uo.findcount() then
target = uo.getserial('finditem')
end if

if strlen(target) > 0 then
uo.print('I have new target')
state = 1
uo.setglobal('g_follow', target)
uo.exec('exec Follow')
uo.warmode(1)
uo.attack(target)
uo.waittargetobject(target)
uo.cast('Magic Arrow')
wait(4000)
uo.waittargetobject(target)
uo.cast('Magic Arrow')
wait(4000)
end if
else

end if
end if
end if

if state == 1 then
if uo.gethp(target) > 0 then
state = 1
else
uo.print('Zero hp')
target = ''
uo.DeleteJournal()
state = 0
end if
end if

hp = uo.life
if hp > 130 then
hp = hp / 100
end if

if hp < 50 then
uo.bandageself()
wait(5000)
end if

wait(100)
wend
end sub

sub Follow()
if uo.getglobal('g_follow_on') == '1' then
return 0
else
uo.setglobal('g_follow_on', '1')
uo.exec('exec FollowReal')
end if
end sub

sub FollowOnOff()
if strlen(uo.getglobal('g_follow')) > 1 then
uo.print('Follow disabled')
uo.setglobal('g_follow', 0)
else
uo.print('Follow enabled')
uo.setglobal('g_follow', 'lasttarget')
uo.exec('exec Follow')
end if
end sub

sub FollowReal()
while 1
if uo.getglobal('g_follow') then
FollowMove(uo.getglobal('g_follow'))
end if
wait(70)
wend
end sub

sub FollowMove(ft)
var mx = 0
var my = 0
var fx = 0
var fy = 0
var fd = 0
var dir_num = -1
var keycode = 0
var pre_move = 0
mx = uo.getx()
my = uo.gety()
fx = uo.getx(ft)
fy = uo.gety(ft)

if fx == 0 then
return 0
end if

; uo.print('my {'+str(mx)+':'+str(my)+'} -> {'+str(fx)+':'+str(fy)+'}')

fd = uo.getdir(ft)
if pre_move then
if fd==7 or fd==6 or fd==5 then
fx = fx - 1
end if
if fd==1 or fd==2 or fd==3 then
fx = fx + 1
end if
if fd==0 or fd==1 or fd==7 then
fy = fy - 1
end if
if fd==3 or fd==4 or fd==5 then
fy = fy + 1
end if
end if

if fx > mx then

if fy < my then
dir_num = 1
else
if fy > my then
dir_num = 3
else
dir_num = 2
end if
end if

else
if fx < mx then

if fy < my then
dir_num = 7
else
if fy > my then
dir_num = 5
else
dir_num = 6
end if
end if

else

if fy < my then
dir_num = 0
else
if fy > my then
dir_num = 4
else
; on place
end if
end if

end if
end if

if dir_num <> -1 then
keycode = FollowDirToKey(dir_num)
uo.keypress(keycode, 1, 10)
end if
end sub

sub FollowDirToKey(dir)
var keycode = 0
dim FOLLOW_DIRKEY[7]

FOLLOW_DIRKEY[0] = 33
FOLLOW_DIRKEY[1] = 39
FOLLOW_DIRKEY[2] = 34
FOLLOW_DIRKEY[3] = 40
FOLLOW_DIRKEY[4] = 35
FOLLOW_DIRKEY[5] = 37
FOLLOW_DIRKEY[6] = 36
FOLLOW_DIRKEY[7] = 38

keycode = FOLLOW_DIRKEY

[dir]return keycode
end sub

sub inChat(text)
var jn = 0

jn = uo.injournal(text)
if jn then
uo.SetJournalLine(jn - 1, "...")
return 1
end if
return 0
end sub

Гость

Дата: Воскресенье, 25.04.2021, 23:42 | Сообщение # 2

Группа: Гости

Что-то не заводится.

Жалуется на эту часть

sub FollowDirToKey(dir)
var keycode = 0
dim FOLLOW_DIRKEY[7]

FOLLOW_DIRKEY[0] = 33
FOLLOW_DIRKEY[1] = 39
FOLLOW_DIRKEY[2] = 34
FOLLOW_DIRKEY[3] = 40
FOLLOW_DIRKEY[4] = 35
FOLLOW_DIRKEY[5] = 37
FOLLOW_DIRKEY[6] = 36
FOLLOW_DIRKEY[7] = 38

keycode = FOLLOW_DIRKEY

[dir]return keycode
end sub