• IPL Ansi Gallery

    From ignatius@44:100/10 to All on Sun Nov 1 17:19:00 2015
    Ok. I'm writing an ansi gallery in IPL (Iniquity Programming Language) and i'm having some problems with the code. It seems when I go to select a specific art group, I can only select once, and then another time (twice in a row), it dies and the board drops carrier.

    Anyone fluent in IPL?


    --[ begin art gallery snippets ]-------------------------------------
    --[begin art group selection ] ----------------

    clrscr

    proc group {

    gotoxy[2,1] sout["|B0|07 ACID "]
    gotoxy[2,2] sout["|B0|07 AWE "]
    gotoxy[2,3] sout["|B0|07 BLADE "]
    gotoxy[2,4] sout["|B0|07 BLEACH"]
    gotoxy[2,5] sout["|B0|07 CIA "]
    gotoxy[2,6] sout["|B0|07 DARK "]
    gotoxy[2,7] sout["|B0|07 FIRE "]
    gotoxy[2,8] sout["|B0|07 ICE "]
    gotoxy[2,9] sout["|B0|07 LEGEND"]
    gotoxy[2,10] sout["|B0|07 RELIC "]
    }

    proc hlgroup {

    if (y=1) then {
    gotoxy[2,1] sout["|B1|09 ACID |00|07"]
    }
    if (y=2) then {
    gotoxy[2,2] sout["|B1|09 AWE |00|07"]
    }
    if (y=3) then {
    gotoxy[2,3] sout["|B1|09 BLADE |00|07"]
    }
    if (y=4) then {
    gotoxy[2,4] sout["|B1|09 BLEACH|00|07"]
    }
    if (y=5) then {
    gotoxy[2,5] sout["|B1|09 CIA |00|07"]
    }
    if (y=6) then {
    gotoxy[2,6] sout["|B1|09 DARK |00|07"]
    }
    if (y=7) then {
    gotoxy[2,7] sout["|B1|09 FIRE |00|07"]
    }
    if (y=8) then {
    gotoxy[2,8] sout["|B1|09 ICE |00|07"]
    }
    if (y=9) then {
    gotoxy[2,9] sout["|B1|09 LEGEND|00|07"]
    }
    if (y=10) then {
    gotoxy[2,10] sout["|B1|09 RELIC |00|07"]
    }
    }

    ---[ end art group selection ]-----------------------------------
    ---[ begin "action bar" ]----------------------------------------

    proc botbar {

    gotoxy[10,23] sout["|B0|15 N|07EXT "]
    gotoxy[20,23] sout["|B0|15 P|07REV "]
    gotoxy[30,23] sout["|B0|15 S|07ELECT "]
    gotoxy[40,23] sout["|B0|15 D|07ISPLAY "]
    gotoxy[50,23] sout["|B0|15 H|07ELP "]
    gotoxy[60,23] sout["|B0|15 Q|07UIT "]
    }

    proc hlbotbar {

    if (x=10) then {
    gotoxy[10,23] sout["|08[|B1|15N|09EXT|B0|08]"]
    }
    if (x=20) then {
    gotoxy[20,23] sout["|08[|B1|15P|09REV|B0|08]"]
    }
    if (x=30) then {
    gotoxy[30,23] sout["|08[|B1|15S|09ELECT|B0|08]"]
    }
    if (x=40) then {
    gotoxy[40,23] sout["|08[|B1|15D|09ISPLAY|B0|08]"]
    }
    if (x=50) then {
    gotoxy[50,23] sout["|08[|B1|15H|09ELP|B0|08]"]
    }
    if (x=60) then {
    gotoxy[60,23] sout["|08[|B1|09Q|09UIT|B0|08]"]
    }
    }

    ---[ end "action bar" ]----------------------------------------------

    .... directory declarations here.........

    ....

    ---[ begin lightbar selection ]--------------------------------------


    ch=strup[inkey]

    # up arrow // increment the "art group"
    if (ch=#72) or (ch="A") then {
    if y>1 then y=y-1 else y=10
    } else

    # left arrow // previous action on the action bar
    if (ch=#75) or (ch="D") then {
    if x>10 then x=x-10 else x=60
    } else
    # right arrow // next action on the actionbar
    if (ch=#77) or (ch="C") then {
    if x<60 then x=x+10 else x=10
    }
    # - key // previous "art pack"
    if (ch="-") then {
    if z>1 then z=z-1 else z=42
    } else
    # + key // next "art pack"
    if (ch="+") then {
    if z<42 then z=z+1 else z=1
    }

    # pgup key // previous file name
    if (ch=#73) or (ch="V") then {
    if u>1 then u=u-1 else u=19
    } else
    # pgdn key // next file name
    if (ch=#81) or (ch="U") then {
    if u<19 then u=u+1 else u=1
    }

    ---[ end lightbar selection ]-----------------------------------------------

    .... file declarations here ..................

    --[ end art gallery snippets ]-------------------------------------

    The "y" variable is the art group, the "x" variable is for the action bar.
    The "z" variable is for selection of art packs, the "u" variable are the actual file names.

    Thanks,

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

    --- Iniquity v2.20 Alpha [DOS]
    * Origin: catch22bbs.com >> >>> > (44:100/10)
  • From dedc@44:100/0 to ignatius on Tue Nov 3 20:35:00 2015
    (twice in a row), it dies and the board drops carrier.

    Your code looks fine to me at face value. What's your logic when the user presses enter (or whatever key is pressed to make the selection)?

    Are you using arrays to hold group/pack/filename data?

    --- Mystic BBS v1.11 A3 (Windows)
    * Origin: |08--[|15!|07dreamland BBS dreamland.darktech.org (44:100/0)
  • From ignatius@44:100/10 to dedc on Wed Nov 4 12:24:00 2015
    |01 ۲ |LF|01 quoting |09dedc |01on |0911/04/15

    (twice in a row), it dies and the board drops carrier.

    Your code looks fine to me at face value. What's your logic when the user presses enter (or whatever key is pressed to make the selection)?

    Are you using arrays to hold group/pack/filename data?

    It just seems like that would be the easiest way for the user to select things. No, i'm not using arrays.. I probably should..

    Thanks,

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

    --- Iniquity v2.20 Alpha [DOS]
    * Origin: catch22bbs.com >> >>> > (44:100/10)
  • From dream master@44:100/0 to ignatius on Wed Nov 4 13:33:00 2015
    On 11/04/15, ignatius said the following...
    It just seems like that would be the easiest way for the user to select things. No, i'm not using arrays.. I probably should..

    an array of char how ever they do it in ipl

    |08 .|05|13|15Dr|07e|08am Ma|07st|15er|13|05|08.
    |08 |05|13 |13|05|08
    |11 DoRE|03!|11ACiDiC|03!|11Demonic
    |08 |15dreamland|09.|15darktech|09.|15org|08

    --- Mystic BBS v1.11 A4 (Windows)
    * Origin: |08--[|15!|07dreamland BBS dreamland.darktech.org (44:100/0)
  • From dedc@44:100/0 to ignatius on Wed Nov 4 16:53:00 2015
    It just seems like that would be the easiest way for the user to select things. No, i'm not using arrays.. I probably should..

    I expanded on the original IPL docs back in the day when I was going under a different alias. It's embarassing to look at. Anyway, it doesn't look like
    IPL has much by way of directory navigation and manipulation, which would probably be the best way to implement an ANSI pack viewer. Otherwise you're stuck hardcoding a bunch of group, pack, and file names by hand...

    This is making me want to pick up Iniquity development again. Ugh.

    --- Mystic BBS v1.11 A4 (Windows)
    * Origin: |08--[|15!|07dreamland BBS dreamland.darktech.org (44:100/0)
  • From ignatius@44:100/10 to dedc on Wed Nov 4 17:46:00 2015
    |01 ۲ |LF|01 quoting |09dedc |01on |0911/04/15

    It just seems like that would be the easiest way for the user to select things. No, i'm not using arrays.. I probably should..

    I expanded on the original IPL docs back in the day when I was going under a different alias. It's embarassing to look at. Anyway, it doesn't look like IPL has much by way of directory navigation and manipulation, which would probably be the best way to implement an ANSI pack viewer. Otherwise you're stuck hardcoding a bunch of group, pack, and file names by hand...

    This is making me want to pick up Iniquity development again. Ugh.

    That's exactly what i'm having to do. Hardcoding the directories and filenames. :(

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

    --- Iniquity v2.20 Alpha [DOS]
    * Origin: catch22bbs.com >> >>> > (44:100/10)
  • From ignatius@44:100/10 to dedc on Wed Nov 4 17:54:00 2015
    |01 ۲ |LF|01 quoting |09dedc |01on |0911/04/15

    It just seems like that would be the easiest way for the user to select things. No, i'm not using arrays.. I probably should..

    I expanded on the original IPL docs back in the day when I was going under a different alias. It's embarassing to look at. Anyway, it doesn't look like IPL has much by way of directory navigation and manipulation, which would probably be the best way to implement an ANSI pack viewer. Otherwise you're stuck hardcoding a bunch of group, pack, and file names by hand...

    This is making me want to pick up Iniquity development again. Ugh.

    Could you possibly take a closer look at the code?

    Thanks, man,

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

    --- Iniquity v2.20 Alpha [DOS]
    * Origin: catch22bbs.com >> >>> > (44:100/10)
  • From dream master@44:100/0 to dedc on Wed Nov 4 18:49:00 2015
    On 11/04/15, dedc said the following...
    I expanded on the original IPL docs back in the day when I was going
    under a different alias. It's embarassing to look at. Anyway, it doesn't look like IPL has much by way of directory navigation and manipulation, which would probably be the best way to implement an ANSI pack viewer. Otherwise you're stuck hardcoding a bunch of group, pack, and file names by hand...

    plus development of iniquity is gone and done so there is not much of
    building something new with out new functions etc.....

    |08 .|05|13|15Dr|07e|08am Ma|07st|15er|13|05|08.
    |08 |05|13 |13|05|08
    |11 DoRE|03!|11ACiDiC|03!|11Demonic
    |08 |15dreamland|09.|15darktech|09.|15org|08

    --- Mystic BBS v1.11 A4 (Windows)
    * Origin: |08--[|15!|07dreamland BBS dreamland.darktech.org (44:100/0)