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)