diff --git a/source/ide/ide_methods.bas b/source/ide/ide_methods.bas index 4d7ac85a6..791a5397e 100644 --- a/source/ide/ide_methods.bas +++ b/source/ide/ide_methods.bas @@ -1169,9 +1169,24 @@ FUNCTION ide2 (ignore) IF WhiteListQB64FirstTimeMsg = 0 THEN 'IF INSTR(_OS$, "WIN") THEN whiteListProcess$ = "and the process 'qb64.exe' " ELSE whiteListProcess$ = "" - result = idemessagebox("", "Welcome to QB64.com's QB64" + CHR$(10) + _ + + RANDOMIZE TIMER + SELECT CASE FIX(RND * 20 + 1) + CASE 1, 3, 5, 7, 9: by$ = "The Kid In Us All" + CASE 2: by$ = "Inconceivable!" + CASE 4: by$ = "Shall We Play A Game?" + CASE 6: by$ = "Late Night Coders" + CASE 8: by$ = "NOT Microsoft Corporation" + CASE 10: by$ = "Cliffs of Insanity" + CASE 12: by$ = "All Out Of Bubblegum" + CASE 14: by$ = "We Don't Need Roads" + CASE 16: by$ = "Wax On, Wax Off" + CASE 18: by$ = "Yippee Ki-yay" + CASE ELSE: by$ = "Dartmouth Didn't" ' 11, 13, 15, 17, 19 + END SELECT + result = idemessagebox("", "Welcome to The QB64 'Retro' IDE" + CHR$(10) + _ CHR$(10) + _ - "Copyright (C) The QB64.com Community, 2007-2022." + CHR$(10) + _ + "Copyright (C) " + by$ + ", 1964-2023." + CHR$(10) + _ "All rights reserved.", "#OK;#Don't show this again") PCOPY 3, 0: SCREEN , , 3, 0 @@ -5206,9 +5221,23 @@ FUNCTION ide2 (ignore) helpabout: PCOPY 2, 0 'm$ = "QB64 Version " + Version$ '+ CHR$(10) + DevChannel$ - m$ = "QB64.com's QB64" + CHR$(10) + _ + RANDOMIZE TIMER + SELECT CASE FIX(RND * 20 + 1) + CASE 1, 3, 5, 7, 9: by$ = "The Kid In Us All" + CASE 2: by$ = "Inconceivable!" + CASE 4: by$ = "Shall We Play A Game?" + CASE 6: by$ = "Late Night Coders" + CASE 8: by$ = "NOT Microsoft Corporation" + CASE 10: by$ = "Cliffs of Insanity" + CASE 12: by$ = "All Out Of Bubblegum" + CASE 14: by$ = "We Don't Need Roads" + CASE 16: by$ = "Wax On, Wax Off" + CASE 18: by$ = "Yippee Ki-yay" + CASE ELSE: by$ = "Dartmouth Didn't" ' 11, 13, 15, 17, 19 + END SELECT + m$ = "The QB64 'Retro' IDE" + CHR$(10) + _ "Version " + Version$ + CHR$(10) + _ - "Copyright (C) The QB64.com Community, 2007-2022." + "Copyright (C) " + by$ + ", 1964-2023." 'IF LEN(AutoBuildMsg$) THEN ' m$ = m$ + CHR$(10) + AutoBuildMsg$ 'ELSE