A Dating Script

Is there a script out there that will allow me to give 1 notecard to each person until its empty?

I want to do a Secret Date Event for Valentines day... but I dont want to manually match people up... so I was wondering if someone could create a script to help me.

I'll have ONE BOX for Girls... ONE BOX for Guys.

Each person clicks on the BOX and gets a CARD with a COLOR on it.

then at the PARTY the two people with the same color match up for a dance.

But like I said i dont want to manually match them... and I want to know I'll have as many guys as girls in the party... so as each person clicks the box they'll be ONE less in the BOX.

Is there a Script that will do that for me?

not tried in world, some syntax errors may exist

list names;

default
{
state_entry()
{
llListen(9,"",llGetOwner(),"");
llOwnerSay("Notecard Giver Started. Say /9say list to see the names on the list, or /9clear list to delete the names");
}

touch_start(integer num)
{
string name = llDetectedName(0);
key id = llDetectedKey(0);
integer num = llGetInventoryNumber(INVENTORY_NOTECARD);
if (num >= 0)
{
if(llListFindList(names,[name]) == -1)
{
integer i = (integer)llFrand(num-1);
string notecard = llGetInventoryName(INVENTORY_NOTECARD,i);
llGiveInventory(id,notecard);
llRemoveInventory(notecard);
names += name;
}
else
{
llInstantMessage(id,"You have already gotten a notecard");
}
}
else
{
llInstantMessage(id,"Sorry, there are no more notecards");
llInstantMessage(llGetOwner(),"I have run out of notecards");
}
}

listen(integer chan, string name, key id, string str)
{
if(llToLower(str) == "say list")
{
integer len = llGetListLength(names);
integer i;
for(i = 0;i<len;++i)
{
llOwnerSay(llList2String(names,i));
}
llOwnerSay((string)len + " names.");
}
else if(llToLower(str) == "clear list")
{
names = [];
llOwnerSay("Done Clearing Names");
}
}
}

Thank you but did I forget to mention I dont know anything about SCRIPTS.

What do I do stick that in a Box... Create a new Script ... then Cut & Paste what you wrote into it?

Okay off to try it and THAK YOU!!!

I tried and your right I got error messages.

Thanks anyway.... *smiles*


Guess it cant be done

oops, i didn't finish a line. edited above

Made some minor changes and added a little. I hope Ruthven don't mind that i used his script.

In the line 'string hover_text = "Male Cards";' you can change the text 'Male Cards' to what you would prefer. Hovertext can be turned on and off by chat commands '/9text on' or '/9text off'.

Copy all between the ////////// in a New Script.

/////////////////////////////////////////
list names;
integer num;
integer CHANNEL = 9;
string hover_text = "Male Cards";
integer text_on = TRUE;

hover_text_on(){
num = llGetInventoryNumber(INVENTORY_NOTECARD);
if (text_on)
llSetText(hover_text +"\n"+ (string)num + " Cards left",<10.,1.0,1.0>,1.0);
else
llSetText("",<1.0,1.0,1.0>,0.0);
}

