Book Script help...

[kiki Chaika]

After trying for 4 days... I must raise the white flag and see if any of you can help.. please. I try to analyze this script to make a book, basically you click the cover of the book to open it, it will display the textures in order, with flipping "action"; and close when the book is finished (or click the cover and back) The author of the script went onto the very details of how to put texture inside a script... but s/he seems to forget the most important thing.. how to build the book using these 3 scripts.... and where does the script belong I have tried every options i can think of... I did a one prim book, a 3 prim book (cover, sheet backcover), I did a 4 prim book (cover sheet, new sheet, back cover), and a 5prim book (cover, sheet, new sheet, turning sheet, back cover)... And I tried to put in the 3 scripts in different ways.. NONE works... OMG... i give up... so I ask for the collective mind for help... Obawan, you are my only help! thanks! ===== // :CATEGORY:Books // :NAME:To_publish_your_own_books_in_Second // :AUTHOR:Issarlk // :CREATED:2010-01-10 05:20:56.000 // :EDITED:2014-01-01 12:48:53 // :ID:900 // :NUM:1276 // :REV:1.1 // :WORLD:Second Life, OpenSim // :DESCRIPTION: // This is a prim book, it has real pages that turns when you browse it. The book displays pictures ; not text (unless your picture contains text of course). // License: GNU General Public License // :CODE: // To publish your own books in Second Life, his book is free software, please read LICENSE file if you intend to modify it. // In a nutshell: you may modify and redistribute, even sell, the book ; but the scripts and prims composing the book must retain full permissions for next owner . // You can, however, distribute the content (your textures) with whatever permissions you want . // What is it ? // This is a prim book, it has real pages that turns when you browse it. The book displays pictures ; not text (unless your picture contains text of course). // ********* // How to use? // ********** // Rez the book and clic cover to open it. Then clic a page to flip it. The book close when you clic the backcover or cover so be carefull not to clic too fast as the pages take a short instant before appearing. // // How to make my own book? // ********************** // // You have textures for the pages, one for each. Your textures should all have same width per height ratio, or some will look flattened and others too long. // You have two choice for texture naming, edit the Settings notecard to choose and then Reset the "Book" script: // - Numerical // In this mode, texture must be named page1 page2 page3 etc. Put this in the Settings notecard to use it (no spaces): // PageNaming:numerical // - Alphabetical // In this mode, textures are put into pages in alphabetical order, to use it put this in the Settings notecard (no spaces): // PageNaming:alphabetical // - Drop the textures in the book inventory ; to do that, right-click the book, select edit then "more" and then the Content tab. Then you can drag-drop the textures. // - Open the "Book" script in the contents and Reset it. // - The book should work. // You can resize the book to accomodate the aspect ratio (width/height) of your pictures. // // To change the cover and backcover, use SL building tools to change their texture (anybody who build a bit can show you if you don't know how). ------------------------------------------ // Hereafter you will find: // One script named "Book", one named "sheet" and one named "update-sheet" // One note named "Settings" // // Book script // ----------------- //Prim book scripts, animate a 3d prim book //Copyright (C) 2005 Issarlk //Retrieved from Free SL Scripts on http://www.gendersquare.org/sl // //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 2 //of the License, or (at your option) any later version. // See: http://www.gnu.org/licenses/gpl.html // //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. // //You should have received a copy of the GNU General Public License //along with this program; if not, write to the Free Software //Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. //List of links of our sheets list sheet_links; list free_sheet_links; list in_use_sheet_links; //commands to send to a sheet list sheet_commands; //link numbers of sheets in the four possible positions possible // open standby, open, closed, closed standby list pos_sheet_links = [0,0,0,0]; //Type of page naming. integer pagenaming; //0=numerical 1=alphabetic order list pagetexturenames = []; //used for alphabetic order //notecard reading integer line; key queryid; //Blank texture key blank_texture = "5748decc-f629-461c-9a36-a35a221fe21f"; init() { sheet_links = []; in_use_sheet_links = []; sheet_commands = []; //tell cover that the book is closed llMessageLinked(LINK_ALL_OTHERS, 0, "closed", NULL_KEY); //tell sheets to reinitialise llMessageLinked(LINK_ALL_OTHERS, 523, "init", NULL_KEY); } //open book open() { //tell cover to open llMessageLinked(LINK_ALL_OTHERS, 0, "open", NULL_KEY); pos_sheet_links = [0,0,0,0]; } //same, but closes close() { //close book //tell sheets to reinitialise llMessageLinked(LINK_ALL_OTHERS, 523, "init", NULL_KEY); pos_sheet_links = [0,0,0,0]; //tell covers to close llMessageLinked(LINK_ALL_OTHERS, 0, "closed", NULL_KEY); } integer findFreeSheet() { integer nb; //llOwnerSay("findFreeSheet, free_sheet_links: " + llList2CSV(free_sheet_links) + " in_use_sheet_links: " + llList2CSV(in_use_sheet_links)); if (llGetListLength(free_sheet_links) > 0) { //free sheets are available, use one nb = (integer)llList2Integer(free_sheet_links, 0); free_sheet_links = llDeleteSubList(free_sheet_links, 0, 0); } else { //No more available. Got to recycle one nb = (integer)llList2Integer(in_use_sheet_links, 0); in_use_sheet_links = llDeleteSubList(in_use_sheet_links, 0, 0); sheet_command(nb, "init"); } in_use_sheet_links += [nb]; return nb; } //Release a sheet no longer used release_sheet(integer link_number) { if (link_number != 0) { sheet_command(link_number, "init"); llSetLinkTexture(link_number, blank_texture, ALL_SIDES); free_sheet_links += [link_number]; integer tmp = llListFindList(in_use_sheet_links, [link_number]); in_use_sheet_links = llDeleteSubList(in_use_sheet_links, tmp, tmp); } } //"create" a sheet (actually show a hidden one) //number is number of sheet //open tells if sheet is on the left (when you browse the book backward) or the righ (normal reading) //commands is various commands to send to the sheet // // returns: link number of sheet integer new_sheet(integer number, integer open, string commands) { if (!sheet_exists(number)) { return 0; } //Find a free sheet to use //There are 3 sheets in the book, so one should always be free integer sheet_link = findFreeSheet(); //reinitialise it sheet_command(sheet_link, "init"); setup_sheet(number, sheet_link); if (open) { sheet_command(sheet_link, "goto_open_standby_position"); sheet_command(sheet_link, "show"); } else { sheet_command(sheet_link, "goto_closed_standby_position"); sheet_command(sheet_link, "show"); } return sheet_link; } //hide a sheet that is no longer visible. hide_sheet(integer number) { sheet_command(number, "hide"); } //setup sheet setup_sheet(integer sheet_number, integer sheet_link_number) { //llOwnerSay("setup sheet " + (string)sheet_number + " in link " + (string)sheet_link_number); //set texture list textures = textures_for_sheet(sheet_number); //front llSetLinkTexture(sheet_link_number, llList2String(textures, 0), 0); //back llSetLinkTexture(sheet_link_number, llList2String(textures, 1), 4); //send sheet number sheet_command(sheet_link_number, llList2CSV(["number",sheet_number])); } sheet_command(integer link_number, string command) { if (link_number != 0) { //llOwnerSay("sheet command to " + (string)link_number + " " + command); llMessageLinked(link_number, 523, command, NULL_KEY); } } //Return texture name by its number string texture_number(integer number) { if (pagenaming == 0) { //numeric order, pages are named "page1" "page2" etc. string tmp = "page"+(string)number; if (llGetInventoryType(tmp) == INVENTORY_TEXTURE) { return tmp; } else { return blank_texture; } } else { return alphabetical_texture_name(number - 1); } } //Read texture name for alphabetical mode string alphabetical_texture_name(integer n) { integer nb = llGetInventoryNumber(INVENTORY_TEXTURE); if (n < nb) { return llGetInventoryName(INVENTORY_TEXTURE, n); } else { return blank_texture; } } //return texture names that are supposed to go into sheet list textures_for_sheet(integer sheetnumber) { return [texture_number(sheetnumber * 2 - 1), texture_number(sheetnumber * 2)]; } //Check inventory to see if sheet exists integer sheet_exists(integer sheetnumber) { list textures = textures_for_sheet(sheetnumber); if ((llGetInventoryType(llList2String(textures, 0)) == INVENTORY_TEXTURE) || (llGetInventoryType(llList2String(textures, 1)) == INVENTORY_TEXTURE)) { //sheet exists //llOwnerSay((string)textures + " -> exist"); return 1; } else { //sheet doesn't exist (no texture to display) //llOwnerSay((string)textures + " -> doesnt exist"); return 0; } } //Ask for sheet links get_sheet_links() { sheet_links = []; llMessageLinked(LINK_ALL_OTHERS, 523, "pingsheets", NULL_KEY); } ////////////////////// // Manage sheets ////////////////////// append_sheet(integer link_number) { pos_sheet_links = llDeleteSubList(pos_sheet_links, 0, 0) + [link_number]; //llOwnerSay("new psl: " + (string)pos_sheet_links); } prepend_sheet(integer link_number) { pos_sheet_links = [link_number] + llDeleteSubList(pos_sheet_links, 3, 3); //llOwnerSay("new psl: " + (string)pos_sheet_links); } open_to_standby() { integer tmp = open_sheet(); release_sheet(open_standby_sheet()); pos_sheet_links = [tmp, 0] + llList2List(pos_sheet_links, 2,3); sheet_command(tmp, "goto_open_standby_position"); //llOwnerSay("new psl: " + (string)pos_sheet_links); } closed_to_standby() { integer tmp = closed_sheet(); release_sheet(closed_standby_sheet()); pos_sheet_links = llList2List(pos_sheet_links, 0,1) + [0, tmp]; sheet_command(tmp, "goto_closed_standby_position"); //llOwnerSay("new psl: " + (string)pos_sheet_links); } sheet_opened(integer link_number) { //a sheet opened, it can be either a closed or closed standby sheet integer pos = llListFindList(pos_sheet_links, [link_number]); //get rid of open standby in all case release_sheet(open_standby_sheet()); if (pos == 2) { //closed sheet openned, move it to standby sheet_command(link_number, "goto_open_standby_position"); //Put the closed_standby sheet in closed position sheet_command(closed_standby_sheet(), "goto_closed_position"); pos_sheet_links = [link_number, 0, closed_standby_sheet(), 0]; } else if (pos == 3) { //closed standby sheet openned //it pushes old open sheet out of the way too release_sheet(open_sheet()); //move it to standby sheet_command(link_number, "goto_open_standby_position"); pos_sheet_links = [link_number, 0, 0, 0]; } } sheet_closed(integer link_number) { //a sheet closed, it can be either a open or open standby sheet integer pos = llListFindList(pos_sheet_links, [link_number]); //get rid of closed standby in all case release_sheet(closed_standby_sheet()); if (pos == 1) { //open sheet closed, move it to standby sheet_command(link_number, "goto_closed_standby_position"); //Put the open_standby sheet in open position sheet_command(open_standby_sheet(), "goto_open_position"); pos_sheet_links = [0, open_standby_sheet(), 0, link_number]; } else if (pos == 0) { //open standby sheet closed //it pushes old closed sheet out of the way too release_sheet(closed_sheet()); //move it to standby sheet_command(link_number, "goto_closed_standby_position"); pos_sheet_links = [0, 0, 0, link_number]; } } set_closed_standby_sheet(integer link_number) { pos_sheet_links = llList2List(pos_sheet_links, 0, 2) + [link_number]; } set_open_standby_sheet(integer link_number) { pos_sheet_links = [link_number] + llList2List(pos_sheet_links, 1, 3); } set_closed_sheet(integer link_number) { pos_sheet_links = llList2List(pos_sheet_links, 0, 1) + [link_number, closed_standby_sheet()]; } set_open_sheet(integer link_number) { pos_sheet_links = [open_standby_sheet(), link_number] + llList2List(pos_sheet_links, 2, 3); } integer open_standby_sheet() { return llList2Integer(pos_sheet_links, 0); } integer open_sheet() { return llList2Integer(pos_sheet_links, 1); } integer closed_sheet() { return llList2Integer(pos_sheet_links, 2); } integer closed_standby_sheet() { return llList2Integer(pos_sheet_links, 3); } ////////////////////// // States ////////////////////// default { state_entry() { init(); get_sheet_links(); } on_rez(integer start_param) { llResetScript(); } link_message(integer sender, integer number, string s, key id) { if (s == "sheet") { //found sheet sheet_links += [sender]; } if (llGetListLength(sheet_links) >= 3) { free_sheet_links = sheet_links; state readsettings; } } } state readsettings { state_entry() { if (llGetInventoryType("Settings") != INVENTORY_NOTECARD) { //No settings state closed; } else { line = 0; queryid = llGetNotecardLine("Settings", line); } } dataserver(key queryidarg, string data) { if (queryidarg == queryid) { if (data != EOF) { list settingline = llParseString2List(data,[":"],[]); if (llList2String(settingline, 0) == "PageNaming") { //alternate page naming string naming = llList2String(settingline, 1); if (naming == "alphabetical") { pagenaming = 1; } else if (naming == "numerical") { pagenaming = 0; } else { llOwnerSay("Unknown PageNaming: " + naming); } } //read next line++; queryid = llGetNotecardLine("Settings", line); } else { //No more settings state closed; } } } on_rez(integer i) { llResetScript(); } } state closed { touch_start(integer total_number) { open(); state opened; } link_message(integer sender_number, integer number, string message, key id) { if (message == "user clicked cover") { //the cover tells us user clicked: open book open(); state opened; } } on_rez(integer i) { llResetScript(); } } state opened { state_entry() { //show new sheet integer tmp = new_sheet(1, FALSE, ""); //put it in closed position sheet_command(tmp, "goto_closed_position"); //prepare next sheet integer tmp2 = new_sheet(2, FALSE, ""); append_sheet(tmp); append_sheet(tmp2); } touch_start(integer total_number) { //user clicked book, close close(); state closed; } link_message(integer sender_number, integer number, string message, key id) { if (message == "user clicked cover") { //user clicked cover: close close(); state closed; } integer tmpsheetnumber = (integer)llGetSubString(message, 10, -1); //llOwnerSay("sheet number: '" + llGetSubString(message, 10, -1)+"'"); //one of our sheets tell us something if (llGetSubString(message, 0, 9) == "pageopened") { //The sheet has been flipped to the left sheet_opened(sender_number); integer tmpnextsheetnumber; integer tmp_next_sheet_link_number; if (closed_sheet() == 0) { //the closed standby sheet has been flipped //we need to fill the closed pos in addition //to the closed standby below tmpnextsheetnumber = tmpsheetnumber + 1; tmp_next_sheet_link_number = new_sheet(tmpnextsheetnumber, FALSE, ""); //move it to closed pos sheet_command(tmp_next_sheet_link_number, "goto_closed_position"); set_closed_sheet(tmp_next_sheet_link_number); } //put next next sheet in closed standby position tmpnextsheetnumber = tmpsheetnumber + 2; tmp_next_sheet_link_number = new_sheet(tmpnextsheetnumber, FALSE, ""); //Update positions set_closed_standby_sheet(tmp_next_sheet_link_number); } else if (llGetSubString(message, 0, 9) == "pageclosed") { //The sheet has been flipped to the right sheet_closed(sender_number); integer tmpprevioussheetnumber; integer tmp_previous_sheet_link_number; if (open_sheet() == 0) { //the open standby sheet has been flipped //we need to fill the open pos in addition //to the open standby below tmpprevioussheetnumber = tmpsheetnumber - 1; tmp_previous_sheet_link_number = new_sheet(tmpprevioussheetnumber, TRUE, ""); //move it to open pos sheet_command(tmp_previous_sheet_link_number, "goto_open_position"); set_open_sheet(tmp_previous_sheet_link_number); } //put previous previous sheet in open standby position tmpprevioussheetnumber = tmpsheetnumber - 2; tmp_previous_sheet_link_number = new_sheet(tmpprevioussheetnumber, TRUE, ""); //Update positions set_open_standby_sheet(tmp_previous_sheet_link_number); } } } Script #2 label as SHEET SCRIPT // --------------------------------- // sheet script // //!rotation initialRot = ZERO_ROTATION; //!vector initialPos; //!vector scale; //!integer isopen = FALSE; //! //!integer sheet_number = 0; //! //!integer version = 1; //! //!init() //!{ //! //hide //! llSetAlpha(0.0, ALL_SIDES); //! scale = llGetScale(); //! initialRot = <0,0,0,1>; //! initialPos = llGetLocalPos(); //! //force correct position //! initialPos.z = 0; //! llSetPos(initialPos); //! llSetLocalRot(initialRot); //! //For script updates from root prim //! llSetRemoteScriptAccessPin(1234); //!} //! //! //!open() //!{ //! //flip the page to the left //! llSetLocalRot(llEuler2Rot(<0, -PI_BY_TWO, 0>)*initialRot); //! llSetLocalRot(llEuler2Rot(<0, -PI, 0>)*initialRot); //! isopen = TRUE; //! //tells the book about what happened so it can rez next page //! llMessageLinked(LINK_ROOT, 102, "pageopened " + (string)sheet_number, NULL_KEY); //!} //! //!close() //!{ //! //flip page to the right //! llSetLocalRot(llEuler2Rot(<0, -PI_BY_TWO, 0>)*initialRot); //! llSetLocalRot(initialRot); //! isopen = FALSE; //! //tells the book about what happened so it can rez next page //! llMessageLinked(LINK_ROOT, 102, "pageclosed " + (string)sheet_number, NULL_KEY); //!} //! //!standby() { //! //go just below shown pages //! llSetPos(initialPos + <0,0,(scale.z / 2)>); //!} //! //!unstandby() { //! llSetPos(initialPos + <0, 0, (scale.z)>); //!} //! //!goto_open() { //! llSetLocalRot(llEuler2Rot(<0, -PI, 0>)*initialRot); //! isopen = TRUE; //!} //! //!goto_closed() { //! llSetLocalRot(initialRot); //! isopen = FALSE; //!} //! //!goto_backcover() { //! //hide in backcover //! llSetLocalRot(initialRot); //! llSetPos(initialPos); //!} //! //!hide() { //! llSetAlpha(0, ALL_SIDES); //!} //! //!show() { //! llSetAlpha(1, ALL_SIDES); //!} //! //!default //!{ //! state_entry() //! { //! init(); //! } //! //! link_message(integer sender, integer num, string s, key id) { //! if (num != 523) { //! return; //! } //! //receive commands //! list commandline = llCSV2List(s); //! string command = llList2String(commandline, 0); //! if (command == "pingsheets") { //! //books want to know which links are sheets, reply //! llMessageLinked(LINK_ROOT, version, "sheet", NULL_KEY); //! } else if (command == "init") { //! //reinitialise //! hide(); //! goto_backcover(); //! } else if (command == "goto_open_standby_position") { //! standby(); //! goto_open(); //! } else if (command == "goto_closed_standby_position") { //! standby(); //! goto_closed(); //! } else if (command == "goto_open_position") { //! unstandby(); //! goto_open(); //! } else if (command == "goto_closed_position") { //! unstandby(); //! goto_closed(); //! } else if (command == "show") { //! show(); //! } else if (command == "number") { //! sheet_number = llList2Integer(commandline, 1); //! } //! } //! //! changed(integer change) { //! if ((change & CHANGED_SCALE) == CHANGED_SCALE) { //! scale = llGetScale(); //! } //! } //! //! touch_start(integer total_number) { //! if (isopen == FALSE) { //! open(); //! } else { //! close(); //! } //! } //!} rotation initialRot = ZERO_ROTATION; vector initialPos; vector scale; integer isopen = FALSE; integer sheet_number = 0; integer version = 1; init(){ llSetAlpha(0.0,ALL_SIDES); scale=llGetScale(); initialRot=<0, 0, 0, 1>; initialPos=llGetLocalPos(); initialPos.z=0; llSetPos(initialPos); llSetLocalRot(initialRot); llSetRemoteScriptAccessPin(1234); } open(){ llSetLocalRot(llEuler2Rot(<0, -PI_BY_TWO, 0>)*initialRot); llSetLocalRot(llEuler2Rot(<0, -PI, 0>)*initialRot); isopen=TRUE; llMessageLinked(LINK_ROOT,102,"pageopened "+(string)sheet_number,NULL_KEY); } close(){ llSetLocalRot(llEuler2Rot(<0, -PI_BY_TWO, 0>)*initialRot); llSetLocalRot(initialRot); isopen=FALSE; llMessageLinked(LINK_ROOT,102,"pageclosed "+(string)sheet_number,NULL_KEY); } standby(){ llSetPos(initialPos+<0, 0, (scale.z/2)>); } unstandby(){ llSetPos(initialPos+<0, 0, (scale.z)>); } goto_open(){ llSetLocalRot(llEuler2Rot(<0, -PI, 0>)*initialRot); isopen=TRUE; } goto_closed(){ llSetLocalRot(initialRot); isopen=FALSE; } goto_backcover(){ llSetLocalRot(initialRot); llSetPos(initialPos); } hide(){ llSetAlpha(0,ALL_SIDES); } show(){ llSetAlpha(1,ALL_SIDES); } default { state_entry(){ init(); } link_message(integer sender,integer num,string s,key id){ if (num!=523){ return; } list commandline = llCSV2List(s); string command = llList2String(commandline,0); if (command=="pingsheets"){ llMessageLinked(LINK_ROOT,version,"sheet",NULL_KEY); } else if (command=="init"){ hide(); goto_backcover(); } else if (command=="goto_open_standby_position"){ standby(); goto_open(); } else if (command=="goto_closed_standby_position"){ standby(); goto_closed(); } else if (command=="goto_open_position"){ unstandby(); goto_open(); } else if (command=="goto_closed_position"){ unstandby(); goto_closed(); } else if (command=="show"){ show(); } else if (command=="number"){ sheet_number=llList2Integer(commandline,1); } } changed(integer change){ if ((change&CHANGED_SCALE)==CHANGED_SCALE){ scale=llGetScale(); } } touch_start(integer total_number){ if (isopen==FALSE){ open(); } else { close(); } } } Script #3 label as Update Sheet Script //-------------------------------- // update_sheet script // list sheet_links; get_sheet_links() { sheet_links = []; llMessageLinked(LINK_ALL_OTHERS, 523, "pingsheets", NULL_KEY); } default { state_entry() { llListen(1,"",llGetOwner(),"update"); } listen(integer c, string n, key id, string m) { llOwnerSay("Updating..."); state getlinks; } } state getlinks { state_entry() { get_sheet_links(); } link_message(integer sender, integer number, string s, key id) { if (s == "sheet") { //found sheet sheet_links += [sender]; } if (llGetListLength(sheet_links) >= 3) { state update; } } } state update { state_entry() { integer i = llGetListLength(sheet_links) - 1; for (; i >= 0; i--) { llRemoteLoadScriptPin(llGetLinkKey(llList2Integer(sheet_links, i)), "sheet", 1234, TRUE, 0); llOwnerSay("Updated sheet " + (string)i); } llOwnerSay("done"); state default; } } Settings NOTECARD instruction // ----------------------------------------------------- // Settings notecard PageNaming:numerical // ---------

