The script works, but is not compleated yet.
list null= ["OK"];
string name = "The Green Machine";
string f1 = " banana ";
string f2 = " cherry ";
string f3 = " apple ";
integer cha;
integer f1a = 15;
integer f2a = 25;
integer f3a = 35;
string LP;
integer JP;
default
{
state_entry()
{
cha = (integer) llFrand(99999999
+ 1;llRequestPermissions(llGetOwner(), PERMISSION_DEBIT);
llSetPayPrice(PAY_HIDE, [10, PAY_HIDE, PAY_HIDE, PAY_HIDE]);
JP = 1000;
llSetText(name +" \n Last Player: " + LP + "\n Jack Pot $L" + (string) JP,<0,1,0>,1);
}
touch_start(integer total_number)
{
llInstantMessage(llDetectedKey(0),"Current Pay outs are 3 " + f1 + (string) f1a + " , 3 " + f2 + (string) f2a + " , 3 " + f3 + (string) f3a + " . Only $L10 to play"
;}
money(key play, integer mon)
{
JP = JP + 1;
string w1;
string w2;
string w3;
float win;
integer a1 = (integer) llFrand(3) + 1;
if (a1 == 1)
{
string w1 = f1;
win = win + 1.1;
}
if (a1 == 2)
{
string w1 = f2;
win = win + 5.5;
}
if (a1 == 3)
{
string w1 = f3;
win = win + 10.9;
}
integer a2 = (integer) llFrand(3) + 1;
if (a2 == 1)
{
string w2 = f1;
win = win + 1.1;
}
if (a2 == 2)
{
string w2 = f2;
win = win + 5.5;
}
if (a2 == 3)
{
string w2 = f3;
win = win + 10.9;
}
integer a3 = (integer) llFrand(3) + 1;
if (a3 == 1)
{
string w3 = f1;
win = win + 1.1;
}
if (a3 == 2)
{
string w3 = f2;
win = win + 5.5;
}
if (a3 == 3)
{
string w3 = f3;
win = win + 10.9;
}
integer ww = (integer) llFrand(5) + 1;
integer ww1 = (integer) llFrand(5) + 1;
integer wmu = (integer) llFrand(25) + 1;
integer wmu1 = (integer) llFrand(25) + 1;
LP = llKey2Name(play);
llInstantMessage(play,"Thank you " + LP + " . Good luck"
;llDialog( play , " " + w1 + w2 + w3, null ,cha);
if (ww == ww1)
{
llDialog( play ,"You Won $L5", null ,cha);
llGiveMoney(play,5);
}
if (win == 3.3)
{
llDialog( play ,"You Won $L" + (string) f1a, null ,cha);
llGiveMoney(play, f1a);
}
if (win == 16.5)
{
llDialog( play ,"You Won $L" + (string) f2a, null ,cha);
llGiveMoney(play, f2a);
}
if (win == 32.7)
{
llDialog( play ,"You Won $L" + (string) f3a, null ,cha);
llGiveMoney(play, f3a);
}
win = 0;
llSetText(name +" \n Last Player: " + LP + "\n Jack Pot $L" + (string) JP,<0,1,0>,1);
}
}

,