IF
 Race(Player1,VAMPIRE)
 Global("VampireCloaks","BG3202",0)
THEN
 RESPONSE #25
 SetGlobal("VampireCloaks","BG3202",1)
 AddStoreItem("HIGHHED2","OHHKORK",8,1)
 AddStoreItem("HIGHHED3","OHHKORK",8,1)
 AddStoreItem("HIGHHEDG","OHHKORK",8,1)
RESPONSE #25
 SetGlobal("VampireCloaks","BG3202",1)
 AddStoreItem("HIGHHED2","OHHKORK",7,1)
 AddStoreItem("HIGHHED3","OHHKORK",7,1)
 AddStoreItem("HIGHHEDG","OHHKORK",7,1)
RESPONSE #25

 SetGlobal("VampireCloaks","BG3202",1)
 AddStoreItem("HIGHHED2","OHHKORK",6,1)
 AddStoreItem("HIGHHED3","OHHKORK",6,1)
 AddStoreItem("HIGHHEDG","OHHKORK",6,1)
RESPONSE #25
 SetGlobal("VampireCloaks","BG3202",1)

 AddStoreItem("HIGHHED2","OHHKORK",5,1)
 AddStoreItem("HIGHHED3","OHHKORK",5,1)
 AddStoreItem("HIGHHEDG","OHHKORK",5,1)

 END




















