Difference between revisions of "User:Kristy Fanshaw/Vendor System Script"
Jump to navigation
Jump to search
| (4 intermediate revisions by the same user not shown) | |||
| Line 96: | Line 96: | ||
{ | { | ||
llResetScript(); | llResetScript(); | ||
} | |||
} | |||
state sens1 | |||
{ | |||
state_entry() | |||
{ | |||
state sens; | |||
} | } | ||
} | } | ||
| Line 114: | Line 121: | ||
{ | { | ||
url = message; | url = message; | ||
llOwnerSay("updated"); | llOwnerSay("updated"); | ||
llShout(Ch,"updated"); | llShout(Ch,"updated"); | ||
| Line 122: | Line 128: | ||
{ | { | ||
llListenRemove(listen_handle); | llListenRemove(listen_handle); | ||
state | state sens1; | ||
} | } | ||
no_sensor () | no_sensor () | ||
| Line 148: | Line 154: | ||
} | } | ||
} | } | ||
state Ready1 | |||
{ | |||
state_entry() | |||
{ | |||
state Ready; | |||
} | |||
} | |||
state Ready | state Ready | ||
{ | { | ||
| Line 167: | Line 180: | ||
{ | { | ||
url = message; | url = message; | ||
llOwnerSay("updated"); | llOwnerSay("updated"); | ||
llShout(Ch,"updated"); | llShout(Ch,"updated"); | ||
| Line 199: | Line 211: | ||
llInstantMessage(llDetectedKey(0),"You didn't pay enough, " + llKey2Name(id) + ". Refunding your payment of L$" + (string)amount + "."); | llInstantMessage(llDetectedKey(0),"You didn't pay enough, " + llKey2Name(id) + ". Refunding your payment of L$" + (string)amount + "."); | ||
llGiveMoney(id, amount); | llGiveMoney(id, amount); | ||
state | state Ready1; | ||
} | } | ||
else | else | ||
| Line 255: | Line 267: | ||
llSetText("", <1.0, 1.0, 1.0>, 1.0); | llSetText("", <1.0, 1.0, 1.0>, 1.0); | ||
llSetTimerEvent(0); | llSetTimerEvent(0); | ||
state | state Ready1; | ||
} | } | ||
} | } | ||
| Line 324: | Line 336: | ||
# 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 362: | ||
changed(integer change) | changed(integer change) | ||
{ | { | ||
if(change & CHANGED_OWNER) | if(change && CHANGED_OWNER) | ||
{ | { | ||
llSetObjectDesc("0"); | |||
llResetScript(); | llResetScript(); | ||
} | } | ||
| Line 361: | Line 375: | ||
} | } | ||
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 401: | ||
mailer = 1; | mailer = 1; | ||
} | } | ||
totalsold = totalsold + 1; | |||
llSetObjectDesc((string)totalsold); | |||
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 449: | ||
{ | { | ||
llEmail(msg,"delivered", (string)num); | llEmail(msg,"delivered", (string)num); | ||
} | } | ||
} | } | ||
}</lsl>}} | }</lsl>}} | ||
Latest revision as of 02:52, 8 April 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/>.