home *** CD-ROM | disk | FTP | other *** search
Wrap
Text File | 1995-10-13 | 1.1 MB | 3,203 lines
Text Truncated. Only the first 1MB is shown below. Download the file for the complete contents.
//////////////////////////////// // 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)