I write a config program that resets thee game by deleting the player daya file. Im using Virtual pascal and this is whaat it says when i press reset game:

·-[!master mind v1.0 A6 setup [win32 version]
·-[!(c)MM3 DoRE/nemesis
·-[!-----------------------------------------------
Runtime error 32 at 004011A2 (C:\d32\dm-mmcfg.pas#99) TID=1

This is the procedure where it happeneds..

procedure resetgame;
begin
header;
assign(uf, 'dm-mm.dat');
{$I-}reset(uf);{$I+}
if (ioresult <> 0) then
begin
pipeln('|10 game has allready been reset');
writeln;
pipe(' ' +pz);
readkey;
exit;
end;
erase(uf);
pipeln('|12 game has been reset!!!!!!!');
writeln;
pipe(' ' +pz);
readkey;
exit;
end;
I tried if then else but it was not liking the else. ANy ideas? Basicly if
it does not find the player dat file dm-mm.dat then it says game has
already been reset. I have not coded in a long time so I ama bit rusty. THis is for my mastermind Win32 door game. I have a MPL version but I am
converting it to 1.10.

--- Mystic BBS v1.10 A60 (Windows)
* Origin: fluph.darktech.org (46:1/102)

daya file. Im using Virtual pascal and this is whaat it says when i
press reset game:

I don't see anything wrong with it, outside of I don't know what type of variable UF is and its Virtual Pascal.

--- Mystic BBS v1.10 A61 (Windows)
* Origin: Sector 7 [Mystic BBS WHQ] (46:1/127)

on 01/31/15, g00r00 said...

I don't see anything wrong with it, outside of I don't know what type of variable UF is and its Virtual Pascal.

oh user rec file

type {dm-mm.dat}
userrec = record
index : integer;
handle : string[30];
wins : byte;
lastwin : string[8];
end;

var
stri : string;
ch : char;
uf : file of userrec;
ui : userrec;
handle : string[30];
lastwn : string[8];
wins : byte;
f : file;

I tried to use fpc but im getting hickups

|08 ··[|15!|07dream master|15!|07DoRE|15!|07ACiDiC|15?|07demonic
|08 ··[|15!|07dreamland|09.|07darktech|09.|07org

--- Mystic BBS v1.10 A60 (Windows)
* Origin: d i s t o r t i o n // d1st.org (46:1/145)