Wichteln 2018

Es gibt 942 Antworten in diesem Thema, welches 156.119 mal aufgerufen wurde. Der letzte Beitrag (9. November 2019 um 20:01) ist von war64burnout.

  • Man haben hier einige Probleme. :platsch:

    Laßt euch doch einfach Überraschen. :weihnachten: Der gute Mann weiß doch nicht was jeder gebrauchen kann. Das gibt es doch nur in Hollywood.

    Hop :sonicht: oder Top. :ilikeit: , so einfach.

    Gruß
    Bernd

    :winke: Zum lernen ist man nie zu Alt und...
    ich mag Tiere, vor allem wennse inne Pfanne liegen, denn ich esse Tiere weil mir die Tofus so leid tun.
    :winke:

  • :weihnachten: Und immer schön den Tracker anwerfen.

    Bitte melde dich an, um diesen Link zu sehen.

    Und wehe es postet einer zu früh, dann gibts :versohl:

    ;)

    Bitte melde dich an, um diesen Link zu sehen.

    Bitte melde dich an, um diesen Link zu sehen.

  • Hab noch keine Adresse von einem Wichtelpartner bekommen, ihr etwa ?

  • Hab noch keine Adresse von einem Wichtelpartner bekommen, ihr etwa ?

    Die werden doch erst zu Nikolaus verteilt

  • Bin neu im Forum und sehr neugierig auf das Wichteln...:)

    Bitte melde dich an, um diesen Link zu sehen./tilde.town/~mischk/linktree.html

    Abonniere meinen Newsletter:

    Bitte melde dich an, um diesen Link zu sehen.

  • Wir haben bereits 43 Wichtel. :weihnachten:

    Mir ist gerade aufgefallen, dass wir noch kein "Auslosprogramm" zum Weihnachtswichteln auf dem C64 haben.
    Hättet Ihr nicht Lust gemeinsam ein Basicprogramm zu entwickeln?

    Die Anforderungen wären folgende:
    Alle Teilnehmer werden mit ihrem Usernamen in eine "Datenbank" eingegeben. Es ist nur der Username nötig, da die Adressen extern verbleiben.
    Diese Daten sollten immer auch speicherbar sein.
    Am Ende der Aktion müsste es eine Funktion geben, welche die Usernamen in eine zufällige Reihenfolge in Form einer Wichtelkette ausgibt
    z.B: User1-> Uder12-> User5-> ... User11-> User1 Diese Ausgabe sollte ebenfalls speicherbar sein.
    Die Wichtelkette könnte dann vielleicht als Programmcode oder Screenshot hier gepostet werden.

    Ich würde es spannend finden einen direkten Bezug zum Forum64 und der Wichtelaktion herzustellen.

    Was meint Ihr?

  • Dieses Jahr mache ich auch wieder mit :)

    <C64 I +MixSID +Keyman64 +Reprom+ WiC64...Ultimate64 +SX64 Style Case +Rear Admiral Thunderdrive +Nunchuk64 ...MorphOS PowerBook G4...Acorn A3000 +4MB +IDE RiscPC700 +StrongARM +5x86 AlephOne PC Card>
    <Icebird: Acorn Demogroup - Mini Mag Diskmag - TRT The Retro Team aus Oldenburg>

    <Retrospieleabend@Attraktor e.V. Hamburg>

    <Highscore Friends Bitte melde dich an, um diesen Link zu sehen.>

  • Mir ist gerade aufgefallen, dass wir noch kein "Auslosprogramm" zum Weihnachtswichteln auf dem C64 haben.

    Hättet Ihr nicht Lust gemeinsam ein Basicprogramm zu entwickeln?

    Also.... BASIC V2 ist bei mir zu lange her,
    hier habe ich eilends mal einen Wichtler für Win32 in PowerBASIC geschrieben..
    Fenster muss leider manuell auf volle Größe gezogen werden.

    Spoiler anzeigen


    #COMPILE EXE

    FUNCTION PBMAIN () AS LONG

    CONSOLE SET VIEW 50,80
    CONSOLE SCREEN 50,80
    CLS
    ?"Wichtelgenerator FORUM64 2018 by ius":?
    INPUT "Anzahl Wichtel [2 - 88]: ";wichtel?
    IF wichtel?>88 THEN wichtel?=88

    DIM wname$(wichtel?)
    DIM empfaenger?(wichtel?)

    ?"Wuerfeln....: ";
    FOR i?=1 TO wichtel?
    RANDOMIZE TIMER
    ermittelt?=0
    WHILE ermittelt?=0
    COLOR RND(1,15)
    LOCATE 4,15
    ? CHR$(32+RND(1,94)) ;
    teilnehmer?=RND(1,wichtel?)
    IF empfaenger?(teilnehmer?)=0 AND teilnehmer?<>i? THEN
    empfaenger?(teilnehmer?)=i?
    ermittelt?=1
    END IF
    WEND
    SLEEP 75
    NEXT i?

    COLOR 7
    LOCATE 4,15
    ?" "
    ' waitkey$

    IF redo?=0 THEN
    FOR i?=1 TO wichtel?
    LOCATE 5,17:?" ";:LOCATE 5,1
    ?"Name Wichtel #";TRIM$(STR$(i?));": ";
    INPUT wname$(i?)
    wname$(i?)=LEFT$(wname$(i?),15)
    NEXT i?
    END IF

    locationy?=0
    locationx?=0

    CLS
    FOR i?=1 TO wichtel?
    IF i?>45 THEN locationy?=45
    IF i?>45 THEN locationx?=36
    LOCATE i?+1-locationy?,2+locationx?
    ? FORMAT$(i?,"00");": ";wname$(i?);
    LOCATE i?+1-locationy?,19+locationx?
    ?" -> ";
    LOCATE i?+1-locationy?,23+locationx?
    ?wname$(empfaenger?(i?));
    NEXT i?

    LOCATE 48,1
    ?" [TASTE DRUECKEN]"
    WAITKEY$
    speicher$="WICHTELN_"+DATE$+"_"+TIME$+".TXT"
    REPLACE ":" WITH "" IN speicher$
    ?"Speichern als ";speicher$
    OPEN speicher$ FOR OUTPUT AS Bitte melde dich an, um diesen Link zu sehen.
    FOR i?=1 TO wichtel?
    ?Bitte melde dich an, um diesen Link zu sehen.,wname$(i?);" -> ";wname$(empfaenger?(i?))
    NEXT i?
    CLOSE 1
    ?" ENDE! [TASTE DRUECKEN]";
    WAITKEY$

    END FUNCTION

    (Mist. Irgendwie entfernt das Forum die Einrückungen...naja.. :rolleyes: )

    Hier mit .BAS und .EXE zum Benutzen, Verbessern oder Wegwerfen. :wink:

    Bitte melde dich an, um diesen Anhang zu sehen.

    Bitte melde dich an, um dieses Bild zu sehen.

    '°'°'°'°'°'°'°'°'°Oo.~>| BASIC programmers never die! They just GOSUB without RETURN! |<~.oO°'°'°'°'°'°'°'°'°'

  • Am besten gefällt mir an der Aktion:

    e) wer nur nimmt und nicht gibt, wird für die nächsten Jahre garantiert gesperrt.

    Fürs Wichteln oder fürs ganze Forum ? Ich mache übrigens mit, wird sicher lustig.

    Sammle Desktops und Exoten ... und löte mich so durch Stapel von Elektroschrott.

  • Mir ist gerade aufgefallen, dass wir noch kein "Auslosprogramm" zum Weihnachtswichteln auf dem C64 haben.
    Hättet Ihr nicht Lust gemeinsam ein Basicprogramm zu entwickeln?

    Wie jetzt? Wird wohl langsam zuviel Arbeit für den Sohnemann, was? :D
    Einfach nichts mehr los mit der heutigen Jugend... ;)