|
|
|
| Pomi-d'Or | 2019, lut 15 03:23
|
|
|
 |
|
| Postać ukryta | |
|
| 2017, paź 4 |
witam
poszukuje makro na weterynarie czy ktos posiada  | |
|
| xar | 2019, lut 19 06:49
|
|
|
|
|
|
| Postać ukryta | |
|
| 2015, maj 22 |
Hi
Potrzebuje skrypt na leczenie i skrypt na butle mógłby ktoś wrzucić . | |
|
| Oska | 2019, lis 21 20:01
|
|
|
|
|
|
| Postać ukryta | |
|
2018, lis 11
| Kwidzyn | |
; Nazwa: Leczenie_Menu_v-1.7.txt
; Autor: Janusz [Fris]
;====================================================
set %Ukrywanie 0 ;0 - wylaczone; 1 - wlaczone
set %lczyKogos
0set %SkilTime #scnt + 9
set %autoLeczenie 1
set %kolor 89 ;38 - czerwony 89 - jasno niebieski
set %CelLeczenia #charid
set %KlawiszLeczenie F1
set #lpc 2000
menu clear
menu window color black
menu show
menu window size 220 170
menu window title Leczenie 1.7
menu font size 10
menu font color white
menu font BGColor black
menu text mtOpisLeczenie 1 1 Czas Leczenia
menu text mtOpisPoziomuHP 120 1 Poziom HP
menu font style b
menu font color red
menu font size 34
menu text mtCzasLeczenie 10 20
0menu font color white
menu text mtPoziomHP 120 20 #HITS
menu font style ;b
menu font color white
menu font size 10
menu button mbWskrzesWamp 10 80 90 24 Res wamp
menu button mbWskrzesCzlek 120 80 90 24 Res czlek
menu button mb_LeczWampa 10 110 90 25 Lecz wampa
menu button mb_LeczCzleka 120 110 90 25 Lecz czleka
menu button mb_LeczSiebie 10 140 200 25 Lecz Siebie
;menu hideEUO
;====================================================
set #menubutton n/a
;=================== petla ===========================
loop:
set #lpc 200
if #menubutton = mb_LeczWampa
{
set #menubutton N/A
set %lczyKogos 1
event sysmessage Wskaz Cel
set #targcurs 1
repeat
until #targcurs =
0 set %RodzajBandaza AMF
set %CelLeczenia #LTARGETID
}
if #menubutton = mb_LeczCzleka
{
set #menubutton N/A
set %lczyKogos 1
event sysmessage Wskaz Cel
set #targcurs 1
repeat
until #targcurs =
0 set %RodzajBandaza ZLF
set %CelLeczenia #LTARGETID
}
if #menubutton = mb_LeczSiebie
{
set #menubutton N/A
set %CelLeczenia #charid
set %lczyKogos
0 }
if %lczyKogos = 1
{
finditem %RodzajBandaza C_ , #backpackid
set #lobjectid #findid
event macro 17
target 2s
fidnitem %CelLeczenia G
set #ltargetid %CelLeczenia
set #ltargetx #findx
set #ltargety #findy
set #ltargetz #findz
set #ltargetkind 1
event macro 22
wait 5
}
if #menubutton = CLOSED ;wcisnieto przycisk X
{
menu hide
set #menubutton N/A
halt
}
if #menubutton = mbWskrzesWamp
{
set #menubutton N/A
gosub Wskrzeszenie wamp
}
if #menubutton = mbWskrzesCzlek
{
set #menubutton N/A
gosub Wskrzeszenie czlek
}
if #hits < #maxhits && %autoLeczenie = 1 && %lczyKogos = 0
gosub Leczenie
if %autoLeczenie = 0 && %lczyKogos =
0 {
onhotkey %KlawiszLeczenie
gosub Leczenie
}
if %Ukrywanie = 1 && %SkilTime < #scnt
{
event macro 13 47 ; ukrywanie
set %SkilTime #scnt + 9
}
if #hits < #maxhits && %lczyKogos = 0
{
event ExMsg #charid 3 %kolor 0 s [ #HITS / #MAXHITS ]
}
goto loop
;------------------------------------------------------------
sub Wskrzeszenie
if wamp in %1
set %JakieBandaze AMF
if czlek in %1
set %JakieBandaze ZLF
finditem %JakieBandaze C_ . #backpackid
if #findkind = -1
{
set #sysmsgcol 1080
event sysmessage Nie masz bandazy.
goto loop
}
else
{
if #findstack < 10
event sysmessage Koncza Ci sie bandaze. Zostalo #findstack bandazy!!!
uzyj_bandazy:
set #lobjectid #findid
event macro 17
set %cel_time #scnt + 2
repeat
if A in #charstatus
{
event sysmessage Zostales unieruchomiony
return
}
if %cel_time < #scnt
goto uzyj_bandazy
until #targcurs = 1
}
return
;------------------------------------------------------------
sub Leczenie
if #hits = #maxhits
return
finditem ZLF C_ , #backpackid
if #findkind = -1
{
Display ok $Nie masz *BUTLA butli $lub nie masz $PRZEDMIOT $lub nie masz bandazy w plecaku. $Skrypt wylaczony.
halt
;goto loop
}
else
{
if #findstack < 10
event sysmessage Koncza Ci sie bandaze. Zostalo #findstack bandazy!!!
uzyj_bandazy:
set #lobjectid #findid
event macro 17
set %cel_time #scnt + 3
repeat
if %cel_time < #scnt
goto uzyj_bandazy
until #targcurs = 1
set %cel_time #scnt + 3
;if #charid in %CelLeczenia
event macro 23
repeat
if %cel_time < #scnt
goto uzyj_bandazy
if #hits = #maxhits
return
until Zaczynasz in #sysmsg
event ExMsg #charid 3 %kolor 0 s [ #HITS / #MAXHITS ]
set %licznik
0 set %czas #scnt2 + 9
set %jindex #jindex
set #lpc 200
set %czas_hp #scnt + 1
repeat
set #sysmsgcol 1088
if %czas < #scnt2
{
set %licznik %licznik + 1
if %licznik > 14 || #hits = #maxhits
{
menu Set mtCzasLeczenie
0 menu Set mtPoziomHP #HITS
event ExMsg #charid 3 %kolor %licznik s [ #HITS / #MAXHITS ]
return
}
menu Set mtCzasLeczenie %licznik
menu Set mtPoziomHP #HITS
event ExMsg #charid 3 %kolor %licznik s [ #HITS / #MAXHITS ]
if #menubutton = mbWskrzesWamp
{
set #menubutton N/A
gosub Wskrzeszenie wamp
return
}
if #menubutton = mbWskrzesCzlek
{
set #menubutton N/A
gosub Wskrzeszenie czlek
return
}
set %czas #scnt2 + 9
}
set %ji #jindex - %jindex
for %i 1 %ji
{
scanjournal %i
if Wyleczyl in #journal || palec in #journal || Nie_udalo in #journal || przestal in #journal || Anulowano. in #journal || Ta_osoba in #journal
{
menu Set mtCzasLeczenie
0 menu Set mtPoziomHP #HITS
return
}
}
if #hits < 20 && #charghost = no && %czas_hp < #scnt
{
set #sysmsgcol 1080
event sysmessage MASZ #hits HP!!!
set %czas_hp #scnt + 1
}
until Wyleczyl in #sysmsg || palec in #sysmsg || Nie_udalo in #sysmsg || przestal in #sysmsg || Anulowano. in #sysmsg || Ta_osoba in #journal
}
menu Set mtCzasLeczenie
0menu Set mtPoziomHP #HITS
return | | | |
| | | |
|
