Join us in Outworldz at www.outworldz.com:9000 or follow us:

Search dozens of selected web sites for OpenSim and LSL script

New! Script Meta-Search will search thousands of scripts here and at other sites for LSL or Opensim scripts.
Loading

Want to add a script or a project? Upload it and a half million people will see it and your name here this year.

Home   Show All
Category: Contributor: Creator
Texture Picture_Presenter  

Picture_Presenter

Picture Presenter.lsl

Category: Texture
By : Anonymous
Created: 2010-01-10 Edited: 2010-01-10
Worlds: Second Life

the Zip file

Download all files for Picture_Presenter
Contents are in zip format, with .LSL (text) source code and LSLEdit (text + Solution) formats.
Get file # 1. Picture_Presenter_1.lsl
1
2 //
3
4 integer numberPicture = 0;
5 integer totalPictures = 0;
6 string nameObject = "blank";
7 //integer scan = 0;
8 string message = "";
9 // Scan to be counter number of displays
10
11 forward()
12 {
13 numberPicture++;
14 if(numberPicture >= totalPictures) numberPicture = 0;
15 nameObject = llGetInventoryName(INVENTORY_TEXTURE, numberPicture);
16 llSetTexture(nameObject, 2);
17 llSetObjectDesc(nameObject);
18 llSetText(nameObject, < 1, 1, 1 >, 1.0 );
19
20 }
21
22
23 back()
24 {
25 numberPicture = numberPicture - 1;
26 if(numberPicture < 0) numberPicture = 0;
27 if(numberPicture >= totalPictures) numberPicture = 0;
28 nameObject = llGetInventoryName(INVENTORY_TEXTURE, numberPicture);
29 llSetTexture(nameObject, 2);
30 llSetObjectDesc(nameObject);
31 llSetText(nameObject, < 1, 1, 1 >, 1.0 );
32
33 }
34
35 jumpTo( string message )
36 {
37 //llSay(0,message);
38 numberPicture = (integer)message;
39 if(numberPicture >= totalPictures)
40 {
41 //numberPicture = 0;
42 llSay(0,"Picture doesn't exist");
43 }
44 else
45 {
46 nameObject = llGetInventoryName(INVENTORY_TEXTURE, numberPicture);
47 llSetTexture(nameObject, 2);
48 llSetObjectDesc(nameObject);
49 llSetText(nameObject, < 1, 1, 1 >, 1.0 );
50 }
51
52 }
53
54 default
55 {
57 {
59
60 //llListen(0, "", "", "" );
61 llListen(14142, "", "", "" );
62 numberPicture = 0;
63 //llSay(0, (string)numberPicture);
64 nameObject = llGetInventoryName(INVENTORY_TEXTURE, numberPicture);
65 llSetTexture(nameObject, 2);
66 llSetObjectDesc(nameObject);
67 llSetText(nameObject, < 1, 1, 1 >, 1.0 );
68
69 }
70
71 on_rez(integer startParam)
72 {
74 //numberPicture = 0;
75
76
77 }
78
80 {
81 forward();
82 }
83
84
85
86 listen(integer channel, string name, key id, string message)
87 {
88 if(message == "next" )
89 {
90 forward();
91 }
92 else if(message == "back")
93 {
94 back();
95 }
96 else if( ((integer)message >= 0) && ((integer)message < 111))
97 {
98 //llSay(0,message);
99 jumpTo( message );
100 }
101
102 }
103
104 changed(integer change)
105 {
106 if(change & CHANGED_INVENTORY)
108 }
109 }// END //

Back to the Best Free Tools in Second Life and OpenSim.