++++This is just for the Records for Interested and Kalb's prehistoric stuff:
Tried to get it shortened & compactly vital as much as possible. It works
swiftly ! -have fun in your coming dbase-projects. Stanford University could
learn of it too..and it comes cheaper doing this. ++++++
--The Icehotel External Director Database 2002:
--(Only Readable, no addings database)
--Using external 8 CST-/CXT-files (+ the internal cast). Placed
--in same root directory as the actual Exe-projectorfile.
--Calling in from clicking in a field (made Lingoscript-
--scrollable) and filled with names of bothanical plant-names.
--Every name is checked in the If-sentences. If found, it
--activates next coming handlers
--Every cast in a CST/CXT-files has title like: 2. Asp
--if there are several pictures of a plant I baptised them like:
--2b. Asp , 2c. Asp ..and so on.
--And these names are all the same for the plant's text or sound.
--As the sound is simply the saying of 'Aspen' in a mono 8-bit
--wave-file. As could go also for a compressed SWA-file (don't
--forget to adjust for the SWA-Xtras), otherwise dead silent.
--This script also show how to handle probs like plants having
--duplicate namings. In the handle named 'BotanDoublet'one can
--compare the small change with the handler ' BotanTransfer'. As
--it's more probable to write it better within one handler for
--both.
--The clicked name of a plant's name is stored in 'gBotname'
--a global variable. Set into every handler if needed there.
--Have to remind that a picture in the internal cast has to be
--set out for the scene, under a bmp-frame as made with a hole-
--frame in which the picture is seen through and leaving nothing
--to be seen around. It covers all space around, even though the
--actual bmp-picture on that scene is a bit larger.
--It's this picture which is the one to be 'duplicated' from
--the external cast-file of pictures. They swap in between over
--to the internal and therfore seen at the scene.
--Same made for the texts. Do one field for the internal, and
--they swap.
--The sounds are just simply called straight off by Lingo,
--set just before the actual pic-scene -frame "bst":
--puppetsound (member gBotname of castLib "Botanical sounds")
--A hypertext field is just a field that by keyword-clickings
--change pictures in same picture-scene. Colours of the text
--changes a bit too with 'forecolor..' syntax.
--Enlargement of pictures are availble and some funky-looking
--animated menu-buttons which takes the user to other happenings.
--This read-only External Database-script is a bit different of
--Irv Kalb's once tested external only for texts. This one takes
--even pictures, sounds, and texts for separated external cast-
--files.
--One cst/cxt-file for big pictures, one for sounds, one for
--texts,...one for some animation.
on mouseDown vLineread --botnamer-script
global gBotname
--botnamer-script
put line the mouseLine of field "bottxt1" into vLineread
put -1 into field "Middle" ---flag for frame XX, Enlarge-frame
---Headline-choise via mouseclick:------------------
-- if string(vLineread) = "1. Alpros, lapsk" then
-- if the mouseDown = True then
-- BotanTransfer
-- else
-- nothing
-- end if
if vLineread = "1. Alpros, lapsk" then --1. Alpros, lapsk
if the mouseDown = True then
set vLineread = "204. Lapsk alpros"
put vLineread into gBotname
BotanDoublet
else
nothing
end if
else if vLineread = "2. Asp" then
if the mouseDown = True then
BotanTransfer
else
nothing
end if
else if vLineread = "3. Axfryle" then
if the mouseDown = True then
BotanTransfer
else
nothing
end if
else if vLineread = "409. Ögontröst, fjäll-" then
if the mouseDown = True then
set vLineread = "97. Fjällögontröst"
put vLineread into gBotname
BotanDoublet
else
nothing
end if
else if vLineread = "xxx" then --for Shockwave web-TV/radio by headlines in a
scrollable field.
if the mouseDown = True then
--NoOff
--gotoNetMovie "v010114r.dcr" --30:
else
--NoOff
end if
else
nothing
end if
end mouseDown
on BotanTransfer vLineread --takes up by name and search for the text,
pictures, maps for each species.
global gBotname
put line the mouseLine of field "bottxt1" into vLineread
if the mouseDown = True then
put vLineread into gBotname
set mem = gBotname
--Pictures:
duplicate (member gBotname of castLib "botbase1"), member 42
duplicate (member gBotname of castLib "botbase2"), member 43
--duplicate (member mem of castLib "txtbase1"), member 44
--Texts:
put the text of (member gBotname of castLib "hypertxt1") into member 39 --
Hypertext-field
put the text of (member gBotname of castLib "txtbase1") into member 44 --
Worked: CXT-file in same root as EXE-file
--Button- & Sprite-preparings:--------
Buttup
--Setting botan-flower in picture is done in score-script frame "bst"
set the centerStage to True
go to frame "bst" --picture scene with 24-bit bmp, txts, sounds
else
nothing --NoOff
end if
end BotanTransfer
on BotanDoublet vLineread --takes up by name and search for the text,
pictures, maps for each species.
global gBotname
put line the mouseLine of field "bottxt1" into vLineread
if the mouseDown = True then
--Pictures:
duplicate (member gBotname of castLib "botbase1"), member 42
duplicate (member gBotname of castLib "botbase2"), member 43
--duplicate (member mem of castLib "txtbase1"), member 44
--Texts:
put the text of (member gBotname of castLib "hypertxt1") into member 39 --
Hypertext-field
put the text of (member gBotname of castLib "txtbase1") into member 44 --
Worked: CXT-file in same root as EXE-file
--Button- & Sprite-preparings:--------
Buttup
--Setting botan-flower in picture is done in score-script frame "bst"
go to frame "bst" --picture scene with 24-bit bmp, txts, sounds
else
nothing --NoOff
end if
end BotanDoublet
on Buttup --preparing from bothanical names to pictural presentation scene:
--from Nameindex:
puppetSprite 6, FALSE --Nameindex Species
puppetSprite 8, FALSE --Up Leaf-butt
puppetSprite 9, FALSE --Down Leaf-butt
--To Picture presentation:
--repeat with b= 1 to 24
--set the visible of sprite b to TRUE
--puppetSprite b, TRUE
--end repeat
end Buttup
-------------------------------------------------
FREE E-MAIL IN 1 MINUTE!
- [EMAIL PROTECTED] - http://www.pc.nu
[To remove yourself from this list, or to change to digest mode, go to
http://www.penworks.com/lingo-l.cgi To post messages to the list, email
[EMAIL PROTECTED] (Problems, email [EMAIL PROTECTED]). Lingo-L is for
learning and helping with programming Lingo. Thanks!]
