From 7c29a850c4e2177d499931cdf9e4e0504abc0d4e Mon Sep 17 00:00:00 2001
From: Filip Maj <filipmaj@gmail.com>
Date: Wed, 21 Dec 2016 21:50:45 -0500
Subject: [PATCH] Scripts for party commands.

---
 data/scripts/commands/PartyDisbandCommand.lua | 28 ++++++++++++++++
 data/scripts/commands/PartyKickCommand.lua    | 32 +++++++++++++++++++
 data/scripts/commands/PartyLeaderCommand.lua  | 23 +++++++++++++
 data/scripts/commands/PartyResignCommand.lua  | 28 ++++++++++++++++
 4 files changed, 111 insertions(+)
 create mode 100644 data/scripts/commands/PartyDisbandCommand.lua
 create mode 100644 data/scripts/commands/PartyKickCommand.lua
 create mode 100644 data/scripts/commands/PartyLeaderCommand.lua
 create mode 100644 data/scripts/commands/PartyResignCommand.lua

diff --git a/data/scripts/commands/PartyDisbandCommand.lua b/data/scripts/commands/PartyDisbandCommand.lua
new file mode 100644
index 00000000..15fc2ec0
--- /dev/null
+++ b/data/scripts/commands/PartyDisbandCommand.lua
@@ -0,0 +1,28 @@
+--[[
+
+PartyKickCommand Script
+
+Handles requesting to kick (oust) and various errors.
+
+TextIds:
+
+30404 - Ousted Sheet/ActorId Version
+30410 - You are Ousted
+30428 - Ousted String Version
+30540 - You are not party leader
+30555 - Unable to oust
+30575 - Cannot oust due to not pt member
+
+--]]
+
+function onEventStarted(player, actor, name)
+	worldMaster = GetWorldMaster();		
+	
+	if (player:IsPartyLeader()) then
+		player:PartyKickPlayer(name);
+	else
+		player:SendGameMessage(player, worldMaster, 30540, 0x20);
+	end
+	
+	player:EndEvent();
+end
\ No newline at end of file
diff --git a/data/scripts/commands/PartyKickCommand.lua b/data/scripts/commands/PartyKickCommand.lua
new file mode 100644
index 00000000..b2b80987
--- /dev/null
+++ b/data/scripts/commands/PartyKickCommand.lua
@@ -0,0 +1,32 @@
+--[[
+
+PartyKickCommand Script
+
+Handles requesting to kick (oust) and various errors.
+
+TextIds:
+
+30404 - Ousted Sheet/ActorId Version
+30410 - You are Ousted
+30428 - Ousted String Version
+30540 - You are not party leader
+30555 - Unable to oust
+30575 - Cannot oust due to not pt member
+
+--]]
+
+function onEventStarted(player, actor, triggerName, name, arg2, arg3, arg4, actorId)
+	worldMaster = GetWorldMaster();		
+	
+	if (player:IsPartyLeader()) then
+		if (name == nil) then
+			player:PartyOustPlayer(actorId);
+		else
+			player:PartyOustPlayer(name);
+		end
+	else
+		player:SendGameMessage(player, worldMaster, 30540, 0x20);
+	end
+	
+	player:EndEvent();
+end
\ No newline at end of file
diff --git a/data/scripts/commands/PartyLeaderCommand.lua b/data/scripts/commands/PartyLeaderCommand.lua
new file mode 100644
index 00000000..cf965b46
--- /dev/null
+++ b/data/scripts/commands/PartyLeaderCommand.lua
@@ -0,0 +1,23 @@
+--[[
+
+PartyLeaderCommand Script
+
+Handles requesting to change party leader and various errors.
+
+--]]
+
+function onEventStarted(player, actor, triggerName, name, arg2, arg3, arg4, actorId)
+	worldMaster = GetWorldMaster();		
+	
+	if (player:IsPartyLeader()) then
+		if (name == nil) then
+			player:PartyPromote(actorId);
+		else
+			player:PartyPromote(name);
+		end
+	else
+		player:SendGameMessage(player, worldMaster, 30540, 0x20);
+	end
+	
+	player:EndEvent();
+end
\ No newline at end of file
diff --git a/data/scripts/commands/PartyResignCommand.lua b/data/scripts/commands/PartyResignCommand.lua
new file mode 100644
index 00000000..15fc2ec0
--- /dev/null
+++ b/data/scripts/commands/PartyResignCommand.lua
@@ -0,0 +1,28 @@
+--[[
+
+PartyKickCommand Script
+
+Handles requesting to kick (oust) and various errors.
+
+TextIds:
+
+30404 - Ousted Sheet/ActorId Version
+30410 - You are Ousted
+30428 - Ousted String Version
+30540 - You are not party leader
+30555 - Unable to oust
+30575 - Cannot oust due to not pt member
+
+--]]
+
+function onEventStarted(player, actor, name)
+	worldMaster = GetWorldMaster();		
+	
+	if (player:IsPartyLeader()) then
+		player:PartyKickPlayer(name);
+	else
+		player:SendGameMessage(player, worldMaster, 30540, 0x20);
+	end
+	
+	player:EndEvent();
+end
\ No newline at end of file