'the type declares, constants, and graphic resources Type VECTOR X As Integer Y As Integer End Type Type PERSON Graphic As Variant position As VECTOR width As Integer height As Integer Frame As Integer direction As Integer orientation As Integer EmotionalState As Integer Desire As Single Commitment As Single End Type Type BUCKET Graphic As Variant Frame As Integer Allure As Single End Type Global Const TOP_OF_HILL = 650 Global Const GreatChance = 0.8 Global Const SmallChance = 0.2 Global Const SlimChance = 0.1 Global Const EvenChance = 0.5 Global Const GoodChance = 0.6 Global Const OkayChance = 0.3 Global Const FairChance = 0.4 Global Const INDECISIVE = 0 Global Const WILLING = 1 Global Const RELUCTANT = 2 Global Const FALLING = 3 Global Const BROKE_CROWN = 4 Global Const TUMBLING = 5 Global jack As PERSON Global jill As PERSON Global pail As BUCKET Global YourAttitude As Integer Global Const FEMINIST = 1 Global Const CHAUVINIST = 2 Global Const UpHill = 1 Global Const DownHill = 0 'the color pallette Global Const Ov = 0 Global Const Av = 255 Global Const Bv = 11468800 Global Const Cv = 5290239 Global Const Dv = 26879 Global Const Ev = 16777215 Global Const Fv = 11487231 Global Const Gv = 16711680 Global Const Hv = 16776960 Global Const Iv = 5251327 Global Const Jv = 144 'i didn't want to use outside resources so i cooked up this simple scheme for handling a bitmap. 'very much the way donkey kong and other z80 chip games were programmed, but in assembly of course, not BASIC Global Const jack1 = "OOOOOOAAAAOOOOOOOOOOOAAAAAAAAOOOOOOOOBBBCCCOOOOOOOOOBCCBBCBCCCOOOOOOBCCBBCCBCCCOOOOBBBCCCCBBBBOOOOOOOOCCCCCCCOOOOOOBBBBAABBOOOCCOCCBBBBAAABBBCCCOCCCOBBACAAACBCCOCCOOAAAAAAAAOBOOOOOAAAAAAAAABBOOOOAAAAAAAAAABBOOOBBBAAOOOAAABBOOOBBBOOOOOOOOOOOOOOBBBOOOOOOOOOO" Global Const jack2 = "OOOOOOOOOOOOOOOOOOOOOOOAAAAOOOOOOOOOOOAAAAAAAAOOOOOOOOBBBBCCOOOOOOOOOBCCBCCBCCCOOOOOOBCCBBCCBCCCOOOOBBBCCCCBBBBOOOOOOOOCCCCCCCOOOOOOOBBBBBAOCOOOOOOOCBBBBBBCCCOOOOOCCAABBBBCCOOOOBBAAAAAAAAAAOOOOBBAAAAAAAAAAOOOOBBAAAAOOAAAOOOOOBOOOOOOBBBOOOOOOOOOOOOOBBBBOOOO" Global Const jack3 = "OOOOOAAAAOOOOOOOOOOOAAAAAAAAOOOOOOOOBBBBCCOOOOOOOOOBCCBCCBCCCOOOOOOBCCBBCCBCCCOOOOBBBCCCCBBBBOOOOOOOOCCCCCCCOOOOOOOOBBBBBBOOOOOOOOOBBBBAABBOOOOOOOOBBBAACAAOOOOOOOOBBBBAAAAAOOOOOOOABCCCAAAAOOOOOOOAACCAAAAAOOOOOOOAAAAOAAAOOOOOOOOBBBOOBBBOOOOOOOOBBBBOBBBBOOOO" Global Const jack4 = "OAAAAOAOOOOOOOOOAAAAAAOOOOOOOOOOBBBCCOOOOOOOOOOOBCBCCCCOOOOOOOOOBCCBCCCCOOOOOOOOBBCBBBBOOOOOOOOOBCCCCCOOOOOOOOOOBCBBABOOOBBOOOOOABBBBABOOBBOOOOOBBBBAAAOOOBBOOOOBBBAAACAOABBOOOOBBBAAAAAAABBOOOOBBBAAAAAAABBOOOOCCCCAAAAAAAOOOOOCCCAAAAAAAOOOOOOCCOOAAAOOOOOOOOO" Global Const jack5 = "OOOOOOAAAAAOOOOOOOOOOAAAAAAAOOOOOOOOOBCBCBCBOOOOOOOOBCCCCCCCBOOOOOOBBCBBCBBCBBOOOCOBBCCBBBCCBBCOCCCOOBCAAOBCOOCCCCBABBABBBABBBBCOCBBBBABBBABBBBOOOOOBAAABAAABOOOOOOOOACAAACAOOOOOOBBOAAAAAAAAOBBOOBBBAAAAAAAABBBOOBBBBAAAAAABBBBOOBBBBAOOOAABBBOOOOBBBOOOOOOBBOO" Global Const jill1 = "OOOOOOOODDDDDDOOOOOOOODDDDDDDDOOOOOODDDDEEEEOODDOOODDEDEEDEEOODDOOODDEEEEEOOOODDDDDEEEEEOOODDDDDFFEEEOOOOOODDDDFFFEEFOOOODODOOFFFFFFOOOOOOOOOFFFFFOOOOOOOOOOOFFFFFFEEOOOOOOOBBBFFFEOOOOOOFFFFFFFOOOOOOFFFFFFFFFEEOFFEEFFFFFFFFFEOOFFEEEFFFFFFFOOOOFFFEEFFFFFFOOOOBBFFFEEEFFFOOOBBBBOFFFEEEEOOOOBBOOOOFFFFFOOOOOBBOOOOBBBOOOOOOOOOOOOBOBBBO" Global Const jill2 = "OOOOOOODDDDDDOOOOOOOODDDDDDDDOOOOOODDDDEEEEOODDOOODDEDEEDEEOODDOOODDEEEEEOOOODDDDDEEEEEOOODDDDDFFEEEOOOOOODDDDFFFEEFOOOODODOOFFFFFFOOOOOOOOFFFFFFFOOOOOOOFFOBBBBFFOOOOOFFOFFFFFFFFOOEEEOFFFFFFFEEOOOOOOFFFFFFFFEOOOOOFFFFFFFFFOOOOOOFFFFFFFFEEOOOOEEEFFFEEEEFFFOOFFEEEEEFFFFOBOFFFFFFFFFBBBBOOOOBBBOOOOBBBOOOOBBBOOOOOOBOOOOOOBBBOOOOOOOOO" Global Const jill3 = "OOOOOOODDDDDDOOOOOOOODDDDDDDDOOOOOODDDDEEEEOODDOOODDEDEEDEEOODDOOODDEEEEEOOOODDDDDEEEEEOOODDDDDFFEEEOOOOOODDDDFFFEEOOOOODOODOFFFFFFOOOOOOOOOFFFFFFOOOOOOOOOOFFBBOOOOOOOOOOOFFFFOOOOOOOOOOFEEFFFOOOOOOOOOFFEFFFOOOOOOOOFFFFFFFOOOOOOOOFFFFFFFOOOOOOOEEEFFFEEEOOOOOFFFFEEEFFFOOOOOFFFFFFFFFFFOOOFFFFFFFFFFFFFOOOOBBBOOOBBBOOOOOOBOBBBOBOBBBO" Global Const jill4 = "OODDODDDOOOOOOODDDDDDDDDDDDOOODDODDDDDDDDDDOODDDDDDDEEEEEOOOOODDEDDEEDEEEOOOOODDEEEEEEEOOODDDDEEEEEEOOOOODDFFEEEEOOOOFOBDDFFFEEEOOFFFOBOOFFFFFFEFFFFBBOOFFFFFFEFFFFBBOOFFFFFFEFFFFBOOOOFFFFFEFFFFBBOOOFFFFFFEFFFOOOOOEEFFFFEFFFOBOOOOEFFFFEFFFOBOOOOOFFFEFFFFBBOOOOOOOFEFFFFBOOOOOOOOOOFFFFBBOOOOOOOOOOFFFOOOOOOOOOOOOOOFOOOOOOOOOOOOOOFOO" Global Const jill5 = "OOODOOODOOODOOODOODDDODODDDOODODOOODDDDDOOODOODDDDDDDDDDDDDOOOEDDDEEEDDDEOOOEEFFEDEDEFFEEOOOFFFEEEEEFFFOOOOOFFFEDEFFFOOOOOOOFFFEFFFOOOOOOOOFFFFFFFOOOOOOOOOFFFFFOOOOOOOOOOFFFFFOOOOOOOOOEEFFFEEOOOOOOOOFEEFEEFOOOOOOOFFFFEFFFFOOOOOFFFFFFFFFFFOOOOFFFFFFFFFFFOOOBBEEFFFFFEEBBOOOBBEOOOOOEBBOOOOOBBOOOOOBBOOOOOBBOOOOOOOBBOOOOOOOOOOOOOOOOO" Global Const pail1 = "GEGGGGGGGGGGGGGGOGEGGGGGGGGGGGGOOGEGGGGGGGGGGGGOOGEGGGGGGGGGGGGOOHEHHHHHHHHHHHHOOGEGGGGGGGGGGGGOOGEGGGGGGGGGGGGOOGEGGGGGGGGGGGGOOGEGGGGGGGGGGGGOOGEGGGGGGGGGGGGOOHEHHHHHHHHHHHHOOGEGGGGGGGGGGGGOOGEGEEGEEGEEGEGOOGEGGGGGGGGGGGGOOGEGGGGGGGGGGGGOGEGGGGGGGGGGGGGG" Global Const hill = "IIIIIIIIIIIIIIIIJJJJJJJJJJJJJJJJOOIIIOOOOOIIIOOOOIIOIIOOOIIOIIOOIIOOOIIOIIOOOIIOIOOOOOIIIOOOOOIIIIIIIIIIIIIIIIIIJJJJJJJJJJJJJJJJ"

engine.frm
main.bas