« previous next »
Pages: [1]   Go Down

Author Topic: when a goof goes trippy!  (Read 2687 times)

0 Members and 1 Guest are viewing this topic.

Offline Cobalt

  • QB64 Developer
  • Forum Resident
  • Posts: 878
  • At 60 I become highly radioactive!
    • View Profile
when a goof goes trippy!
« on: April 13, 2019, 02:24:32 pm »
Rearranging some code in my Kings Bounty project and found this little effect popped up. Looks really trippy, not that I have found what I did to create the effect, could see lots of interesting uses for it. Kind of like a Pixar movie outtake. Just hit ESC when it stops scrolling.

Code: QB64: [Select]
  1. 'Kings Bounty 64, Logo Screen Intro
  2. '2019, Feb 25, 18:10 EST
  3. '2019, Feb 26, 00:32 EST Ver 1.1a
  4. '2019, Apr 12, 10:35 EDT Final Tweaking logo intro-finished
  5. 'UniKorn ProDucKions- Cobalt
  6. 'YouTube Preview-  [youtube]https://youtu.be/NJ6gJVpzGN8[/youtube]
  7.  
  8. SCREEN _NEWIMAGE(640, 480, 32)
  9. CONST TRUE = -1, FALSE = NOT TRUE, LARGE = 1, SMALL = 2
  10. DIM SHARED Layer(24) AS LONG, Trigger(10) AS _BYTE
  11. DIM SHARED Title(3, 3) AS STRING, Names(3) AS STRING
  12. '------------------Layer constants------------------
  13. CONST MIX = 1, WINDOWS = 2, TILES = 3, BACKGROUNDS = 4, UNITS = 5, START_SCREENS = 6
  14. CONST BGCOLOR = 8, VICTORY = 9, TEMP_1 = 21, TEMP_2 = 22, TEMP_3 = 23
  15. CONST SPELLCHART = 19, VILLAINCHART = 20
  16.  
  17. Layer(0) = _DISPLAY
  18. Layer(MIX) = _NEWIMAGE(640, 480, 32) 'mix layer
  19. Layer(START_SCREENS) = _LOADIMAGE("startscreens.png", 32) 'sheet layer
  20. Layer(TEMP_2) = _NEWIMAGE(640, 480, 32) 'fade in\out layer
  21. Layer(TEMP_3) = _NEWIMAGE(640, 480, 32) 'NWC screen fade
  22. _CLEARCOLOR _RGB32(0, 0, 0), Layer(START_SCREENS)
  23. BGM& = _SNDOPEN("LogoScreen002a.ogg")
  24. FOR i%% = 0 TO 10
  25.  Trigger(i%%) = FALSE
  26. NEXT i%%
  28. _TITLE "Kings Bounty 64- Logo Intro"
  29. 'IF BGM& THEN _SNDPLAY BGM&
  30. 'Start_Logos
  31. Fade_In_Character_Screen
  32. Character_Selection_Screen
  34.  
  35. Names:
  36. DATA "Sir Crimsaun","Lord Palmer","Tynnestra","Mad Moham"
  37. Titles:
  38. DATA "Knight","General","Marshal","Lord"
  39. DATA "Paladin","Crusader","Avenger","Champion"
  40. DATA "Sorceress","Magcian","Mage","Archmage"
  41. DATA "Barbarian","Chieftain","Warlord","Overlord"
  42.  
  43. RESTORE Names
  44. FOR i%% = 0 TO 3
  45.  READ Names(i%%)
  46. NEXT i%%
  47. RESTORE Titles
  48. FOR i%% = 0 TO 3
  49.  FOR j%% = 0 TO 3
  50.   READ Title(i%%, j%%)
  51.  NEXT j%%
  52. NEXT i%%
  53.  
  54.  
  55. SUB Character_Selection_Screen
  56.  'place 'zoomed' image onto temp layer to save speed later
  57.  _PUTIMAGE (0, 16)-STEP(639, 447), Layer(START_SCREENS), Layer(TEMP_3), (0, 448)-STEP(319, 223)
  58.  _DEST Layer(TEMP_3)
  59.  LINE (0, 0)-STEP(639, 15), _RGB32(1, 1, 1), BF
  60.  LINE (0, 464)-STEP(639, 15), _RGB32(1, 1, 1), BF
  61.  _DEST Layer(0)
  62.  _CLEARCOLOR _RGB32(32, 160, 224), Layer(TEMP_3)
  63.  
  64.  FOR i%% = 0 TO 10: Trigger(i%%) = FALSE: NEXT i%%
  65.  DO
  66.   KBD& = _KEYHIT
  67.  
  68.   IF Trigger(0) THEN
  69.    SELECT CASE KBD&
  70.     CASE Control.Start_Button
  71.      IF Trigger(1) THEN Difficulty%% = Selection%%: ExitFlag%% = TRUE
  72.      IF NOT Trigger(1) AND Selection%% <> 4 THEN Trigger(1) = TRUE: Character%% = Selection%%: Selection%% = 1: _PUTIMAGE , Layer(0), Layer(TEMP_1)
  73.      _KEYCLEAR
  74.     CASE Control.Up_Key
  75.      Selection%% = Selection%% - 1
  76.      IF NOT Trigger(1) THEN
  77.       IF Selection%% = -1 THEN Selection%% = 4
  78.      ELSE
  79.       IF Selection%% = -1 THEN Selection%% = 3
  80.      END IF
  81.     CASE Control.Down_Key
  82.      Selection%% = Selection%% + 1
  83.      IF NOT Trigger(1) THEN
  84.       IF Selection%% = 5 THEN Selection%% = 0
  85.      ELSE
  86.       IF Selection%% = 4 THEN Selection%% = 0
  87.      END IF
  88.     CASE MASTERESC
  89.      ExitFlag%% = TRUE
  90.    END SELECT
  91.   END IF
  92.  
  93.   IF NOT Trigger(0) THEN Scroll_Credits
  94.   IF NOT Trigger(0) AND KBD& THEN Trigger(0) = TRUE: Selection%% = 0 'stop credits and pick character
  95.   IF Trigger(0) AND NOT Trigger(1) THEN Draw_Character_Selection Selection%%
  96.   IF Trigger(1) THEN Draw_Difficulty_Selection Selection%%
  97.  
  98.   _PUTIMAGE , Layer(MIX), Layer(0)
  99.   _DELAY .030
  100.   IF INKEY$ = CHR$(27) THEN ExitFlag%% = TRUE
  101.  LOOP UNTIL ExitFlag%%
  103.  
  104.  
  105. SUB Scroll_Credits
  106.  STATIC ScrollY%, StartFlag%%
  107.  IF NOT StartFlag%% THEN ScrollY% = 320: StartFlag%% = TRUE
  108.  _PUTIMAGE , Layer(TEMP_2), Layer(MIX)
  109.  _PUTIMAGE (0, ScrollY%), Layer(TEMP_1), Layer(MIX)
  110.  _PUTIMAGE , Layer(TEMP_3), Layer(MIX)
  111.  ScrollY% = ScrollY% - 1
  112.  IF ScrollY% <= -500 THEN ScrollY% = 220
  114.  
  115. SUB Draw_Character_Selection (who%%)
  116.  _PUTIMAGE (0, 16)-STEP(639, 447), Layer(START_SCREENS), Layer(MIX), (0, 448)-STEP(319, 223)
  117.  _PUTIMAGE (16, 400)-STEP(605, 47), Layer(START_SCREENS), Layer(MIX), (320, 448)-STEP(303, 23)
  118.  _PUTIMAGE (112, 32)-STEP(431, 47), Layer(START_SCREENS), Layer(MIX), (320, 472)-STEP(215, 23)
  119.  KB_Print 304, 416, "Select Character and Press Start", 0, CENTER
  120.  IF who%% < 4 THEN a$ = RTRIM$(Names(who%%)) + " the " + RTRIM$(Title(who%%, 0)) ELSE a$ = "Load Saved Game"
  121.  KB_Print 312, 48, a$, 0, CENTER
  123.  
  124. SUB Draw_Difficulty_Selection (What%%)
  125.  _PUTIMAGE , Layer(TEMP_1), Layer(MIX)
  126.  _PUTIMAGE (112, 176)-STEP(431, 127), Layer(START_SCREENS), Layer(MIX), (320, 496)-STEP(215, 63)
  127.  KB_Print 128, 192, "Difficulty   Days  Score", 0, LEFT
  128.  KB_Print 128, 224, " Easy         900   x.5", 0, LEFT
  129.  KB_Print 128, 240, " Normal       600    x1", 0, LEFT
  130.  KB_Print 128, 256, " Hard         400    x2", 0, LEFT
  131.  KB_Print 128, 272, " Impossible?  200    x4", 0, LEFT
  132.  Display_Selection_Arrow 128, 222 + (16 * What%%)
  134.  
  135. SUB Make_Credit_Scroll
  136.  '-------------Setup Credit scroll----------------
  137.  KB_Print 72, 16, "King's Bounty Designed By:", 0, LEFT
  138.  KB_Print 72, 32, " Jon Van Caneghem", 0, LEFT
  139.  KB_Print 72, 64, "Programed By:", 0, LEFT
  140.  KB_Print 72, 80, " Andrew Caldwell", 0, LEFT
  141.  KB_Print 72, 112, "Programed By:", 0, LEFT
  142.  KB_Print 72, 128, " Mark Caldwell (no relation)", 0, LEFT
  143.  KB_Print 72, 144, " Douglas Grounds", 0, LEFT
  144.  KB_Print 72, 160, " Jill Bagley", 0, LEFT
  145.  KB_Print 72, 192, "Graphics By:", 0, LEFT
  146.  KB_Print 72, 208, " Bonita Long-Hemsath", 0, LEFT
  147.  KB_Print 72, 224, " Kenneth L. Mayfield", 0, LEFT
  148.  KB_Print 296, 256, "Copyright 1990,1991", 0, CENTER
  149.  KB_Print 296, 272, "New World Computing, Inc", 0, CENTER
  150.  KB_Print 296, 288, "All Rights Reserved", 0, CENTER
  151.  KB_Print 72, 320, "QB64 Clone Programed By:", 0, LEFT
  152.  KB_Print 72, 336, " Cobalt (aka David)", 0, LEFT
  153.  KB_Print 72, 368, "Music By:", 0, LEFT
  154.  KB_Print 72, 384, " Atom Music Audio-'Dark Star'", 0, LEFT
  155.  KB_Print 296, 416, "QB64 Source Copyright 2019", 0, CENTER
  156.  KB_Print 296, 432, "UniKorn ProDucKions", 0, CENTER
  157.  KB_Print 296, 448, "All Rights Reserved", 0, CENTER
  158.  
  159.  '------------------------------------------------
  160.  'place credit text on temp layer for scroll
  161.  _PUTIMAGE , Layer(MIX), Layer(TEMP_1)
  162.  _CLEARCOLOR _RGB32(0, 0, 0), Layer(TEMP_1)
  164.  
  165. SUB Selection_Background_Setup
  166.  'setup background color for character selection screen
  167.  _DEST Layer(TEMP_2)
  168.  LINE (0, 16)-STEP(639, 447), _RGB32(32, 160, 224), BF
  169.  _DEST Layer(0)
  170.  '-----------------------------------------------------
  172.  
  173.  
  174.  
  175.  
  176.  
  177.  
  178.  
  179. SUB Start_Logos
  180.  DO
  181.   Tick! = INT(_SNDGETPOS(BGM&) * 1000) / 1000
  182.   IF Tick! >= .22 AND Trigger(0) = FALSE THEN Fade_In_UKP_Logo: Trigger(0) = TRUE
  183.   IF Tick! >= 6.14 AND Trigger(1) = FALSE THEN Fade_Out_UKP_Logo: Trigger(1) = TRUE
  184.   IF Tick! >= 10.65 AND Trigger(2) = FALSE THEN Fade_In_EA_Logo: Trigger(2) = TRUE
  185.   IF Tick! >= 16.46 AND Trigger(3) = FALSE THEN Fade_Out_EA_Logo: Trigger(3) = TRUE
  186.   IF Tick! >= 20.88 AND Trigger(4) = FALSE THEN Fade_In_NWC_Planet: Trigger(4) = TRUE
  187.   IF Tick! >= 26.81 AND Trigger(5) = FALSE THEN Drop_NWC_Sword: _PUTIMAGE , Layer(0), Layer(TEMP_2): Trigger(5) = TRUE
  188.   IF Tick! >= 28.83 AND Trigger(6) = FALSE THEN Raise_NWC_Logo: _PUTIMAGE , Layer(0), Layer(TEMP_2): Trigger(6) = TRUE
  189.   IF Tick! >= 32.1 AND Trigger(7) = FALSE THEN
  190.    IF NOT In_Sparkle%% THEN
  191.     IF INT(RND * 100) + 1 >= 91 THEN
  192.      x% = INT(RND * 560) + 28
  193.      y% = INT(RND * 48) + 208
  194.      IF INT(RND * 100) + 1 >= 51 THEN s% = LARGE ELSE s% = SMALL
  195.      In_Sparkle%% = 5
  196.     END IF
  197.    END IF
  198.    _PUTIMAGE , Layer(TEMP_2), Layer(MIX)
  199.    IF In_Sparkle%% THEN
  200.     Sparkle x%, y%, s%
  201.     In_Sparkle%% = In_Sparkle%% - 1
  202.    END IF
  203.    _PUTIMAGE , Layer(MIX), Layer(0)
  204.    IF In_Sparkle%% THEN _DELAY .1 ELSE _DELAY .025
  205.   END IF
  206.  
  207.   IF Tick! > 40.1 AND Trigger(8) = FALSE THEN
  208.    Trigger(7) = TRUE: Trigger(8) = TRUE
  209.    _PUTIMAGE , Layer(0), Layer(TEMP_3): ClearLayer 23
  210.    Fade_Out_NWC_Logo
  211.   END IF
  212.  
  213.   IF Tick! > 41.0 AND Trigger(9) = FALSE THEN Fade_In_KB_Title: Trigger(9) = TRUE
  214.   IF Tick! > 64.5 AND Trigger(10) = FALSE THEN Fade_Out_KB_Title: Trigger(10) = TRUE
  215.   _DELAY .001
  216.   LOCATE 1, 1: PRINT Tick!
  217.   IF INKEY$ = CHR$(27) THEN _SNDSTOP BGM&
  220.  
  221. SUB Fade_In_Character_Screen
  222.  FOR i%% = 0 TO 63 STEP 2
  223.   _PUTIMAGE (0, 16)-STEP(639, 447), Layer(START_SCREENS), Layer(MIX), (0, 448)-STEP(319, 223)
  224.   _SETALPHA 255 - i%% * 4, , Layer(TEMP_2)
  225.   _PUTIMAGE , Layer(TEMP_2), Layer(MIX)
  226.   _PUTIMAGE , Layer(MIX), Layer(0)
  227.   _DELAY .025
  228.  NEXT i%%
  230.  
  231. SUB Sparkle (X%, Y%, S%)
  232.  STATIC Sparkle_Frame%%, Count_up%%
  233.  'large sparkle
  234.  IF S% = LARGE THEN
  235.   _PUTIMAGE (X%, Y%), Layer(START_SCREENS), Layer(MIX), (136 - Sparkle_Frame%% * 26, 420)-STEP(26, 26)
  236.  ELSEIF S% = SMALL THEN
  237.   _PUTIMAGE (X%, Y%), Layer(START_SCREENS), Layer(MIX), (194 - Sparkle_Frame%% * 15, 433)-STEP(14, 14)
  239.  IF NOT Count_up%% THEN Sparkle_Frame%% = Sparkle_Frame%% + 1 ELSE Sparkle_Frame%% = Sparkle_Frame%% - 1
  240.  IF Sparkle_Frame%% = 2 THEN Count_up%% = TRUE
  241.  IF Sparkle_Frame%% = 0 THEN Count_up%% = FALSE
  243.  
  244. SUB Fade_In_UKP_Logo
  245.  FOR i%% = 0 TO 63 STEP 2
  246.   _PUTIMAGE (0, 0), Layer(START_SCREENS), Layer(MIX), (0, 672)-STEP(639, 479)
  247.   _SETALPHA 255 - i%% * 4, , Layer(3)
  248.   _PUTIMAGE , Layer(TEMP_2), Layer(MIX)
  249.   _PUTIMAGE , Layer(MIX), Layer(0)
  250.   _DELAY .025
  251.  NEXT i%%
  253.  
  254. SUB Fade_Out_UKP_Logo
  255.  FOR i%% = 63 TO 0 STEP -3
  256.   _PUTIMAGE (0, 0), Layer(START_SCREENS), Layer(MIX), (0, 672)-STEP(639, 479)
  257.   _SETALPHA 255 - i%% * 4, , Layer(TEMP_2)
  258.   _PUTIMAGE , Layer(TEMP_2), Layer(MIX)
  259.   _PUTIMAGE , Layer(MIX), Layer(0)
  260.   _DELAY .05
  261.  NEXT i%%
  263.  
  264. SUB Fade_In_EA_Logo
  265.  FOR i%% = 0 TO 63 STEP 1
  266.   _PUTIMAGE (0, 16)-STEP(639, 447), Layer(START_SCREENS), Layer(MIX), (0, 0)-STEP(319, 223)
  267.   _SETALPHA 255 - i%% * 4, , Layer(TEMP_2)
  268.   _PUTIMAGE , Layer(TEMP_2), Layer(MIX)
  269.   _PUTIMAGE , Layer(MIX), Layer(0)
  270.   _DELAY .015
  271.  NEXT i%%
  273.  
  274. SUB Fade_Out_EA_Logo
  275.  FOR i%% = 63 TO 0 STEP -3
  276.   _PUTIMAGE (0, 16)-STEP(639, 447), Layer(START_SCREENS), Layer(MIX), (0, 0)-STEP(319, 223)
  277.   _SETALPHA 255 - i%% * 4, , Layer(TEMP_2)
  278.   _PUTIMAGE , Layer(TEMP_2), Layer(MIX)
  279.   _PUTIMAGE , Layer(MIX), Layer(0)
  280.   _DELAY .05
  281.  NEXT i%%
  283.  
  284. SUB Fade_In_NWC_Planet
  285.  FOR i%% = 0 TO 63 STEP 1
  286.   _PUTIMAGE (0, 16)-STEP(639, 447), Layer(START_SCREENS), Layer(MIX), (320, 0)-STEP(319, 223)
  287.   _SETALPHA 255 - i%% * 4, , Layer(TEMP_2)
  288.   _PUTIMAGE , Layer(TEMP_2), Layer(MIX)
  289.   _PUTIMAGE , Layer(MIX), Layer(0)
  290.   _DELAY .025
  291.  NEXT i%%
  293.  
  294. SUB Drop_NWC_Sword
  295.  _SETALPHA 255, , Layer(TEMP_2)
  296.  FOR i%% = 0 TO 54 STEP 1
  297.   _PUTIMAGE (376 - Xo%, -400 + Yo%)-STEP(141, 395), Layer(START_SCREENS), Layer(MIX), (0, 250)-STEP(70, 197)
  298.   _PUTIMAGE (0, 16)-STEP(639, 447), Layer(START_SCREENS), Layer(MIX), (320, 0)-STEP(319, 223)
  299.   _PUTIMAGE , Layer(MIX), Layer(0)
  300.   _PUTIMAGE , Layer(TEMP_2), Layer(MIX)
  301.   _DELAY .004
  302.   Xo% = Xo% + 2
  303.   Yo% = Yo% + 8
  304.  NEXT i%%
  306.  
  307. SUB Raise_NWC_Logo
  308.  FOR i%% = 0 TO 66 STEP 1
  309.   _PUTIMAGE , Layer(TEMP_2), Layer(MIX)
  310.   _PUTIMAGE (31, 580 - Yo%)-STEP(260, 102), Layer(START_SCREENS), Layer(MIX), (104, 250)-STEP(130, 51)
  311.   _PUTIMAGE (294, 614 - Yo%)-STEP(321, 53), Layer(START_SCREENS), Layer(MIX), (104, 302)-STEP(161, 27)
  312.   _PUTIMAGE , Layer(MIX), Layer(0)
  313.   Yo% = Yo% + 6
  314.   _DELAY .04
  315.  NEXT i%%
  317.  
  318. SUB Fade_Out_NWC_Logo
  319.  FOR i%% = 63 TO 0 STEP -3
  320.   _PUTIMAGE , Layer(TEMP_3), Layer(MIX)
  321.   _SETALPHA 255 - i%% * 4, , Layer(TEMP_2)
  322.   _PUTIMAGE , Layer(TEMP_2), Layer(MIX)
  323.   _PUTIMAGE , Layer(MIX), Layer(0)
  324.   _DELAY .001
  325.  NEXT i%%
  327.  
  328. SUB Fade_In_KB_Title
  329.  FOR i%% = 0 TO 63 STEP 1
  330.   _PUTIMAGE (0, 16)-STEP(639, 447), Layer(START_SCREENS), Layer(MIX), (320, 224)-STEP(319, 223)
  331.   _SETALPHA 255 - i%% * 4, , Layer(TEMP_2)
  332.   _PUTIMAGE , Layer(TEMP_2), Layer(MIX)
  333.   _PUTIMAGE , Layer(MIX), Layer(0)
  334.   _DELAY .06
  335.  NEXT i%%
  337.  
  338. SUB Fade_Out_KB_Title
  339.  FOR i%% = 63 TO 0 STEP -1
  340.   _PUTIMAGE (0, 16)-STEP(639, 447), Layer(START_SCREENS), Layer(MIX), (320, 224)-STEP(319, 223)
  341.   _SETALPHA 255 - i%% * 4, , Layer(TEMP_2)
  342.   _PUTIMAGE , Layer(TEMP_2), Layer(MIX)
  343.   _PUTIMAGE , Layer(MIX), Layer(0)
  344.   _DELAY .05
  345.  NEXT i%%
  347.  
  348. SUB KB_Print (x%, y%, Txt$, Null%%, Aline%%)
  349.  Xo% = 0: Yo% = 672 'sheet offsets
  350.  Mx%% = LEN(Txt$)
  351.  IF Aline%% = RIGHT THEN Ax% = LEN(Txt$) * 16: x% = x% - Ax%
  352.  IF Aline%% = CENTER THEN Ax% = LEN(Txt$) * 8: x% = x% - Ax%
  353.  FOR i~%% = 1 TO Mx%%
  354.   IF ASC(MID$(Txt$, i~%%, 1)) > 127 THEN Yo% = 680: So% = (ASC(MID$(Txt$, i~%%, 1)) - 158) * 8 ELSE Yo% = 672: So% = (ASC(MID$(Txt$, i~%%, 1)) - 31) * 8
  355.   _PUTIMAGE (x% + (i~%% * 16), y%)-STEP(15, 15), Layer(START_SCREENS), Layer(MIX), (Xo% + So%, Yo%)-STEP(7, 7)
  356.  NEXT i~%%
  358.  
  359. SUB KB_Print_Wrap (X%, Y%, txt$, MaxX%)
  360.  DIM Lines(10) AS STRING
  361.  'max number of characters with Wrap max of MaxX%%
  362.  IF MaxX% THEN SMx%% = INT(MaxX% / 16) ELSE SMx%% = LEN(txt$)
  363.  
  364.  Finished%% = FALSE
  365.  DO
  366.   Mx%% = SMx%% 'restore Mx to Starting Mx(Mx= Max X length in pixels)
  367.   IF MID$(txt$, Mx%%, 1) = " " THEN
  368.    ' text is nice enough to land on a space
  369.    j%% = j%% + 1
  370.    Lines(j%%) = LEFT$(txt$, Mx%%)
  371.    txt$ = MID$(txt$, Mx%% + 1)
  372.   ELSE
  373.    ' back track to find first space
  374.    Found%% = FALSE
  375.    DO
  376.     IF MID$(txt$, Mx%%, 1) = " " THEN Found%% = TRUE ELSE Mx%% = Mx%% - 1
  377.    LOOP UNTIL Found%%
  378.    j%% = j%% + 1 'set to next line
  379.    Lines(j%%) = MID$(txt$, 1, Mx%%)
  380.    txt$ = MID$(txt$, Mx%% + 1) 'reduce string length
  381.   END IF
  382.   IF RTRIM$(txt$) = "" THEN Finished%% = TRUE
  383.  LOOP UNTIL Finished%%
  384.  
  385.  'print wraped lines
  386.  FOR I%% = 1 TO j%%
  387.   KB_Print X%, Y%, Lines(I%%), 0, LEFT
  388.   Y% = Y% + 16
  389.  NEXT I%%
  391.  
  392. FUNCTION Special_K_Value$ (Value~%)
  393.  IF Value~% > 1000 THEN
  394.   Result$ = LTRIM$(STR$(INT(Value~% \ 1000)))
  395.   Result$ = Result$ + "K"
  397.   Result$ = LTRIM$(STR$(Value~%))
  399.  Special_K_Value = Result$
  401.  
  402. SUB ClearLayer (id%%)
  403.  old& = _DEST
  404.  _DEST Layer(id%%)
  405.  CLS
  406.  _DEST old&
  408.  
  409. SUB Display_Selection_Arrow (X%, Y%)
  410.  _PUTIMAGE (X%, Y%)-STEP(23, 15), Layer(START_SCREENS), Layer(MIX), (388 + G.Window_Animation * 12, 216)-STEP(11, 7)
  412.  
Logged
Granted after becoming radioactive I only have a half-life!
Pages: [1]   Go Up
« previous next »