Writing to File - Help Please - GameCreators Forum

Author

Message

Gingerkid Jack

19

Years of Service

User Offline

Joined: 15th May 2005

Location: UK

Posted: 15th Jun 2009 22:46 Edited at: 15th Jun 2009 22:47

Link

I created this code becuase my dad and I play Fifa 09 alot on my xbox 360. It stores all of our financial records and hopefully our signings. However I cannot figure out where to add the Write and Read commands. Will someone please point my in the right direction?

Here is my code:

Rem Project: Fifa 09
Rem Created: 15/06/2009 16:26:05

Rem ***** Main Source File *****

rem Finacial Area

Open to read 1, "Variables.JKV"
 read file 1, JackMoney
 read file 2, DadMoney
 read file 3, JackNewPlayer
 read file 4, DadNewPlayer
close file 1

set text size 15

JackNewPlayer = 0
DadNewPlayer = 0

JackMoney = 35000000
DadMoney = 40000000

JackWages = 2500
DadWages = 4000

SupportersIncomeJ = 15000
SupportersIncomeD = 25000

SponsershipJ = 10000
SponsershipD = 5000

PlayerSell = 0
PlayerBuy = 0

rem System

Start:

REM REAL START!!!
CLS
Print "Jack's Current Funds: ";JackMoney
Print "Dad's Current Funds: ";DadMoney
Print
Print "Type(1)for Buying"
Print "Type(2)for Selling"
Print "Type(3)for Finished a Match"
Print "Type(4)to Exit and Save"
Print
Input "-->";Choice

Open to write 1,"Variables.JKV"
  Write File 1, JackMoney
  Write File 2, DadMoney
  Write File 3, JackNewPlayer
  Write File 4, DadNewPlayer
close file 1

Rem Choice1
IF Choice = 1
 CLS
 Print "How much are you buying this player for?"
 Input "--->";PlayerBuy
 CLS
  Print PlayerBuy;" is this the right amount?"
  Input "Y/N "; Choice3$
   If Choice3$="Y" then
   CLS
   Choice32:
   Input "Is it Jack or Dad? ";Choice4$
    If Choice4$ = "Jack"
     Dec JackMoney, PlayerBuy
     JackWages = JackWages + 1500
         goto Start
   Else
    If Choice4$ = "Dad"
     Dec DadMoney, PlayerBuy
      DadWages = DadWages + 1500
            goto Start
   Else
    Print "Who is this?"
    GOTO Choice32
     Endif
   Endif
 Endif
Rem Choice2
IF Choice = 2
 CLS
 Print "How much are you selling this player for?"
 Input "--->";PlayerSell
 CLS
  Print PlayerSell;" is this the right amount?"
  Input "Y/N "; Choice1$
   If Choice1$="Y" then
     CLS
      Choice32S:
       Input "Is it Jack or Dad? ";Choice2$
        If Choice2$ = "Jack"
         JackMoney = JackMoney + PlayerSell
          JackWages = JackWages - 500
            goto Start
        Else
         If Choice2$ = "Dad"
          DadMoney = DadMoney + PlayerSell
           DadWages = DadWages - 500
            goto Start
        Else
          Print "Who is this?"
           GOTO Choice32S
     Endif
   Endif
 Endif
Rem Choice3
If Choice = 3
CLS
Print "End of Match..."
Input "Who One? ";Winner$
Print "Congrats ";Winner$;" Have a £1000 bonus!"
 if Winner$ = "Jack"
  inc JackMoney, 1000
 if Winner$ = "Dad"
  inc DadMoney, 1000
 endif
Print "Calculating Money..."
wait 3000
CLS
Print "Jack Financial Details: "
Print "Wages: ";JackWages
Print "Sponsership Income: ";SponsershipJ
Print "Ticket Sales: ";SupportersIncomeJ
TotalJ = (SponsershipJ + SupportersIncomeJ) - JackWages
Print "Total: ";TotalJ
wait key
CLS
Print "Dad Financial Details: "
Print "Wages: ";DadWages
Print "Sponsership Loss: ";SponsershipD
Print "Ticket Sales: ";SupportersIncomeD
TotalD = (SponsershipD - DadWages) + SupportersIncomeD
Print "Total: ";TotalD
wait key
Goto Start
Endif
endif

Rem EXIT
IF Choice = 4
 Open to write 1,"Variables.JKV"
  Write File 1, JackMoney
  Write File 1, DadMoney
  Write File 1, JackNewPlayer
  Write File 1, DadNewPlayer
 close file 1
