| Autor |
n3Kro
Władca Premki
Dołączył: 01 Gru 2006
Posty: 106
Przeczytał: 0 tematów
Pomógł: 3 razy
Ostrzeżeń: 0/3
Pią 7:33, 24 Paź 2008
|
|
| Wiadomość |
|
|
na prozbe przez pm daje mc dla priesta daaawno temu go uzywalem i po calej nocy party stalo wiec dobrze leczylo chociaz moze wymagac malych poprawek ale z tym juz kazdy powinien sobie sam poradzic
| Kod: |
//1024x768 screen size
//buff/heal priest script
//MADE BY AtlantisXv edited by n3Kro
setactivewindow Knight Online Client
delay 3000
keyrate 20
objvar 10
constants
Pos_u = 970 //miejsce dużego heala
Pos_x = 990 //miejesce malego heala
do_heal = 1 //0=disable, 1=Enable healing włączenie heala
do_buff = 1 //0=disable, 1=Enable buffing włączenie buff
group = 0 //0=buff one at a time, 1=groupbuff czy uzywac grup buff
//ustawienia klawiszy
AC_300_buff = 4 //gdzie ma być ac
HP_1200_group = 6 //gdzie ma byc grup buff
HP_1500_buff = 3 //gdzie ma byc zwykły buff hp
HP_480 = 1 //mały heal
HP_1920 = 2 //duży heal
MP_pot = 8 //gdzie masz poty mp
bufftime = 611 // opoznienie buff standat 607 jak sa lagi radze wiecej
number = 0 // nie dotykac!!!
hppoty = 60 // ile potow mamy jak sie skoncza tp do miasta
end
while 1 = 1
call Hppot
call sit
Call endofpots
call checkPT
if $do_buff = 1
processmessages
end
if $do_heal = 1
call heal_party
end
delay 10
END
procedure klicka
LeftMouseDown 100
delay 100
LeftMouseUp 100
delay 200
end
procedure mana
isblack 210, 26
keydown $MP_pot 500
delay 2 sec
else
delay 10
end
end
procedure endofpots
if $hppoty < 2
say /town
say /town
say /town
stop
end
end
Procedure Sit
IsBlack 542, 748
KeyDown c 200
Delay 200
End
End
procedure heal1
call mana
keydown $HP_480 700
delay 1 sec
end
procedure heal2
call mana
keydown $HP_1920 700
delay 1 sec
end
procedure heal_party
//number 1
isobject HpBar at 901, 68
isblack $Pos_x, 75
isblack $Pos_u, 75
call klicka
call heal2
else
MousePos $Pos_x, 75
call klicka
call heal1
end
end
end
//number 2
isobject HpBar at 901, 113
isblack $Pos_x, 120
isblack $Pos_u, 120
call klicka
call heal2
else
MousePos $Pos_x, 120
call klicka
call heal1
end
end
end
//number 3
isobject HpBar at 901, 157
isblack $Pos_x, 165
isblack $Pos_u, 165
call klicka
call heal2
else
MousePos $Pos_x, 165
call klicka
call heal1
end
end
end
//number 4
isobject HpBar at 901, 202
isblack $Pos_x, 210
isblack $Pos_u, 210
call klicka
call heal2
else
MousePos $Pos_x, 210
call klicka
call heal1
end
end
end
//number 5
isobject HpBar at 901, 249
isblack $Pos_x, 255
isblack $Pos_u, 255
call klicka
call heal2
else
MousePos $Pos_x, 255
call klicka
call heal1
end
end
end
//number 6
isobject HpBar at 900, 293
isblack $Pos_x, 300
isblack $Pos_u, 300
call klicka
call heal2
else
MousePos $Pos_x, 300
call klicka
call heal1
end
end
end
//number 7
isobject HpBar at 901, 338
isblack $Pos_x, 345
isblack $Pos_u, 345
call klicka
call heal2
else
MousePos $Pos_x, 345
call klicka
call heal1
end
end
end
//number 8
isobject HpBar at 900, 383
isblack $Pos_x, 390
isblack $Pos_u, 390
call klicka
call heal2
else
MousePos $Pos_x, 390
call klicka
call heal1
end
end
end
END
procedure buffen
call klicka
delay 500
call mana
if $group = 0
keydown $HP_1500_buff 500
delay 2 sec
call mana
end
keydown $AC_300_buff 500
delay 2 sec
call mana
end
procedure buffa every $bufftime sec
if $group = 1
call mana
keydown $HP_1200_group 500
delay 2 sec
call mana
end
if $number >= 1
//isobject HpBar at 901, 68
MousePos $Pos_x, 75
call buffen
end
if $number >= 2
//isobject HpBar at 901, 113
MousePos $Pos_x, 120
call buffen
end
if $number >= 3
//isobject HpBar at 901, 157
MousePos $Pos_x, 165
call buffen
end
if $number >= 4
//isobject HpBar at 901, 202
MousePos $Pos_x, 210
call buffen
end
if $number >= 5
//isobject HpBar at 901, 249
MousePos $Pos_x, 255
call buffen
end
if $number >= 6
//isobject HpBar at 900, 293
MousePos $Pos_x, 300
call buffen
end
if $number >= 7
//isobject HpBar at 901, 338
MousePos $Pos_x, 345
call buffen
end
if $number = 8
//isobject HpBar at 900, 383
MousePos $Pos_x, 390
call buffen
end
END
Procedure Hppot
IsBlack 240, 10
keydown 7 100 // Using HP potions/spell on skill slot 7
dec $hppoty
delay 1000
End
end
procedure checkPT
isobject HpBar at 900, 383
set $number = 8
exit
end
isobject HpBar at 901, 338
set $number = 7
exit
end
isobject HpBar at 900, 293
set $number = 6
exit
end
isobject HpBar at 901, 249
set $number = 5
exit
end
isobject HpBar at 901, 202
set $number = 4
exit
end
isobject HpBar at 901, 157
set $number = 3
exit
end
isobject HpBar at 901, 113
set $number = 2
exit
end
END
Object HpBar // Test at coords 901, 68
49=0,0|49=2,0|
140=0,2|140=2,2|
173=0,4|173=2,4|
189=0,6|189=2,6|
189=0,8|189=2,8|
End Object
Procedure SwitchedWindow On WindowChange
//pause //if you want to pause when u swith to msn or other app.(can make mc stop :S)
End
|
Post został pochwalony 0 razy
|
|
Szukaj
ale dla wara combo chodzi to ac tool biega na usko a healowac nie chce a mam dobrze skil bara ustawionego pomocy:D