* Patch from Melanie. Mantis 0001037: Add various internal plumbing to the example economy module, implements llSetPayPrice(), money() and llGiveMoney() in scripts. Thanks Melanie!

* Moves module loading before the script engine so the script engine can pick up events from modules registering interfaces with scene.

1 files changed, 36 insertions, 0 deletions

diff --git a/OpenSim/Region/ClientStack/ClientView.cs b/OpenSim/Region/ClientStack/ClientView.cs
index 9e8830f..216633f 100644
--- a/OpenSim/Region/ClientStack/ClientView.cs
+++ b/OpenSim/Region/ClientStack/ClientView.cs
@@ -234,6 +234,7 @@ namespace OpenSim.Region.ClientStack
         private UUIDNameRequest handlerTeleportHomeRequest = null;
 
                 private ScriptAnswer handlerScriptAnswer = null;
+                private RequestPayPrice handlerRequestPayPrice = null;
 
         /* Properties */
 
@@ -791,6 +792,7 @@ namespace OpenSim.Region.ClientStack
         public event UUIDNameRequest OnTeleportHomeRequest;
 
                 public event ScriptAnswer OnScriptAnswer;
+                public event RequestPayPrice OnRequestPayPrice;
 
         #region Scene/Avatar to Client
 
@@ -1167,6 +1169,32 @@ namespace OpenSim.Region.ClientStack
             OutPacket(money, ThrottleOutPacketType.Task);
         }
 
+                public void SendPayPrice(LLUUID objectID, int[] payPrice)
+                {
+                        if(payPrice[0] == 0 &&
+                           payPrice[1] == 0 &&
+                           payPrice[2] == 0 &&
+                           payPrice[3] == 0 &&
+                           payPrice[4] == 0)
+                                return;
+
+                        PayPriceReplyPacket payPriceReply = (PayPriceReplyPacket)PacketPool.Instance.GetPacket(PacketType.PayPriceReply);
+                        payPriceReply.ObjectData.ObjectID = objectID;
+                        payPriceReply.ObjectData.DefaultPayPrice = payPrice[0];
+
+                        payPriceReply.ButtonData=new PayPriceReplyPacket.ButtonDataBlock[4];
+                        payPriceReply.ButtonData[0]=new PayPriceReplyPacket.ButtonDataBlock();
+                        payPriceReply.ButtonData[0].PayButton = payPrice[1];
+                        payPriceReply.ButtonData[1]=new PayPriceReplyPacket.ButtonDataBlock();
+                        payPriceReply.ButtonData[1].PayButton = payPrice[2];
+                        payPriceReply.ButtonData[2]=new PayPriceReplyPacket.ButtonDataBlock();
+                        payPriceReply.ButtonData[2].PayButton = payPrice[3];
+                        payPriceReply.ButtonData[3]=new PayPriceReplyPacket.ButtonDataBlock();
+                        payPriceReply.ButtonData[3].PayButton = payPrice[4];
+
+            OutPacket(payPriceReply, ThrottleOutPacketType.Task);
+        }
+
         public void SendStartPingCheck(byte seq)
         {
             StartPingCheckPacket pc = (StartPingCheckPacket)PacketPool.Instance.GetPacket(PacketType.StartPingCheck);
@@ -4555,6 +4583,14 @@ namespace OpenSim.Region.ClientStack
                         // TODO: handle this packet
                         //m_log.Warn("[CLIENT]: unhandled EconomyDataRequest packet");
                         break;
+                                        case PacketType.RequestPayPrice:
+                        RequestPayPricePacket requestPayPricePacket = (RequestPayPricePacket)Pack;
+                                                handlerRequestPayPrice = OnRequestPayPrice;
+                                                if (handlerRequestPayPrice != null)
+                                                {
+                                                        handlerRequestPayPrice(this, requestPayPricePacket.ObjectData.ObjectID);
+                                                }
+                                                break;
 
                     #endregion