;*******************************************************************************************
;*******************************************************************************************
;****************************--------YrPyGy Script by Gubrin---------***********************
;****************************--------------gubrin@o2.pl--------------***********************
;****************************---"Become the true yrpygy vet gamer"---***********************
;*******************************************************************************************
;*******************************************************************************************

initevents
set %name Gubrin
set %hits #hits
set %stamina 30

top: 
if yes in #charghost
      {
      wait 1s
      goto top
      }
if H in #CHARSTATUS 
      {
      wait 1s 
      goto top
      } 
scanjournal %cnt 3 
if %name in #journal 
      { 
      gosub randomize 
      gosub name 
      scanjournal %cnt 4 
      DELETEJOURNAL 
      wait 2s 
      } 
if C in #CHARSTATUS && #enemyid <> N/A
      { 
      gosub randomize 
      gosub poisioned 
      scanjournal %cnt 4 
      DELETEJOURNAL 
      wait 4s 
      } 
if %hits > #hits && #enemyid <> N/A
      { 
      gosub randomize 
      gosub hurt 
      scanjournal %cnt 4 
      DELETEJOURNAL 
      wait 5s 
      } 
if %stamina > #stamina
      { 
      gosub randomize 
      gosub zmeczenie 
      scanjournal %cnt 4 
      DELETEJOURNAL 
      wait 5s 
      } 
if glodny in #journal 
      { 
      gosub randomize 
      gosub glod 
      scanjournal %cnt 4 
      DELETEJOURNAL 
      wait 2s 
      } 
if smierdzi in #journal 
      { 
      gosub randomize 
      gosub smrod 
      scanjournal %cnt 4 
      DELETEJOURNAL 
      wait 2s 
      } 
if increased in #journal 
      { 
      gosub randomize 
      gosub gain 
      scanjournal %cnt 4 
      DELETEJOURNAL 
      wait 2s 
      } 
if decreased in #journal 
      { 
      gosub randomize 
      gosub gaindown 
      scanjournal %cnt 4 
      DELETEJOURNAL 
      wait 2s 
      } 
if [WZ] in #journal 
      { 
      gosub randomize 
      gosub gildia 
      scanjournal %cnt 4 
      DELETEJOURNAL 
      wait 2s 
      } 
goto top 
    
    
;===========================================Subs============================================ 

;-------------------------------------------Smierdzi----------------------------------------
sub smrod
if %random < 2 
{
  Event Macro 2 0 Pociaga nosem.
}
if %random < 4 
{
  Event Macro 2 0 Wodzi wzrokiem po okolicy !!
}
if %random < 6 
{
  Event Macro 2 0 Drapie sie po czole.
} 
if %random < 8 
{
  Event Macro 2 0 Przeciera pot z czola.
}
if %random < 10 
{ 
  Event Macro 2 0 Wzdycha.
} 
end: 
DELETEJOURNAL 
wait 45s 
return 



;---------------------------------------Postac Glodna---------------------------------------
sub glod
if %random < 2 
{
  Event Macro 1 0 Chyba czas cos zjesc ...
}
if %random < 4 
{
  Event Macro 2 0 Przelyka sline.
}
if %random < 6 
{
  Event Macro 2 0 Przeszukuje sakwy w poszukiwaniu jedzenia.
} 
if %random < 8 
{
  Event Macro 2 0 Burczy mu w brzuchu.
}
if %random < 10 
{ 
goto end 
} 
end: 
DELETEJOURNAL 
wait 41s 
return 


;--------------------------------------------Zatruty---------------------------------------- 
sub poisioned 
if %random = 1 
{
  Event Macro 2 0 Blednie.
  wait 1s
  Event Macro 1 0 Ahh .. Zaplacisz mi za to !!!
}
if %random = 2 
{
  Event Macro 2 0 Potrzasa glowa.
  wait 1s
  Event Macro 1 0 Tylko na tyle cie stac ?!?!
}
if %random = 3 
{
  Event Macro 2 0 Lapie sie za brzuch.
  wait 1s
  Event Macro 1 0 Cos ty mi zrobil nedzniku ?!?!
}
if %random = 4 
{
  Event Macro 2 0 Przymroza gniewnie oczy.
  wait 1s
  Event Macro 1 0 Na pochybel skurczybyki !!!
}
if %random = 5 
  Event Macro 1 0 Trucizna ? Ha! Bedzie ci potrzeba czegos wiecej !!!