EXIT
ENDIF

+ Code Snippet

Rem Project: Fifa 09
Rem Created: 15/06/2009 16:26:05

Rem ***** Main Source File *****

rem Finacial Area

Open to read 1, "Variables.JKV"
 read file 1, JackMoney
 read file 2, DadMoney
 read file 3, JackNewPlayer
 read file 4, DadNewPlayer
close file 1

set text size 15

JackNewPlayer = 0
DadNewPlayer = 0

JackMoney = 35000000
DadMoney = 40000000

JackWages = 2500
DadWages = 4000

SupportersIncomeJ = 15000
SupportersIncomeD = 25000

SponsershipJ = 10000
SponsershipD = 5000

PlayerSell = 0
PlayerBuy = 0

rem System

Start:

REM REAL START!!!
CLS
Print "Jack's Current Funds: ";JackMoney
Print "Dad's Current Funds: ";DadMoney
Print
Print "Type(1)for Buying"
Print "Type(2)for Selling"
Print "Type(3)for Finished a Match"
Print "Type(4)to Exit and Save"
Print
Input "-->";Choice

Open to write 1,"Variables.JKV"
  Write File 1, JackMoney
  Write File 2, DadMoney
  Write File 3, JackNewPlayer
  Write File 4, DadNewPlayer
close file 1

Rem Choice1
IF Choice = 1
 CLS
 Print "How much are you buying this player for?"
 Input "--->";PlayerBuy
 CLS
  Print PlayerBuy;" is this the right amount?"
  Input "Y/N "; Choice3$
   If Choice3$="Y" then
   CLS
   Choice32:
   Input "Is it Jack or Dad? ";Choice4$
    If Choice4$ = "Jack"
     Dec JackMoney, PlayerBuy
     JackWages = JackWages + 1500
         goto Start
   Else
    If Choice4$ = "Dad"
     Dec DadMoney, PlayerBuy
      DadWages = DadWages + 1500
            goto Start
   Else
    Print "Who is this?"
    GOTO Choice32
     Endif
   Endif
 Endif
Rem Choice2
IF Choice = 2
 CLS
 Print "How much are you selling this player for?"
 Input "--->";PlayerSell
 CLS
  Print PlayerSell;" is this the right amount?"
  Input "Y/N "; Choice1$
   If Choice1$="Y" then
     CLS
      Choice32S:
       Input "Is it Jack or Dad? ";Choice2$
        If Choice2$ = "Jack"
         JackMoney = JackMoney + PlayerSell
          JackWages = JackWages - 500
            goto Start
        Else
         If Choice2$ = "Dad"
          DadMoney = DadMoney + PlayerSell
           DadWages = DadWages - 500
            goto Start
        Else
          Print "Who is this?"
           GOTO Choice32S
     Endif
   Endif
 Endif
Rem Choice3
If Choice = 3
CLS
Print "End of Match..."
Input "Who One? ";Winner$
Print "Congrats ";Winner$;" Have a £1000 bonus!"
 if Winner$ = "Jack"
  inc JackMoney, 1000
 if Winner$ = "Dad"
  inc DadMoney, 1000
 endif
Print "Calculating Money..."
wait 3000
CLS
Print "Jack Financial Details: "
Print "Wages: ";JackWages
Print "Sponsership Income: ";SponsershipJ
Print "Ticket Sales: ";SupportersIncomeJ
TotalJ = (SponsershipJ + SupportersIncomeJ) - JackWages
Print "Total: ";TotalJ
wait key
CLS
Print "Dad Financial Details: "
Print "Wages: ";DadWages
Print "Sponsership Loss: ";SponsershipD
Print "Ticket Sales: ";SupportersIncomeD
TotalD = (SponsershipD - DadWages) + SupportersIncomeD
Print "Total: ";TotalD
wait key
Goto Start
Endif
endif

Rem EXIT
IF Choice = 4
 Open to write 1,"Variables.JKV"
  Write File 1, JackMoney
  Write File 1, DadMoney
  Write File 1, JackNewPlayer
  Write File 1, DadNewPlayer
 close file 1
EXIT
ENDIF

Thanks Alot. Jack

TheCleverGuyz

Back to top

Profile PM Email

Serial Velocity

16

Years of Service

User Offline

Joined: 24th Aug 2008

Location:

Posted: 16th Jun 2009 17:07 Edited at: 16th Jun 2009 17:09

Link

You seem to be resetting your variables after loading them.

Try replacing this:

+ Code Snippet

