Abt. Icon-Spielereien
=============
Nicht der Rede wert...
Code
WindowTitle "XProfan-11 Interne Icons"
Windowstyle 24:cls: var name$=""
var in$="A MUELL BAUM MUENZE COMPUTER PROFAN DOS SAND DRUCKER STEIN EDITOR "+\
"TEXT EIMER WASSER EIS WEG FILEICON WINDOWS GESICHT KNOPF1 KNOPF2"
usefont "Arial",12,6,0,0,0
whileloop 21
name$=substr$(in$,&Loop," ")
drawicon name$,10+64*((&Loop-1) mod 10),10+64*int((&Loop-1)/10)
drawtext 10+64*((&Loop-1) mod 10),50+64*int((&Loop-1)/10),name$
endwhile
whileloop 7
drawicon &Loop,10+80*((&Loop-1) mod 7),10+64*int(3+(&Loop-1)/7)
drawtext 30+80*((&Loop-1) mod 7),50+64*int(3+(&Loop-1)/7),str$(&Loop)
endwhile
repeat
whileloop 21
name$=substr$(in$,&Loop," ")
UseIcon name$
waitinput 500
case %key>0:end
endwhile
until 0
Alles anzeigen
P.S.: Kann sich noch jemand an den 16bit-Screensaver Johnny Castaway erinnern? Auf 64bit-Systemen läuft er trotz DosBox nicht gut, aber es gibt ein Youtube Video von allen Szenen!