чтоб и бинты были и если хп падает меньше определённой отметки пил банку?
Toggle shoutbox Chat
|
Автохил Есть У Кого Такой?
#1
Posted 14 October 2013 - 00:29
#2
Posted 21 April 2014 - 12:14
...
#3
Posted 21 April 2014 - 12:18
initevents
initevent
uoswap:
if #charname <> NIck
{
UOXL swap
goto uoswap
}
restart:
set %BandageUse #true
set %GhUse #true
set %MeetUse #true
set %FishUse #true
set %Bandage ZLF
set %BandageTime 21
set %Gh EHJ_LHJ_VGJ_SGJ
set %GhTime 212
set %GhWarn 5
set %Meet VRD
set %MeetCol 73
set %MeetTime 312
set %MeetWarn 5
set %Fish EQD
set %FishCol 38
set %FishTime 312
set %FishWarn 5
set %TrapedKey T
set %Tmsg1 You_are_frozen_and_can_not_move
set %Tmsg2 You_can't_reach_that
set %Tmsg3 Tou_can't_use_that_in_your_current_state
set %BandageTimeTrue #SCNT2
set %GhTimeTrue #SCNT2
set %MeetTimeTrue #SCNT2
set %FishTimeTrue #SCNT2
;================= CheckHP =====================
start:
finditem %Bandage C_ , #backpackID
if #findkind = -1
set %BandageUse #false
finditem %Bandage C_ , #backpackID
if #findkind <> -1
set %BandageUse #true
finditem %Gh C_ , #backpackID
if #findkind = -1
set %GhUse #false
finditem %Gh C_ , #backpackID
if #findkind <> -1
set %GhUse #True
finditem %Meet C_ , #backpackID
if #findkind = -1
set %MeetUse #false
finditem %Meet C_ , #backpackID
if #findkind <> -1
set %MeetUse #true
finditem %Fish C_ , #backpackID
if #findkind = -1
set %FishUse #false
finditem %Fish C_ , #backpackID
if #findkind <> -1
set %FishUse #true
set %BandageHP #maxhits - 1
set %GhHP #maxhits - 140
set %MeetHP #maxhits - 70
set %FishHP #maxhits - 50
if %Tmsg1 in #SysMsg || %Tmsg2 in #SysMsg || %Tmsg3 in #SysMsg || %Tmsg1 in #journal || %Tmsg2 in #journal || %Tmsg3 in #journalq
gosub Trapped
if %BandageUse && #Hits < %BandageHP && #SCNT2 >= %BandageTimeTrue
gosub UseBandage
if %GhUse && #Hits < %GhHP && #SCNT2 >= %GhTimeTrue
gosub UseGh
if %MeetUse && #Hits < %MeetHP && #SCNT2 >= %MeetTimeTrue
gosub UseMeet
if %FishUse && #Hits < %FishHP && #SCNT2 >= %FishTimeTrue
gosub UseFish
;================= Title =======================
set %BandageTimer %BandageTimeTrue - #scnt2 && %BandageUse <> #false
if %BandageTimer <= 0
set %BandageTimer Ready
if %BandageUse = #false
set %BandageTimer Off
set %GhTimer %GhTimeTrue - #scnt2 && %GhUse <> #false
if %GhTimer <= 0
set %GhTimer Ready
if %GhUse = #false
set %GhTimer Off
set %MeetTimer %MeetTimeTrue - #scnt2 && %MeetUse <> #false
if %MeetTimer <= 0
set %MeetTimer Ready
if %MeetUse = #false
set %MeetTimer Off
set %FishTimer %FishTimeTrue - #scnt2 && %FishUse <> #false
if %FishTimer <= 0
set %FishtTimer Ready
if %FishUse = #false
set %FishtTimer Off
setuotitle Ultima Online - #charname ( , #shard , ) , Bandages: %BandageTimer GH: %GhTimer Meet: %MeetTimer Fish: %FishtTimer
goto start
;================= UseBandage ==================
Sub UseBandage
gosub check
set %ltarget #ltargetID
set %lobject #lobjectID
finditem %Bandage C_ , #backpackid
if #findkind <> -1 8
set #lobjectid #findid
event macro 17 0
wait 5
event macro 23 0
set #lobjectID %lobject
set #ltargetID %lobject
set #ltargetID #enemyid
set %BandageTimeTrue #scnt2 + %BandageTime
return
;================= UseGh =======================
sub UseGh
gosub check
finditem %Gh C_ , #backpackID
if #Findcol = 1159 2
ignoreitem #findID
gosub UseGh
set %AmountGh #findstack
set #lobjectid #findid
event macro 17 0
wait 5
finditem %Gh C_ , #backpackID
if #findstack = %AmountGh - 1
goto Start
set %GhTimeTrue #scnt2 + %GhTime
if %GhWarn >= %AmountGh
Gosub Warrning
return
;================= UseMeet =====================
Sub UseMeet
gosub check
finditem %Meet C_ , #backpackID
if #findkind <> -1
{
meet:
finditem %Meet C_ , #backpackID
if #findCOL <> %MeetCol 2
ignoreitem #findID
goto meet
set %AmountMeet #findstack
set #lobjectid #findid
event macro 17 0
wait 5
finditem %Meet C_ , #backpackID
if #findstack = %AmountMeet - 1
goto Start
set %MeetTimeTrue #scnt2 + %MeetTime
if %MeetWarn >= %AmountMeet
Gosub Warrning
}
return
;================= UseFish =====================
sub UseFish
gosub check
Fish:
finditem %Fish C_ , #backpackID
if #findCOL <> %FishCol
{
ignoreitem #findID
goto Fish
}
set %AmountFish #findstack
set #lobjectid #findid
event macro 17 0
wait 5
finditem %Fish C_ , #backpackID
if #findstack = %AmountFish - 1
goto Start
set %FishTimeTrue #scnt2 + %FishTime
if %FishWarn >= %AmountFish
Gosub Warrning
return
;================= Trapped =====================
Sub Trapped
key %TrapedKey
return
;================= GHOST CHECK =================
sub check
if #charghost = yes 4
finditem %GH C_ , #backpackID
if #findkind <> -1
goto restart
gosub check
return
;================= Warrning =====================
sub Warrning
set #sysmsgcol 38
event sysmessage WARNING
event sysmessage GH: %AmountGh MEET: %AmountMeet FISH: %AmountFish
return
упс не заметил что надо было на инжу.
п.с эт на изи)
0 user(s) are reading this topic
0 members, 0 guests, 0 anonymous users