Highscore aus ner INI

Previous topic - Next topic
Print
Go Down Pages1
User actions

Metamorphose

2009-Sep-02 Last Edit: 2009-Sep-02 by Metamorphose
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 ;)

Code (glbasic) Select



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:

Code (glbasic) Select

[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
lalagames - www.metamo.ch/lalagames/
Keine K?nstler Online - www.keinekuenstler.ch
M?rchenwelt PNP-RPG - www.metamo.ch/maerchenwelt

trucidare

#1
2009-Sep-02
Oh je :D

ich w?rds so machen in der ini:
Code (glbasic) Select

[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.
MacBook Pro 2,2 GHz Core 2 Duo, 4 GB RAM, 160 GB HDD, 8600M GT
Core i3 - 3,07 GHz, 8 GB Ram, 2.5 TB HDD, Geforce GTX 260+ OC

Schranz0r

#2
2009-Sep-02
Und ich w?rde es verschl?sseln :)
I <3 DGArray's :D

PC:
AMD Ryzen 7 3800X 16@4.5GHz, 16GB Corsair Vengeance LPX DDR4-3200 RAM, ASUS Dual GeForce RTX™ 3060 OC Edition 12GB GDDR6, Windows 11 Pro 64Bit, MSi Tomahawk B350 Mainboard

WPShadow

#3
2009-Sep-03
Und ich m?chte deinen Verschl?sselungscode f?r mich und LR! :D
AMD X2 4600, 2 GB Ram, ATI X1950 XTX, XP PRO SP2: GLB Premium 10.beta_dingsi, <(´.´<) Kirby Dance (>`.`)>
http://lostrevenant.blogspot.com
alea iacta est
Print
Go Up Pages1
User actions
SMF 2.1.4 © 2023, Simple Machines
ProCurve Theme Made By : TwitchisMental