1. Forum
  2. FidoNet
  3. PASCAL LESSONS

  • Door game procedure.

    From Joseph Larsen@1:340/800 to All on Friday, June 03, 2016 08:02:40
    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)
  • From Joseph Larsen@1:340/800 to Joseph Larsen on Friday, June 03, 2016 08:58:47
    "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)
  • From jack bell@1:218/530 to Joseph Larsen on Sunday, June 05, 2016 02:37:09
    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)
  • From Joseph Larsen@1:340/800 to jack bell on Sunday, June 05, 2016 10:29:18
    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)