1. Forum
  2. AgoraNet
  3. AGN DEV

  • runtime error 32

    From dream master@46:1/102 to All on Fri Jan 30 22:12:02 2015
    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)
  • From g00r00@46:1/127 to dream master on Sat Jan 31 03:39:50 2015
    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)
  • From Dream Master@46:1/145 to g00r00 on Sat Jan 31 13:14:19 2015

    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)