;___________________________________________________________________________
;___________________________________________________________________________
;____________________Script:           Spar - Stop (poison)  _______________
;____________________Author:           Heracles && Dracowing _______________
;____________________Debugged by:      Heracles && Genesis   _______________
;____________________Last update:      23 jan 2011           _______________
;____________________Script Version:   1.0                   _______________
;____________________Shard:            Neverlands Reborn     _______________
;____________________EUO tested:       87 and 177            _______________
;___________________________________________________________________________
;___________________________________________________________________________

;_________________________________________________________________________
;_____________________Variables___________________________________________
;_________________________________________________________________________
; Delete the ; in front of your role:
;(waron = in warmode, waroff = not in warmode)

;goto waron
goto waroff

;___________________________________________________________________________
;_____________________Attacker's loop_______________________________________
;___________________________________________________________________________

waron:
Finditem *partner
if #FINDKIND = -1
{
gosub music
}
if #hits < 25
   {
   goto stopon
   }
scanjournal 1
if WARNING in #journal
   {
   goto stopon1
   }
if Lets_start in #journal
   {
   goto gowaron
   }
wait 5
goto waron

;___________________________________________________________________________
;_____________________Defender's loop_______________________________________
;___________________________________________________________________________

waroff:
Finditem *partner
if #FINDKIND = -1
{
gosub music
}
if #HITS < 30
   {
   set %WARNING on
   msg  $
   msg WARNING$
   wait 1s
   msg WARNING$
   wait 10s
   }
wait 5
set %WARNING off
goto waroff

;___________________________________________________________________________
;_____________________Stop sub's____________________________________________
;___________________________________________________________________________


stopon:
event macro 6 ;war off
wait 1s
event macro 6 ;war on
Gosub Healself

stopon1:
event macro 6 ;war off
wait 1s
Event Macro 6 ;war on
gosub Healpartner

gowaron:
set #ltargetid *partner
event macro 27 ;attack last
goto waron

;___________________________________________________________________________
;_____________________Healing sub's_________________________________________
;___________________________________________________________________________

sub Healself
FindItem ZLF C_ , #BackPackID
if #findkind = -1
   {
   msg Stop, I dont have bandages!! $
   wait 1s
   msg Stop, I dont have bandages!! $
   display ok No bandages found, halting.
   halt
   }
set #lObjectID #FindID
Event Macro 17 ;Last Object
wait 3
Event Macro 23
wait 12s
if #HITS = #MAXHITS
   {
   goto gowaron
   }
gosub Healself

sub Healpartner
FindItem ZLF C_ , #BackPackID
if #findkind = -1
   {
   msg Stop, I dont have bandages!! $
   wait 1s
   msg Stop, I dont have bandages!! $
   display ok No bandages found, halting.
   halt
   }
set #lObjectID #FindID
set #lTargetID *Partner
Event Macro 17 ;Last Object
wait 3
Event Macro 22
wait 6s
FindItem ZLF C_ , #BackPackID
if #findkind = -1
   {
   msg Stop, I dont have bandages!! $
   wait 1s
   msg Stop, I dont have bandages!! $
   display ok No bandages found, halting.
   halt
   }
set #lObjectID #FindID
set #lTargetID *Partner
Event Macro 17 ;Last Object
Event Macro 22
wait 6s
return
;___________________________________________________________________________
;_____________________Music part____________________________________________
;___________________________________________________________________________

sub music
execute C:\b.mp3

sub music
execute C:\b.mp3
key 0 CTRL
wait 10s
return

;___________________________________________________________________________
;_____________________End Script____________________________________________
;___________________________________________________________________________