1. Forum
  2. Fidonet
  3. PASCAL LESSONS

  • Door game procedure.

    From Joseph Larsen@1:2320/100 to All on Fri Jun 3 08:02:02 2016
    Hi,

    I'm trying to rewrite my "door" code in Impulse. I have some code:

    ---snip-----

    procedure ab2;

    begin
    if (cStr(thisnode)) = 1 then
    shell('/home/imp/door/doorab 1 AB2')
    end else
    if (cStr(thisnode)) = 2 then
    shell('/home/imp/door/doorab 2 AB2')
    end else
    if (cStr(thisnode)) = 3 then
    shell('/home/imp/door/doorab 3 AB2')
    end else
    if (cStr(thisnode)) = 4 then
    shell('/home/imp/door/doorab 4 AB2')
    end;

    --snip------

    "cStr" is a function to convert a string into an integer. The numbers are the node numbers. Do I need to define "thisnode"? Or the node numbers?
    I've been doing a lot of coding in C lately, and frankly, i've forgotten
    A LOT of basic Pascal. I think this code pretty much speaks for itself. Could someone please give me a few pointers?

    Thanks,


    |09ignatius |07(|15cia|07)

    --- DayDream BBS/UNIX (Linux) 2.15a
    # Origin: catch22bbs.com >>> >> > (1:340/800)
    # Origin: LiveWire BBS -=*=- telnet://livewirebbs.com (1:2320/100)
    * Origin: LiveWire BBS - Synchronet - LiveWireBBS.com (1:2320/100)
  • From Joseph Larsen@1:2320/100 to Joseph Larsen on Fri Jun 3 08:58:02 2016
    "cStr" is a function to convert a string into an integer. The numbers a node numbers. Do I need to define "thisnode"? Or the node numbers?
    I've been doing a lot of coding in C lately, and frankly, i've forgotte
    A LOT of basic Pascal. I think this code pretty much speaks for itself. someone please give me a few pointers?


    Nevermind. I figured it out.

    Thanks,

    |09ignatius |07(|15cia|07)

    --- DayDream BBS/UNIX (Linux) 2.15a
    # Origin: catch22bbs.com >>> >> > (1:340/800)
    # Origin: LiveWire BBS -=*=- telnet://livewirebbs.com (1:2320/100)
    * Origin: LiveWire BBS - Synchronet - LiveWireBBS.com (1:2320/100)
  • From Jack Bell@1:2320/100 to Joseph Larsen on Sun Jun 5 02:44:02 2016
    On 06/03/16, Joseph Larsen said the following...
    I'm trying to rewrite my "door" code in Impulse. I have some code:

    isnt that an older software?

    Dr. Evil
    |04*:|12-|08]<|12-|08.\\|12-|04- - - * .|11X|03t|08C|04.

    --- Mystic BBS v1.12 A17 (Windows)
    # Origin: --[!dreamland BBS dreamland.darktech.org (1:218/530)
    # Origin: LiveWire BBS -=*=- telnet://livewirebbs.com (1:2320/100)
    * Origin: LiveWire BBS - Synchronet - LiveWireBBS.com (1:2320/100)
  • From Joseph Larsen@1:2320/100 to Jack Bell on Sun Jun 5 10:29:02 2016
    I'm trying to rewrite my "door" code in Impulse. I have some code:

    isnt that an older software?


    Yeah. It is. But its been rewritten in Free Pascal. So the code has been somewhat updated.


    |09ignatius |07(|15cia|07)

    --- DayDream BBS/UNIX (Linux) 2.15a
    # Origin: catch22bbs.com >>> >> > (1:340/800)
    # Origin: LiveWire BBS -=*=- telnet://livewirebbs.com (1:2320/100)
    * Origin: LiveWire BBS - Synchronet - LiveWireBBS.com (1:2320/100)