default
{
state_entry()
{
llListen(CHANNEL,"",llGetOwner(),"";llOwnerSay("Notecard Giver Started. Say /9say list to see the names on the list, or /9clear list to delete the names\n
, or /9text on (off) to show or hide hovertext";
hover_text_on();
}
touch_start(integer num)
{
string name = llDetectedName(0);
key id = llDetectedKey(0);
num = llGetInventoryNumber(INVENTORY_NOTECARD);
hover_text_on();
if(~llListFindList(names,[name]))
{
llInstantMessage(id,"You have already gotten a notecard";
}
else if (num == 0)
{
llInstantMessage(id,"Sorry, there are no more notecards";
llInstantMessage(llGetOwner(),"I have run out of notecards";
}
else if (num > 0)
{
integer i = (integer)llFrand(num-1);
string notecard = llGetInventoryName(INVENTORY_NOTECARD,i);
llGiveInventory(id,notecard);
llRemoveInventory(notecard);
names += name;
hover_text_on();
}
}
listen(integer chan, string name, key id, string str)
{
if(llToLower(str) == "say list"
{
integer len = llGetListLength(names);
integer i;
for(i = 0;i<len;++i){
llOwnerSay(llList2String(names,i));
}
llOwnerSay((string)len + " names.";
}
else if(llToLower(str) == "clear list"
{
names = [];
llOwnerSay("Done Clearing Names";
}
else if(llToLower(str) == "text on"
{
text_on = TRUE;
hover_text_on();
}
else if(llToLower(str) == "text off"
{
text_on = FALSE;
hover_text_on();
}
}
changed(integer change)
{
if (change & CHANGED_INVENTORY){
hover_text_on();
}
}
}
//////////////////////////////////////////////////

No same sex date option?

Looks like this is a hetero party. lol

-_-

lol, i guess you could use it for whatever gender combo you want. i just whipped up a quick script based on what they asked for. it was fairly simple, otherwise i would have referred them to the products wanted forum

You could do it by having a give-random-inventory script and no-copy contents - for instance a buttoniere and corsage in different colors for men and women. They could wear the flowers and then look for their matching dates

We have a LOT of pose balls, they dont have to have the same sex... they can do different ones.

JUST KIDDING.... doesnt matter... if I can set it up for boy-girl... it shouldnt be too hard for it to be boy-boy or girl-girl.... right?


Thank you SO much for your help.. and suggestions. I like the flower idea

okay off to try what I got... can I bring back any error messages I get here?

-_- <-- is that a good thing? ?_?

THANK YOU THANK YOU Ruthven Willenov & arton Rotaru for your help... it works GREAT.

Just ONE little thing. Is there a way I can make sure they card/flowers or whatever is giving out in a specific order... like if I number the items will it give out... 1-1 2-2 3-3 so that I can be sure that if only 3 people participate they'll be a matching 3 out as well?

Know what I mean... it will still be secret, unless the two people are standing there clicking the box at the same time and talk, which would be silly. But I wouldnt want a party where NONE of the colors match.

Inventory Items are listed alphabetically. You can do it like this:
a notecard color red
b notecard color blue
c notecard color green
and so on.

To give always the first item on the list, look for the line


string notecard = llGetInventoryName(INVENTORY_NOTECARD,i);

in the script. Change the "i" after the comma to "0".
List indexing starts at zero.

Then you can comment out, by using 2 slashes // or simply delete the line.

integer i = (integer)llFrand(num-1);

llFrand return random numbers. It's not needed anymore.

lol, for some reason i got it in my head that you wanted them to receive a random one. guess it wouldn't really matter if they don't know who receives the matching color until the party anyways.

later on i might re-write the script to check how many notecards are left after ther person receives one. the changed inventory event doesn't get triggered if it's deleted by the script

That's the trick with such games. You pretty much have to know exactly how many people are going to play in the end. You might be able to get away with doing a batch of 5 colors at once (randomly arranged), so at most three are unmatched in the end. Then there can be an announcement at the beginning of the unveiling: "If you have blue or green cards, please exchange them for a new card," or something like that (or, alternately, just announce that the odd colors will be matched together, and have a male and a female guest/helper, each of whom will dance only if there are an odd number of participants).

Yes, but it,s triggered when adding notecards to the object. That's why I threw it in.

nevermind, i read too fast and didn't see that you were updating the hovertext after they received the notecard.

the only thing i would add is to instant message the owner when it runs out, rather than when someone clicks it after it has run out. because they probably won't know to click it if there's no text telling them to

Yes, this could be pretty annoying for the owner. ^^
updated the function

Sweet,
copy this in the script and instead of the old function and delete the line llInstantMessage(llGetOwner(),"I have run out of notecards";

in the default state. Now you get some practice in script editing.

 integer empty_msg = FALSE;
 
 hover_text_on(){
 num = llGetInventoryNumber(INVENTORY_NOTECARD);
 if (text_on)
 llSetText(hover_text +"\n"+ (string)num + " Cards left",<10.,1.0,1.0>,1.0);
 else
 llSetText("",<1.0,1.0,1.0>,0.0);
 if (num == 0 && !empty_msg){
 llInstantMessage(llGetOwner(),"I have run out of notecards");
 empty_msg = TRUE;
 }else if (num > 0){
 empty_msg = FALSE;
 } 
 }
 

Oh can I get that? I was going to just put up a sign that said click box for a color card... if box show 0 Cards left, please IM me....

but if you can have the box email me when the cards run out... that would be better.

Hewee - thanks for the suggestions... I can do that... just IM those with a color card that's still in the other box tell them to just come click the box for a new card... I can have then do that 1 hour before the event so its still a surprise.

You guys are very helpful hope you come to the event its going to be at Club Epic.... not sure when yet but sometime close to Cupid Day... (cant spell Valentine)

looks like you spelled it pretty well to me

I think I got the other edit you wanted me to do, but the one above... I'm like HUH?

sorry... DID I do it right?

Deleted the line " integer i = (integer)llFrand(num-1) " and
Replaced the line " llInstantMessage(llGetOwner(),"I have run out of notecards"; " with what you had posted in the other script...so now I have what's below... did I do it right?

______________________________________________________

list names;
integer num;
integer CHANNEL = 9;
string hover_text = "Male Cards";
integer text_on = TRUE;

hover_text_on(){
num = llGetInventoryNumber(INVENTORY_NOTECARD);
if (text_on)
llSetText(hover_text +"\n"+ (string)num + " Cards left",<10.,1.0,1.0>,1.0);
else
llSetText("",<1.0,1.0,1.0>,0.0);
}

default
{
state_entry()
{
llListen(CHANNEL,"",llGetOwner(),"";llOwnerSay("Notecard Giver Started. Say /9say list to see the names on the list, or /9clear list to delete the names\n
, or /9text on (off) to show or hide hovertext";
hover_text_on();
}
touch_start(integer num)
{
string name = llDetectedName(0);
key id = llDetectedKey(0);
num = llGetInventoryNumber(INVENTORY_NOTECARD);
hover_text_on();
if(~llListFindList(names,[name]))
{
llInstantMessage(id,"You have already gotten a notecard";
}
else if (num == 0)
{
llInstantMessage(id,"Sorry, there are no more notecards";

integer empty_msg = FALSE;

hover_text_on(){
num = llGetInventoryNumber(INVENTORY_NOTECARD);
if (text_on)
llSetText(hover_text +"\n"+ (string)num + " Cards left",<10.,1.0,1.0>,1.0);
else
llSetText("",<1.0,1.0,1.0>,0.0);
if (num == 0 && !empty_msg){
llInstantMessage(llGetOwner(),"I have run out of notecards");
empty_msg = TRUE;
}else if (num > 0){
empty_msg = FALSE;
} 
}

}
else if (num > 0)
{
string notecard = llGetInventoryName(INVENTORY_NOTECARD,i);
llGiveInventory(id,notecard);
llRemoveInventory(notecard);
names += name;
hover_text_on();
}
}
listen(integer chan, string name, key id, string str)
{
if(llToLower(str) == "say list"
{
integer len = llGetListLength(names);
integer i;
for(i = 0;i<len;++i){
llOwnerSay(llList2String(names,i));
}
llOwnerSay((string)len + " names.";
}
else if(llToLower(str) == "clear list"
{
names = [];
llOwnerSay("Done Clearing Names";
}
else if(llToLower(str) == "text on"
{
text_on = TRUE;
hover_text_on();
}
else if(llToLower(str) == "text off"
{
text_on = FALSE;
hover_text_on();
}
}
changed(integer change)
{
if (change & CHANGED_INVENTORY){
hover_text_on();
}
}
}

Ok, because this is the scripting tips forum you have to do a little by yourself, otherwise you should better try your luck in the products wanted forum.

llEmail sleeps the script for 20.0 seconds, so usually it is executed from a second script and triggered via llMessageLinked from the first script.

To achieve this you can add this line to the hover_text_on function below the llIstantMessage Line.




And this goes in a second script.





Edit: Ok , wait a second. I put it together for you. I know myself, that it is importend to get some working scripts in the beginning, to keep learning scripting. Otherwise it can be very frustrating. I was very lucky to find some working scripts here when i started building. Because, first of all you want your build working and don't want to learn LSL before you can do anything else.
Next post the script with email notification.

Second Script



llEmail(email_address, "Subject", "Message";

Edit: posted the one with random numbers, edited it to the list order one.

I'm sorry... guess your right, but I didnt need the product just the script. I can build the product I just couldnt find the script to do what I wanted... Usually I can find the script I need for what want.... then cut & paste it... just couldnt find one this time... should I have said that on the product board?

I dont know anything about scripts... except to cut & past and edit a word or two.

I totally beyond totally appreciate your help... I mean beyond thank you.