Open to read 1, "Variables.JKV"
 read file 1, JackMoney
 read file 2, DadMoney
 read file 3, JackNewPlayer
 read file 4, DadNewPlayer
close file 1

set text size 15

JackNewPlayer = 0
DadNewPlayer = 0

JackMoney = 35000000
DadMoney = 40000000

With this:

+ Code Snippet

Set Text Size 15

If File Exist( "Variables.JKV" ) = 1
 Open to read 1, "Variables.JKV"
  read file 1, JackMoney
  read file 1, DadMoney
  read file 1, JackNewPlayer
  read file 1, DadNewPlayer
 close file 1
Else
 JackNewPlayer = 0
 DadNewPlayer = 0

 JackMoney = 35000000
 DadMoney = 40000000
Endif

Also, when you read or write to the file, make sure the file number is always 1; not 1, 2, 3 and 4

Back to top

Profile PM Email

LBFN

17

Years of Service

User Offline

Joined: 7th Apr 2007

Location: USA

Posted: 16th Jun 2009 17:21

Link

Once you open / close a file, you always use the same file number to access it. i.e. open to read 1,"Variable.JKV" should always refer to file #1, because that is the number assigned to it. Also, as a good general practice, you should verify a file exists before you try to load it, otherwise the program will error if it is not there.

I would suggest you look at using SELECT and ENDSELECT with the CASE and ENDCASE commands instead of using the dreaded goto.

Here is a slightly revised version of your code:

Rem Project: Fifa 09
Rem Created: 15/06/2009 16:26:05

Rem ***** Main Source File *****

JackNewPlayer = 0
DadNewPlayer = 0

JackMoney = 35000000
DadMoney = 40000000

JackWages = 2500
DadWages = 4000

SupportersIncomeJ = 15000
SupportersIncomeD = 25000

SponsershipJ = 10000
SponsershipD = 5000

PlayerSell = 0
PlayerBuy = 0

rem Finacial Area
if file exist("Variables.JKV") = 1
Open to read 1, "Variables.JKV"
 read file 1, JackMoney
 read file 1, DadMoney
 read file 1, JackNewPlayer
 read file 1, DadNewPlayer
close file 1
endif
set text size 15

rem System

Start:

REM REAL START!!!
CLS
Print "Jack's Current Funds: ";JackMoney
Print "Dad's Current Funds: ";DadMoney
Print
Print "Type(1)for Buying"
Print "Type(2)for Selling"
Print "Type(3)for Finished a Match"
Print "Type(4)to Exit and Save"
Print
Input "-->";Choice

Rem Choice1
IF Choice = 1
 CLS
 Print "How much are you buying this player for?"
 Input "--->";PlayerBuy
 CLS
  Print PlayerBuy;" is this the right amount?"
  Input "Y/N "; Choice3$
   If Choice3$="Y" then
   CLS
   Choice32:
   Input "Is it Jack or Dad? ";Choice4$
    If Choice4$ = "Jack"
     Dec JackMoney, PlayerBuy
     JackWages = JackWages + 1500
         goto Start
   Else
    If Choice4$ = "Dad"
     Dec DadMoney, PlayerBuy
      DadWages = DadWages + 1500
           goto Start
  Else
   Print "Who is this?"
   GOTO Choice32
    Endif
  Endif
Endif
Rem Choice2
IF Choice = 2
 CLS
 Print "How much are you selling this player for?"
 Input "--->";PlayerSell
 CLS
  Print PlayerSell;" is this the right amount?"
  Input "Y/N "; Choice1$
   If Choice1$="Y" then
     CLS
      Choice32S:
       Input "Is it Jack or Dad? ";Choice2$
        If Choice2$ = "Jack"
         JackMoney = JackMoney + PlayerSell
          JackWages = JackWages - 500
            goto Start
        Else
         If Choice2$ = "Dad"
          DadMoney = DadMoney + PlayerSell
           DadWages = DadWages - 500
            goto Start
        Else
          Print "Who is this?"
           GOTO Choice32S
     Endif
   Endif
 Endif
Rem Choice3
If Choice = 3
CLS
Print "End of Match..."
Input "Who One? ";Winner$
Print "Congrats ";Winner$;" Have a £1000 bonus!"
 if Winner$ = "Jack"
  inc JackMoney, 1000
 if Winner$ = "Dad"
  inc DadMoney, 1000
 endif
