User:Kristy Fanshaw
Revision as of 06:01, 9 January 2009 by Kristy Fanshaw (talk | contribs) (New page: <lsl> integer gCorrectAmount = 600; //enter your price for fast pay integer totalsold = 0; integer totalamount = 0; key OWNER; key ID; string url; key http_request_id; integer listen_handl...)
<lsl> integer gCorrectAmount = 600; //enter your price for fast pay integer totalsold = 0; integer totalamount = 0; key OWNER; key ID; string url; key http_request_id; integer listen_handle; integer back; string mail;
default
{
changed(integer change)
{
if(change && CHANGED_OWNER)
{
llResetScript();
}
}
on_rez(integer start_param)
{
llResetScript();
}
state_entry()
{
OWNER = llGetOwner();
llSetPayPrice(PAY_HIDE, [gCorrectAmount, PAY_HIDE, PAY_HIDE, PAY_HIDE]);
// in llSetText describe the name of the "update box" object that should be rezzed
llSetText("To start vendor, rezz 'update box name'.", <1.0, 1.0, 1.0>, 1.0);
llSensorRepeat("update box name", NULL_KEY , SCRIPTED, 10 , PI, 10);
}
sensor (integer numberDetected)
{
state sens;
}
no_sensor ()
{
llResetScript();
}
}
state sens {
on_rez(integer start_param)
{
llResetScript();
}
state_entry()
{
llSetText("Updating", <1.0, 1.0, 1.0>, 1.0);
// set llShout channel to whatever negative channel you like, but remeber to define the same channel in update box llListen function
llShout(-1234567,"update");
// set llListen channel to whatever negative channel you like, but remeber to define the same channel in update box llShout function
listen_handle = llListen(-7654321,"update box name", NULL_KEY, "");
llSensorRepeat("update box name", NULL_KEY , SCRIPTED, 10 , PI, 5);
}
listen( integer channel, string name, key id, string message )
{
url = message;
llListenRemove(listen_handle);
llOwnerSay("updated");
llShout(-1234567,"updated");
llListenRemove(listen_handle);
}
sensor (integer numberDetected)
{
llListenRemove(listen_handle);
state sens;
}
no_sensor ()
{
llSetText("Touch to grant debit permission.", <1.0, 1.0, 1.0>, 1.0);
}
touch_start(integer total_number)
{
llRequestPermissions(llGetOwner(), PERMISSION_DEBIT);
}
run_time_permissions(integer Permission)
{
if(Permission == PERMISSION_DEBIT)
{
llOwnerSay("Starting vendor.");
llSetText("", <1.0, 1.0, 1.0>, 1.0);
state Ready;
}
else
{
llOwnerSay ( "To share proceeds I must have give money(DEBIT) permissions");
llOwnerSay ( "Try again");
llResetScript();
}
}
}
state Ready
{
on_rez(integer start_param)
{
llResetScript();
}
state_entry()
{
llSensorRepeat("update box name", NULL_KEY , SCRIPTED, 10 , PI,30);
}
sensor (integer numberDetected)
{
llSetText("Updating", <1.0, 1.0, 1.0>, 1.0);
llShout(-1234567,"update");
listen_handle = llListen(-7654321,"update box name", NULL_KEY, "");
}
listen( integer channel, string name, key id, string message )
{
url = message;
llListenRemove(listen_handle);
llOwnerSay("updated");
llShout(-1234567,"updated");
llSetText("", <1.0, 1.0, 1.0>, 1.0);
llListenRemove(listen_handle);
}
touch_start(integer total_number)
{
if (llDetectedOwner(0) == llGetOwner())
{
llOwnerSay((string)totalsold +" units have been sold since object rez. ");
}
else
{
llInstantMessage(llDetectedKey(0), "Right-click and pay to purchase.");
}
}
money(key id, integer amount)
{
ID =id;
back = amount;
{
if (amount == gCorrectAmount)
{// correct amount paid
llInstantMessage(id, "Thank you " + llKey2Name(id) + " for your purchase.");
llInstantMessage(id,"Server initialises your request .....");
http_request_id = llHTTPRequest(url, [], "");
}
else if (amount < gCorrectAmount)
{
llInstantMessage(llDetectedKey(0),"You didn't pay enough, " + llKey2Name(id) + ". Refunding your payment of L$" + (string)amount + ".");
llGiveMoney(id, amount);
state Ready;
}
else
{
integer refund = amount - gCorrectAmount;
llInstantMessage(llDetectedKey(0),"You paid too much, " + llKey2Name(id) + ". Your change is L$" + (string)refund + ".");
llGiveMoney(id, refund);
llInstantMessage(id, "Thank you " + llKey2Name(id) + " for your purchase.");
llInstantMessage(id,"Server initialises your request .....");
http_request_id = llHTTPRequest(url, [], "");
}
}
}
http_response(key request_id, integer status, list metadata, string body)
{
{
mail =body;
if (request_id == http_request_id)
{
if ( status == 404)
{
llGiveMoney(ID, back);
llInstantMessage(ID, "Vendor is outdated");
llInstantMessage(llGetOwner(), "Your Vendor in " + llGetRegionName() + " sim can't deliver items. Please update your Vendor.");
llResetScript();
}
else
{
llInstantMessage(ID,"Request initialised.");
llInstantMessage(ID,"Sending your requested items .....");
llSetText("Purchase in progress...\n\nPlease Wait...", <1.0, 1.0, 1.0>, 1.0);
llSetPayPrice(PAY_HIDE,[ PAY_HIDE, PAY_HIDE, PAY_HIDE, PAY_HIDE]);
llEmail( body, ID, (string)llGetKey()+"@lsl.secondlife.com" );
llSetTimerEvent(5);
llGetNextEmail("", "");
}
}
}
}
email( string time, string address, string subj, string message, integer num_left )
{
if (subj == "delivered")
{
key creator = llGetCreator();
float calc = back + 0.0;
float a = calc * 0.6;
float b = back - a;
llGiveMoney( creator, (integer)a );
llInstantMessage(ID,"Accept your purchased items");
totalsold = totalsold + 1;
totalamount = back * totalsold;
llInstantMessage(llGetOwner(), (string)llKey2Name(ID) + " has paid " + (string)back + "L$ in "+ llGetRegionName() + " and you have recived " + (string)llRound(b) + "L$ from this sale");
llInstantMessage(creator, (string)llKey2Name(ID) + " has paid " + (string)back + "L$ in "+ llGetRegionName() + " and you have recived " + (string)llRound(a) + "L$ from this sale");
llSetPayPrice(PAY_HIDE,[gCorrectAmount, PAY_HIDE, PAY_HIDE, PAY_HIDE]);
llSetText("", <1.0, 1.0, 1.0>, 1.0);
llSetTimerEvent(0);
state Ready;
}
}
timer()
{
llGiveMoney(ID, back);
llInstantMessage(ID, "Vendor couldn't deliver items ... your money is refunded");
llInstantMessage(llGetOwner(), "Your Vendor in " + llGetRegionName() + " sim can't deliver items. Please update your Vendor.");
llSetPayPrice(PAY_HIDE,[gCorrectAmount, PAY_HIDE, PAY_HIDE, PAY_HIDE]);
llSetText("", <1.0, 1.0, 1.0>, 1.0);
llSetTimerEvent(0);
state default;
}
} <lsl>