if %random = 6 
{
  Event Macro 2 0 Z trudem lapie oddech.
  wait 1s
  Event Macro 1 0 Nie wykonczysz mnie tak latwo lajzo !!!
}
if %random = 7 
{
  Event Macro 2 0 Wyciera pot z czola.
  wait 1s
  Event Macro 1 0 To byl blad chlystku... czas umierac !!!
}
if %random > 7 
{
  Event Macro 2 0 Zakrztusza sie.
  wait 1s
  Event Macro 1 0 Z trucizna na mnie ?!? Przygotuj sie na smierc !!!
}
DELETEJOURNAL 
wait 43s 
return 



;-----------------------------------------Zraniony------------------------------------------ 
sub hurt 
if %random = 1 
{
  Event Macro 2 0 Chrzaka polykajac glosno sline.
}
if %random = 2 
{
  Event Macro 2 0 Szczerzy zeby w okrutnym usmiechu.
}
if %random = 3 
{
  Event Macro 2 0 Zaciska usta w grymasie bolu.
}
if %random = 4 
{
  Event Macro 2 0 Przeciera dlonia pot z czola.
}
if %random = 5 
{
  Event Macro 2 0 Wybucha oblonkanczym smiechem.
}
if %random = 6 
{
  Event Macro 2 0 Uchyla sie przed ciosem.
}
if %random = 7 
{
  Event Macro 2 0 Przymroza oczy uskakujac przed ciosem.
}
if %random = 8 
{
  Event Macro 2 0 Wybucha szyderczym smiechem.
}
if %random = 9 
{
  Event Macro 2 0 Twarz przecina grymas bolu.
}
if %random = 10 
{
  Event Macro 2 0 Rozglada sie lekko zdezorientowany.
}
DELETEJOURNAL 
wait 48s 
return 



;-----------------------------------------Zmeczony------------------------------------------ 
sub zmeczenie 
if %random = 1 
{
  Event Macro 2 0 Z trudem lapie oddech.
}
if %random = 2 
{
  Event Macro 2 0 Przeciera pot z czola.
}
if %random = 3 
{
  Event Macro 2 0 Twarz przecina grymas zmeczenia.
}
if %random = 4 
{
  Event Macro 2 0 Odgarnia wlosy z oczu dyszac ciezko.
}
if %random = 5 
{
  Event Macro 2 0 Spluwa gesta slina.
}
if %random = 6 
{
  Event Macro 2 0 Przymyka oczy sapiac cicho.
}
if %random = 7 
{
  Event Macro 2 0 Opada z sil.
}
if %random = 8 
{
  Event Macro 1 0 Chyba trzeba odpoczac.
  wait 1s
  Event Macro 2 0 Mamrocze pod nosem.
}
if %random = 9 
{
  Event Macro 2 0 Przygryza warge.
}
if %random = 10 
{
  Event Macro 2 0 Rozglada sie lekko zdezorientowany.
}
DELETEJOURNAL 
wait 39s 
return 



;----------------------------------------Imie w jurnalu------------------------------------- 
sub name 
if %random = 1 
{
  Event Macro 2 0 Rozglada sie dookola.
}
if %random = 2 
{
  Event Macro 2 0 Robi glupia mine.
}
if %random = 3 
{
  Event Macro 2 0 Przeczesuje wlosy dlonia usmiechajac sie z zadowoleniem.
}
if %random = 4 
{
  Event Macro 2 0 Nuci cos pod nosem.
}
if %random = 5 
{
  Event Macro 1 0 Aaaaa... tak, tak co to ja miałem zrobic?
}
if %random = 6 
{
  Event Macro 2 0 Spoglada w dal rozkojarzonym wzrokiem.
}
if %random = 7 
{
  Event Macro 2 0 Przeciaga sie rozprostowujac kosci.
}
if %random = 8 
{
  Event Macro 2 0 Potrzasa glowa mamroczac pod nosem.
}
if %random = 9 
{
  Event Macro 2 0 Gladzi sie po krotkiej brodce.
}
if %random = 10 
{
  Event Macro 2 0 Twarz przecina grymas bolu.
  wait 1s
  Event Macro 1 0 Oho stare rany sie odzywaja.
}
DELETEJOURNAL 
wait 40s 
return 



