Difference between revisions of "User:Kristy Fanshaw/Vendor System Script"
Jump to navigation
Jump to search
Line 324: | Line 324: | ||
# when rezzed, it will tell you it's email address. | # when rezzed, it will tell you it's email address. | ||
# when this scrpt gets an email from the vendor, it gives the inventory item to buyer and asks mailer script to send a note back to vendor that the delivery is done. | # when this scrpt gets an email from the vendor, it gives the inventory item to buyer and asks mailer script to send a note back to vendor that the delivery is done. | ||
# when touched by the owner, it says totalsold. | |||
<lsl>//////////////////////////////////////////////////////////////////////////////////////////////// | <lsl>//////////////////////////////////////////////////////////////////////////////////////////////// | ||
// Copyright (c) 2008 by Kristy Fanshaw // | // Copyright (c) 2008 by Kristy Fanshaw // | ||
Line 349: | Line 350: | ||
changed(integer change) | changed(integer change) | ||
{ | { | ||
if(change & CHANGED_OWNER) | if(change && CHANGED_OWNER) | ||
{ | { | ||
llSetObjectDesc("0"); | |||
llResetScript(); | llResetScript(); | ||
} | } | ||
Line 361: | Line 363: | ||
} | } | ||
state_entry() | state_entry() | ||
{ | { | ||
llSetObjectName(llGetInventoryName(INVENTORY_OBJECT,0)); | llSetObjectName(llGetInventoryName(INVENTORY_OBJECT,0)); | ||
llSetText(llGetObjectName() | llSetText(llGetObjectName(),<1,1,1>,1); | ||
totalsold = (integer)llGetObjectDesc(); | |||
llOwnerSay("new email is: " + (string)llGetKey() + "@lsl.secondlife.com"); | llOwnerSay("new email is: " + (string)llGetKey() + "@lsl.secondlife.com"); | ||
llEmail(my_address,llGetObjectName() , "my new email is: " + (string)llGetKey() + "@lsl.secondlife.com"); | llEmail(my_address,llGetObjectName() , "my new email is: " + (string)llGetKey() + "@lsl.secondlife.com"); | ||
llOwnerSay("message with new address is sent to your email"); | llOwnerSay("message with new address is sent to your email"); | ||
llSetTimerEvent(5.0); | llSetTimerEvent(5.0); | ||
} | } | ||
timer() | timer() | ||
Line 386: | Line 389: | ||
mailer = 1; | mailer = 1; | ||
} | } | ||
totalsold = totalsold + 1; | |||
llGetNextEmail("", ""); | llGetNextEmail("", ""); | ||
} | |||
touch_start(integer total_number) | |||
{ | |||
if (llDetectedOwner(0) == llGetOwner()) | |||
{ | |||
llOwnerSay((string)totalsold +" units have been sold since server update. "); | |||
} | |||
else | |||
{ | |||
llInstantMessage(llDetectedKey(0), "please don't touch"); | |||
} | |||
} | } | ||
}</lsl> | }</lsl> | ||
Line 421: | Line 436: | ||
{ | { | ||
llEmail(msg,"delivered", (string)num); | llEmail(msg,"delivered", (string)num); | ||
} | } | ||
} | } | ||
}</lsl>}} | }</lsl>}} |
Revision as of 03:35, 13 January 2009
LSL Portal | Functions | Events | Types | Operators | Constants | Flow Control | Script Library | Categorized Library | Tutorials |
- Click Here To see my main page for more scripts, if i'll make any :))
- Shorter Vendor System Script :: Same script, but without HTTP check
Copying Permission
Copyright © 2008 by Kristy Fanshaw
This program is free software: you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation, either version 3 of the License, or
(at your option) any later version.
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
GNU General Public License for more details.
To get a copy of the GNU General Public License, see <http://www.gnu.org/licenses/>.