# standaard scripts voor picolo.  Versie 1.4, 10 november 2006

####z0
echo ' '
echo Begin met "run z",
echo waarbij  het nummer van de zitting is.
echo ' '
alias -g bewerk run bewerk
exit

####z1
wipe -g GROEP, ZIT, fini, over
char -g GROEP[80]
char -g ZIT[4]=z1
alias -g fini run fini0
alias -g over run export
int i
int Nafwezig
echo ' '
Input GROEP ?'Geef de LIJN: '
mkdir $GROEP
testfile $GROEP/z1.pro
if =s $TESTF file
 echo WAARSCHUWING: deze zitting is mogelijk al gespeeld
 echo Geef   om door te gaan, Q of q om af te breken
 pause
endif 
if =s $TESTF dir
 error confict tussen file en directory naam
endif 
Lijn $GROEP
Paren;
Session 1
Present  ?'Totaal aantal deelnemende paren    : '
echo Bij de volgende vraag Mix-paren niet als afwezig opgeven.
Nafwezig:=?'Aantal afwezige paren van deze lijn: '; 
if Nafwezig > 0
 echo ' '
 ABSENT Nafwezig ?'paar-indices:'
endif
echo ' '
schema;
echo ' '
echo Geef nu zo nodig extra commando's zoals
echo FIX,        om een paar een vast paarnummer te geven
echo MIX,        2 spelers uit deze groep die incidenteel samen spelen
echo COMBItafel, combitafel bij oneven aantal paren
echo INVALlers.  paren waarvan de score niet meetelt.
echo ' '
echo type daarna 'fini'      (of eventueel, als de indeling al vastligt, type 'over')
echo ' '
exit

####z2
wipe -g GROEP, ZIT, VORIGE, NS
char -g GROEP[80]
char -g ZIT[4]=z2
char -g VORIGE[4]=z1
int -g NS=2
run zn
exit

####z3
wipe -g GROEP, ZIT, VORIGE, NS
char -g GROEP[80]
char -g ZIT[4]=z3
char -g VORIGE[4]=z2
int -g NS=3
run zn
exit

####z4
wipe -g GROEP, ZIT, VORIGE, NS
char -g GROEP[80]
char -g ZIT[4]=z4
char -g VORIGE[4]=z3
int -g NS=4
run zn
exit

####z5
wipe -g GROEP, ZIT, VORIGE, NS
char -g GROEP[80]
char -g ZIT[4]=z5
char -g VORIGE[4]=z4
int -g NS=5
run zn
exit

####z6
wipe -g GROEP, ZIT, VORIGE, NS
char -g GROEP[80]
char -g ZIT[4]=z6
char -g VORIGE[4]=z5
int -g NS=6
run zn
exit

####z7
wipe -g GROEP, ZIT, VORIGE, NS
char -g GROEP[80]
char -g ZIT[4]=z7
char -g VORIGE[4]=z6
int -g NS=7
run zn
exit

####z8
wipe -g GROEP, ZIT, VORIGE, NS
char -g GROEP[80]
char -g ZIT[4]=z8
char -g VORIGE[4]=z7
int -g NS=8
run zn
exit

####zn
int i
int Nafwezig
wipe -g fini, over
alias -g fini run finito
alias -g over run export
Input GROEP ?'Geef de LIJN:
testfile $GROEP/$ZIT.pro
if =s $TESTF file
 echo WAARSCHUWING: deze zitting is mogelijk al gespeeld
 echo Geef  om door te gaan, Q of q om af te breken
 pause
endif 
if =s $TESTF dir
 error confict tussen file en directory naam
endif 
print import $GROEP/$VORIGE
#silent yes;
import $GROEP/$VORIGE
#silent n;
paren;
Session $(NS)
run zb
echo type daarna 'fini'      (of eventueel, als de indeling al vastligt, type 'over')
echo ' '
exit

####zb
Present  ?'Totaal aantal deelnemende paren    : '
echo Bij de volgende vraag Mix-paren niet als afwezig opgeven.
Nafwezig:=?'Aantal afwezige paren van deze lijn: '; 
if Nafwezig > 0
 echo ' '
 ABSENT Nafwezig ?'paar-indices:'
endif
echo ' '
INFO;
echo ' '
echo Geef nu zo nodig extra commando's zoals
echo FIX,        om een paar een vast paarnummer te geven
echo MIX,        2 spelers uit deze groep die incidenteel samen spelen
echo COMBItafel, combitafel bij oneven aantal paren
echo INVALlers.  paren waarvan de score niet meetelt.
echo ' '
exit

####fini0
opt
run export
exit

####finito
opt
run export
exit

####export
testfile $GROEP/$ZIT.pro
if =s $TESTF dir
 error confict tussen file en directory naam
endif 
if =s $TESTF file
 echo Laatste waarschuwing!
 echo Geef  om door te gaan (oude gegevens gaan dan verloren), Q of q om af te breken
 pause
 sys del $GROEP\$ZIT.pro
endif 
export $GROEP/$ZIT
exit

####bewerk
wipe -g GROEP, ZIT, VORIGE, fini, over
char -g GROEP[80]
char -g ZIT[4]
char -g VORIGE[4]
alias -g over run export
int Nafwezig, zit, vorige;
Input GROEP ?'Geef de LIJN: '
Input zit 0,0 ?'zitting (bv 2):'
sprint ZIT z$(zit,%.0f)
testfile $GROEP/$ZIT.pro
if !s $TESTF file
 echo ' '
 testfile $GROEP/$ZIT.bak
 if =s $TESTF file
  echo zitting niet gevonden, maar wel een backup file!!
  echo geef  om door te gaan, Q of q om af te breken.
  pause
  sys rename $GROEP\$ZIT.bak $ZIT.pro
 endif 
 testfile $GROEP/$ZIT.pro
 if !s $TESTF file
  error zitting niet gevonden, en ook geen backup
 endif 
 echo ' '
endif
vorige:=zit-1;
if vorige>0;
 sprint VORIGE z$(vorige,%.0f)
 import $GROEP/$VORIGE
endif 
load $GROEP/$ZIT.pro
testfile $GROEP/$ZIT.bak
if =s $TESTF file
 sys del $GROEP\$ZIT.bak
endif 
sys rename $GROEP\$ZIT.pro $ZIT.bak
echo '============'
echo Oude inhoud, (nu opgeslagen in $GROEP\$ZIT.bak)
echo '============'
type $ZIT
echo '============'
echo Opnieuw opzetten van deze zitting
echo ' '
if zit==1; Lijn $GROEP; endif
Paren;
SESSION $(zit)
run zb
echo Bewerk nu de zitting.
echo Denk er om, als er door het wegblijven van een paar een rustttafel 
echo is ontstaan is nu een commando RUSTtafel nodig om die op te geven!
echo Eindig altijd met commando INDeling.
echo '                           --------'
echo SLA HET RESULTAAT OP! d.m.v. intypen van 'over'.
echo '                                          ----'
echo ' '
exit

####nieuw
echo maak parenfile voor nieuwe competitieronde
echo De nieuwe parenfile bevat bijgewerkte waarden voor aantallen rusttafels
echo Het promoveren en degraderen moet u zelf nog doorvoeren.
wipe -g GROEP, ZIT, zit
char -g GROEP[80]
char -g ZIT[4]=z1
int zit
Input GROEP ?Lijn:
Input zit 0 0 ?'Laatste zitting (bv 6):'
sprint ZIT z$(zit,%.0f)
lgo $GROEP/$ZIT.pro
export -p;
exit

####help
sys "c:\Program Files\Internet Explorer\iexplore.exe" -new members.home.nl/pclo