AriasCreations/CardsOfUtterNonsense_old
3
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Implement more of the game!

Browse source
This commit is contained in:
Tara 2022-12-25 12:35:29 -07:00
parent 4154512e8f
commit e2327132d8
4 changed files with 764 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

68
SOURCE/LSL/Card.lsl Normal file
View file

@ -0,0 +1,68 @@
integer card_channel = -32988199;
integer g_iStart;
key g_kTable;
default
{
state_entry()
{
llMessageLinked(LINK_SET,0,"","fw_reset");
llSetLinkColor(LINK_ROOT, <1,1,1>,1);
llSetLinkColor(LINK_ROOT, <1,1,1>,0);
llWhisper(0, "You must not rez this card by itself!");
}
on_rez(integer t){
if(t==0){
llResetScript();
}else{
llSay(0, "Card is trying to find a table");
llListen(t, "", "", "");
g_iStart=t;
llSay(card_channel, llList2Json(JSON_OBJECT, ["type", "alive", "boot", t]));
}
}
listen(integer c,string n,key i,string m){
if(c == g_iStart){
if(llJsonGetValue(m, ["type"]) == "activate"){
llListen(card_channel, "", i, "");
llMessageLinked(LINK_SET,0,"","fw_reset");
g_kTable = (key)llJsonGetValue(m,["table"]);
}
} else if(c == card_channel){
if(llJsonGetValue(m,["type"]) == "position"){
llSetPos((vector)llJsonGetValue(m,["pos"]));
} else if(llJsonGetValue(m,["type"]) == "rotation"){
llSetRot((rotation)llJsonGetValue(m,["rot"]));
} else if(llJsonGetValue(m,["type"]) == "set"){
string text = llJsonGetValue(m,["card", "text"]);
integer color = (integer)llJsonGetValue(m,["card","color"]);
integer num = (integer)llJsonGetValue(m,["card", "num"]);
if(color){
// black
llSetLinkColor(LINK_ROOT, <0.2,0.2,0.2>, 1);
llSetLinkColor(LINK_ROOT, <0.2,0.2,0.2>, 0);
llMessageLinked(LINK_SET, 0, "c=white", "fw_conf");
}else {
llSetLinkColor(LINK_ROOT, <1,1,1>,1);
llSetLinkColor(LINK_ROOT, <1,1,1>,0);
llMessageLinked(LINK_SET,0,"c=black", "fw_conf");
}
llMessageLinked(LINK_SET,0,text, "fw_data : card_text");
if(num > 1){
llMessageLinked(LINK_SET,0,"Pick ("+(string)num+")\nDraw ("+(string)num+")", "fw_data : card_helpertext");
} else {
llMessageLinked(LINK_SET,0,"Cards Against Humanity", "fw_data : card_helpertext");
}
} else if(llJsonGetValue(m, ["type"]) == "die"){
llDie();
}
}
}
}