locked
small basic graphic and animations and more (12) RRS feed

All replies

  • sb chess beta: HQQ405

    figures:

    usage:

    • select fig. by cursor keys
    • press enter and type pos like c5
    • to zoom in/out use mswheel

    Wednesday, May 22, 2019 7:24 AM
  • sb chess update: HQQ405-0

    • added rotation and shadows
    Wednesday, May 22, 2019 9:47 AM
  • alternative skin 4 sb chess:

    Wednesday, May 22, 2019 10:01 AM
  • upd.0.31 infoboard+multilng. support added: HQQ405-2



    • Edited by Tryhest Thursday, May 23, 2019 5:21 AM
    Thursday, May 23, 2019 5:00 AM
  • new ui mode:HQQ405-3

    • to select piece press Space
    • to select destination press Enter
    • move yellow marker by cursor keys


    • Edited by Tryhest Thursday, May 23, 2019 5:46 AM
    Thursday, May 23, 2019 5:45 AM
  • standard skinset figures v0.42: MQR842

    • pawn,knight and rook movement completed test (still  missing en passan and pwn2queen at end)

    • Edited by Tryhest Thursday, May 23, 2019 8:43 PM
    Thursday, May 23, 2019 6:40 AM
  • added turn check, corrrected bugs, added esperanto:CXV562

    Friday, May 24, 2019 4:07 AM
  • real 3d chess: WVD200-0


    • Edited by Tryhest Friday, May 24, 2019 7:48 PM
    Friday, May 24, 2019 6:26 PM
  • specular bottle: LCP287

    Friday, May 24, 2019 8:17 PM
  • added anim and skin: LCP287-1

    skinpic:


    • Edited by Tryhest Friday, May 24, 2019 9:07 PM
    Friday, May 24, 2019 8:58 PM
  • draws el. schemes: MSG425-0

    sample scheme file:

    Image1:215.6:356.7::
    Image2:-41.2:267.1:-90:
    Image3:41.2:353.5::
    Image4:39.6:181.5:0:ImageList9
    Line1:287.5:230:287.5:57.5:#000000:231.2:312
    Image5:208.5:118.7:-45:ImageList4
    Line2:402.5:230:402.5:230:#000000::
    Line3:402.5:230:460:402.5:#000000:377.6:319.2
    Image6:333.2:67.9:0:ImageList6
    Image7:422.8:156.7:-90:ImageList8
    Line4:575:287.5:460:402.5:#000000:465.6:347.2

    el.parts to be saved as following filenames:

    lm1.png

    lm12.png

    lm11.png:

    usage:

    • to draw lines: turn grid on and click on 2 grid dots
    • to adjust pars angle use mswheel
    • to move rightclick and choose move


    • Edited by Tryhest Monday, May 27, 2019 10:12 AM
    Monday, May 27, 2019 5:02 AM
  • optional parts:

    pnp.png and npn.png

    cpp.png

    ------------------------------------

    rsst.png

    ----------------------

    didd.png

    ---------------

    swwc.png


    • Edited by Tryhest Monday, May 27, 2019 5:11 AM
    Monday, May 27, 2019 5:07 AM
  • random sine flowers:

    args=0
    GraphicsWindow.BackgroundColor="teal"
    Sub sff
      f7=(Math.GetRandomNumber(5)+6)/10
      f11=1.8-f7
      For r=0 To 360 Step .05
        d= math.abs(LDMath.Sin(r*2))*args[3]*f7
        k=LDMath.Convert2Cartesian(args[1] args[2] d r)
        GraphicsWindow.SetPixel(k[1] k[2] "darkblue")
        d= math.abs(LDMath.Sin(r*2+90))*args[3]*f11 
        k=LDMath.Convert2Cartesian(args[1] args[2] d r)
        GraphicsWindow.SetPixel(k[1] k[2] "darkblue")
      EndFor
      
      For r=0 To 360 Step 45
        d= math.abs(LDMath.Sin(r*2+45))*(args[3]-5)*.65
        k=LDMath.Convert2Cartesian(args[1] args[2] d r)
        LDGraphicsWindow.FloodFill(k[1] k[2] LDColours.HSLtoRGB(r*.9+Math.GetRandomNumber(90) 1 .5))
      EndFor
    EndSub
    
    For x=0 To 8
      LDCall.Function3("sff" (Math.Remainder(x 3)*120)+100 Math.Floor(x/3)*120+100 Math.GetRandomNumber(40)+20)
    EndFor

    Monday, May 27, 2019 6:31 AM
  • sb random generated village: XKV670

    Friday, May 31, 2019 8:23 PM
  • added anim and nonki's tree&monkey:XKV670-1


    • Edited by Tryhest Saturday, June 1, 2019 3:43 AM
    Saturday, June 1, 2019 3:12 AM
  • balcony: DRF920

    Sunday, June 2, 2019 2:35 AM
  • balcony w stairs: JJK555

    Monday, June 3, 2019 9:47 AM
  • real 3d stairway:RGR475

    Wednesday, June 5, 2019 5:24 AM
  • 3-floor stairs: VJT997

    Wednesday, June 5, 2019 8:15 PM
  • update with balcony VJT997-1

    Thursday, June 6, 2019 3:53 AM
  • update for better graphic cards: MSF996

    • requires 300 mb of free ram, 4096 3d objects drawn
    • corrected cam position to watch buildup process

    Thursday, June 6, 2019 5:25 PM
  • 3d maps from 2d ortofoto: WNN437

    use mouse & cursors to move around 3D view

    image to be used:

    Saturday, June 8, 2019 3:07 AM
  • lorenz attractor:

    x = 0.01
    y = 0
    z = 0
    
    a = 10
    b = 28
    c = 8.0/3.0
    For m=1 To 900'<---change to get more 3d pts'
      dt = 0.01
      dx = (a * (y - x))*dt
      dy = (x * (b - z) - y)*dt
      dz = (x * y - c * z)*dt
      x = x + dx
      y = y + dy
      z = z + dz
      dd=":"
      pp=pp+x+dd+y+dd+z+dd
    EndFor
    GraphicsWindow.BackgroundColor="tan"
    GraphicsWindow.Width=900
    GraphicsWindow.Height=700
    GraphicsWindow.Title="3D Lorenz Strange Attractor"
    view3D = LD3DView.AddView(900,900,"True")
    LD3DView.AddAmbientLight(view3D "#77777777")
    LD3DView.AddSpotLight (view3D,"white",1 1 1, -1,-1,1 30, 10)
    LD3DView.AddDirectionalLight (view3D,"#bbaaaaaa" ,-1,-7,-1)
    LD3DView.AutoControl2 ( 1 1)
    LD3DView.AddTube(view3D pp .1 6 "red" "D")
    cpp="1=-49.0714605624182;2=-37.3829862650659;3=19.2394138435167;4=0.886959487895967;5=0.460278183740605;6=0.0380376182715753;7=-0.447533751063529;8=0.836205885253392;9=0.31697517115162"
    LD3DView.ResetCamera(view3D cpp[1] cpp[2] cpp[3] cpp[4] cpp[5] cpp[6] cpp[7] cpp[8] cpp[9])

    Monday, June 10, 2019 4:13 AM
  • updated per.table w wiki images bg: LTF622-0


    • Edited by Tryhest Tuesday, June 11, 2019 4:24 AM
    Monday, June 10, 2019 10:04 PM
  • elements v2 update: LTF622-1

    pics downloader: JFM158

    • 1st run the downloader(takes some time to download pics from net, prior to run modify folder to store pics locally
    •  then u can run the elements app, modify folder to match the downloaded pics


    • Edited by Tryhest Thursday, June 13, 2019 9:20 AM
    Thursday, June 13, 2019 9:19 AM
  • per.table v2: JSL873

    placeholder image:

    image downloader update: GWM195-0

    after dl of images use above image to fill elements 61,85,86,87,89 (rename it accordingly to el61.jpg and so on)



    also element pics 21,22,23, 27,38,39,45,47, 71 can be downsized below 4mb to speedup loading
    • Edited by Tryhest Saturday, June 15, 2019 7:01 AM
    Saturday, June 15, 2019 6:49 AM
  • also update for table v1: JWM011

    Saturday, June 15, 2019 8:25 AM
  • per.table updt.: MJH241

    new:

    • electron orbit disribution
    • use cursorkeys <- & -> to move to next/prev. element and display other infos ands el.config

    Monday, June 17, 2019 6:43 PM
  • the sun: SWN094

    Thursday, June 27, 2019 1:57 AM
  • 3d Earth w clouds layer spinning:

    GraphicsWindow.BackgroundColor="darkblue"
    GraphicsWindow.Width=900
    GraphicsWindow.Height=900
    GraphicsWindow.Title="3D Earth"
    view3D = LD3DView.AddView(900,900,"True")
    LD3DView.AddAmbientLight(view3D "#77777777")
    LD3DView.AddSpotLight (view3D,"white",1 1 1, -1,-1,1 30, 10)
    LD3DView.AddDirectionalLight (view3D,"#bbaaaaaa" ,30,-7,-1)
    LD3DView.AutoControl2 ( 1 1)
    s1=LD3DView.AddSphere(view3D 3 20 "blue" "D")
    s11=LD3DView.AddSphere(view3D 3.01 20 "transparent" "D")
    i1=ImageList.LoadImage("e:\earth\earth.jpg")
    i2=ImageList.LoadImage("e:\earth\clouds.png")
    LD3DView.AddImage(view3D s1 "" i1 "D")
    LD3DView.AddImage(view3D s11 "" i2 "D")
    LD3DView.AnimateRotation(view3D s1 0 0 1  0 360 120,-1)


    • Edited by Tryhest Friday, June 28, 2019 3:51 AM
    Friday, June 28, 2019 3:50 AM
  • calculates the exact duration of 1/12 of year by months:

    yl=365
    For yy=2019 To 2020
      For x=0 To 11
        dd=LDDateTime.Add(LDDateTime.FromOADate( LDDateTime.OADate(yy 1 1 0 0 0)) yl*x/12)
        if text.GetLength(dd)=19 Then
          dd=LDText.Replace(dd yy+". " yy+".  ")
        EndIf
        textwindow.WriteLine(text.GetSubTextToEnd(x+101 2)+": "+ dd)
      EndFor
      TextWindow.WriteLine("")
      yl=yl+1
    EndFor

    Monday, July 1, 2019 3:02 AM
  • updated Nonki's Village: MBW819

    • added scroll
    • added traffic signs
    • added polygons instead of triangles

    Tuesday, July 2, 2019 4:56 AM
  • updated with zebra crossings and speedlimit:MBW819-1

    zebra:


    • Edited by Tryhest Thursday, July 4, 2019 4:16 AM
    Thursday, July 4, 2019 4:14 AM
  • iso-draw: VFX640

    for easy drawing of isometric 3d -objects

    usage is simple:

    • click triangle  to switch its color gray
    •  ctrl+click gives lightgray
    • rightclick deletes (turns to green)
    • 1 saves drawing incrementally
    • 2 loads saved file no#
    • further options will include animations and translating

    file to load for upper drawing:

    #########################################################################################################################################+++###+++############++..#.++..############+..#..+..#############.###.#..#############+..##################+#.+......#.############++..+++++#############+#++#####################+++++++##############++......#############++..++..#############+#......####################################.+......#.############++..++..+#############+#.+#...################++...#################+#++######################################################################################################################################################################


    needs ld and fc xtension (fc can be eliminated by use of textwindow readnumber instead of fc askfortextline)

    • Edited by Tryhest Wednesday, July 10, 2019 7:20 AM
    Wednesday, July 10, 2019 7:10 AM
  • simple 3d modeller v0.1: BWZ204

    just click to remove surface

    Monday, July 15, 2019 7:34 AM
  • rainbow-color progressbar:

    GraphicsWindow.BackgroundColor="teal
    GraphicsWindow.Title="Progressbar
    GraphicsWindow.Height=150
    GraphicsWindow.Width=500
    r=Shapes.AddRectangle(305 55)
    Shapes.Move(r 100 50)
    LDShapes.PenColour(r "black")
    LDShapes.PenWidth(r 3)
    LDShapes.BrushColour(r "transparent")
    GraphicsWindow.BrushColor="tan"
    GraphicsWindow.FillRectangle(100 50 305 55)
    GraphicsWindow.BrushColor="white"
    GraphicsWindow.FontSize=25
    GraphicsWindow.FontName="LUCIDA console"
    GraphicsWindow.FontItalic="true"
    t=Shapes.AddText("L O A D I N G ...")
    ldShapes.Centre(t 250 75)
    LDEffect.DropShadow(t "")
    For x=1 To 300 Step 6
      For y=1 To 50 Step 3
        GraphicsWindow.BrushColor=LDColours.HSLtoRGB(240-n 1 .5)
        n=n+.14
        GraphicsWindow.FillEllipse(100+x 50+y, 4 4)
        Program.Delay(5)
        GraphicsWindow.Title="Progressbar "+LDMath.FixDecimal(n/2.38 2)+"%"
      EndFor
      
      For y=50 To 1 Step -3
        GraphicsWindow.BrushColor=LDColours.HSLtoRGB(240-n 1 .5)
        n=n+.14
        GraphicsWindow.FillEllipse(103+x 50+y, 4 4)
        Program.Delay(5)
        GraphicsWindow.Title="Progressbar "+LDMath.FixDecimal(n/2.38 2)+"%"
      EndFor
    EndFor
    GraphicsWindow.Title="Progressbar 100%"
    Shapes.SetText(t "LOAD 100% done.")

    Wednesday, July 24, 2019 5:45 AM
  • roman amphitheatre 3d wireframe model:

    GraphicsWindow.BackgroundColor="darkblue"
    GraphicsWindow.Width=900
    GraphicsWindow.Height=900
    GraphicsWindow.Title="3D Amphitheatre"
    view3D = LD3DView.AddView(900,900,"True")
    LD3DView.AddAmbientLight(view3D "#77777777")
    LD3DView.AddSpotLight (view3D,"white",1 1 1, -1,-1,1 30, 10)
    LD3DView.AddDirectionalLight (view3D,"#bbaaaaaa" ,30,-7,-1)
    LD3DView.AutoControl2 ( 1 1)
    s10=20
    
    For z=0 To s10*2 Step s10
      pp="0:"+z+":0 0:"+(z+5)+":0 "
      d=":"
      a=-180
      For f=0 To 18
        cc=LDMath.Convert2Cartesian(5 10 5 a)
        pp=pp+cc[1]+d+(cc[2]+z)+":0 "
        a=a-10
      EndFor
      pp=pp+"10:"+z+":0 "
      pp=pp+"0:"+z+":0 0:"+(z+5)+":0"
      
      For m=1 To 50
        tt=LD3DView.AddTube(view3D pp .5 8 "gray" "E")
        LD3DView.RotateGeometry(view3D tt 0 1 0, 45)
        LD3DView.SetCentre(view3D tt 120 0 120 "R2")
        LD3DView.RotateGeometry2(view3D tt 0 1 0 m*7.2)
      EndFor
    EndFor
    
    
    cpp="1=406.411408335762;2=130.475387970525;3=288.847493848643;4=-0.818364281974375;5=-0.335088603662964;6=-0.466899913989893;7=-0.301515650782616;8=0.941973878485728;9=-0.147558546291591"
    LD3DView.ResetCamera(view3D cpp[1] cpp[2] cpp[3] cpp[4] cpp[5] cpp[6] cpp[7] cpp[8] cpp[9])

    Thursday, July 25, 2019 3:11 AM
  • Rule30 output generator: GCZ975

    More about Rule30: en.wikipedia.org/wiki/Rule_30

    Wednesday, July 31, 2019 2:35 AM
  • generates interesting patterns form rules: XCT881

    Friday, August 2, 2019 4:58 AM
  • binero game: RDH377

    • use cursors to select location
    • press 1, 0, or space=clear cell
    • aim is to fill table that every row&col has 5x 1 and 5x 0 and no more than 2 adjanced 1 or 0


    • Edited by Tryhest Wednesday, August 7, 2019 7:12 AM
    Wednesday, August 7, 2019 7:11 AM
  • graphic solution binero:

    Wednesday, August 7, 2019 8:20 PM
  • saturn V launch in textwindow:

    ss[ 1]="         /\
    ss[ 2]="        /..\
    ss[ 3]="        |==|
    ss[ 4]="        |  |
    ss[ 5]="        |  |
    ss[ 6]="        |  |
    ss[ 7]="       /____\
    ss[ 8]="       |    |
    ss[ 9]="       |SATU|
    ss[10]="       |    |
    ss[11]="       |    |
    ss[12]="      /| |  |\
    ss[13]="     / | |  | \
    ss[14]="    /__|_|__|__\
    ss[15]="       /_\/_\
    pp=1
    For t=30 To 1 Step -1
      TextWindow.Clear()
      For x=1 To t
        TextWindow.WriteLine("")
      EndFor
      
      For x=1 To 15
        TextWindow.WriteLine(ss[x])
      EndFor
      Program.Delay(90-pp)
      pp=pp*1.15
    EndFor
    For m=1 To 16
      TextWindow.Clear()
      For x=m To 15
        TextWindow.WriteLine(ss[x])
      EndFor
      Program.Delay(30)
    EndFor
    

    Thursday, August 8, 2019 8:50 AM
  • graphic solution binero:

    Interesting!  I wrote a Binero Generator: FKW997.

    Nonki Takahashi

    Saturday, August 10, 2019 5:42 AM
    Moderator
  • There are lots of Console-/GW spinners on

    update the current line in a C# Windows Console App

    Showing Progress in a Console Windows

    Progress bar in console application

    Console animations

    Cooler ASCII Spinners

    etc.

    but your Saturn5 is realy great, i like this.

    Used your LDGeography program as an example for next german LitDev.De.xml as ID WQF761


    Monday, August 12, 2019 9:33 PM
    Answerer
  • strange function:

    GraphicsWindow.Width=1600
    GraphicsWindow.Height=900
    GraphicsWindow.Left=1
    GraphicsWindow.Top=5
    GraphicsWindow.BackgroundColor="teal"
    GraphicsWindow.BrushColor="black"
    GraphicsWindow.Title="Harmony2Chaos"
    x=400
    ox=x
    dx=0.5
    dd=1
    nd=3
    aa=2
    GraphicsWindow.PenWidth=.7
    for y =1 to 1600 Step 2
      ddx=(Math.cos(aa))*(10)
      if math.Abs(x-400)>400  Then
        if aa>0 then
          aa=aa-5
          else 
          aa=aa+5
        EndIf
        Else
        aa=aa*1.02
      EndIf
      
      GraphicsWindow.DrawLine(y-2 ox y x)
      ox=x
      x=x+ddx
    EndFor

    Wednesday, August 21, 2019 6:18 AM
  • music-like or mountains fractal: HJN080

    added  scrollbar from ld xtension

    Wednesday, August 21, 2019 6:37 AM
  • forrest fire demo: MMT253-0

    Monday, August 26, 2019 6:29 PM
  • A bit buggy and long old text adventure (36 yrz!):LBZ128

    hard to debug bcs of too many goto statements:((

    use only caps letters

    cmds are:NORT,N,SOUT,S,EAST,E,WEST,W,UP,U,DOWN,D,GET,TAKE,.,DROP,PUT,LOOK,L,INVE,I,DIG,TOUC,FEEL,OPEN,WEAR,WAVE,USE,GO,STIC,KILL,THRO,FRIS,SEAR,SHOW,EXAM,SUCK,RUN,WISH,MAKE,PLUC,PAY,HELP,QUIT,BRIB,SWIN,REMO,SAVE,LOAD,READ,HIT,PUNC,P,BREA,HYPN

     

    Thursday, August 29, 2019 9:50 AM
  • 3d triangular wiresphere: QWR425

    Saturday, August 31, 2019 12:49 AM
  • Of the 110 labels in LBZ128 only  30 are the target of GoTo statements,  thus 80 can be de;lelted without harm.

    As help in the understanding of the program I made a list of the linenumbers of the labels and the place of the GoTo's.  See this listing: 

    Labels in file :  E:\Z\SmBas\#VanNet\#tst\..\LBZ128.sb
    
    line  label |      linenumbers of calls
    0029    L40: 0291 0307 0379 0390 0399 0420 0457 0490 0524 0547 0557 0568
                 0571 0586 0590 0630 0665 0682 0736 0755 0769 0824 0959 0970
                 0973 0988 1008 1010 1025 1034 1052 1064 1081 1096 1123 1132
                 1195 1198 1219 1227 1232 1239 1263 1282 1313
    0083   L120: 0317 0326 0369 0375 0386 0404 0427 0448 0467 0474 0501 0504
                 0511 0514 0527 0530 0541 0544 0599 0607 0610 0621 0638 0641
                 0644 0650 0653 0661 0671 0693 0710 0720 0727 0730 0744 0759
                 0762 0774 0789 0799 0804 0810 0813 0816 0829 0832 0835 0841
                 0847 0858 0861 0871 0877 0880 0899 0914 0977 0982 1151 1155
                 1164 1167 1173 1176 1182 1185 1188 1213 1273 1289 1294 1302
                 1305 1318 1326 1330 1334 1338
    1320  L1220: 0497
    0091   L130: 0103 0137 0150 0297
    0112   L140: 0117
    1242  L1130: 1255
    0281   L220: 0168 0172 0176 0180 0184
    0285   L230: 0170 0174 0178 0182 0186
    0864   L750: 0191 0193
    1135   L990: 0198 0274 0674 0704
    0289   L240: 0203 0240
    0347   L290: 0207 0868
    0406   L370: 0213
    0422   L390: 0332
    0477   L420: 0260
    0722   L590: 0235
    0775   L640: 0791
    0807   L680: 0258
    1297  L1190: 0272
    1170  L1020: 0287 0596
    1316  L1210: 0323 0337 0412 0442 0538 0554 0562 0578 0612 0655 0732 0906
                 1291
    1332  L1250: 0335 0344 0432
    1324  L1230: 0430 0451 0469 0483 0623 0676 0689 0706 0746 0908 1139
    1201  L1050: 0782 0851 1245 1322
    1328  L1240: 0424 0464 0479 0495 0535 0604 0635 0724 0741 0786 0855 0866
                 1137 1148 1286 1299
    0518   L450: 0481 0485 0748
    1336  L1260: 0796
    0904   L790: 0955 0964 0990 0999 1015 1030 1039 1048 1057 1070 1083 1092
                 1101 1110 1119 1128
    0917   L810: 1143
    1229  L1100: 1043 1074 1087 1105 1114
    
     total number of labels   110
               called labels   30
               unused labels   80
    
     L30 L50 L60 L90 L70 L110 l170 L150 L200 L330 L410 L430 L460 L500 L520 L550
     L600 L620 L630 L660 L670 L700 L730 L1000 L1160 L1170 L1180 L1010 L740 L250
     L260 L270 L280 L310 L340 L360 L380 L1060 L400 L440 L470 L480 L490 L530
     L540 L560 L1080 L570 L580 L610 L650 L690 L710 L720 L760 L800 L820 L830
     L850 L860 L870 L880 L890 L900 L910 L920 L930 L940 L950 L960 L970 L980 L840
     L1140 L1090 L1030 L1040 L1110 L1150 L1200


    Jan [ WhTurner ] The Netherlands

    Saturday, August 31, 2019 5:17 PM
    Answerer
  • the source is written in unknown basic dialect:

    10 REM "The Vial of Doom"  Copyright (c) 1983 by Roger M. Wilcox                   Revision number 3
    20 KEY OFF:CLS:LOCATE 14:PRINT"I know the verbs STICK, SWING, and PLUCK.":DEF SEG=&H1700:DEFINT A-Z:DIM D$(6),PLACE$(21),PLACE(21,6),OB$(40),OB(40),VERB$(55),NOUN$(48):OFFSET=1:FOR X=1 TO 40:READ Y:POKE X,Y:NEXT
    30 FOR X=1 TO 6:READ D$(X):NEXT:FOR X=1 TO 21:READ PLACE$(X):FOR Y=1 TO 6:READ PLACE(X,Y):NEXT Y,X:FOR X=1 TO 40:READ OB$(X),OB(X):NEXT:FOR X=1 TO 55:READ VERB$(X):NEXT:FOR X=1 TO 48:READ NOUN$(X):NEXT:CP=1:Q$=CHR$(34)
    40 START=0:Y=960:CALL OFFSET(START,Y):LOCATE 1:IF LEFT$(PLACE$(CP),1)="*" THEN PRINT MID$(PLACE$(CP),2);ELSE PRINT"You are in "PLACE$(CP);
    50 PRINT". ";:IF CP=1 OR CP=17 THEN OB(6)=CP
    60 Y=1:FOR X=1 TO 40:IF OB(X)<>CP THEN 90 ELSE IF Y THEN PRINT"Visible items:":PRINT:Y=0
    70 IF POS(0)+LEN(OB$(X))>78 THEN PRINT
    80 PRINT OB$(X)". ";
    90 NEXT:Y=1:FOR X=1 TO 6:IF PLACE(CP,X)=0 THEN 110 ELSE IF Y THEN PRINT:PRINT:PRINT"Obvious exits:";:Y=0
    100 PRINT" "D$(X);
    110 NEXT:PRINT:PRINT STRING$(80,220)
    120 IF CP>4 THEN IF OB(5)=23 AND OB(4)<>23 OR WV THEN 1220
    130 LOCATE 13:START=1920:Y=79:CALL OFFSET(START,Y):A=0:B=0:A$="":B$="":PRINT"  ------"CHR$(26);:INPUT" What now";A$:IF A$="" THEN 130 ELSE START=2080:Y=880:CALL OFFSET(START,Y):X=2
    140 IF MID$(A$,X,1)="" THEN 170 ELSE IF MID$(A$,X,1)<>" " THEN X=X+1:GOTO 140
    150 B$=MID$(A$,X+1):A$=LEFT$(A$,X-1)
    160 IF LEFT$(B$,1)=" " THEN B$=MID$(B$,2):GOTO 160
    170 IF LEFT$(A$,1)>"Z" OR MID$(A$,2,1)>"Z" THEN PRINT"Use only capital letters, please.":GOTO 130 ELSE A1$=LEFT$(A$,4):B1$=LEFT$(B$,4):FOR X=1 TO 55:IF A1$=VERB$(X) THEN A=X
    180 NEXT:IF A=0 THEN PRINT"I don't know how to "Q$A$Q$" something.":GOTO 130 ELSE IF B$="" OR B1$="GAME" THEN 200 ELSE FOR X=1 TO 48:IF B1$=NOUN$(X) THEN B=X
    190 NEXT:IF B=0 THEN PRINT"I don't know what "Q$B$Q$" is.":GOTO 130
    200 IF TR>0 THEN TR=TR-1:PRINT"You have"TR"seconds!":IF TR=0 THEN 1130
    210 ON A GOTO 220,230,220,230,220,230,220,230,220,230,220,230,750,750,750,990,990,240,240,290,290,330,370,370,390,410,420,430,460,500,520,550,590,590,600,240,620,630,640,660,670,680,700,730,680,420,1000,1160,1170,1180,1190,1190,990,1010,740
    220 D=(A+1)/2:GOTO 1020
    230 D=A/2:GOTO 1020
    240 IF B=0 THEN 40 ELSE IF B=2 OR B=3 THEN IF OB(2)<>CP AND OB(2)<23 THEN 1210 ELSE PRINT"The portal has a golden inscription.":GOTO 130
    250 IF B=15 THEN IF OB(14)<>CP THEN 1250 ELSE PRINT"Try frisking him.":GOTO 40 ELSE IF B=7 AND OB(5)<23 THEN 1230
    260 IF B=7 THEN PRINT"The vial is in the shape of an octagonal, highly polished cone with a thick,":PRINT"glasslike shell containing a scintillating red liquid. The chain will easily fitaround your neck, but attempting this seems deadly.":GOTO 120
    270 IF B=8 THEN IF OB(6)<>CP THEN 1210 ELSE PRINT"There is something big at the bottom of it.":GOTO 120
    280 IF B=5 OR B=6 THEN 390 ELSE IF B=30 THEN IF OB(30)=CP THEN 1250 ELSE IF OB(28)<>CP THEN 1210 ELSE PRINT"Zap! You have just been turned to stone!!":GOTO 1050 ELSE 1250
    290 PRINT"You are currently holding the following:":A$="Nothing at all":FOR X=1 TO 37:IF OB(X)<23 THEN 310 ELSE A$="":IF POS(0)+LEN(OB$(X))>77 THEN PRINT
    300 PRINT OB$(X)". ";
    310 NEXT:PRINT A$:IF WV THEN PRINT"(You're wearing the vial)"
    320 GOTO 120
    330 IF OB(1)<23 THEN PRINT"You have nothing to dig with.":GOTO 120 ELSE IF CP=1 AND OB(35)=0 THEN PRINT"Crash!! You fall through the sand, and it piles back on top of you.":CP=3:GOTO 40
    340 IF CP=3 THEN IF WV=0 THEN PRINT"You don't have the strength to get back out.":GOTO 120 ELSE PRINT"ROWWWWR! With a surge of greath strength, you get back to the sand dune!!":CP=1:GOTO 40
    350 IF CP=1 THEN PLACE(CP,6)=3:CP=3:PLACE(CP,5)=1:PRINT"You've made a tunnel right through the sand dune! That's Incredible!!":GOTO 40
    360 PRINT"You found nothing.":GOTO 120
    370 IF B=0 THEN 1240 ELSE IF B<>3 THEN 450 ELSE IF OB(2)<>CP THEN 1210
    380 PRINT"The portal dematerializes with a "Q$"Whoosh!"Q$". Evidently the pyramid was sealed in":PRINT"a vacuum. You scurry through the portal just before the outside materializes":PRINT"again.":CP=4:GOTO 40
    390 IF B=0 THEN 1240 ELSE IF B<>5 AND B<>6 AND B<>21 THEN PRINT"It can't be opened.":GOTO 120 ELSE IF B=5 OR B=6 THEN IF OB(4)<23 THEN 1230 ELSE IF OB(5)>0 THEN 1250 ELSE PRINT"It has a "OB$(5)" in it.":OB(5)=23:GOTO 1060
    400 IF OB(17)<>CP THEN 1210 ELSE INPUT"With what";A$:IF A$<>"VIAL" THEN PRINT"Sorry, no go.":GOTO 120 ELSE IF OB(5)<23 THEN 1230 ELSE PRINT"Creeeek!":OB(17)=0:PLACE(CP,3)=20:GOTO 40
    410 IF B=0 THEN 1240 ELSE IF B<>7 THEN PRINT"You can't wear a "B$".":GOTO 120 ELSE IF OB(5)<23 THEN 1230 ELSE PRINT"Ok":WV=1:GOTO 120
    420 IF B=0 THEN 1240 ELSE IF B<>7 THEN 450 ELSE IF OB(5)<23 THEN 1230 ELSE IF OB(8)<>CP THEN 450 ELSE PRINT"The clerk is now hypnotized.":OB(9)=CP:OB(8)=0:GOTO 40
    430 IF B=0 THEN 1240 ELSE IF B=45 THEN 1220 ELSE IF B=47 THEN PRINT "Sorry. That Adventure takes place:":PRINT Q$"A long time ago, in a galaxy far, far away...."Q$:GOTO 120 ELSE IF B<>44 THEN PRINT"Nothing happens.":GOTO 120
    440 IF CP<5 OR CP=8 THEN IF OB(35)>0 THEN PRINT"That's already being done....":GOTO 120 ELSE PRINT"Sorry. There seems to be some Chaotic interference in this area.":GOTO 120
    450 LAW=1:IF OB(12)=CP THEN PRINT"The guard is off-guard!":OB(12)=0:OB(33)=CP:GOTO 40 ELSE IF OB(24)=CP THEN PRINT"The gate attendant seems friendlier already!":GOTO 120 ELSE PRINT"Ok":GOTO 120
    460 IF B=0 THEN 1240 ELSE IF B=8 THEN IF OB(6)<>CP THEN 1210 ELSE IF OB(28)=CP THEN PRINT"Basilisk won't let you.":GOTO 120 ELSE IF LAW=0 THEN PRINT"You would drown! What do you think you are, a god?":GOTO 120 ELSE CP=7:GOTO 40
    470 IF B=22 THEN IF OB(18)<>CP THEN 1210 ELSE CP=21:GOTO 40 ELSE IF B=26 OR B=27 THEN IF OB(25)<>CP AND OB(38)<>CP THEN 1210 ELSE PRINT"Ok. You fly through the air, and land somewhere else.":IF CP=13 THEN CP=12:GOTO 40 ELSE CP=13:GOTO 40
    480 IF B=28 THEN IF OB(26)<>CP AND OB(39)<>CP THEN 1210 ELSE PRINT"Ok. You ride for a while, then get off somewhere else.":IF CP=14 THEN CP=15:GOTO 40 ELSE CP=14:GOTO 40
    490 IF B>34 AND B<41 THEN D=B-34:GOTO 1020 ELSE PRINT"You can't go to a "B$".":GOTO 120
    500 IF B=0 THEN 1240 ELSE IF B<>23 THEN PRINT"It didn't stick.":GOTO 120 ELSE IF OB(20)=CP THEN PRINT"Are you crazy? One bite and you're dead!":GOTO 120 ELSE IF OB(19)<>CP THEN 1210 ELSE INPUT"Into where (one word)";A$:A$=LEFT$(A$,4)
    510 IF A$<>"CONT" THEN PRINT"Sorry, no go.":GOTO 120 ELSE IF OB(5)<23 THEN 1230 ELSE PRINT"Squirtt! The container fills with venom, and just as quickly, the cobra awakes!":OB(3)=0:OB(21)=23:OB(19)=0:OB(20)=CP:GOTO 40
    520 IF B=0 THEN 1240 ELSE IF B=9 OR B=42 THEN PRINT"Be more specific.":GOTO 120 ELSE IF OB(10)<23 THEN PRINT"You have nothing to kill with!":GOTO 120 ELSE IF B=30 THEN PRINT"Sorry -- too tough!":GOTO 120
    530 IF B<>23 THEN PRINT"I cannot allow you to do that, Frodo.":GOTO 120 ELSE IF OB(19)=CP THEN PRINT"The venom needs to be from a live cobra to work. If you were to kill this one,  it would be useless.":GOTO 120 ELSE IF OB(20)<>CP THEN 1210
    540 IF LAW=0 THEN PRINT"The cobra withstands your blows!":GOTO 120 ELSE PRINT"Sparrrk! The cobra vanishes in a cloud of electrical smoke!!":OB(20)=0:GOTO 40
    550 IF B=39 THEN PRINT"Barf!":GOTO 120 ELSE IF B=16 THEN IF OB(33)<>CP THEN 990 ELSE IF OB(13)<23 THEN 1230 ELSE PRINT"The pill lands in the guard's Thermos, he drinks, and promptly falls asleep.":OB(33)=0:OB(14)=CP:OB(13)=0:GOTO 40
    560 IF B=11 OR B=12 THEN IF OB(10)<23 THEN 1230 ELSE IF OB(7)<>CP THEN PRINT"Ok":OB(10)=CP:GOTO 120 ELSE PRINT"Arrg! The dagger lodges into the octopus, and allows you to escape north!":OB(10)=0:CP=1:GOTO 1080
    570 IF B<>2 THEN 990 ELSE IF OB(2)<23 THEN 1230 ELSE IF CP>1 OR OB(35)=0 THEN PRINT"Ok":OB(2)=CP:GOTO 120
    580 PRINT"Whump! Chaos is down! Law wins the fight, and says:":PRINT Q$"Make the mixture here!"Q$" P.S.: Why not look at the debris of the pyramid?":OB(2)=0:OB(31)=8:OB(35)=0:OB(40)=8:GOTO 120
    590 IF B=0 THEN 1240 ELSE IF B<>15 THEN PRINT"Sorry, no can do.":GOTO 120 ELSE IF OB(33)=CP OR OB(12)=CP THEN PRINT"Guard won't let you.":GOTO 120 ELSE IF OB(14)<>CP THEN 1210 ELSE PRINT"A "OB$(15)" fell out.":OB(15)=CP:GOTO 40
    600 IF B=0 THEN 1240 ELSE IF B<>29 THEN PRINT"Unshowable.":GOTO 120 ELSE IF OB(27)<23 THEN 1230 ELSE IF OB(28)<>CP THEN 450
    610 PRINT"Zap! The "Q$"mirror"Q$" has just transformed the basilisk to stone via its own gaze!":OB(28)=0:OB(30)=CP:GOTO 40
    620 IF OB(22)<23 THEN PRINT"You have nothing to suck with.":GOTO 120 ELSE IF OB(34)<>CP THEN PRINT"There is nothing here to suck.":GOTO 120 ELSE PRINT"Whooosh! The octopus woke up!!":OB(22)=0:OB(23)=23:OB(34)=0:OB(7)=CP:GOTO 40
    630 PRINT"Not YET!!!":GOTO 120
    640 IF OB(32)<>CP AND OB(32)<>23 THEN 1260
    650 PRINT"In a soundless concussion of darkness, you find yourself on the far side of the mountain! The victory is yours -- and the galaxy's.":GOTO 1050
    660 IF B=0 THEN 1240 ELSE IF B<>34 THEN PRINT"Huh?":GOTO 120 ELSE 640
    670 IF OB(28)<>CP THEN 1260 ELSE IF OB(29)>0 THEN PRINT"Already been done.":GOTO 120 ELSE PRINT"Pook! One of its eyes pops out in your hand, but instantly grows back!":PRINT"It's mad, now!!":OB(29)=23:GOTO 120
    680 IF OB(15)<23 THEN PRINT"You have nothing to "A$" with.":GOTO 120 ELSE IF B<>0 AND B<>15 PRINT"That wouldn't do any good anyway.":GOTO 120 ELSE IF OB(12)<>CP THEN PRINT"How?":GOTO 120
    690 PRINT"He says, "Q$"Thanks!"Q$", goes into the store, and gives you a fire opal. He":PRINT"promptly "Q$"forgets"Q$" you and goes back on duty.":OB(15)=0:OB(16)=23:GOTO 40
    700 IF OB(35)=1 THEN PRINT"Hit Chaos with something.":GOTO 120 ELSE IF OB(8)=CP THEN PRINT"Try hypnotizing him.":GOTO 120 ELSE IF CP=1 AND OB(1)=2 THEN PRINT"Go west.":GOTO 120
    710 IF CP<5 OR OB(5)=0 THEN PRINT"Sorry, I can't.":GOTO 120
    720 PRINT"If you find that you're in trouble, why not use the power of Law to your":PRINT"advantage? After all, Law is on your side!":GOTO 120
    730 PRINT"Coward!":GOTO 1050
    740 IF B=0 THEN 1240 ELSE IF B<>10 THEN PRINT"You can't.":GOTO 120 ELSE PRINT"Be more specific as to how.":GOTO 120
    750 IF B=0 THEN 1240 ELSE IF B=46 THEN 290 ELSE IF B=3 OR B>7 AND B<11 OR B=15 OR B>20 AND B<24 OR B>24 AND B<29 OR B=30 OR B=41 OR B=42 OR B>43 THEN PRINT"It's beyond your power to do that.":GOTO 120
    760 IF B>34 AND B<40 THEN PRINT"I don't get it.":GOTO 120 ELSE IF B=40 THEN PRINT"...and boogie!":GOTO 120 ELSE NA=CP:NB=23:Y=0:FOR X=1 TO 32:IF OB(X)=23 THEN Y=Y+1
    770 NEXT:IF OB(37)=23 THEN Y=Y+1
    780 IF Y>6 THEN PRINT"You are currently holding too much. Try: TAKE INVENTORY":GOTO 120 ELSE 800
    790 IF NA=CP THEN 1210 ELSE 1230
    800 IF OB(8)=CP AND B>10 AND B<17 THEN PRINT"The clerk says you'll have to pay cash.":GOTO 120
    810 ON B GOTO 820,830,,850,860,860,870,,,,880,880,890,890,,900,910,910,920,920,,,,930,,,,,940,,950,960,970,970:GOTO 980
    820 IF OB(1)<>NA THEN 790 ELSE PRINT"Ok":OB(1)=NB:GOTO 40
    830 IF OB(2)<>NA THEN 790 ELSE IF OB(35)>0 THEN OB(2)=NB:IF NA=CP THEN PRINT"With a great warring strength, you lift the pyramid!":GOTO 40 ELSE PRINT"Ok":GOTO 40 ELSE IF WV=1 THEN PRINT"Your Chaotic strength can budge it, but not lift it.":GOTO 120
    840 PRINT"Too big!":GOTO 120
    850 IF OB(3)=NA THEN PRINT"Ok":OB(3)=NB:GOTO 40 ELSE IF OB(21)<>NA THEN 790 ELSE PRINT"Ok":OB(21)=NB:GOTO 1100
    860 IF OB(4)<>NA THEN 790 ELSE PRINT"Ok":OB(4)=NB:IF OB(36)<>4 AND OB(37)<>4 THEN PRINT"A mummy has come to life!":OB(36)=CP:GOTO 40 ELSE 40
    870 IF OB(5)<>NA THEN 790 ELSE PRINT"Ok":OB(5)=NF:WV=0:IF CP=1 AND NB=CP AND GLOW THEN 1140 ELSE 40
    880 IF OB(10)<>NA THEN 790 ELSE PRINT"Ok":OB(10)=NB:GOTO 40
    890 IF OB(11)<>NA THEN 790 ELSE PRINT"Ok":OB(11)=NB:GOTO 1100
    900 IF OB(13)<>NA THEN 790 ELSE PRINT"Ok":OB(13)=NB:GOTO 40
    910 IF OB(15)<>NA THEN 790 ELSE PRINT"Ok":OB(15)=NB:IF OB(14)=CP THEN 1090 ELSE 40
    920 IF OB(16)<>NA THEN 790 ELSE PRINT"Ok":OB(16)=NB:GOTO 1100
    930 IF OB(22)=NA THEN PRINT"Ok":OB(22)=NB:GOTO 40 ELSE IF OB(23)<>NA THEN 790 ELSE PRINT"Ok":OB(23)=NB:GOTO 1100
    940 IF OB(27)<>NA THEN 790 ELSE PRINT"Ok":OB(27)=NB:GOTO 40
    950 IF OB(29)<>NA THEN 790 ELSE PRINT"Ok":OB(29)=NB:GOTO 1100
    960 IF OB(31)<>NA THEN 790 ELSE PRINT"Ok":OB(31)=NB:GOTO 1100
    970 IF OB(32)<>NA THEN 790 ELSE PRINT"Ok":OB(32)=NB:GOTO 40
    980 IF OB(37)<>NA THEN 790 ELSE PRINT"Ok":OB(37)=NB:GOTO 40
    990 IF B=0 THEN 1240 ELSE IF B=3 OR B>7 AND B<11 OR B=15 OR B>20 AND B<>24 AND B<29 OR B=30 OR B>30 AND B<41 OR B>43 THEN 1230 ELSE NA=23:NB=CP:GOTO 810
    1000 IF B=0 THEN 1240 ELSE IF B<>7 OR WV=0 THEN PRINT"You're not wearing it.":GOTO 120 ELSE PRINT"Ok":WV=0:GOTO 120
    1010 IF B=0 THEN STOP:GOTO 40 ELSE IF B<>7 THEN PRINT"There's no reason to go around breaking "B$"S.":GOTO 120 ELSE PRINT"Sorry, the vial of Chaos is indestructable.":GOTO 120
    1020 IF PLACE(CP,D)=0 THEN PRINT"There is no way to go in that direction.":GOTO 120 ELSE IF OB(7)=CP THEN PRINT"The octopus has you in a tight bind with its tentacles!":GOTO 120
    1030 IF D=2 AND CP=11 AND LAW=0 THEN PRINT"The gate attendant won't let you through without a ticket.":GOTO 120 ELSE IF OB(20)=CP THEN PRINT"The cobra won't let you leave!":GOTO 120 ELSE IF OB(36)=CP THEN PRINT"The mummy won't let you leave!":GOTO 120
    1040 LAW=0:IF CP=4 THEN CP=OB(2):GOTO 40 ELSE CP=PLACE(CP,D):GOTO 40
    1050 PRINT:INPUT"The adventure has ended. Care to try again";A$:A$=LEFT$(A$,1):IF A$="Y" THEN RUN ELSE IF A$="N" THEN CLS:NEW ELSE 1050
    1060 PRINT"   Suddenly, the spirit of "Q$"Law"Q$" appears, and says:":PRINT"The vial is controlled by "Q$"Chaos,"Q$" the bad guy. To destroy the vial (although":PRINT"it may give you a little strength to escape), you must get the following"
    1070 PRINT"ingredients:":PRINT"   Turquois gem, fire opal, cobra venom, basilisk eye, and octopus ink. Combine these by an alabaster bowl, then put the vial in, and *RUN*!!":GOTO 120
    1080 PRINT"   Suddenly, Law and Chaos appear to the west and east respectively in the formsof giants. They start battling it out with lightning, but quickly reach a stale-mate. In the confusion, Law gives you great strength.":OB(35)=1:GOTO 40
    1090 PRINT"The guard instantly wakes up, and says he'll give you anything if you:":PRINT"(1) -- don't tell his boss he was sleeping on the job, and":PRINT"(2) -- bribe him.":OB(14)=0:OB(12)=CP:GOTO 40
    1100 IF NB=23 THEN GLOW=0:GOTO 40
    1110 IF OB(11)=1 AND OB(16)=1 AND OB(21)=1 AND OB(23)=1 AND OB(29)=1 AND OB(31)=1 THEN PRINT"The mixture has begun to glow deep red.":GLOW=1
    1120 GOTO 40
    1130 PRINT"******  B O O M ! ! !  ******":PRINT"Your efforts weren't in vain, but you failed to save your own life! You're dead!";:GOTO 1050
    1140 OB(5)=CP:PRINT"The vial vibrates, getting ready to explode. Oh, by the way --":PRINT"** YET ** !!":INPUT A$:A$=LEFT$(A$,3):IF A$<>"RUN" THEN 1130
    1150 CP=18:PRINT"The vial goes off in a red, Chaotic mushroom cloud.":PRINT"You have only six (6) seconds until the fireball reaches you!":TR=6:GOTO 40
    1160 OPEN "O",1,"VIAL.DAT":FOR X=1 TO 40:PRINT#1,OB(X):NEXT:PRINT#1,WV,LAW,PLACE(10,3),CP,TR,GLOW:CLOSE:PRINT"Ok":GOTO 120
    1170 OPEN "I",1,"VIAL.DAT":FOR X=1 TO 40:INPUT #1,OB(X):NEXT:INPUT #1,WV,LAW,PLACE(10,3),CP,TR,GLOW:CLOSE:GOTO 40
    1180 IF B=0 THEN 1240 ELSE IF B<>41 AND B<>3 THEN PRINT"There is nothing written on a "B$".":GOTO 120 ELSE IF OB(2)<>CP AND OB(2)<>23 THEN 1210 ELSE PRINT"It translates into, "Q$"Touch and go."Q$:GOTO 120
    1190 IF B=0 THEN 1240 ELSE IF B=45 THEN PRINT"You can't hit Chaos directly. Try another approach.":GOTO 120 ELSE IF B<>42 OR WV=0 THEN PRINT"Nothing happens.":GOTO 120
    1200 IF OB(36)=CP THEN PRINT"Baam! You made it fly apart!":OB(36)=0:OB(37)=CP:GOTO 40
    1210 PRINT"You don't see it here.":GOTO 120
    1220 PRINT"The powers of the vial have taken over your body! You're posessed by Chaos!!!":GOTO 1050
    1230 PRINT"You don't have it.":GOTO 120
    1240 PRINT A$" what?":GOTO 120
    1250 PRINT"You see nothing special.":GOTO 120
    1260 PRINT"You can't do that...yet!":GOTO 120
    1270 DATA &H55,&H1E,&H06,&H8B,&HEC,&H8B,&H76,&H0C,&H8B,&H04,&H8B,&H76,&H0A,&H8B,&H0C,&H8B,&HF0,&HB8,&H00,&HB0,&H8E,&HD8,&H8E,&HC0,&HC7,&H04,&H20,&H07,&H8B,&HFE,&H47,&H47,&HF2,&HA5,&H07,&H1F,&H5D,&HCA,&H04,&H00
    1280 DATA north,south,east,west,up,down
    1290 DATA *You're on a sand dune,,,8,2,,
    1300 DATA a desert,,,1,,,
    1310 DATA *You're at the bottom of a sandy hole,,,,,,
    1320 DATA a tomb chamber,,,,3,,
    1330 DATA the city,6,,9,8,,
    1340 DATA a pawn shop,,5,,,,
    1350 DATA a mysterious inky lake,1,17,,,,
    1360 DATA *You're on top of a mountain,,,5,1,,
    1370 DATA front of a jewelry store,,10,,5,,
    1380 DATA *You're at the foot of a large zoo gateway,9,11,,,,
    1390 DATA the entrance to an airport,10,12,,,,
    1400 DATA an airport,11,,,,,
    1410 DATA an airport,14,,,,,
    1420 DATA a bus terminal,13,,,,,
    1430 DATA a bus terminal,16,,,,,
    1440 DATA a forest,17,15,,,,
    1450 DATA a forest,,16,,,,
    1460 DATA *You're on the side of a mountain,,,,,19,
    1470 DATA *You're on the side of a mountain,,,,,19,18
    1480 DATA a zoo,,,,10,,
    1490 DATA the cobra's cage,,,,,20,
    1500 DATA Shovel,2,Pyramid with a stone portal,3,Tiny plastic container,4,Lead box,4,Twinkling vial with thin chain attached,,Mysterious-looking lake,1,=Deadly giant octopus=,,Store clerk,6,Hypnotized clerk,,Large dagger,6,Turquois gem,6
    1510 DATA Guard with a Thermos of coffee,9,Sleeping pill,6,Sleeping guard,,Wad of money,,Fire opal,,Closed zoo gate,10,Cobra's cage,20,Sleeping cobra,21,=Deadly cobra,,Container full of venom,,Empty liquid sucker,11
    1520 DATA Sucker full of octopus ink,,Gate attendant,11,Big airplane,12,Large bus,14,"Flat, reflective stone",16,Basilisk,17,Basilisk eye,,Stone basilisk,,Bowl made of alabaster,,Wishing rock,18,Distracted guard,
    1530 DATA Sleeping giant octopus,7,Law and Chaos are still in battle,,Animated mummy,,Unwound ace bandages,,Big airplane,13,Large bus,15,Pyramid rubble,
    1540 DATA NORT,N,SOUT,S,EAST,E,WEST,W,UP,U,DOWN,D,GET,TAKE,.,DROP,PUT,LOOK,L,INVE,I,DIG,TOUC,FEEL,OPEN,WEAR,WAVE,USE,GO,STIC,KILL,THRO,FRIS,SEAR,SHOW,EXAM,SUCK,RUN,WISH,MAKE,PLUC,PAY,HELP,QUIT,BRIB,SWIN,REMO,SAVE,LOAD,READ,HIT,PUNC,P,BREA,HYPN
    1550 DATA SHOV,PYRA,PORT,CONT,LEAD,BOX,VIAL,LAKE,OCTO,CLER,DAGG,KNIF,TURQ,GEM,GUAR,PILL,WAD,MONE,FIRE,OPAL,GATE,CAGE,COBR,SUCK,ATTE,AIRP,PLAN,BUS,STON,BASI,EYE,BOWL,ROCK,WISH,NORT,SOUT,EAST,WEST,UP,DOWN,INSC,MUMM,BAND,LAW,CHAO,INVE,FORC,RUBB
    

    Saturday, August 31, 2019 8:33 PM
  • seems like qbasic. don't know wht is START=1920:Y=79:CALLOFFSET(START,Y) supposed to do?
    Saturday, August 31, 2019 8:40 PM
  • seems like qbasic. don't know wht is START=1920:Y=79:CALLOFFSET(START,Y) supposed to do?
    May be for this PC: TRS-80.
    According to this site, this game has then ported to GW-BASIC.
    Calling machine language code OFFSET with parameters START and Y. 

    Nonki Takahashi



    Sunday, September 1, 2019 9:06 AM
    Moderator
  • I used ONLIINE DISASSEMBLER for the code in the program.

    ' 00000000 55                   push   %bp
    ' 00000001 1e                   push   %ds
    ' 00000002 06                   push   %es
    ' 00000003 8b ec                mov    %sp,%bp
    ' 00000005 8b 76 0c             mov    0xc(%bp),%si
    ' 00000008 8b 04                mov    (%si),%ax
    ' 0000000a 8b 76 0a             mov    0xa(%bp),%si
    ' 0000000d 8b 0c                mov    (%si),%cx
    ' 0000000f 8b f0                mov    %ax,%si
    ' 00000011 b8 00 b0             mov    $0xb000,%ax
    ' 00000014 8e d8                mov    %ax,%ds
    ' 00000016 8e c0                mov    %ax,%es
    ' 00000018 c7 04 20 07          movw   $0x720,(%si)
    ' 0000001c 8b fe                mov    %si,%di
    ' 0000001e 47                   inc    %di
    ' 0000001f 47                   inc    %di
    ' 00000020 f2 a5                repnz movsw %ds:(%si),%es:(%di)
    ' 00000022 07                   pop    %es
    ' 00000023 1f                   pop    %ds
    ' 00000024 5d                   pop    %bp
    ' 00000025 ca 04 00             lret   $0x4
    


    Nonki Takahashi

    Sunday, September 1, 2019 10:13 AM
    Moderator
  • hypnotic effect: PBN444-0

    when u longer watch u will feel the 3d effect like rotating 3d conuses

    Wednesday, September 4, 2019 4:48 AM
  • seems like qbasic. don't know wht is START=1920:Y=79:CALLOFFSET(START,Y) supposed to do?

    May be for this PC: TRS-80.
    According to this site, this game has then ported to GW-BASIC.
    Calling machine language code OFFSET with parameters START and Y. 

    Nonki Takahashi



    tx nonki it works nice in c#

    Wednesday, September 4, 2019 4:54 AM
  • quick smallbasic editor v0.1

    • rightclick the buttons to edit props
    • to stop editing enter null value
    • to edit from table click on the desired line
    • known bugs: due to sendkeys cmd it's not possible to send 2x same number, e.g. use 501 instead of 500

    Thursday, September 12, 2019 9:07 AM
  • Looks nice, Tryhest.  ID for your QSBEdit is missing.

    Friday, September 13, 2019 12:51 PM
    Answerer
  • pegs: KQX027

    • rightclick to select color
    • click hole to add peg
    • rightclick peg to remove it

    Monday, September 16, 2019 3:55 AM
  • Looks nice, Tryhest.  ID for your QSBEdit is missing.

    an update: TRJ240

    Monday, September 16, 2019 4:10 AM
  • pegs: KQX027

    • rightclick to select color
    • click hole to add peg
    • rightclick peg to remove it

    Hi Tryhest, nice program!  I like this.


    Nonki Takahashi

    Wednesday, September 18, 2019 12:55 AM
    Moderator
  • update to pegs: MNZ506

    • added save & playback mode
    • added 3d effects
    • due to sb issue is not possible to playback several times, bcs of shapes enum problem, so playback will work for sure only once correctly

    Wednesday, September 18, 2019 5:57 AM
  • brickout-like game: ZCK940

    Wednesday, September 18, 2019 9:54 AM
  • bounce v0.2: ZCK940-0

    • mswheel added
    • skew effect
    • color changes

    Thursday, September 19, 2019 2:23 AM
  • bounce v0.25: ZCK940-1

    added ballsets:


    • Edited by Tryhest Thursday, September 19, 2019 2:50 AM
    Thursday, September 19, 2019 2:49 AM
  • bounce v0.31: ZCK940-3

    ctrl+mswheel zooms shapes 

    added bouncers:


    • Edited by Tryhest Thursday, September 19, 2019 4:04 AM
    Thursday, September 19, 2019 3:41 AM
  • power fn behavior:

    gg=LDGraph.AddGraph(1 1 1000 500 "" "" "") 
    for p=.1 to 1.5 step .2
      i=i+1
      for x=0 to 1 step .001 
      xs[I][x+1]=Math.Power(x, p)
      EndFor
    EndFor
    for j=1 to i
    LDGraph.AddSeriesLine(gg "x"+j xs[j] "red")
    EndFor

    Friday, September 20, 2019 2:04 AM
  • shells intro: LFZ867-0

    Saturday, September 21, 2019 3:04 AM
  • rle monochrome bmp inline demo: WCS356

    generates a bitmap from rle encoded text inline

    it compresses 106kb bmp into only 4kb textline

    • >>> is used as newline marker
    • ~` is used as quote replacement marker
    • chr(200) is used as prefix for quoting chars 0-31 code
    Sunday, September 22, 2019 6:01 AM
  • rle compressor: CQS948

    • very simplified
    • decompressor is shown above
    • limitations are:
       -block lenght max 255 pix
       -every 2nd line is used to speedup processing
       -just b/w mono images, with no dihtering
       -the measured leght is transformed to a char
       -one arbitrary unused block lenght size is used as quote char to quote sizes less than 32 pix
      ->>> is used as newline marker
      -after processing u must replace quotation markers with ~` chars


    • Edited by Tryhest Monday, September 23, 2019 9:59 AM
    Monday, September 23, 2019 9:57 AM
  • "cascadia code"-like simplified font: DFZ692

    Wednesday, September 25, 2019 3:05 AM
  • lower case chars added:CZV222

    Thursday, September 26, 2019 7:31 AM
  • halloween hommage: HSW797

    Monday, September 30, 2019 4:32 AM
  • easy basic shell: DHS971

    righclick for all comands and options


    it will use numbered and numberless mode. Numberless mode is like standard sb editor mode. Numbered mode is like ZX basic oldstyle mode. In numbered mode the line is replaced by newone.
    • Edited by Tryhest Tuesday, October 1, 2019 4:05 AM
    Tuesday, October 1, 2019 4:02 AM
  • update EB v0.15: DHS971-0

    • added vars, varref char $
    • added matheval #
    • run mode

    Tuesday, October 1, 2019 8:31 PM
  • EBsic 0.2 update: RFV038

    • added plot
    • for loops, indentation
    • small updates

    Wednesday, October 2, 2019 3:52 AM
  • update 0.22: BRF033

    • added sub & while
    • rem colors green
    • for arguments: count | min | step
    • move of prg. lines

    Wednesday, October 2, 2019 8:39 PM
  • PLM394  draws ZX Spectrum+3 keyboard layout


    • Edited by Tryhest Monday, October 7, 2019 5:20 AM
    Monday, October 7, 2019 5:20 AM
  • updt 2 nonki's sb 11 anniversary: TJK185

    Monday, October 7, 2019 7:52 PM
  • BQN082 draws zx spectrum '82 kbd layout

    Wednesday, October 9, 2019 5:40 PM
  • TGC937  shows ZX81 kbd layout

    Thursday, October 10, 2019 3:28 AM
  • ZX80 original kbd BGM439

    Thursday, October 10, 2019 4:11 AM
  • Z80 Disassembler: XVT476

    Saturday, October 12, 2019 9:17 PM
  • ZX Disassembler/Assembler update: XRH065

    Tuesday, October 15, 2019 4:30 AM
  • Z80 asm update: NBZ472

    • added save & open
    • added cls, sav in disasm mode
    Tuesday, October 15, 2019 6:35 PM
  • Timex 2048 kbd: JKT415

    Wednesday, October 16, 2019 4:27 PM
  • C64 kbd layout: VPL925

    Thursday, October 17, 2019 5:48 PM
  • Da Vinci's Mirror text: PXL742

    note: to work is needed installing font Fixedsys Excelsior 3.01

    Friday, October 18, 2019 4:29 AM
  • Private chars: MPC905


    • Edited by Tryhest Monday, October 21, 2019 4:37 AM
    Monday, October 21, 2019 4:37 AM
  • matrix effect: PVC977

    Tuesday, October 22, 2019 12:31 AM
  • update to Nonki's Line Editor: BCG885-0

    • redirected to LDlistview
    • unicode chrs allowed
    • deleting lines allowed
    • added duplication lines
    • writing to new file


    • Edited by Tryhest Tuesday, October 22, 2019 5:58 PM
    Tuesday, October 22, 2019 5:56 PM
  • dancin' bars in textwin: TNW449

    Wednesday, October 23, 2019 3:40 PM
  • bar-chars (v0.1): TNW449-0

    Thursday, October 24, 2019 4:23 AM
  • z80 asm update: FZD102

    • added ZX81 rom disassembly beginning with comments

    Friday, October 25, 2019 4:22 AM
  • ZX81 chrset(0 to 63) by cols: BVL396

    Friday, October 25, 2019 4:47 PM
  • ZX81 Basic commands: CKT769

    Saturday, October 26, 2019 10:17 PM
  • creative update for ZX81: CKT769-0

    • normal chrs typed regulary
    • `nn --> cmds nn[1..64]
    • ~ee --> err codes [0..d]
    • %hh --> char code [1..63]

    on 1st run set genn to true to speedup next runs

    adjust folder before run ("e:\zx81")

    to rotate chars/tokens use mswheel

    Monday, October 28, 2019 12:37 AM
  • zx81+ editor v0.3: SQD642


    update: DDG924 rightclckmenu added
    • Edited by Tryhest Tuesday, October 29, 2019 4:51 AM
    Monday, October 28, 2019 11:30 PM
  • update to Nonki's robot: LMB777

    • shortened code
    • added lines drawing

    Wednesday, October 30, 2019 2:22 PM
  • ZX81 softy font: RML455

    Wednesday, October 30, 2019 9:53 PM
  • 1st Win Splashscreen: XXJ592

    Friday, November 1, 2019 5:17 AM
  • ZX81 softy font: RML455


    now ZX81 with modernized font: RML455-1

    Friday, November 1, 2019 8:03 AM
  • This thread will continue to small basic graphic and animation and more (13).

    Nonki Takahashi

    Sunday, November 3, 2019 1:39 AM
    Moderator