home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Chip: Shareware for Win 95
/
Chip-Shareware-Win95.bin
/
grafika
/
formula
/
demo.b0_
/
demo.b0
Wrap
Text File
|
1995-10-13
|
1MB
|
3,203 lines
////////////////////////////////
// Sample script
sound_test:
if SOUND_DEVICE
set condition 30
/////////////////////////////
install_icon:
$target = "formula"
$title = "Formula Graphics"
$destdir = get directory
DDE "PROGMAN" string "[DeleteGroup(",$title,")]"
DDE "PROGMAN" string "[CreateGroup(",$title,")]"
DDE "PROGMAN" string "[ShowGroup(1)]"
DDE "PROGMAN" string "[AddItem(",$destdir,"\",$target,".exe,",$title,",",$destdir,"\",$target,".exe,0)]"
/////////////////////////////
init_balls:
ball_list = new list
ball = new script "ball.sxt"
ball_list add ball
$name = "ball_red.gif"
ball call init: @name,0,0,5,2
ball = new script "ball.sxt"
ball_list add ball
$name = "ball_grn.gif"
ball call init: @name,0,360,2,-5
ball = new script "ball.sxt"
ball_list add ball
$name = "ball_blu.gif"
ball call init: @name,0,180,-4,3
free ball
timer_count = TIME
/////////////////////////////////////////
play_balls: mess, wparam, loword, hiword
if timer_count < TIME - 1
for n = 0 to 2
ball = ball_list get n
ball call show
free ball
update sprites
timer_count = TIME
////////////////////////////////
clear_balls:
free ball_list
update sprites
///////////////////////////
next_hyperpage:
page = strval getrange "700/710"
page = page + 1
if page > 703 then page = 700
set condition "-700/710,",page
///////////////////////////
show_edit_boxes:
set editbox "edit box 1" = "Harrow"
$abc = "Using the Formula Graphics high level object oriented language, you can write text to the contents of an edit box. You can also read the information typed into an edit box. The information can then be analysed in any way imaginable."
set editbox "edit box 2" = $abc
element_list = new byte[20][30]
$element_list[0] = "Picture";"Animation";"Sound";"Video";"Text";"Picture Button";"Text Button";"Hot Area";"Hot Color";"Hypertext";"Edit box";"List Box";"Graph"
for n = 0 to 12
index = listbox "list box 1" add $element_list[n]
/////////////////////////
setup_graph:
colors = new byte[3][3]
colors[0][0] = 200,130,100
colors[1][0] = 100,180,130
colors[2][0] = 100,160,210
///////////////////////////
graph_data:
data = new float[3][4]
for n,m = 0,0 to 2,3
data[n][m] = 10 + rnd 90
return @data, @colors, 0, 100, 10
///////////////////////////
pie_graph_data:
data = new float[3]
max = 0
for n = 0 to 2
data[n] = 20 + rnd 80
max = max + data[n]
for n = 0 to 2
data[n] = floor (data[n] / max * 1000) / 10
return @data, @colors, 0, 100, 0
///////////////////////////
play_game:
killer = new script "killmain.sxt"
killer call start
free killer
update sprites
///////////////////////////////////
/////////////////////////////////GIF87aαhç ╚¿pÇhHÿÇX░ÿh╨░xÉxPhX8p`@α╕ÇêpHXH0░É`áêXH@(`P8α╚êx`@╕áx╕ÿhêpPxhHÿÇPÇh@ÉxH¿É``P0pX8ÇpH¿êXÉxXêxPxh@░Éh80 hX@¿ê`ÇpPÉÇX╕á@°╨ÿΦ╨`ÿh(╕Ç@ÿÿ8°ΦÉ└╕Pα╕á╪ÿP≡░h , αh ■ @ å@ x└Éßëç#Jä° ß┴èDêB`GüB$8p`îç,Z╘╚▓ßï/5"$a└é&0\Há┴B
(Hê@ #BûZLè┤ßëÑQ£ΦX┴ î>]⌐ΩRü0Z êí≡èìEF¿└íEà8`É @╗ êÑK2ΣLÉ!≤è\u░ß└é≤┌ínc║,└└í≥é6A ∙nä╧0ïÄ< ä╥ò╝ÇíìAî!áém█▐Ü0a╗C╩é╫╬}aºàΓ*╘0!┴╬ , ² X0áß├ü2■d?`└Ç∞τ┐S°╬₧╜ê≥Γ8pÉü╛√
≥δo└┐? ä αÇΦ┬ü&¿αüådæBe4J^U╪Q*⌡ò@ öùX⌠ J,á ò@.Ñ╚PL╜─BƒqPpº╫"íÑTUn─TF2±ê└G*¥à└(∙╪RR*¡ä ÿÉπQè4 NpP└+╠⌡Öb0ÿ ¢`~═ñ╨@(ö$IGQè┼i╫]yü╓Yd¡Y6@h£u6g^íaÖM-ÿÉÜ
∞i╙ òU6@íë.└└r╩ßV┴
lq└╓ñ┴M┌Aq╤Yα\q╢┴╒▄s╘╒Hüδp└v ▄A≡êG┴{▀ò╫▐«φqW₧╡╬ù┴}ΣW∞~■∙Wα▓.Φ,é
}UQ┤;fua+æ╢WIΣÄ=╕& └@n^'íÇmf┘╥ê+▓ΣΓF!eΘsU`A 5ÑCα:╔òÅ▌╛αΓW!â╗a[æïHε°nWÖ@╨ïLéY#α+@ ¼áÜ^╗qPW`"5╣&╩+c╕&Iè╤Iº`_*dôY&┘₧}εΘ┘gìëkbr0é₧ÆQ╢└╤r(╟im╖ ░[Qwjá╓x┴∞T└╪ ïZπt╥▒zÇ╣■¬⌠ ┴τëǽz│≥╩÷»■≥ [∞|╟Ωù_▓²╚∞ß╧:@åBB╒RàR¼dô ë;Æ (@i. &Ü╚╡î╖╙Æi╤doPSÑ⌐εWQNI▄UΦ≡Äha╖â┤≡U╫▓α0V∩åNσL'oh╘@î╛╢└n+°d2]åÄ ÖeÜ∙r_»'─▓Z╓)'¥7πÖgª;K╨'_wàhfL╦%ùd#ΣöZ₧¡ì≡┤ Σ£ª╖ì5[┬í╢⌠£ác½└û╩¬ $`⌐Z[y░,|@
░▀tÑ₧∩╠¡W,α 'c Nä╨Wá─9½ ▀jò╨╣╚═ñ*QI⌡S.sÖÇ/d■)HG`╚iΣ*1▒ïΩòéU`O
Σ¢~─ñ┘²^╖│¥àd"-½hKG8╝ó∞$ü£)ç╩D6öá8AöLÇ╛4hC Q╠δ╩t=╥$f#!ê£∞2╚$Å|α╠cΩ(C Æ┴Se≡5╔ⁿ-@ φ├╫\ûå┐I∙╧6╡┴└[&Ñ£α▄µ-á*@p:0¬p-:ÉN¬X57°⌠═╓╔└z▐π¬╗±jW"ß|ε3¼└¥0à+da]êáßÄrP9╗ ╟-èlE`îsPHb@û4Ü+2δHÜñ"óï┤╚`G┤╓Ñ°d.¿@Z0ùö5 &\4 J∞jτw═░"∞r\W¼$┌Ö╔b
yü╕b╢ ╢`ªí╔Iì╢ (┘Åy╠`╘╘╟A╞,Nü╘ö┬╖4╫Φ╠gå┤╦₧H╩O.8%!)╟FA≥2ôa@L²G╩¿aJkpìoLßf 3áq¿3KPáû└¬U}└ôA≥Φ╩Ul√á▄x%┬`■ì>;&2º╠f1╙~cåb!T╙Z πτ┤åä1╩@,ⱪd┌"╚ÉñΘ/░s╩±╫ü K)╕ L+S xª,L∞≡≡9Xº &-ïTÇ┤+«╡)KÇö`ÿFf)5°╩╙╤vs╒▄%»Ç¼÷■·3Ω±PNüÖY ADH(ì2ô─╫f@%╒╤ÆëΩ╪Mτ╖4╩═ÆÆ
¬&]π╔¥r¬T°_n.╡▌-u@ pIΩû£C▐L└òv╛ú╘Ω>"8Ç║C7╛¡mWZeOüσÇ[δ>'DßXT╓¥⌡@µ\I╖&çèLL)C╕«╫äî╘PK^P@ö=û┼`╝πτKp7»zqα8t∙╛!qæèreA─¬éñ╤uE*gpÿæâlvú╓GèD%φª╗1\åBª┐╠⌡L╜-πQ╝,ªNî,Σ═û6≈]Pì⌐¿·R¢ZαÅ2eªε%í■╞û╓h2│üOkù
, 9C=σû*࣠|╠╝c└<É╢X╟s│¢îσ`σ╩nvc█w╝≤╘]±▓┐^-╓{ +╕'│└ªû>ì(░ó∞îáIlg╚N@ &ÅQj═
╕∙Çl⌠ó╦u:O≡t╢h$#( " ╩ºif1E┴Éì⌡Θ╖o#g1QCJΣ+⌠èLß╡ŬZ1-Ä!âKcÄvÖ¢2j*°ë╔,zQ(ƒë╩}-╔ô▄43╜Ç(ñü,ΣcTú>.πï╔Aπ╠f╠g<MLÆΓ@NΩSC ╟ñP╦_L;⌐┐╖╘f─!*(C╔╡»U@
ä╦Nv≥ ü l ╤ÿ÷8≥╘
╥µí¢ñ¥*½¡÷jâ²VÇ;φiXÖgu\╢Z$ ▌sIÇ═H┤<─██F⌐2▄╠▄¢n╜Æê-8"≤╥ß@>â/▌h╥u =ÆUé╖OªîÿG Çïñy⌐ñ$+H┴E·╤"┤0oJ▀ ∞L┤9&╢2ti╨a¼ç█òa∩züY\╜u╛eæâÜîΣ73R£⌡[R└îD%p╙╔H╧h«┴└■≥╟Ç╩≡┤c<═╓l#╩Ƀ╘-@╪r╡Γ`ûhô╬z∙&Dδ xOz╥│Ü█▄¬≥■-±38dy@ƒF3╜╡╕Cô· ┤b⌡┬ê2═■ìd07ZÇ
'ε7╤6¡Gñ1D╨I»7ü òh┴╙~#üï▒q╒ù+∩₧⌐╨¼/x\ß;ìπ#╤b╒QP╥P*└PsÇr╘anójfRx±ojQ!┬[ëq'vby"│!╞e>+╡öQzÉäZd╞Ç╥3)"Xzá7)óGóxª╝╤%Ç?╢▒f╢*╨q╨æ @Le│éhk├K÷╡h@µQΘ1+Pi6_PXà╦7L¥åB╓s?'}.⌠j<&W┼m0╢»[╔ûQv$'- ¡▒ CDQ(ÉeM÷0J╤1:Ia%:æ )0 ╔!Jë⌠/∙⌠c√bqj£òåUDP0ç ä00~n'{7?Æ$áH╕G2-ü─QSvxjé╚d╨|AHàö3ì"=OOtíÜé1òZs684Júp╥┼ b▓ï¥4q└Q*╔▒█╡öbT
╔Q p^`úó2½óUR╡Σ±vπAN╡U∙U_VV╦`╞48)}deå.öVfW;kXWôc9½ªuOΓjëaoÆ░(H╟⌡CÅq1éê$ü!JH%Ç[2 █º!│├ò╒V1/₧/°╖>╢ë3!Z*@.'±ñp░î╦ ╡ÿW)│t╓├è█├èë~îτ[Y╓Åæï╥≤PU\µ├y╚ÑS:#~æí3C╙(ò! îô╘σI░gJ{ûì█U)╩A63^ß%{┌ÿ ▓é6&77$i⌡⌡^ëµ+└6δQ|φê|V(_H,bUÅät╠t1FÇYjwé0é4H1 (æT&'7▒XRïGæEæ°#"æ%;í 0ó╘1D╤E₧uCwM▓ÑF^!1Rj*YQƒÿÑp[)⌐«ç ~<⌐G«╚2▀3't╤╢=¬àSër>$°4∙S°2{Æ'z1I{u4√SIç?YifñTg oqPq ⌠1cÖ ƒ╥┤%Lur╙íûq)i│U±àÄΦ┴6≡Tδq|Φêù]àù┬4ÅceÅ≈╚Bgÿl&Éâëô┘─ò│!#┴τÖÆaç*@ τ%═ô?I';òU╓d ≡H╞æavalíΘ=╥#óWå$V┴j¢Æñ╞#OµåYóΩôjT&╨D┐aò±C┐Ö=7∙}: Rn╥}q23uß@╣<û╤yjHC3 ═ëI╪ÆrçJ╙1S∙\&ÑSÑ7g¥BJ▀ ^╔ߥU│zd36ΣeJ_≤Tä^└^┐┬^á╡╥^qYàτhOeφ¿hU( 9'L ╞sdXå°╕ Ç91Læ=^▒t╥&|$ç)'O)