Print "Calculating Money..."
wait 3000
CLS
Print "Jack Financial Details: "
Print "Wages: ";JackWages
Print "Sponsership Income: ";SponsershipJ
Print "Ticket Sales: ";SupportersIncomeJ
TotalJ = (SponsershipJ + SupportersIncomeJ) - JackWages
Print "Total: ";TotalJ
wait key
CLS
Print "Dad Financial Details: "
Print "Wages: ";DadWages
Print "Sponsership Loss: ";SponsershipD
Print "Ticket Sales: ";SupportersIncomeD
TotalD = (SponsershipD - DadWages) + SupportersIncomeD
Print "Total: ";TotalD
wait key
Goto Start
Endif
endif

Rem EXIT
IF Choice = 4
  if file exist("Variables.JKV") = 1 then delete file "Variables.JKV"
  Open to write 1,"Variables.JKV"
  Write File 1, JackMoney
  Write File 1, DadMoney
  Write File 1, JackNewPlayer
  Write File 1, DadNewPlayer
 close file 1
ENDIF
end

+ Code Snippet

Rem Project: Fifa 09
Rem Created: 15/06/2009 16:26:05

Rem ***** Main Source File *****

JackNewPlayer = 0
DadNewPlayer = 0

JackMoney = 35000000
DadMoney = 40000000

JackWages = 2500
DadWages = 4000

SupportersIncomeJ = 15000
SupportersIncomeD = 25000

SponsershipJ = 10000
SponsershipD = 5000

PlayerSell = 0
PlayerBuy = 0

rem Finacial Area
if file exist("Variables.JKV") = 1
Open to read 1, "Variables.JKV"
 read file 1, JackMoney
 read file 1, DadMoney
 read file 1, JackNewPlayer
 read file 1, DadNewPlayer
close file 1
endif
set text size 15

rem System

Start:

REM REAL START!!!
CLS
Print "Jack's Current Funds: ";JackMoney
Print "Dad's Current Funds: ";DadMoney
Print
Print "Type(1)for Buying"
Print "Type(2)for Selling"
Print "Type(3)for Finished a Match"
Print "Type(4)to Exit and Save"
Print
Input "-->";Choice

Rem Choice1
IF Choice = 1
 CLS
 Print "How much are you buying this player for?"
 Input "--->";PlayerBuy
 CLS
  Print PlayerBuy;" is this the right amount?"
  Input "Y/N "; Choice3$
   If Choice3$="Y" then
   CLS
   Choice32:
   Input "Is it Jack or Dad? ";Choice4$
    If Choice4$ = "Jack"
     Dec JackMoney, PlayerBuy
     JackWages = JackWages + 1500
         goto Start
   Else
    If Choice4$ = "Dad"
     Dec DadMoney, PlayerBuy
      DadWages = DadWages + 1500
           goto Start
  Else
   Print "Who is this?"
   GOTO Choice32
    Endif
  Endif
Endif
Rem Choice2
IF Choice = 2
 CLS
 Print "How much are you selling this player for?"
 Input "--->";PlayerSell
 CLS
  Print PlayerSell;" is this the right amount?"
  Input "Y/N "; Choice1$
   If Choice1$="Y" then
     CLS
      Choice32S:
       Input "Is it Jack or Dad? ";Choice2$
        If Choice2$ = "Jack"
         JackMoney = JackMoney + PlayerSell
          JackWages = JackWages - 500
            goto Start
        Else
         If Choice2$ = "Dad"
          DadMoney = DadMoney + PlayerSell
           DadWages = DadWages - 500
            goto Start
        Else
          Print "Who is this?"
           GOTO Choice32S
     Endif
   Endif
 Endif
Rem Choice3
If Choice = 3
CLS
Print "End of Match..."
Input "Who One? ";Winner$
Print "Congrats ";Winner$;" Have a £1000 bonus!"
 if Winner$ = "Jack"
  inc JackMoney, 1000
 if Winner$ = "Dad"
  inc DadMoney, 1000
 endif
Print "Calculating Money..."
wait 3000
CLS
Print "Jack Financial Details: "
Print "Wages: ";JackWages
Print "Sponsership Income: ";SponsershipJ
Print "Ticket Sales: ";SupportersIncomeJ
TotalJ = (SponsershipJ + SupportersIncomeJ) - JackWages
Print "Total: ";TotalJ
wait key
CLS
Print "Dad Financial Details: "
Print "Wages: ";DadWages
Print "Sponsership Loss: ";SponsershipD
Print "Ticket Sales: ";SupportersIncomeD
TotalD = (SponsershipD - DadWages) + SupportersIncomeD
Print "Total: ";TotalD
wait key
Goto Start
Endif
endif

