PDA Software Library

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

/ PDA Software Library / pdasoftwarelib.iso / PSION / 1997 / 1018.ZIP / BESIQUE.OPA / BESIQUE.txt next >

Wrap

Text File | 1997-05-11 | 12.8 KB | 952 lines

OPLObjectFile** LOC::M:\OPL\BESIQUE.OPL Besique.ODB \OPD\ UNDO1% CARDS$ COVERED% PSICAN% OPEN$ TALON$ USRTOOK% PSITOOK% FLAG% GAMES% SETSCO% GAMESCO% UNDO2% UNDOPIX% UNDOVAR% UNDOOK% ANNOUSE% TRUMP% ANNOPAT$ ANNOSCO% ANNOTXT$ CARDX% CARDY% FRAME% VALSTR$ GAME% BITS% UNAM$ FNAME$ TABLE% TABLEW% NAGTIME& MAININIT GAMEINIT DOEVENTS Dieses Spiel brauchtO mindestens einen BildschirmO mit 160x480 Punkten.O ITER1 TOPOS COLOR% ANNOINIT SHOWSTAT TABLE MYRND% VALUE% PSIMOVE CARDS$ COVERED% OPEN$ TALON$ TRUMP% GAME% USRTOOK% PSITOOK% GAMESCO% TABLE% UNDOOK% init...O initCanO initFlagO mkCardO Bonus f r Sie, Bonus f r den Psion, der Psion f ngt anK Sie fangen anK PSICAN% FLAG% TALON$ TABLE% TABLEW% THREE21$ ITER1 ANNOPAT$ ANNOSCO% ANNOTXT$ TRUMP% KB KB PD PDO sique double eine Familie KA PA HA +AO + vier Asse KK PK HK +KO vier K KD PD HD +DO vier Damen KB PB HB +BO vier Buben KB PDO sique KD KKO PD PKO HD HKO +D +KO Trumpf-Sieben initAnnoO TRUMP% ANNOSCO% ANNOTXT$ Mariage royal Mariage 789BDK1A COLOR% VALUE% 789BDK1A SETBIT CHECKPAT ANNOPAT$ FLAG% SETBIT CHECKPAT ANNOUSE% TWIN$ BITSET% PSICAN% ANNOUSE% MYRND% CUTCARD$ PSIANNO RATECRD% PSITOOK% TALON$ GAME% CARDS$ COVERED% denk...O ITER1 psiAnno1O FILTER$ PICK$ VALUE% UNCOVER SHOWSTAT PSICAN% CARDS$ ANNOUSE% ANNOPAT$ TALON$ ANNOTXT$ ANNOSCO% Der Psion meldet: Punkte: Tausch mit Talonkarte FLAG% TWIN$ CUTCARD$ ANNOPAT$ SETSCO% FILTER$ PICK$ VALUE% SHOWSTAT UNCOVER GAME% TALON$ USRTOOK% CARDS$ ANNOPAT$ ANNOUSE% ANNOTXT$ ANNOSCO% Fehler( Da der Talon aufgebraucht ist,O rfen Sie nicht mehr melden.O Fehler( Sie d rfen nach jedem StichO nur einmal melden.O Fehler( Sie d rfen nur melden,O + wenn Sie gerade gestochen haben.O , mit Tausch PunkteK Fehler( +"Sie k nnen keine Karte zweimal f dieselbe Meldung benutzen.O Fehler( + Sie haben mehr Karten ausgew als f r eine Meldung n tig.O Fehler( +"Sie haben keine Karten ausgew hlt,O +)die eine korrekte Meldung ergeben w rden.O MVANNO VALUE% UNMARK TOPOS CUTCARD$ CARDS$ TALON$ TOPOS CUTCARD$ CARDX% CARDY% COVERED% CARDS$ HW-O UNMARK USEDFOR VALUE% COLOR% TOPOS CARDS$ COVERED% USRFIT% UNMARK TOPOS PSIMOVE JUDGE GAMEINIT TALON$ OPEN$ CARDS$ COVERED% GAME% USRTOOK% GAMESCO% + Spielende( Sie haben gewonnen.( Sie haben verloren.( Unentschieden.( Da keiner 1000 PunkteO erreicht hat,O beginnt das n chste Spiel.O COLOR% OPEN$ CARDS$ TRUMP% Fehler( Da der Talon aufgebraucht ist,O ssen Sie Farbe bekennen.O Fehler( Da der Talon aufgebraucht ist,O ssen Sie trumpfen.O COLOR% VALUE% WIN1ST% CSCORE% SHOWSTAT TOPOS CAPTURE OPEN$ CARDS$ CARDX% CARDY% USRTOOK% PSITOOK% 10 Punkte Bonus f r Sie 10 Punkte Bonus f r den Psion TRUMP% FRAME% CARDX% CARDY% COLOR% VALUE% LATE1ST% ERLY1ST% LATE2ND% ERLY2ND% OPEN$ TALON$ CSCORE% ANNORES% TRUMP% WIN1ST% CSCORE% FINAL ANNORES% TALON$ TRUMP% FINAL EXPECT% TWIN$ BITSET% ANNOPAT$ ANNOUSE% CARDS$ FILTER$ PICK$ PSICAN% ANNOSCO% CARDS$ ANNOUSE% ANNOPAT$ TALON$ CSCORE% TRUMP% WIN1ST% CSCORE% FINAL TRUMP% NEWCARD$ INSERT |RWBO TOPOS TALON$ CARDX% CARDY% SORT% INSERT$ TOPOS CARDS$ COVERED% CARDX% CARDY% FRAME% CARDX% CARDY% COVERED% HPHOP COLOR% BITSET% VALUE% BITS% CARDX% CARDY% VALSTR$ FLAG% FLAG% COVERED% CARDS$ TIME& MYRND% NAGTIME& +&Um das Spiel zu registrieren, schickenO Sie DM 10 in bar an die AdresseO + in Hilfe/Copyright. Sie bekommenO +!dann ein Pa wort, das Sie im Men Extras/Pa wort eintragen.( +-Teilen Sie bitte auch die Version mit (V1.0d)O +'und wo Sie das Programm gefunden haben.O O<P{I ITER1 DOCONFIG INITTABL TIME& INITBITS ANNOINIT UNDOINIT FNAME$ SETSCO% CARDX% CARDY% FRAME% ANNOUSE% VALSTR$ NAGTIME& UNAM$ init...O M:\app\jbzgamez\besique.dat initUseO 789BDK0A sique OiW-O(H Ein Kartenspiel OiW-O +!Deutsche Version 1.0d, Shareware OiW-O Nicht registriert Registriert f OiW-O Copyright rgen Bermann 1997 UNDOPIX% UNDOVAR% UNDO2% UNDO1% Fehler( Zu wenig Speicher.O ANNOUSE% SHOWSCOR SAVECONF TOPOS SETSCO% GAMESCO% GAME% UNDOOK% GAMES% Gratulation( Sie haben 1000 Punkte erreichtO und damit den Satz gewonnen.O +"Der Psion hat 1000 Punkte erreichtO und damit den Satz gewonnen.O - Satz ist zuende - GAMESCO% SETSCO% GAMES% W2LOPO HILITE DOHELP DOMENU EXECMENU DOKEY GAME% FILTER$ FREEZE MARKACT USRANNO TABLE SAVECONF DEBUG GAME% CARDS$ TABLE% +'Sie haben Karten zum Melden ausgew hlt.O + Wollen Sie trotzdem ausspielen ?O NeinO OM@`[ ONE23$ EXPECT% DEBUGF% CARDS$ COVERED% PSICAN% Debug (1/5: cards$)( + usr.cards+ usr.coveredO + psi.cards+ psi.coveredO Debug (2/5: psiCan%)( 2 FamO 3-6 VierO 8-11 MarO 12 T7O Debug (3/5: expect%:)( 2 FamO 3-6 VierO 8-11 MarO ,KO O 12 T7O Debug (4/5: usr flags)O Debug (5/5: psi flags)O CARDS$ FLAG% : 0K card BITSET% UNMARK SETBIT TOPOS GAME% CARDS$ TOPOS CARDS$ CARDX% CARDY% EXECMENU sique+ Neuer SatzOn+ BeendenOx Melden+ Karte ausw hlenOa+ Ausgew hlte meldenOm+ KarteninfoOi Extras+ ngigOr+ hler l schenOz Extras+ ngigOr+ hler l schenOz+ wortOp TabelleOt GAMEINIT MARKACT USRANNO SHOWSTAT SAVECONF SETPW CARDINFO TABLE GAME% SETSCO% GAMES% GAMESCO% TABLE% On@[_ Laufenden Satz abbrechen ?O NeinO Oz@[X MOVEW UNDOOK% UNDOPIX% UNDOVAR% UNDO1% UNDO2% ngigmachen nicht m glich MOVEW UNDOPIX% UNDO1% UNDOVAR% UNDO2% UNDOOK% BITSET% GAME% CARDS$ ANNOUSE% ANNOTXT$ Gesperrt f Frei verf SAVECONF FNAME$ GAMES% TABLE% UNAM$ UNAM$ UGAMES% PGAMES% TABLE% UGAMES% PGAMES% UNAM$# TABLE% OZ4\[% H{WA}O SAVECONF UNAM$ + Ihr Name:O wort:O wort oder Name falsch FNAME$ UNAM$ GAMES% TABLE% m:\app\jbzgamez UNAM$ UGAMES% PGAMES% TABLE% UNAM$' UGAMES%$ PGAMES%$ TABLE%$ NICEBOX BITS% CARDX% CARDY% xO xxxO xx xxO xx xxO xx x xxO xx xxx xxO xx xx xx xxO xx xx xx xxO xx xx xx xxO xx xx xx xxO xx xx xx xxO xx xx xx xxO xx xx xx xxO xx xxx xxO xx x xxO xx xxO xx xxO xxxO xO xxO xxxxO xxxxxxO xxxxxxxxO xxxxxxxxxxO xxxxxxxxxxxxO xxxxxxxxxxxxxxO xxxxxxxxxxxxxxxxO xxxxxxxxxxxxxxxxO xxxxxxxxxxxxxxxxxxO xxxxxxxxxxxxxxxxxxO xxxxxxxxxxxxxxxxxxO xxxxxx xx xxxxxxO xxx xx xxxO xxO xxO xxxxO xxxxxxO xxxx xxxxO xxxxxx xxxxxxO xx xx xx xxO xxxxxxxxxxxxxxxxxxO xx xx xxO xxxxxxxxxxxxxxxxxxO xx xxO xxxxxxxxxxxxxxO xx xxO xxxxxxxxxxO xx xxO xxxxxxO xxxxO xxO xxxxO xxxxxxO xxxxxxxxO xxxxxxxxO xxxxxxxxO xxxxxxxxO xxxx xxxxxx xxxxO xxxxxx xxxx xxxxxxO xxxxxxxx xx xxxxxxxxO xxxxxxxxxxxxxxxxxxxxO xxxxxxxxxxxxxxxxxxxxO xxxxxxxx xx xxxxxxxxO xxxxxx xx xxxxxxO xxxx xx xxxxO xxO xxxxO xxxxxxO CARDX% CARDY% TINYLINE TABLEW% FRAME% CARDX% W.W/O KartenwerteO SiebenO AchtO NeunO BubeO DameO ZehnO W.W/O + MeldungenO Trumpf B..AO Karo-B+Pik-DO 2*dasselbeO K+D TrumpfO K+D gleichO Trumpf-7O Hilfe: B sique( *Was man sieht( *Wie gespielt wird( *Punkte und Melden( *Endphase des Spiels( + *Herkunft( *Copyright( *Stichw rter( doHelp +$Ihre Karten (Was man sieht, 1 von 7)( +'Unten links sehen Sie Ihre acht Karten.O +-Sie k nnen eine mit den Pfeiltasten ausw hlenO +-und durch Dr cken der Enter-Taste ausspielen.O +*Anschlie end bekommen Sie eine neue Karte.O +(Ihre Karten werden automatisch sortiert.O +-Die Karten allgemein (Was man sieht, 2 von 7)( +,Die Kartenfolge ist 7, 8, 9, B, D, K, 10, A.O Jede Karte kommt zweimal vor.O Das macht 64 St ck insgesamt.O ++Gegnerische Karten (Was man sieht, 3 von 7)( +$Oben links sehen Sie die acht KartenO Ihres Gegners, des Psion.O Die sind nat rlich verdeckt,O Sie sehen also die R ckseiten.O +"Der Talon (Was man sieht, 4 von 7)( +"Links am Rand sehen Sie den Talon.O +)Das ist der verdeckte Stapel, von dem dieO +$ausgespielten Karten erg nzt werden.O +-Die unterste Karte des Talon liegt aufgedecktO +%daneben und bestimmt, was Trumpf ist.O +,Ausgespielte Karten (Was man sieht, 5 von 7)( +>Rechts neben dem Talon ist Platz f r die ausgespielten Karten.O +:Das sind maximal zwei, eine von Ihnen und eine vom Gegner.O +)Der letzte Stich (Was man sieht, 6 von 7)( +"Nach jedem Stich werden die beidenO +%ausgespielten Karten beiseite gelegt.O Sie kommen nach rechts unten,O +"falls Sie den Stich gemacht haben,O +*und nach rechts oben f r Stiche des Psion.O +*Die Punkteanzeige (Was man sieht, 7 von 7)( +)Rechts in der Mitte werden die erreichtenO +)Punkte angezeigt, und zwar in der unterenO +(Zeile f r Sie und dar ber f r den Psion.O +(Sie sehen die Punkte im aktuellen Spiel,O die Punkte im aktuellen SatzO +$und die Anzahl der gewonnenen S tze.O Wie gespielt wird( +BSolange der Talon nicht aufgebraucht ist, wird wie folgt gespielt:O +*Einer spielt eine Karte aus (durch Enter),O +$der zweite legt eine beliebige dazu.O +*Ist das eine h here Karte derselben Farbe,O macht der zweite den Stich.O +2Ebenso bei Trumpf, wenn die erste kein Trumpf war.O +3Der den Stich gemacht hat, spielt als n chster aus.O HELPCAG% HELPANG% +,Ziel des Spiels (Punkte und Melden, 1 von 6)( +1Zum Gewinnen eines Satzes sind 1000 Punkte n tig.O + Dazu braucht es etwa 4-5 Spiele.O +#Punkte bekommen Sie auf zwei Arten,O mlich durch die Karten im StichO und durch das Melden,O +3d.h. das Offenlegen bestimmter Kartenkombinationen.O (Punkte und Melden, 2 von 6)O ++Wie man meldet (Punkte und Melden, 3 von 6)( +&Melden d rfen Sie nur, wenn Sie direktO +1vorher gestochen haben, und nur einmal pro Stich.O hlen Sie Karten mit der Leertaste ausO +&und melden Sie dann durch die M-Taste.O +!Die gemeldeten Karten werden dannO +0rechts von Ihren normalen Karten offen abgelegt.O +<Sie k nnen im weiteren Spiel ganz normal ausgespielt werden.O (Punkte und Melden, 4 von 6)O +,Mehrfach Melden (Punkte und Melden, 5 von 6)( +?Gemeldete Karten k nnen f r weitere Meldungen verwendet werden,O +.allerdings nicht zweimal f r dieselbe Meldung.O erdem k nnen K nig und Dame aus einer FamilieO +-nicht mehr f r eine Mariage verwendet werden.O +0Drei Besonderheiten (Punkte und Melden, 6 von 6)( +<Wenn zu Spielbeginn die unterste Talonkarte eine Sieben ist,O +$bekommt 'der Geber' 10 Punkte Bonus.O Der Geber ist hier der Spieler,O der als Zweiter ausspielt.O +-Die erste gemeldete Trumpf-7 wird automatischO +)gegen die unterste Talonkarte vertauscht.O +(Der letzte Stich bringt 10 Punkte extra.O Was man melden kann sique double (2 Pik-Damen + 2 Karo-Buben)+ 500 Punkte Familie (Bube bis As Trumpf)+ 250 Punkte +&4 verschiedene Asse/K nige/Damen/Buben+ 100/80/60/40 sique (Pik-Dame + Karo-Bube)+ 40 Punkte +#Mariage royal (Dame + K nig Trumpf)+ 40 Punkte +"Mariage (Dame + K nig selbe Farbe)+ 20 Punkte Trumpf-7+ 10 Punkte Punkte f r Karten im Stich r 7, 8 und 9+ keine Punkte r jeden Buben+ 2 Punkte r jede Dame+ 3 Punkte r jeden K 4 Punkte r jede 10+ 10 Punkte r jedes As+ 11 Punkte DOHLP81 Herkunft( sique wird in Frankreich schonO +"seit dem 17. Jahrhundert gespielt.O +"Sein Name kommt vermutlich aus demO +"Spanischen, von 'besico', K chen.O +'Dazu passend gibt es im Spiel nicht nurO +!ein verheiratetes Paar (mariage),O ++sondern auch ein unverheiratetes (b sique).O Copyright 1997 by( rgen Bermann,O Siemensstr. 52,O D-76327 Pfinztal,O DeutschlandO All Rights reserved.( Besuchen Sie meine HomepageO +#http://www.inetw.com/home/bermannj/O Stichw rter( Finale( Karten( Melden( Tastatur( Stechen( Trumpf( Bonus( doHlp8 Endphase des Spiels( +"Sobald der Talon aufgebraucht ist,O ndern sich die Spielregeln.O Nun m ssen Sie Farbe bekennen.O +$Geht das nicht, m ssen Sie trumpfen.O +6Erst wenn das nicht geht, d rfen Sie beliebig spielen.( Es ist also sinnvoll,O +8Asse und vor allem Tr mpfe bis zur Endphase zu behalten.O +8Allerdings braucht man sie vorher schon f rs Melden ....O HELPCAG% HELPANG% Pfeiltasten+ Karte w Enter+ Karte ausspielen + Leertaste+ Karte f rs Melden markieren Melden Punktetabellen anzeigen Der zweite macht den Stich,O +4wenn er dieselbe Farbe spielt und eine h here Karte.O Er macht den Stich aber auch,O +9wenn er trumpft und der erste keinen Trumpf gespielt hat.O +(In jedem Spiel wird eine der vier FarbenO als Trumpffarbe ausgew hlt,O +2und zwar durch die Farbe der untersten Talonkarte.O +-Die Trumpfkarten stechen alle anderen Karten.O +<Wenn zu Spielbeginn die unterste Talonkarte eine Sieben ist,O +$bekommt 'der Geber' 10 Punkte Bonus.O Der Geber ist hier der Spieler,O der als Zweiter ausspielt.O +%Ebenfalls 10 Punkte Bonus gibt es f den letzten Stich im Spiel.O MAIN GAMEINIT| INITCAN| INITFLAG MKCARD ITER1 TABLE. ANNOINIT INITANNO2 THREE21$ ONE23$? SETBITe USEDFOR CHECKPAT LOW$e PSIMOVE PSIANNO PSIANNO17 FILTER$ PICK$+ FINAL TWIN$+ USRANNOf UNCOVER MVANNO USRFIT% JUDGE+ WIN1ST% CAPTURE?" CSCORE% RATECRD% ERLY1ST%I$ ERLY2ND% ANNORES% EXPECT% LATE1ST% LATE2ND%z( DEALR) MYRND% NEWCARD$ CUTCARD$ INSERT INSERT$ TOPOS0, DRAW0- BITSET%/. UNMARKZ. COLOR% VALUE% SORT% MAININITE1 UNDOINITu3 INITUSE SHOWSTATA4 SHOWSCORy6 TIME& DOEVENTS07 DOKEY DEBUG DEBUGF%e= MARKACTC> HILITE DOMENU EXECMENU FREEZE;C MOVEW CARDINFO-D DOCONFIG SETPW XOR%JG SAVECONF INITBITSmH NICEBOX INITTABL TINYLINE DOHELP DOHELP2 DOHELP3 DOHELP4 HELPANG% HELPCAG% DOHELP5 DOHELP6 DOHELP7 DOHELP8 DOHLP81 DOHLP82 DOHLP83 DOHLP84 DOHLP85 DOHLP86bl DOHLP87@m