Dieser Code liest aus einer INI einen Namen und den dazugeh?rigen Score.
Es gibt ein Inputbefehl zum eingeben und ?berpr?fen.
Das programm ?ffnet die vorhandene config.ini und sucht unter dem Punkt Players den schl?ssel Player1Score (1 wird durch 2, 3 usw bis 15 immer ersetzt).
variabelerkl?rung:
p1p$=player1score f?r ini
p1n$=player1name ini
name$ = temp spielername
plpunkte$ = temp spielerpunkte
Unten gibts eine gr?ssere Abhandlung, dass wenn jemanden einen platz toppt, der vorhergehende (und alle anderen) eine stufe runtersinken.
SICHER - man kann den code besser schreiben. bin ein neuling und der code funktioniert ja, deshalb dacht ich, ich trag was bei ;)
INIOPEN "config.ini"
players$ = "Players"
p1p$ = INIGET$(players$, "Player1Score"); p2p$ = INIGET$(players$, "Player2Score")
p3p$ = INIGET$(players$, "Player3Score"); p4p$ = INIGET$(players$, "Player4Score")
p5p$ = INIGET$(players$, "Player5Score"); p6p$ = INIGET$(players$, "Player6Score")
p7p$ = INIGET$(players$, "Player7Score"); p8p$ = INIGET$(players$, "Player8Score")
p9p$ = INIGET$(players$, "Player9Score"); p10p$ = INIGET$(players$, "Player10Score")
p11p$ = INIGET$(players$, "Player11Score"); p12p$ = INIGET$(players$, "Player12Score")
p13p$ = INIGET$(players$, "Player13Score"); p14p$ = INIGET$(players$, "Player14Score")
p15p$ = INIGET$(players$, "Player15Score")
p1n$ = INIGET$(players$, "Player1Name"); p2n$ = INIGET$(players$, "Player2Name")
p3n$ = INIGET$(players$, "Player3Name"); p4n$ = INIGET$(players$, "Player4Name")
p5n$ = INIGET$(players$, "Player5Name"); p6n$ = INIGET$(players$, "Player6Name")
p7n$ = INIGET$(players$, "Player7Name"); p8n$ = INIGET$(players$, "Player8Name")
p9n$ = INIGET$(players$, "Player9Name"); p10n$ = INIGET$(players$, "Player10Name")
p11n$ = INIGET$(players$, "Player11Name"); p12n$ = INIGET$(players$, "Player12Name")
p13n$ = INIGET$(players$, "Player13Name"); p14n$ = INIGET$(players$, "Player14Name")
p15n$ = INIGET$(players$, "Player15Name")
GLOBAL name$
GLOBAL plpunkte$
GLOBAL highscoreswitch%
INPUT name$, 10, 10
INPUT plpunkte$, 10, 30
plpunkte% = plpunkte$
p1p% = p1p$; p2p% = p2p$; p3p% = p3p$; p4p% = p4p$; p5p% = p5p$
p6p% = p6p$; p7p% = p7p$; p8p% = p8p$; p9p% = p9p$; p10p% = p10p$
p11p% = p11p$; p12p% = p12p$; p13p% = p13p$; p14p% = p14p$; p15p% = p15p$
IF plpunkte% >= p1p% AND highscoreswitch%=0
INIPUT players$, "Player1Name", name$
INIPUT players$, "Player1Score", plpunkte$
INIPUT players$, "Player2Name", p1n$; INIPUT players$, "Player2Score", p1p%
INIPUT players$, "Player3Name", p2n$; INIPUT players$, "Player3Score", p2p%
INIPUT players$, "Player4Name", p3n$; INIPUT players$, "Player4Score", p3p%
INIPUT players$, "Player5Name", p4n$; INIPUT players$, "Player5Score", p4p%
INIPUT players$, "Player6Name", p5n$; INIPUT players$, "Player6Score", p5p%
INIPUT players$, "Player7Name", p6n$; INIPUT players$, "Player7Score", p6p%
INIPUT players$, "Player8Name", p7n$; INIPUT players$, "Player8Score", p7p%
INIPUT players$, "Player9Name", p8n$; INIPUT players$, "Player9Score", p8p%
INIPUT players$, "Player10Name", p9n$; INIPUT players$, "Player10Score", p9p%
INIPUT players$, "Player11Name", p10n$; INIPUT players$, "Player11Score", p10p%
INIPUT players$, "Player12Name", p11n$; INIPUT players$, "Player12Score", p11p%
INIPUT players$, "Player13Name", p12n$; INIPUT players$, "Player13Score", p12p%
INIPUT players$, "Player14Name", p13n$; INIPUT players$, "Player14Score", p13p%
INIPUT players$, "Player15Name", p14n$; INIPUT players$, "Player15Score", p14p%
INIOPEN ""
highscoreswitch% = 1
ELSEIF plpunkte% >= p2p% AND highscoreswitch%=0
INIPUT players$, "Player2Name", name$
INIPUT players$, "Player2Score", plpunkte$
INIPUT players$, "Player3Name", p2n$; INIPUT players$, "Player3Score", p2p%
INIPUT players$, "Player4Name", p3n$; INIPUT players$, "Player4Score", p3p%
INIPUT players$, "Player5Name", p4n$; INIPUT players$, "Player5Score", p4p%
INIPUT players$, "Player6Name", p5n$; INIPUT players$, "Player6Score", p5p%
INIPUT players$, "Player7Name", p6n$; INIPUT players$, "Player7Score", p6p%
INIPUT players$, "Player8Name", p7n$; INIPUT players$, "Player8Score", p7p%
INIPUT players$, "Player9Name", p8n$; INIPUT players$, "Player9Score", p8p%
INIPUT players$, "Player10Name", p9n$; INIPUT players$, "Playe102Score", p9p%
INIPUT players$, "Player11Name", p10n$; INIPUT players$, "Player11Score", p10p%
INIPUT players$, "Player12Name", p11n$; INIPUT players$, "Player12Score", p11p%
INIPUT players$, "Player13Name", p12n$; INIPUT players$, "Player13Score", p12p%
INIPUT players$, "Player14Name", p13n$; INIPUT players$, "Player14Score", p13p%
INIPUT players$, "Player15Name", p14n$; INIPUT players$, "Player15Score", p14p%
INIOPEN ""
highscoreswitch% = 1
ELSEIF plpunkte% >= p3p% AND highscoreswitch%=0
INIPUT players$, "Player3Name", name$
INIPUT players$, "Player3Score", plpunkte$
INIPUT players$, "Player4Name", p3n$; INIPUT players$, "Player4Score", p3p%
INIPUT players$, "Player5Name", p4n$; INIPUT players$, "Player5Score", p4p%
INIPUT players$, "Player6Name", p5n$; INIPUT players$, "Player6Score", p5p%
INIPUT players$, "Player7Name", p6n$; INIPUT players$, "Player7Score", p6p%
INIPUT players$, "Player8Name", p7n$; INIPUT players$, "Player8Score", p7p%
INIPUT players$, "Player9Name", p8n$; INIPUT players$, "Player9Score", p8p%
INIPUT players$, "Player10Name", p9n$; INIPUT players$, "Player10Score", p9p%
INIPUT players$, "Player11Name", p10n$; INIPUT players$, "Player11Score", p10p%
INIPUT players$, "Player12Name", p11n$; INIPUT players$, "Player12Score", p11p%
INIPUT players$, "Player13Name", p12n$; INIPUT players$, "Player13Score", p12p%
INIPUT players$, "Player14Name", p13n$; INIPUT players$, "Player14Score", p13p%
INIPUT players$, "Player15Name", p14n$; INIPUT players$, "Player15Score", p14p%
INIOPEN ""
highscoreswitch% = 1
ELSEIF plpunkte% >= p4p% AND highscoreswitch%=0
INIPUT players$, "Player4Name", name$
INIPUT players$, "Player4Score", plpunkte$
INIPUT players$, "Player5Name", p4n$; INIPUT players$, "Player5Score", p4p%
INIPUT players$, "Player6Name", p5n$; INIPUT players$, "Player6Score", p5p%
INIPUT players$, "Player7Name", p6n$; INIPUT players$, "Player7Score", p6p%
INIPUT players$, "Player8Name", p7n$; INIPUT players$, "Player8Score", p7p%
INIPUT players$, "Player9Name", p8n$; INIPUT players$, "Player9Score", p8p%
INIPUT players$, "Player10Name", p9n$; INIPUT players$, "Player10Score", p9p%
INIPUT players$, "Player11Name", p10n$; INIPUT players$, "Player11Score", p10p%
INIPUT players$, "Player12Name", p11n$; INIPUT players$, "Player12Score", p11p%
INIPUT players$, "Player13Name", p12n$; INIPUT players$, "Player13Score", p12p%
INIPUT players$, "Player14Name", p13n$; INIPUT players$, "Player14Score", p13p%
INIPUT players$, "Player15Name", p14n$; INIPUT players$, "Player15Score", p14p%
INIOPEN ""
highscoreswitch% = 1
ELSEIF plpunkte% >= p5p% AND highscoreswitch%=0
INIPUT players$, "Player5Name", name$
INIPUT players$, "Player5Score", plpunkte$
INIPUT players$, "Player6Name", p5n$; INIPUT players$, "Player6Score", p5p%
INIPUT players$, "Player7Name", p6n$; INIPUT players$, "Player7Score", p6p%
INIPUT players$, "Player8Name", p7n$; INIPUT players$, "Player8Score", p7p%
INIPUT players$, "Player9Name", p8n$; INIPUT players$, "Player9Score", p8p%
INIPUT players$, "Player10Name", p9n$; INIPUT players$, "Player10Score", p9p%
INIPUT players$, "Player11Name", p10n$; INIPUT players$, "Player11Score", p10p%
INIPUT players$, "Player12Name", p11n$; INIPUT players$, "Player12Score", p11p%
INIPUT players$, "Player13Name", p12n$; INIPUT players$, "Player13Score", p12p%
INIPUT players$, "Player14Name", p13n$; INIPUT players$, "Player14Score", p13p%
INIPUT players$, "Player15Name", p14n$; INIPUT players$, "Player15Score", p14p%
INIOPEN ""
highscoreswitch% = 1
ELSEIF plpunkte% >= p6p% AND highscoreswitch%=0
INIPUT players$, "Player6Name", name$
INIPUT players$, "Player6Score", plpunkte$
INIPUT players$, "Player7Name", p6n$; INIPUT players$, "Player7Score", p6p%
INIPUT players$, "Player8Name", p7n$; INIPUT players$, "Player8Score", p7p%
INIPUT players$, "Player9Name", p8n$; INIPUT players$, "Player9Score", p8p%
INIPUT players$, "Player10Name", p9n$; INIPUT players$, "Player10Score", p9p%
INIPUT players$, "Player11Name", p10n$; INIPUT players$, "Player11Score", p10p%
INIPUT players$, "Player12Name", p11n$; INIPUT players$, "Player12Score", p11p%
INIPUT players$, "Player13Name", p12n$; INIPUT players$, "Player13Score", p12p%
INIPUT players$, "Player14Name", p13n$; INIPUT players$, "Player14Score", p13p%
INIPUT players$, "Player15Name", p14n$; INIPUT players$, "Player15Score", p14p%
INIOPEN ""
highscoreswitch% = 1
ELSEIF plpunkte% >= p7p% AND highscoreswitch%=0
INIPUT players$, "Player7Name", name$
INIPUT players$, "Player7Score", plpunkte$
INIPUT players$, "Player8Name", p7n$; INIPUT players$, "Player8Score", p7p%
INIPUT players$, "Player9Name", p8n$; INIPUT players$, "Player9Score", p8p%
INIPUT players$, "Player10Name", p9n$; INIPUT players$, "Player10Score", p9p%
INIPUT players$, "Player11Name", p10n$; INIPUT players$, "Player11Score", p10p%
INIPUT players$, "Player12Name", p11n$; INIPUT players$, "Player12Score", p11p%
INIPUT players$, "Player13Name", p12n$; INIPUT players$, "Player13Score", p12p%
INIPUT players$, "Player14Name", p13n$; INIPUT players$, "Player14Score", p13p%
INIPUT players$, "Player15Name", p14n$; INIPUT players$, "Player15Score", p14p%
INIOPEN ""
highscoreswitch% = 1
ELSEIF plpunkte% >= p8p% AND highscoreswitch%=0
INIPUT players$, "Player8Name", name$
INIPUT players$, "Player8Score", plpunkte$
INIPUT players$, "Player9Name", p8n$; INIPUT players$, "Player9Score", p8p%
INIPUT players$, "Player10Name", p9n$; INIPUT players$, "Player10Score", p9p%
INIPUT players$, "Player11Name", p10n$; INIPUT players$, "Player11Score", p10p%
INIPUT players$, "Player12Name", p11n$; INIPUT players$, "Player12Score", p11p%
INIPUT players$, "Player13Name", p12n$; INIPUT players$, "Player13Score", p12p%
INIPUT players$, "Player14Name", p13n$; INIPUT players$, "Player14Score", p13p%
INIPUT players$, "Player15Name", p14n$; INIPUT players$, "Player15Score", p14p%
INIOPEN ""
highscoreswitch% = 1
ELSEIF plpunkte% >= p9p% AND highscoreswitch%=0
INIPUT players$, "Player9ame", name$
INIPUT players$, "Player9Score", plpunkte$
INIPUT players$, "Player10Name", p9n$; INIPUT players$, "Player10Score", p9p%
INIPUT players$, "Player11Name", p10n$; INIPUT players$, "Player112Score", p10p%
INIPUT players$, "Player12Name", p11n$; INIPUT players$, "Player12Score", p11p%
INIPUT players$, "Player13Name", p12n$; INIPUT players$, "Player13Score", p12p%
INIPUT players$, "Player14Name", p13n$; INIPUT players$, "Player14Score", p13p%
INIPUT players$, "Player15Name", p14n$; INIPUT players$, "Player15Score", p14p%
INIOPEN ""
highscoreswitch% = 1
ELSEIF plpunkte% >= p10p% AND highscoreswitch%=0
INIPUT players$, "Player10Name", name$
INIPUT players$, "Player10Score", plpunkte$
INIPUT players$, "Player11Name", p10n$; INIPUT players$, "Player11Score", p10p%
INIPUT players$, "Player12Name", p11n$; INIPUT players$, "Player12Score", p11p%
INIPUT players$, "Player13Name", p12n$; INIPUT players$, "Player13Score", p12p%
INIPUT players$, "Player14Name", p13n$; INIPUT players$, "Player14Score", p13p%
INIPUT players$, "Player15Name", p14n$; INIPUT players$, "Player15Score", p14p%
INIOPEN ""
highscoreswitch% = 1
ELSEIF plpunkte% >= p11p% AND highscoreswitch%=0
INIPUT players$, "Playe112Name", name$
INIPUT players$, "Player11Score", plpunkte$
INIPUT players$, "Player12Name", p11n$; INIPUT players$, "Player12Score", p11p%
INIPUT players$, "Player13Name", p12n$; INIPUT players$, "Player13Score", p12p%
INIPUT players$, "Player14Name", p13n$; INIPUT players$, "Player14Score", p13p%
INIPUT players$, "Player15Name", p14n$; INIPUT players$, "Player15Score", p14p%
INIOPEN ""
highscoreswitch% = 1
ELSEIF plpunkte% >= p12p% AND highscoreswitch%=0
INIPUT players$, "Player12Name", name$
INIPUT players$, "Player12Score", plpunkte$
INIPUT players$, "Player13Name", p12n$; INIPUT players$, "Player13Score", p12p%
INIPUT players$, "Player14Name", p13n$; INIPUT players$, "Player14Score", p13p%
INIPUT players$, "Player15Name", p14n$; INIPUT players$, "Player15Score", p14p%
INIOPEN ""
highscoreswitch% = 1
ELSEIF plpunkte% >= p13p% AND highscoreswitch%=0
INIPUT players$, "Player13Name", name$
INIPUT players$, "Player13Score", plpunkte$
INIPUT players$, "Player14Name", p13n$; INIPUT players$, "Player14Score", p13p%
INIPUT players$, "Player15Name", p14n$; INIPUT players$, "Player15Score", p14p%
INIOPEN ""
highscoreswitch% = 1
ELSEIF plpunkte% >= p14p% AND highscoreswitch%=0
INIPUT players$, "Player14Name", name$
INIPUT players$, "Player14Score", plpunkte$
INIPUT players$, "Player15Name", p14n$; INIPUT players$, "Player15Score", p14p%
INIOPEN ""
highscoreswitch% = 1
ELSEIF plpunkte% >= p15p% AND highscoreswitch%=0
INIPUT players$, "Playe15Name", name$
INIPUT players$, "Player15Score", plpunkte$
INIOPEN ""
highscoreswitch% = 1
ENDIF
// Jetzt die Datei neu einlesen
INIOPEN "config.ini"
PRINT "1. " + INIGET$(players$, "Player1Name"), 20, 50; PRINT " ................ ", 280, 50; PRINT INIGET$(players$, "Player1Score"), 510, 50
PRINT "1. " + INIGET$(players$, "Player2Name"), 20, 70; PRINT " ................ ", 280, 70; PRINT INIGET$(players$, "Player2Score"), 510, 70
PRINT "1. " + INIGET$(players$, "Player3Name"), 20, 90; PRINT " ................ ", 280, 90; PRINT INIGET$(players$, "Player3Score"), 510, 90
PRINT "1. " + INIGET$(players$, "Player4Name"), 20, 110; PRINT " ................ ", 280, 110; PRINT INIGET$(players$, "Player4Score"), 510, 110
PRINT "1. " + INIGET$(players$, "Player5Name"), 20, 130; PRINT " ................ ", 280, 130; PRINT INIGET$(players$, "Player5Score"), 510, 130
PRINT "1. " + INIGET$(players$, "Player6Name"), 20, 150; PRINT " ................ ", 280, 150; PRINT INIGET$(players$, "Player6Score"), 510, 150
PRINT "1. " + INIGET$(players$, "Player7Name"), 20, 170; PRINT " ................ ", 280, 170; PRINT INIGET$(players$, "Player7Score"), 510, 170
PRINT "1. " + INIGET$(players$, "Player8Name"), 20, 190; PRINT " ................ ", 280, 190; PRINT INIGET$(players$, "Player8Score"), 510, 190
PRINT "1. " + INIGET$(players$, "Player9Name"), 20, 210; PRINT " ................ ", 280, 210; PRINT INIGET$(players$, "Player9Score"), 510, 210
PRINT "1. " + INIGET$(players$, "Player10Name"), 20, 230; PRINT " ................ ", 280, 230; PRINT INIGET$(players$, "Player10Score"), 510, 230
PRINT "1. " + INIGET$(players$, "Player11Name"), 20, 250; PRINT " ................ ", 280, 250; PRINT INIGET$(players$, "Player11Score"), 510, 250
PRINT "1. " + INIGET$(players$, "Player12Name"), 20, 270; PRINT " ................ ", 280, 270; PRINT INIGET$(players$, "Player12Score"), 510, 270
PRINT "1. " + INIGET$(players$, "Player13Name"), 20, 290; PRINT " ................ ", 280, 290; PRINT INIGET$(players$, "Player13Score"), 510, 290
PRINT "1. " + INIGET$(players$, "Player14Name"), 20, 310; PRINT " ................ ", 280, 310; PRINT INIGET$(players$, "Player14Score"), 510, 310
PRINT "1. " + INIGET$(players$, "Player15Name"), 20, 330; PRINT " ................ ", 280, 330; PRINT INIGET$(players$, "Player15Score"), 510, 330
SHOWSCREEN
MOUSEWAIT
Syntax der INI:
[Players]
Player1Name=testspieler
Player2Name=testspieler
Player3Name=testspieler
Player4Name=testspieler
Player5Name=testspieler
Player6Name=testspieler
Player7Name=testspieler
Player8Name=testspieler
Player9Name=testspieler
Player10Name=testspieler
Player11Name=testspieler
Player12Name=testspieler
Player13Name=testspieler
Player14Name=testspieler
Player15Name=testspieler
Player1Score=10
Player2Score=10
Player3Score=10
Player4Score=10
Player5Score=10
Player6Score=10
Player7Score=10
Player8Score=10
Player9Score=10
Player10Score=10
Player11Score=10
Player12Score=10
Player13Score=10
Player14Score=10
Player15Score=10
Oh je :D
ich w?rds so machen in der ini:
[HIGHSCORES]
p1=Blah
s1=100
p2=Muh
s2=110
p3=Miep
s3=200
count=3
im code dann count auslesen und dann per schleife die namen und die werte.
Und ich w?rde es verschl?sseln :)
Und ich m?chte deinen Verschl?sselungscode f?r mich und LR! :D