Регистрация | Вход
Graphics 640,480,0,2SetFont(LoadFont("system"))Global g_games_n=0Global MAX_GAMES=10Dim games$(MAX_GAMES)Global g_moneyGlobal MAX_ITEMS = 10Dim g_items$(MAX_ITEMS,2)g_items(1,1)=0g_items(2,1)=0g_items(3,1)=0Global g_text_pos = 0;Global g_text$;Global g_text_word$;;------------------Function TextBegin(text_$)g_text=text_g_text_pos = 1 g_text_prev_word_pos = 1g_text_word=""End Function Function TextReadWord() g_text_word ="" If (g_text_pos > Len(g_text))Return 0;While (Mid(g_text, g_text_pos, 1) = " ") : g_text_pos = g_text_pos + 1 : Wend While (Mid(g_text,g_text_pos,1) <> " " And g_text_pos<=Len(g_text)) g_text_word =g_text_word+ Mid(g_text,g_text_pos,1); g_text_pos=g_text_pos+1 Wend g_text_pos=g_text_pos+1; Return 1;End Function;////////////////////////////////////////////////////////////////////////////////Game_load().a1Print "g_money "+g_money;f = ReadFile("gamelist.txt") g_games_n=0While Not Eof(f)g_games_n=g_games_n+1games(g_games_n)=ReadLine$(f) Print g_games_n+" "+games(g_games_n)+" exp. "+Int(g_items(g_games_n,2))Wend CloseFile(f)While(True)n$=Input()TextBegin(n)TextReadWord()If g_text_word = "train" Then TextReadWord()n$=g_text_wordg_items(Int(n),2)=Int(g_items(Int(n),2))+1g_money=g_money-1Game_save()Goto a1EndIf If n Then g_money=g_money+1Game_save()ExecFile(games(n))Goto a1WendFunction Game_save()f=FileOpen("game.sav")WriteLine(f,g_location)WriteLine(f,g_money)For i=1 To MAX_ITEMSWriteLine(f,g_items(i,2))NextCloseFile(f)End FunctionFunction Game_load()f=FileOpen("game.sav")g_location=ReadLine(f)g_money = ReadLine(f)For i=1 To MAX_ITEMSg_items(i,2) = ReadLine(f)NextCloseFile(f)End FunctionFunction FileOpen(fn$)file1 = OpenFile(fn$);If(file1=0)file1=WriteFile(fn$);Return file1;End Function