IF
  Global("WillyBSummoned","GLOBAL",1)
THEN
 RESPONSE #100
  StartDialogueNoSet([PC])
  Wait(1)
END

IF
   !HasItem("WILLBEER",Myself)
THEN
   RESPONSE #100
   GiveItemCreate("WILLBEER","WillyB",0,0,0)
END

IF
   !HasItem("WILLBEER",Myself)
   OR(6)
      HasItem("WILLBEER",Player1)
      HasItem("WILLBEER",Player2)
      HasItem("WILLBEER",Player3)
      HasItem("WILLBEER",Player4)
      HasItem("WILLBEER",Player5)
      HasItem("WILLBEER",Player6)
THEN
   RESPONSE #100
     ActionOverride(Player1,GiveItem("WILLBEER","WillyB"))
     ActionOverride(Player2,GiveItem("WILLBEER","WillyB"))
     ActionOverride(Player3,GiveItem("WILLBEER","WillyB"))
     ActionOverride(Player4,GiveItem("WILLBEER","WillyB"))
     ActionOverride(Player5,GiveItem("WILLBEER","WillyB"))
     ActionOverride(Player6,GiveItem("WILLBEER","WillyB"))
END



IF
      !HasItem("WILLBEER",Myself)
      !HasItem("WILLBEER",Player1)
      !HasItem("WILLBEER",Player2)
      !HasItem("WILLBEER",Player3)
      !HasItem("WILLBEER",Player4)
      !HasItem("WILLBEER",Player5)
      !HasItem("WILLBEER",Player6)
THEN
   RESPONSE #100
     ActionOverride(Player1,PickUpItem("WILLBEER"))
     ActionOverride(Player2,PickUpItem("WILLBEER"))
     ActionOverride(Player3,PickUpItem("WILLBEER"))
     ActionOverride(Player4,PickUpItem("WILLBEER"))
     ActionOverride(Player5,PickUpItem("WILLBEER"))
     ActionOverride(Player6,PickUpItem("WILLBEER"))
END



IF
   NumItemsGT("WILLBEER","WillyB",1)
THEN
   RESPONSE #100
      DestroyItem("WILLBEER")
END

