home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CD Direkt 1995 #6
/
CDD_6_95.ISO
/
cdd
/
winanw
/
tb
/
neu_27.scr
< prev
next >
Wrap
Text File
|
1994-09-06
|
2KB
|
86 lines
rem Script zu den neuen Hotspot-Funktionen von TrueBase 2.7
rem
rem (c) Peter Tiemann, 1994
adjust size off
adjust 0 0 0
clear
:nochmal
show olga.bmp
hotspot 30 20 0 40 visible "Dies ist ein Beispiel fⁿr die neuen Hotspots" Purple
hotspot 240 110 0 60 invisible "Normal" Green
hotspot 140 200 40 20 visible
hotspot 300 235 0 80 visible " ENDE " Yellow
hotspot 40 110 0 60 invisible "Roter" Red
rem Timeout nach 5 sec
delay 5
if errorlevel 5 goto MoreRed
if errorlevel 4 goto Ende
if errorlevel 3 goto Option3
if errorlevel 2 goto Option2
if errorlevel 1 goto Option1
rem =========================================
:Timeout
effect 0
adjust 0 0 0
newbox
boxtext "Sie k÷nnen mit der Maus eine der"
boxtext "farbigen FlΣchen anklicken und damit"
boxtext "eine im Script programmierte Reaktion"
boxtext "ausl÷sen."
button ok
box "Timeout - nichts gewΣhlt"
goto nochmal
rem =========================================
:Option1
effect 2
adjust 0 0 0
newbox
boxtext "Sie haben auf die Kopfzeile geklickt"
button ok
box "Ereignis"
goto nochmal
rem =========================================
:Option2
clear
adjust 0 0 0
effect 3
newbox
boxtext "Gleich werden die Farben normal"
button ok
box "Schalter 2"
goto nochmal
rem =========================================
:Option3
effect 4
adjust 0 0 0
newbox
boxtext "Es wurde die 3. Option angeklickt"
button ok
box "Normale Farben"
goto nochmal
rem =========================================
:MoreRed
effect 1
adjust 20 0 0
goto nochmal
rem =========================================
:ende