20 lines
588 B
Plaintext
20 lines
588 B
Plaintext
//::///////////////////////////////////////////////
|
|
//:: FileName give_winecellkey
|
|
//:://////////////////////////////////////////////
|
|
//:://////////////////////////////////////////////
|
|
//:: Created By: Script Wizard
|
|
//:: Created On: 11/30/2003 4:57:32 PM
|
|
//:://////////////////////////////////////////////
|
|
|
|
void main()
|
|
{
|
|
|
|
object oPartyMember = GetFirstFactionMember(GetPCSpeaker(), TRUE);
|
|
while (GetIsObjectValid(oPartyMember) == TRUE)
|
|
{
|
|
CreateItemOnObject("winecellarkey", oPartyMember, 1);
|
|
|
|
oPartyMember = GetNextFactionMember(GetPCSpeaker(), TRUE);
|
|
}
|
|
}
|