Retro/LSL1FR
Watch
1
0
Fork
You've already forked LSL1FR
 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Identifyed & renamed all logic and somes assets

Browse source
This commit is contained in:
Frater 2021-04-12 23:47:02 +02:00
commit d9bb85d0b6
126 changed files with 686 additions and 1874 deletions
Download patch file Download diff file Expand all files Collapse all files

47
src/Logic_Casino_Game_SlotMachine.lgc Normal file
View file

@ -0,0 +1,47 @@
if (isset(newRoom))
{ reset(f33); load.view(View147); load.view(View150); load.logics(Logic_Casino_GameWon); load.sound(Sound3); load.sound(Sound4); load.pic(currentRoom); draw.pic(currentRoom); discard.pic(currentRoom); animate.obj(o13); set.priority(o13, 15); set.view(o13, View147); set.loop(o13, 2); position(o13, 56, 106); animate.obj(Obj_animatedPNJ2); set.view(Obj_animatedPNJ2, View147); set.loop(Obj_animatedPNJ2, 0); set.cel(Obj_animatedPNJ2, 3); position(Obj_animatedPNJ2, 46, 87); draw(Obj_animatedPNJ2); stop.cycling(Obj_animatedPNJ2); animate.obj(Obj_animatedPNJ3); set.view(Obj_animatedPNJ3, View147); set.loop(Obj_animatedPNJ3, 0); set.cel(Obj_animatedPNJ3, 3); position(Obj_animatedPNJ3, 69, 87); draw(Obj_animatedPNJ3); stop.cycling(Obj_animatedPNJ3); animate.obj(Obj_animatedPNJ4); set.view(Obj_animatedPNJ4, View147); set.loop(Obj_animatedPNJ4, 0); set.cel(Obj_animatedPNJ4, 3); position(Obj_animatedPNJ4, 93, 87); draw(Obj_animatedPNJ4); stop.cycling(Obj_animatedPNJ4); animate.obj(Obj_animatedPNJ1); ignore.horizon(Obj_animatedPNJ1); set.view(Obj_animatedPNJ1, View147); set.loop(Obj_animatedPNJ1, 1); position(Obj_animatedPNJ1, 50, 10); show.pic(); v200 = 1; set(f201); set(f48); v207 = 2; call(Logic_Casino_GameWon); print.at("\n RESULTS " "PAYS\n|--------------------------------|\n| Cherry | | " " | 1 |\n| Cherry | Cherry | | 2 |\n| Cherry | Cherry | " "Cherry | 4 |\n|--------|--------|--------|-----|\n| Orange | " "Orange | | 2 |\n| Orange | Orange | Orange | 4 " "|\n|--------|--------|--------|-----|\n| Seven | Seven | | " " 3 |\n| Seven | Seven | Seven | 5 " "|\n|--------|--------|--------|-----|\n| Bar | Bar | Bar | " " 7 |\n|--------------------------------|\n", 2, 2, 36); print("\nPress F4 to decrease bet.\n\nPress F6 to increase bet.\n\nPress F8 " "to pull handle.\n"); set(noScript); return(); } set(f69); if (isset(f201) && controller(c4))
{ --v200; v207 = 2; call(Logic_Casino_GameWon); } if (isset(f201) && controller(c6))
{ if (v200 < 20)
{ ++v200; } else
{ print("This machine has a $20.00 limit."); } v207 = 2; call(Logic_Casino_GameWon); } if (isset(f201) && controller(c8))
{ set(f202); } if (!isset(haveInput))
{ goto(Label1); } if ((said("play") || said("move", "handle") || said("play", "slot")))
{ set(f202); } if (said("odds"))
{ v207 = 2; call(Logic_Casino_GameWon); print.at("\n RESULTS " "PAYS\n|--------------------------------|\n| Cherry | | " " | 1 |\n| Cherry | Cherry | | 2 |\n| Cherry | Cherry | " "Cherry | 4 |\n|--------|--------|--------|-----|\n| Orange | " "Orange | | 2 |\n| Orange | Orange | Orange | 4 " "|\n|--------|--------|--------|-----|\n| Seven | Seven | | " " 3 |\n| Seven | Seven | Seven | 5 " "|\n|--------|--------|--------|-----|\n| Bar | Bar | Bar | " " 7 |\n|--------------------------------|\n", 2, 2, 36); } if ((said("examine") || said("examine", "slot")))
{ print("It's an electronic slot machine. When you tire of playing, just type " "\"stop.\""); } if ((said("board") || said("examine", "area") || said("board", "slot") || said("get up") || said("board", "away") || said("board") || said("done", "play") || said("done", "game") || said("done") || said("done", "play", "slot") || said("board", "casino") || said("examine", "casino")))
{ set(f67); set(boolQuestionnaireFailedOnce); } Label1: if (isset(f202))
{ reset(f202); if (!isset(f201))
{ random(11, 13, varRandomValue); print.v(varRandomValue); } else
{ if (v200 <= 0)
{ print("You insert zero dollars, and pretend to pull the handle."); print("You win zero dollars!"); print("Is this your idea of a good time?"); } else
{ if (v200 > varInGameMoney)
{ print("You can't bet more than you have."); } else
{ varTitlePageStep = 0; set(boolTimingDelayOut); } } } } if (isset(boolTimingDelayOut))
{ reset(boolTimingDelayOut); ++varTitlePageStep; if (varTitlePageStep == 1)
{ reset(f201); set(f87); set(f93); stop.sound(); reset(f53); sound(Sound3, f40); varInGameMoney -= v200; v207 = 2; call(Logic_Casino_GameWon); start.cycling(Obj_animatedPNJ2); start.cycling(Obj_animatedPNJ3); start.cycling(Obj_animatedPNJ4); random(8, 11, varQuestionnaireTiming); } if (varTitlePageStep == 2)
{ stop.cycling(Obj_animatedPNJ2); current.cel(Obj_animatedPNJ2, varPickedQuestion1); random(8, 11, varQuestionnaireTiming); } if (varTitlePageStep == 3)
{ stop.cycling(Obj_animatedPNJ3); current.cel(Obj_animatedPNJ3, varPickedQuestion2); random(8, 11, varQuestionnaireTiming); } if (varTitlePageStep == 4)
{ stop.cycling(Obj_animatedPNJ4); current.cel(Obj_animatedPNJ4, varPickedQuestion3); varPickedQuestion4 = 0; if (varPickedQuestion1 == 0)
{ varPickedQuestion4 = 1; if (varPickedQuestion2 == varPickedQuestion1)
{ varPickedQuestion4 = 2; if (varPickedQuestion3 == varPickedQuestion1)
{ varPickedQuestion4 = 4; } } } if (varPickedQuestion1 == 1 && varPickedQuestion2 == varPickedQuestion1)
{ varPickedQuestion4 = 2; if (varPickedQuestion3 == varPickedQuestion1)
{ varPickedQuestion4 = 4; } } if (varPickedQuestion1 == 2 && varPickedQuestion2 == varPickedQuestion1)
{ varPickedQuestion4 = 3; if (varPickedQuestion3 == varPickedQuestion1)
{ varPickedQuestion4 = 5; } } if (varPickedQuestion1 == 3 && varPickedQuestion2 == varPickedQuestion1 && varPickedQuestion3 == varPickedQuestion1)
{ varPickedQuestion4 = 7; } if (varPickedQuestion4 <= 0)
{ set(f201); } else
{ v207 = 1; call(Logic_Casino_GameWon); if (varPickedQuestion4 == 1)
{ set(f201); } else
{ draw(o13); set(f53); if (varPickedQuestion4 > 1 && varPickedQuestion4 < 4)
{ varQuestionnaireTiming = 22; } else
{ draw(Obj_animatedPNJ1); if (varPickedQuestion4 < 7)
{ varQuestionnaireTiming = 22; } else
{ varQuestionnaireTiming = 44; } } } } } if (varTitlePageStep == 5)
{ erase(Obj_animatedPNJ1); erase(o13); set(f201); } if (isset(f201))
{ varTitlePageStep = 0; reset(f87); reset(f93); if (varInGameMoney <= 0)
{ reset(f201); } } } if (isset(f53) && !isset(f201))
{ sound(Sound4, f53); } if ((controller(CtrlHelp) || isset(f203)))
{ reset(f203); v207 = 2; call(Logic_Casino_GameWon); print.at("\n RESULTS " "PAYS\n|--------------------------------|\n| Cherry | | " " | 1 |\n| Cherry | Cherry | | 2 |\n| Cherry | Cherry | " "Cherry | 4 |\n|--------|--------|--------|-----|\n| Orange | " "Orange | | 2 |\n| Orange | Orange | Orange | 4 " "|\n|--------|--------|--------|-----|\n| Seven | Seven | | " " 3 |\n| Seven | Seven | Seven | 5 " "|\n|--------|--------|--------|-----|\n| Bar | Bar | Bar | " " 7 |\n|--------------------------------|\n", 2, 2, 36); print("\nPress F4 to decrease bet.\n\nPress F6 to increase bet.\n\nPress F8 " "to pull handle.\n"); } if (isset(gameRestored))
{ v207 = 2; call(Logic_Casino_GameWon); } if (isset(boolQuestionnaireFailedOnce))
{ reset(f48); reset(noScript); reset(f87); reset(f93); v76 = 31; } return(); [ Messages #message 1 "\nPress F4 to decrease bet.\n\nPress F6 to increase bet.\n\nPress F8 to pull handle.\n" #message 2 "\n RESULTS PAYS\n|--------------------------------|\n| Cherry | | | 1 |\n| Cherry | Cherry | | 2 |\n| Cherry | Cherry | Cherry | 4 |\n|--------|--------|--------|-----|\n| Orange | Orange | | 2 |\n| Orange | Orange | Orange | 4 |\n|--------|--------|--------|-----|\n| Seven | Seven | | 3 |\n| Seven | Seven | Seven | 5 |\n|--------|--------|--------|-----|\n| Bar | Bar | Bar | 7 |\n|--------------------------------|\n" #message 3 "You insert zero dollars, and pretend to pull the handle." #message 4 "You win zero dollars!" #message 5 "Is this your idea of a good time?" #message 6 "This machine has a $20.00 limit." #message 7 "You can't bet more than you have." #message 8 "It's an electronic slot machine. When you tire of playing, just type \"stop.\"" #message 9 "" #message 10 "" #message 11 "Don't be in such a hurry!" #message 12 "Slow down!" #message 13 "What are you? A \"Type-A\" personality?"