CD Direkt 1995 #1

home *** CD-ROM | disk | FTP | other *** search

/ CD Direkt 1995 #1 / Image.iso / cdd / direkt / quiz / quiz.gfa (.txt) < prev next >

Wrap

GFA-BASIC MS-DOS | 1994-06-22 | 20.4 KB | 606 lines

GFA-BASIC MS-DOS prozent dummy u &SHELLB zaehler treffer quote DatenDIM dummy frage ladebild bildi XBIOS richtig richtig2 treffer frag2 einstellung ladebild erstbild laden mischen abfragen eingeben erweitern 1 - Fragen einladeno 2 - Fragen Mischen 3 - Abfragen 4 - Neue Fragen eingeben 5 - Fragen erweitern 6 - Spiel beendenl Was wollen Sie ? SCREEN (1)PRINT AT(28,10);"1 Fragen einladen" PRINT AT(28,11);"2 Fragen Mischen"PRINT AT(28,12);"3 Abfragen"PRINT AT(28,13);"4 Fragen eingeben"PRINT AT(28,14);"5 Fragen erweitern"PRINT AT(28,15);"6 Spiel beenden" PRINT AT(33,21);"Was wollen INPUT =CHR$(226) =CHR$(225) GOSUB ELSEIF GOSUB GOSUB GOSUB GOSUB GOSUB GOSUB ENDIF PROCEDURE =1DEFFILL 190,60* ,470,145* DEFFILL 180,55* ,460,140* 180,55* ,460,140* DEFFILL 210,163* ,450,175* DEFFILL 200,158* ,440,170* 200,158* ,440,170* DEFFILL 10,50* ,640,70* DEFFILL 0,45* ,640,65* 0,45* ,640,65* DEFFILL 40,80* ,620,155* DEFFILL 30,75* ,610,150* 30,75* ,610,150* ENDIF RETURN \*.DAT PROCEDURE FILESELECT "\*.DAT", EXIST( "I",#1, DEFMOUSE 2INPUT INPUT INPUT INPUT INPUT INPUT DEFMOUSE 0CLOSE #1ENDIF RETURN | PR" Moment ! PROCEDURE >1DEFFILL 120,95* ,200,115* DEFFILL 100,90* ,190,110* 100,90* ,190,110* PRINT AT(15,13);"Moment !"PAUSE 50DIM =RANDOM( )=1INC ENDIF LOOPERASE ENDIF RETURN NummerW 0 - Abfrage beendenm Ihre Antwort ? RICHTIG !! FALSCH !! Richtig w Sie haben % der Fragen beantwortet.m Sie sind eine Niete. Ihnen ist nicht zu helfen.m Das beste ist Sie l schen dieses Spiel sofort. Sehr schlecht !! Aber nicht hoffnungslos.m Versuchen Sie es bei gelegenheit nocheinmal. Mieserabel ! Am besten Sie versuchen es gleich nocheinmal Schon nicht schlecht.m Mit ein bischen ben schaffen Sie den Rest auch noch.m GUT !! Das kann sich sehen lassen. Sehr gut !!!!!!!! Sie sind schon fast so gut wie ich.m Aber noch nicht perfekt ! Fabelhaft ! Phantastisch ! Super ! Oberaffengeil !!m Sie sind genauso gut wie ich selbst ... ... Sie Computerhirn. Taste dr cken! PROCEDURE LOCAL (2)DEFFILL 15,180* ,80,199* DEFFILL 5,175* ,70,194* 5,175* ,70,194* DEFTEXT 1,0,0,4 20,178* ,"Nummer" =STR$( DEFTEXT 1,16,0,10* 20,190* PRINT AT(56,18);"0 Abfrage beenden" PRINT AT(3,7); PRINT AT(8,10+ '"-"' LOOPDO DEFFILL 120,170* ,300,185* DEFFILL 110,165* ,290,180* 110,165* ,290,180* PRINT AT(15,22);INPUT Antwort LOOPIF PRINT AT(15,22);" RICHTIG PAUSE 50ELSEIF >0DEFFILL 120,170* ,620,195* DEFFILL 110,165* ,610,190* 110,165* ,610,190* PRINT AT(15,22);" FALSCH Richtig PRINT AT(15,23);" )'"<." PAUSE 110,165* ,610,190* 110,165* ,610,190* ENDIF ENDIF ENDIF LOOPIF >1DEFMOUSE 2PAUSE =INT( /100)+1)IF ENDIF DEFMOUSE DEFFILL 60,55* ,600,195* DEFFILL 50,50* ,590,190* 50,50* ,590,190* 120,70* ,520,100* DEFFILL 120,70* ,120+( *4),100* PRINT AT(20,15);"Sie haben"' Fragen beantwortet." <5PRINT AT(9,17);"Sie Niete. Ihnen nicht helfen."PRINT AT(9,18);"Das beste schen dieses Spiel sofort." PRINT AT(9,17);"Sehr schlecht nicht hoffnungslos."PRINT AT(9,18);"Versuchen gelegenheit nocheinmal." <50PRINT AT(9,17);"Mieserabel PRINT AT(9,18);"Am besten versuchen gleich nocheinmal" <75PRINT AT(9,17);"Schon nicht schlecht."PRINT AT(9,18);"Mit bischen schaffen noch."ELSE <90PRINT AT(9,17);" sehen lassen."ELSE PRINT AT(9,17);"Sehr !!!!!!!!"PRINT AT(9,18);"Sie schon ich."PRINT AT(9,19);"Aber nicht perfekt !"ELSE <=100 PRINT AT(9,17);"Fabelhaft Phantastisch Super Oberaffengeil !!"PRINT AT(9,18);"Sie genauso selbst ..."PRINT AT(9,19);" Computerhirn." ENDIF PRINT AT(60,23);"Taste cken!"KEYGET ENDIF RETURN PROCEDURE ERASE (10), (1000), (9,1000), (1000) RETURN NummerW Welche Antwort ist richtig ? Ist alles richtig ? Wollen Sie noch eine Frage eingeben ? Fragen abspeichern ? Ja|Nein C:\*.* Daten wurden nicht abgespeichert.|Da auf Abbruch Button gedr ckt wurde.eZ GelesencH Fragenkatalog zu Sigi's historischem Quiz: PROCEDURE LOCAL (2)INC DEFFILL 15,180* ,80,199* DEFFILL 5,175* ,70,194* 5,175* ,70,194* DEFTEXT 1,0,0,4 20,178* ,"Nummer" =STR$( DEFTEXT 1,16,0,10* 20,190* PRINT AT(3,7);INPUT =CHR$(27) PRINT AT(8,10+ INPUT )EXIT LOOPDO DEFFILL 120,170* ,500,185* DEFFILL 110,165* ,490,180* 110,165* ,490,180* PRINT AT(15,22);INPUT Welche Antwort richtig >-1LOOPPBOX 110,165* ,490,180* 110,165* ,490,180* PRINT AT(15,22);INPUT alles richtig ELSEDEC ENDIF <999PBOX 110,165* ,490,180* 110,165* ,490,180* PRINT AT(15,22);INPUT Wollen Frage eingeben ENDIF ENDIF ="Fragen abspeichern =CHR$(27) =1ELSEALERT ,1,"Ja|Nein", ENDIF =1FILESELECT "C:\*.*", ALERT 3,"Daten wurden nicht abgespeichert.|Da Abbruch Button wurde.",1,"Gelesen", ENDIF "O",#1, DEFMOUSE 2PRINT #1;"Fragenkatalog Sigi's historischem Quiz:" PRINT PRINT PRINT #1;8PRINT 8PRINT DEFMOUSE 0CLOSE #1ENDIF ENDIF RETURN Wollen Sie wirklich| schon aufh ren ? Ja|NeinnH PROCEDURE ="Wollen wirklich| schon ALERT ,2,"Ja|Nein", =1SCREEN ENDIF RETURN PROCEDURE (10), (1000), (9,1000), (1000) RETURN Dieses Programm ist Sharewareo Sie d rfen es kostenlos kopieren und weitergeben. Sie d dieses Programm aber nicht verkaufen, oder kommerziell verwenden.o Der Vertrieb durch Shareware/PD-Versender ist erlaubt. Falls ihnen das Spiel gef llt, k nnen Sie sich bei mir f 20 DM Schein als Benutzer dieses Programmes Registrieren lassen. Falls Sie noch Fehler im Programm oder in den Fragen finden, sollten Sie mir schreiben, dann werden diese im n chsten Update korrigiert., Wenn Ihnen dieses Programm gefallen hat ...U seien Sie bitte so ehrlich und lassen sich bei mir Registrieren. Siegfried H Obere Vorstadt 21 91575 Windsbach PROCEDURE DEFFILL 60,55* ,600,195* DEFFILL 50,50* ,590,190* 50,50* ,590,190* PRINT AT(9,8);"Dieses Programm Shareware" PRINT AT(9,10);"Sie kostenlos kopieren weitergeben. rfen" PRINT AT(9,11);"dieses Programm nicht verkaufen, kommerziell verwenden."PRINT AT(9,12);"Der Vertrieb durch Shareware/PD-Versender erlaubt." PRINT AT(9,13);"Falls ihnen Spiel PRINT AT(9,14);"20 Schein Benutzer dieses Programmes Registrieren lassen." PRINT AT(9,15);"Falls Fehler Programm Fragen finden," PRINT AT(9,16);"sollten schreiben, werden diese chsten Update"PRINT AT(9,17);"korrigiert."PRINT AT(9,18);"Wenn Ihnen dieses Programm gefallen ..."PRINT AT(9,19);"seien bitte ehrlich lassen Registrieren." PRINT AT(15,21);"Siegfried bner"PRINT AT(15,22);"Obere Vorstadt PRINT AT(15,23);"91575 Windsbach" 0,0,640,400, KEYGET RETURN Sigi's historisches Quiz Version 1.0 W (c) 1994 by Siegfried H bner, Obere Vorstadt 21, 91575 WindsbachW PROCEDURE =2DEFFILL 0,0,640,480ELSEDEFFILL REPEATINC =40REPEATIF =1DEFFILL ,40DEFFILL ,40ELSEDEFFILL ,40DEFFILL ,40ENDIF UNTIL ENDIF ,20UNTIL ENDIF COLOR DEFFILL 30,10* ,630,40* DEFFILL 20,5* ,620,35* 20,5* ,620,35* DEFTEXT 1,16,0,13* 65,15* ,"Sigi's historisches Version "DEFTEXT 1,0,0,4 30,32* ,"(c) Siegfried bner, Obere Vorstadt 91575 Windsbach" 0,0,640,400, RETURN PROCEDURE KEYGET RETURN