Beiträge von hoppi71 im Thema „C64 Kurze Listings“

    hi lynx

    das 'hearts demo' ist top! aber was bei zeile 2 das print so alles bewirkt checke ich nicht - ist mir zu hoch 8o

    hi lynx

    dieses listing finde ich genial eine gute medidation und grafik effekt. für einen text müsste man sich aber noch recht reinhängen.

    mega cool Neptun. du bist hier auf dem forum einer meiner grössten inspirationen unter den 'kurzprogamme' schreibern! vielen dank.

    der ist auch cool, quasi ein auto-maze-generator & solver...


    10 printchr$(147)
    20 fort=40to959:ifint(rnd(1)*3.4)=1thenpoke1024+t,160
    30 nextt
    40 fort=1024to1063:poket,81:next
    50 fort=1063to2023step40:poket,81:next
    60 fort=2023to1984step-1:poket,81:next
    70 fort=1984to1024step-40:poket,81:next
    100 g=1964:br=40:gr=1:poke1704,32:poke1705,32:poke1664,32:poke1665,32
    130 ifpeek(g+br)=32thengosub300
    131 ifpeek(g+gr)<>32thengosub200:goto130
    135 pokeg,32
    140 ifg+gr>1024andg+gr<2023theng=g+gr
    150 pokeg,241
    155 ifg=1704thenend
    160 goto130
    200 ifbr=40thengr=-40:br=1:return
    210 ifbr=1thengr=-1:br=-40:return
    220 ifbr=-40thengr=40:br=-1:return
    230 ifbr=-1thengr=1:br=40:return
    300 ifbr=40thengr=40:br=-1:return
    310 ifbr=-1thengr=-1:br=-40:return
    320 ifbr=-40thengr=-40:br=1:return
    330 ifbr=1thengr=1:br=40:return

    durch diese zugegeben etwas längere if-then orgie entsteht ein sehr faszinierendes 3D labyrinth!

    Hmm, ist das Labyrinth lösbar, wenn man drinsteht?

    (Als ich mal ein richtiges Labyrinth in Python "brauchte", bzw. haben wollte, hatte ich Bitte melde dich an, um diesen Link zu sehen. verwendet.)

    Und P.S.: Was hast Du gegen [code - Tags hier im Forum? Ist damit einfacher, Copy & Paste zu verwenden.

    hi, mir geht es primär um die optik bzw. einfach coole grafische effekte. danke frür den hinweis zum python code.

    wegen den 'code tags'. ich glaube, ich habe einfach die funktion nicht geschnallt. du meinst mit 'Quellcode' formatieren, oder?

    also, hier nochmals die schmackerl als dateien:

    0 "thec64 " 01 2a

    1 "raster-move" prg

    1 "einzeiler-grafik" prg

    1 "10print-hr" prg

    2 "schneefall" prg

    1 "10print-buble" prg

    1 "einzeiler-spiel" prg

    2 "xmas2" prg

    1 "random-graf" prg

    1 "10print-relief" prg

    4 "3d-labyrinth" prg

    649 blocks free.

    -> nach dem ersten programm 'raster-move', dass ja im vice automatisch startet, muss man am besten kurz reset machen, da sonst der bildschirm etwas verschoben ist. dann wie üblich load"$",8...

    sehenswert finde ich vor allem: '10print-hr', '10print-buble', 'random-graf' und '3d-labyrinth'...

    auch von ian witham: durch diese zugegeben etwas längere if-then orgie entsteht ein sehr faszinierendes 3D labyrinth! (ein paar cracks unter euch könnten es vielleicht kürzen und schneller machen). kann man ins vice kopieren, aber achtung, die sonderzeichen von 400-460 anpassen...

    1 rem if copying source into vice,

    2 rem remember to retype special

    3 rem characters on lines 400-460

    5 poke53281,1

    10 dimr(40)

    15 fori=1to40:r(i)=2^int(rnd(.)*4+1):next

    20 fori=1to40

    40 ifi=1thent=127:goto200

    100 l=r(i-1)

    110 ifl=1thent=4or8or64

    120 ifl=2thent=4or8or64or16

    130 ifl=4thent=35

    140 ifl=8thent=35

    150 ifl=16thent=1or2or32

    160 ifl=32thent=16or64or4or8

    170 ifl=64thent=4or8or16or64

    200 u=r(i)

    210 ifu=1thent=t and(32or64)

    220 ifu=2thent=t and(32or64)

    230 ifu=4thent=t and(16or64or32)

    240 ifu=8thent=t and(16or64or32)

    250 ifu=16thent=t and(1or4)

    260 ifu=32thent=t and10

    270 ifu=64thent=t and48 :rem16or32

    300 ift=48thent=16+((rnd(.)*2)and1)*16

    310 ift=5thent=1+((rnd(.)*2)and1)*3

    320 ift=96thent=32+((rnd(.)*2)and1)*32

    330 ift=80thent=16+((rnd(.)*2)and1)*48

    340 ift=10thent= 2+((rnd(.)*2)and1)* 6

    350 ift=112thent=2^int(rnd(.)*3+4)

    390 r(i)=t

    400 ift=1thenprint"{rvof}{gry2}{SHIFT-POUND}";:next

    410 ift=2thenprint"{rvof}{gry1}{SHIFT-POUND}";:next

    420 ift=4thenprint"{rvof}{gry2}{CBM-*}";:next

    430 ift=8thenprint"{rvof}{gry1}{CBM-*}";:next

    440 ift=16thenprint"{rvon}{gry2}{SHIFT-POUND}";:next

    450 ift=32thenprint"{rvon}{gry1}{CBM-*}";:next

    460 ift=64thenprint"{rvof} ";:next

    470 ifi=41thengoto20

    480 print:printl,u,i,t

    eine sehenswerte 10print variante vom meister ian witham, welche ein relief / 3D artiges muster erzeugt (von mir ein bisschen gekürzt):

    0 printchr$(147):poke53281,12:rem * 10print varainate 'relief' *

    1 b=b<>-1:fori=1to40:b=b<>-1:printchr$(146+b*128);:z=int(rnd(1)+.5)

    2 printchr$(155-z*4)+chr$(z*54+169);:next:goto1

    ok, noch zwei schmackerl:

    0 printchr$(14)mid$(chr$(223)+chr$(233),rnd(.)*2+1);:goto

    (ein 10print in high-res)

    0 A="08'ROT''F5'@ 000 @'F5''ROT'000"="":poke53272,18:printchr$(rnd(.)+65.5);:goto

    (achtung 'ROT' bedeutet tasten control+3 und 'F5' bedeutet die taste F5. ein 10print mit anderen characters)

    ...dafür bring ich jetzt noch was 'neues' ;)

    0 printchr$(147):poke53280,6:poke53281,1:forl=1024to2023:pokel,123:nextl

    1 forl=.to7:wait53265,128:poke53265,(peek(53265)and240)or7-l:pO53270,l:nE:goto1

    (in zeile 1 musste poke mit pO und next mit nE abgekürzt werden, wegen den 80 zeichen)

    das finde ich auch ganz nett. ähnlich dem von goloMAK. ist aus 'the transactor 4'...

    0 c=32:forn=1to41:c=192-c:fora=0ton:forb

    =1024+ato2047stepn:pokeb,c:nextb,a,n

    Das ist das gleiche Listing wie in Bitte melde dich an, um diesen Link zu sehen.. Ich hatte damals nur die Farben vorgegeben und ein paar Variablen definiert, um den Ablauf zu beschleunigen. Außerdem habe ich aus Versehen "Transformer" statt "Transactor" geschrieben. :)

    ah, ich dachte doch, das erinnert mich sehr stark an deines. und auch der name der quelle war sehr ähnlich. sorry, das ich das nochmals brachte, aber die grafik ist super, für einen einzeiler. habe auf weihnachten das buch von holger weissling gekriegt 'for basic to one-liners'. bin ein bisschen am stöbern darin und darin wurde dieser code auch zitiert...

    Ein schönes Programm aus der Transformer, 1983.

    Zeile 1 habe ich noch hinzugefügt, um die Einstellungen etwas anzupassen (und um die Ausführung ein wenig zu beschleunigen). Es entsteht eine Hommage an einen bekannten Kinofilm!

    Enjoy! :popcorn:

    Code
    1 cl(0)=5:s1=1024:s2=2024:fori=0to999:poke55296+i,cl(iand2):next:poke53281,0
    2 c=32:forn=1to41:c=192-c:fora=0ton:forb=s1+atos2stepn:pokeb,c:nextb,a,n

    Das ist einer der besten Basic 2-Zeiler, die ich je gesehen habe - vielen Dank!