Rem EXIT
IF Choice = 4
  if file exist("Variables.JKV") = 1 then delete file "Variables.JKV"
  Open to write 1,"Variables.JKV"
  Write File 1, JackMoney
  Write File 1, DadMoney
  Write File 1, JackNewPlayer
  Write File 1, DadNewPlayer
 close file 1
ENDIF
end

So many games to code......so little time.

Back to top

Profile PM Email

Gingerkid Jack

19

Years of Service

User Offline

Joined: 15th May 2005

Location: UK

Posted: 16th Jun 2009 18:25 Edited at: 16th Jun 2009 18:50

Link

[EDIT} Is there a way to clear text only from the screen?

Thanks very much guys. It didn't occur to me to use the EXIST command. I am looking into CASE commands now as my uncle studied BASIC Language at UNI he is giving me a few tips.

Thanks again.
Jack

TheCleverGuyz

Back to top

Profile PM Email

bobbel

15

Years of Service

User Offline

Joined: 5th Jan 2009

Location: In my DBPro case xD

Posted: 16th Jun 2009 22:03

Link

i think you can use CLS command, but it delets the whole screen

Back to top

Profile PM Website

Gingerkid Jack

19

Years of Service

User Offline

Joined: 15th May 2005

Location: UK

Posted: 16th Jun 2009 22:12

Link

I know about the CLS command but that doesn't jsut delete text.

TheCleverGuyz

Back to top

Profile PM Email

bobbel

15

Years of Service

User Offline

Joined: 5th Jan 2009

Location: In my DBPro case xD

Posted: 16th Jun 2009 23:53

Link

well if you call set cursor 0,0 every loop before you are gonna print it prints nicely over the old texts, but im not sure if it works very good, sometimes when you have high framerates it gets printedmultiple times so you just get a white stripe instead of text

Back to top

Profile PM Website

Grog Grueslayer

Valued Member

19

Years of Service

User Offline

Joined: 30th May 2005

Playing: Green Hell

Posted: 17th Jun 2009 09:18 Edited at: 17th Jun 2009 09:19

Link

Quote: "Is there a way to clear text only from the screen?"

Not a single command but you can mimic it in several different ways.

1. If your text is going to be in specific areas and graphics aren't going to be under where the text is you can use the command SET TEXT OPAQUE and any text you put on the screen will overwrite any graphics or other text because it (after that command) writes the background color to the screen also.

+ Code Snippet

set display mode 800,600,16
` Set the text to overwrite the background too
set text opaque

` Make some lines
for t=1 to 1000
 ink rgb(rnd(255),rnd(255),rnd(255)),0
 line rnd(800),rnd(600),rnd(800),rnd(600)
next t

ink rgb(255,255,255),0

` Show the text
text 0,0,"This is a test."
wait key

` Erase the text
text 0,0,space$(15)
wait key

2. You can just grab the entire screen with GET IMAGE and PASTE IMAGE every time you wish to clear the text.

+ Code Snippet

set display mode 800,600,16

` Make some lines
for t=1 to 1000
 ink rgb(rnd(255),rnd(255),rnd(255)),0
 line rnd(800),rnd(600),rnd(800),rnd(600)
next t
` Grab the image
get image 1,0,0,800,600,1

ink rgb(255,255,255),0

do

 ` Show the text
 text rnd(800),rnd(600),"This is a test."
 wait 500
 ` Replace the background
 paste image 1,0,0

loop

3. You can make all text sprites so they don't interfere with the background.

+ Code Snippet

set display mode 800,600,16
sync rate 0
sync on

` Make some lines
for t=1 to 1000
 ink rgb(rnd(255),rnd(255),rnd(255)),0
 line rnd(800),rnd(600),rnd(800),rnd(600)
next t
` Grab the image
get image 1,0,0,800,600,1

ink rgb(255,255,255),0

` Make a sprite out of the text
a$="This is a test."
` Make a bitmap
create bitmap 1,text width(a$),text height(a$)
` Write the text on that bitmap
text 0,0,a$
` Grab the text as an image
get image 2,0,0,text width(a$),text height(a$),1
` Delete the bitmap
delete bitmap 1
` Change to the main screen
set current bitmap 0

do
 ` Show the background
 paste image 1,0,0
 ` Show the text
 sprite 1,rnd(800),rnd(600),2
 wait 500
 sync
 
loop

I'm sure there are other methods but I couldn't think of anymore.

Back to top

Profile PM Email

Sorry your browser is not supported!

Newcomers DBPro Corner / Writing to File - Help Please