'===========================================================================
' Subject: SNOW DEMO                         Date: 07-25-99 (12:02)       
' Author:  Theos                             Code: QB, QBasic, PDS        
' Origin:  santa@tir.com                   Packet: GRAPHICS.ABC
'===========================================================================
' Created By Theos.
' COPYRIGHT (C) 1998 Lab-X
' Command String Functions....
'********************** Hires/LowRes Screen modes *************************
DEFINT A-W
IF COMMAND$ = "/HIRES" THEN
  ScrMode% = 12
  ScrX% = 640
  ScrY% = 480
  JJSym% = 76
  JJSymX% = 16
  JJSymy% = 15
  SnowSpd% = 5
  SnowCol% = 15
  Snow = 200
  JJStr$ = "Created By Theos §o§ Theos.deotech@telusplanet.net"
 ELSE
  ScrMode% = 13
  ScrX% = 320
  ScrY% = 200
  JJSymX% = 13
  JJSymy% = 7
  SnowSpd% = 5
  CFlag = 1
  TCol! = 1
  Snow = 200
END IF
'********************Palette Config******************************************
'{}{}{}{Set's Screen Mode/Default Palette}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}
SCREEN ScrMode%
'{}{}{}{Set's the Snow Color}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}
OUT &H3C7, 0
  OUT &H3C9, 255
  OUT &H3C9, 255
  OUT &H3C9, 255
'{}{}{}{Set's the Text Color \HIRES ONLY}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}
OUT &H3C7, 1
  OUT &H3C9, 0
  OUT &H3C9, 0
  OUT &H3C9, 255

RANDOMIZE TIMER

Comments = 20
CurStr = 1
DIM Y(Snow)
DIM x(Snow)
DIM JJStr$(Comments)
JJStr$(0) = "§o§      Snow Demo Created By Theos        §o§"
JJStr$(1) = "§o§    Snow Demo      §o§     "
JJStr$(2) = "Created By THEOS    §o§       "
JJStr$(3) = "Well we have it outside...    "
JJStr$(4) = "Why not have it inside too... "
JJStr$(5) = "ÆËÊËÊËÊËÊËÊËÊËÊËÊËÊËÊËÊËÊËÊ˵ "
JJStr$(6) = "  COPYRIGHT (C) 1998 Lab-X    "
JJStr$(7) = "   willard@telusplanet.net    "
JJStr$(8) = "Program Version 1.2           "
JJStr$(9) = "SnowAI Version 0.20           "
JJStr$(10) = "Virtual Layering Version 0.6 "
JJStr$(11) = "Watch for New Version.....   "
JJStr$(12) = "Snow is Kewl...              "
JJStr$(13) = "ÆËÊËÊËÊËÊËÊËÊËÊËÊËÊËÊËÊËÊËÊ˵"
JJStr$(14) = "Ahhh it's Cold Outside...    "
JJStr$(15) = "yea right....                "
JJStr$(16) = "Where is my Comb...          "
JJStr$(17) = "It's GONE !!! ahhhh...       "
JJStr$(18) = "Perhaps i should calm down   "
JJStr$(19) = "Or Perhaps not...hahahaha    "
JJStr$(20) = "§o§    HAVE A NICE DAY    §o§"


FOR T = 0 TO Snow
  Y(T) = RND * ScrY%
NEXT

FOR T = 0 TO Snow
  x(T) = RND * ScrX%
NEXT

DO

  x = x - .01
  FOR T = 0 TO Snow
    Y(T) = Y(T) + RND * SnowSpd%
  NEXT

  FOR T = 0 TO Snow
    IF COMMAND$ = "/HIRES" THEN SnowColor% = 1 ELSE SnowColor% = RND * 4 + 25
    PSET (x(T) + SIN(x + T / x), Y(T)), SnowColor%
  NEXT

  WAIT &H3DA, 8
  
  SELECT CASE ScrMode%
    CASE IS = 13
      IF CurStr > Comments THEN CurStr = 1
      COLOR 2: LOCATE JJSymX%, JJSymy%: PRINT JJStr$(CurStr)
    CASE IS = 12
      COLOR 2: LOCATE JJSymX%, JJSymy%: PRINT JJStr$(0)
  END SELECT

  FOR T = 0 TO Snow
    PSET (x(T) + SIN(x + T / x), Y(T)), 0
  NEXT
  
  FOR T = 0 TO Snow
    IF Y(T) > ScrY% THEN Y(T) = 0
  NEXT

IF ScrMode% = 13 THEN
 
  SELECT CASE CFlag
    CASE IS = 0
      TCol! = TCol! - 4
    CASE IS = 1
      TCol! = TCol! + 4
  END SELECT

  IF TCol! > 240 THEN CFlag = 0
  IF TCol! < 2 THEN CFlag = 1: CurStr = CurStr + 1: x = x - 1
    OUT &H3C7, 1
      OUT &H3C9, 0
      OUT &H3C9, 0
      OUT &H3C9, TCol! * .25
END IF
IF x < -.12 THEN x = -.08

LOOP UNTIL INKEY$ <> ""