[arton Rotaru]

Wall of text. Probably nobody is going to even try to start reading that. Please try to format your post in a human readable manner. And make use of the Insert Code option, left from the smiley icon in the top bar of the post editor.

 

[kiki Chaika]

yeah i do not understand why posting the script code became like that.. Anyway thanks for the help since someone in game finally figured it out after a few hours of pain Thanks all.

[Codex Alpha]

Gah, wall of text, no kidding.

Next time just post a link to the actual free script:

How To Publish Your Own Books In Second Life (Outworldz.Com Free Script Library)

Makes it much easier.

[CassieMaia]

Glad you found the answer, but now I'm curious...  what was the solution?  

Is it a set of linked prims with the 'cover' being the root prim and the prim containing the main script (or all scripts) and settings NC in it's contents? Or something else?

[Kolahs]

Where did you purchase this flipping script from? (if you don't mind me asking) I too have been searching to create a book that pops up on one's screen and then when you click left or right, it flips in that direction. 

 

If anyone have a clue as to where I can find tutorials on "how-to" feel free to send me an IM?

[KrystalPyre]

I attempted to format this in NetBeans in order to find some order in it. copy pasting it into netbeans just gives you a single line of commented out words and no way in figuring out where the comments start and end and the code begins. OP, if at all possible, please re-post code in a properly formatted way. 

[Rolig Loon]

Ummm ... as entity0x said in the 4th post in this thread, all you have to do is follow the link he gave you to the original script on line.  Here it is again >>>  http://www.outworldz.com/cgi/freescripts.plx?ID=900  :smileywink:

[PseudoPhaedrus]

I don't see where the issue of where to put these scripts was actually resolved. 

Issarlk has a number of free book examples in the marketplace with full permission.  I found it useful to get started by downloading one of them.  Just search for his name.