;-----------------------------------------Gain------------------------------------------ 
sub gain 
if %random = 1 
{
  Event Macro 2 0 Usmiecha sie nieznacznie.
}
if %random = 2 
{
  Event Macro 2 0 Kiwa lekko glowa mruczac pod nosem.
}
if %random = 3 
{
  Event Macro 2 0 Wyciera pot z czola.
}
if %random = 4 
{
  Event Macro 2 0 Przymroza oczy.
}
if %random = 5 
{
  Event Macro 2 0 Drapie sie po czole..
}
if %random = 6 
{
  Event Macro 2 0 Kicha cicho zaslaniajac sie reka.
}
if %random = 7 
{
  Event Macro 2 0 Mruga energicznie.
}
if %random = 8 
{
  Event Macro 2 0 Nuci cos pod nosem.
}
if %random = 9 
{
  Event Macro 2 0 Rozglada sie lekko zdezorientowany.
}
if %random = 10 
{
  Event Macro 2 0 Przeczesuje wlosy dlonia usmiechajac sie pod nosem.
}
DELETEJOURNAL 
wait 29s 
return 



;-----------------------------------------Gain Down----------------------------------------- 
sub gaindown
if %random = 1 
{
  Event Macro 2 0 Spoglada spodelba.
}
if %random = 2 
{
  Event Macro 2 0 Rozglada sie wokoło.
}
if %random = 3 
{
  Event Macro 2 0 Pociera tunike reka scierajac kurz.
}
if %random = 4 
{
  Event Macro 2 0 Spoglada w niebo.
}
if %random = 5 
{
  Event Macro 2 0 Pociera knykciem oczy.
}
if %random = 6 
{
  Event Macro 2 0 Pogwizduje pod nosem.
}
if %random = 7 
{
  Event Macro 2 0 Chrzaka polykajac glosno sline.
}
if %random = 8 
{
  Event Macro 2 0 Gladzi sie po krotkiej brodce.
}
if %random = 9 
{
  Event Macro 2 0 Rozglada sie lekko zdezorientowany.
}
if %random = 10 
{
  Event Macro 2 0 Podciaga opadajace spodnie.
}
DELETEJOURNAL 
wait 32s 
return 



;-----------------------------------------gildia----------------------------------------- 
sub gildia
if %random = 1 
{
  Event Macro 2 0 Kiwa nieznacznie glowa.
}
if %random = 2 
{
  Event Macro 2 0 Rozglada sie wokoło.
}
if %random = 3 
{
  Event Macro 2 0 Usmiecha sie nieznacznie.
}
if %random = 4 
{
  Event Macro 2 0 Spoglada w niebo.
}
if %random = 5 
{
  Event Macro 2 0 Przeciaga sie ziewajac przeciagle.
}
if %random = 6 
{
  Event Macro 2 0 Spluwa siarczyscie przez ramie.
}
if %random = 7 
{
  Event Macro 2 0 Podrzuca sztylet w reku.
}
if %random = 8 
{
  Event Macro 2 0 Gladzi sie po krotkiej brodce.
}
if %random = 9 
{
  Event Macro 2 0 Spoglada spod lba.
}
if %random = 10 
{
  Event Macro 2 0 Przeciera kurz z twarzy.
}
DELETEJOURNAL 
wait 32s 
return 



;--------------------------------------------random----------------------------------------- 
sub randomize 
   rand: 
      set %random ( #random % 10 ) + 1 
      if %random = 11 
        goto rand 
return