'C:\Program Files\Liberty BASIC v3.03\bak\TreasureHunterbackup1.bak - Saved by Liberty BASIC
'before running. You should delete these lines and save
'this file as a *.BAS file before using.
'-----------------------------------------------------

5 mainwin 200 30
7 g=1000000
10 print "Welcome"
20 print "Which of the Following would you Like to do?"
30 print "1)  Play"
40 print "2)  Get Help/Information on the Game"
50 print "3)  Quit"
60 print "(1-3)  ";: input a
62 if a = 1 then goto 100
64 if a = 2 then goto 200
66 if a = 3 then print:print "Seeya Later!":end
70 print "Please pick a number between 1-3...":goto 60
100 print:print "Ok.  Let's Play!"
102 gosub 199:gosub 198
110 print: print "The first thing you want to do is Place Points in your stats.":print "You can place them anywhere in any way you see fit, and remember you can always reset them by typing 100."
112 i=int(rnd(1)*3)+16:i1=i:print:print "You have ";i;" points to place in the following Skills:":Print "STR - Strength  INT - Intelligence  DEX - Dexterity  CON - Constitution"
113 goto 148
114 if i1=0 then 145
115 print:print "1) Strength"
116 print "2) Intelligence"
117 print "3) Dexterity"
118 print "4) Constitution"
119 Print "(Points = ";i1;")  Which Score Would you like to raise? (1-4)";:input a
120 if a=1 then sco$="STR":atr=1:goto 125
121 if a=2 then sco$="INT":atr=2:goto 125
122 if a=3 then sco$="DEX":atr=3:goto 125
123 if a=4 then sco$="CON":atr=4:goto 125
124 print:print "Choose 1-4":Goto 113
125 print:print "How many points would you like to place in ";sco$;"?":print "(0 to cancel, 100 to Reset the Score to 0)";:input p
126 if p =100 then print:print "You have reset the ";sco$;" score.":goto 138
127 if p>i1 then print:print "Not Enough Points.  You have ";i1;" Points":goto 125
128 if p = 0 then Goto 113
129 if atr=1 then str=str+p:i1=i1-p:h=0:gosub 135:Goto 113
130 if atr=2 then int=int+p:i1=i1-p:h=0:gosub 135:Goto 113
132 if atr=3 then dex=dex+p:i1=i1-p:h=0:gosub 135:Goto 113
134 if atr=4 then con=con+p:i1=i1-p:h=0:gosub 135:Goto 113
135 print:print "STR = ";str;"  INT = ";int;"  DEX = ";dex;"  CON = ";con;"."
136 return
138 if atr=1 then i1=i1+str:str=0:gosub 135:Goto 113
140 if atr=2 then i1=i1+int:int=0:gosub 135:Goto 113
142 if atr=3 then i1=i1+dex:dex=0:gosub 135:Goto 113
144 if atr=4 then i1=i1+con:con=0:gosub 135:Goto 113
145 print:print "You have used all your points.":gosub 135:print:print "Is this Acceptable? (Y/N)";:input a$:if a$="Y" then 150
146 if a$="N" then print:print "Go back and type 100 to reset your scores to what you would like then.":h=1:goto 113
147 goto 145
148 if h=1 then goto 115
149 goto 114
150 Print:print "Great!  The First Step is over.":gosub 199:gosub 198
155 Print:Print "Step 2 is to Choose a Race:"
156       print "1) Human        (Adjustment:  none)"
157       print "2) Gwarve       (Adjustment:  +5 hp per level, +2 STR, -2 INT, -2 DEX)"
158       print "3) Forest Elf   (Adjustment:  +3 AGI, -2 STR, -1 CON)"
160       print "4) Ograna       (Adjustment:  +10 hp per level, -10 mp per level)"
161       print "5) Mind Flayer  (Adjustment:  +10 mp per level, -10 hp per level)"
162       print:print "Consider the adjustments carefully when making your character."
164       print "Please choose 1-5)";:input a
166 if a=1 then rc$="Human":lvmod=0:print:PRINT "You have choosen Human.":goto 176
168 if a=2 then rc$="Gwarve":lvmod=1:print:PRINT  "You have choosen Gwarve.":goto 176
169 if a=3 then rc$="Forest Elf":lvmod=2:print:PRINT  "You have choosen Forest Elf.":goto 176
170 if a=4 then rc$="Ograna":lvmod=3:print:PRINT  "You have choosen Ograna.":goto 176
172 if a=5 then rc$="Mind Flayer":lvmod=4:print:PRINT  "You have choosen Mind Flayer.":goto 176
175 goto 164
176 hp=int(rnd(1)*20)+20:mp=int(rnd(1)*10)+20
177 if lvmod =1 then hp=hp+5:str=str+2:int=int-2:dex=dex-2
178 if lvmod=2 then agi=agi+3:str=str-2:con=con-1
179 if lvmod=3 then hp=hp+10:mp=mp-10:if mp <0 then mp =0
180 if lvmod=4 then mp=mp+10:hp=hp-10:if hp<0 then hp=0
185 gosub 198:tmp=mp:thp=hp:print:print "What do you want to Name this Character?";:input nm$
186 print:print "Congradulations you have created your Character!":print"Welcome, ";nm$;", to Treasure Hunter."
187 gosub 199:gosub 198:goto 300
198 print "**********************************************************************":return
199 Print:print "Please Press Enter";:input R$:return
200 print:print "Help/Rules/Information":end
300 gosub 198:print:print "Please Choose a Difficulty Level."
302       print "Level                             Amount Needed to Win"
304       print "1) Alcolyte                    10.000.000 (ten million)"
305       print "2) Underling                   50.000.000 (fifty million)"
307       print "3) Master                     100.000.000 (one hundred million)"
308       print "4) Veteran                    500.000.000 (five hundred million)"
309       print "5) Slayer                   1.000.000.000 (one billion)"
310       print "6) Knight Master           50.000.000.000 (fifty billion)"
311       print "7) Sword Master           500.000.000.000 (five hundred billion)"
312       print "8) Grand Master       100.000.000.000.000 (one hundred trillion)"
314       print "9) Arch-Diety         500.000.000.000.000 (five hundred trillion)"
315       print "10) Almighty      500.000.000.000.000.000 (five hundred gajillionbillionzillion)"
320 print:print "Which level of difficulty would you like (ie, amount of money needed to win) (1-10)";:input a:if a=1 then tn=10000000
321 if a=2 then  tn=        50000000:goto 333
322 if a=3 then  tn=       100000000:goto 333
323 if a=4 then  tn=       500000000:goto 333
324 if a=5 then  tn=      1000000000:goto 333
325 if a=6 then  tn=     50000000000:goto 333
326 if a=7 then  tn=    500000000000:goto 333
327 if a=8 then  tn=  100000000000000:goto 333
328 if a=9 then  tn=500000000000000:goto 333
329 if a=10 then tn=500000000000000000:goto 333
330 goto 320
333 print:print "Your current Stats:"
334 Print "Name: ";nm$:print "Race: ";rc$
335 gosub 135
336 print:print "Your Hit Points are    ";hp
337 print       "Your Magic Points are  ";mp
338 print:print "You need ";tn;" Gold to win."
339 gosub 199:cls:gosub 198
340 print:print "Welcome To the Capital City of Krynn.":print:print "Current Weather conditions:":gosub 2920
350 Rem Outside the Capital City of Krynn
351 print:print "Info":gosub 2675
355 Print:print "From here you can go:"
356 print "{N}orth to Northern Forest of Krynn"
357 print "{S}outh to the Southern Forest of Krynn"
358 print "{SW}outhwest to the Southern Forest of Krynn"
360 print "{E}ast to Ohnshun De'Lak Moore (Lowlands of Sorrow)"
362 print "{W}est to the Vonaryn River"
365 print "{EN}ter the City of Krynn"
367 print:print "(N,S,SE,E,W,EN)";:input a$:if a$="N" then 420
368 if a$="SE" then 2510
369 if a$="status" or a$="Status" or a$="STATUS" then gosub 1000
370 if a$="S" then 2525
372 if a$="E" then print:print "Uncharted"
374 if a$="W" then 2565
375 if a$="EN" then print:print "Uncharted"
376 goto 367
400 Rem Krynn Forest North 1
401 print:print "Info":gosub 2700
405 print:print "You can go {N}{E}{NE}";:input a$:if a$="N" then 450
412 if a$="status" or a$="Status" or a$="STATUS" then gosub 1000
414 if a$="E" then 420
416 if a$="NE" then 460
418 goto 405
420 Rem 2
421 print:print "Info":gosub 2700
422 print:print "You can go {N}{S}{E}{W}{NE}{NW}";:input a$:if a$="N" then 460
423 if a$="status" or a$="Status" or a$="STATUS" then gosub 1000
424 if a$="S" then 340
425 if a$="E" then 430
426 if a$="W" then 400
427 if a$="NW" then 450
428 if a$="NE" then 475
429 goto 422
430 Rem 3
431 print:print "Info":gosub 2700
432 print:print "You can go {N}{E}{W}{NE}{NW}";:input a$:if a$="N" then 475
433 if a$="status" or a$="Status" or a$="STATUS" then gosub 1000
434 if a$="E" then 440
435 if a$="W" then 420
436 if a$="NW" then 460
437 if a$="NE" then 490
438 goto 432
440 Rem 4
442 print:print "Info":gosub 2700
443 print:print "You can go {N}{W}{NW}";:input a$:if a$="N" then 490
444 if a$="status" or a$="Status" or a$="STATUS" then gosub 1000
445 if a$="W" then 430
446 if a$="NW" then 475
448 goto 443
450 Rem 5
452 print:print "Info":gosub 2700
453 print:print "You can go {N}{S}{E}{SE}{NE}";:input a$:if a$="N" then 505
454 if a$="status" or a$="Status" or a$="STATUS" then gosub 1000
455 if a$="S" then 400
456 if a$="E" then 460
457 if a$="NE" then 520
458 if a$="SE" then 420
459 goto 453
460 Rem 6
461 print:print "Info":gosub 2700
462 print:print "You can go {N}{S}{E}{W}{SW}{SE}{NE}{NW}";:input a$:if a$="N" then 520
464 if a$="status" or a$="Status" or a$="STATUS" then gosub 1000
465 if a$="S" then 420
466 if a$="E" then 475
467 if a$="W" then 450
468 if a$="SW" then 400
469 if a$="NW" then 505
470 if a$="NE" then 535
471 if a$="SE" then 430
472 goto 462
475 Rem 7
476 print:print "Info":gosub 2700
478 print:print "You can go {N}{S}{E}{W}{SW}{SE}{NE}{NW}";:input a$:if a$="N" then 535
480 if a$="status" or a$="Status" or a$="STATUS" then gosub 1000
481 if a$="S" then 430
482 if a$="E" then 490
483 if a$="W" then 460
484 if a$="SW" then 420
485 if a$="NW" then 520
486 if a$="NE" then 552
487 if a$="SE" then 440
488 goto 478
490 Rem 8
492 print:print "Info":gosub 2700
493 print:print "You can go {N}{S}{W}{SW}{NW}";:input a$:if a$="N" then 552
494 if a$="status" or a$="Status" or a$="STATUS" then gosub 1000
495 if a$="S" then 440
497 if a$="W" then 475
498 if a$="SW" then 430
499 if a$="NW" then 535
502 goto 493
505 Rem 9
506 print:print "Info":gosub 2700
507 print:print "You can go {N}{S}{E}{SE}";:input a$:if a$="N" then 570
508 if a$="status" or a$="Status" or a$="STATUS" then gosub 1000
509 if a$="S" then 450
510 if a$="E" then 520
515 if a$="SE" then 460
516 goto 507
520 Rem 10
522 print:print "Info":gosub 2700
523 print:print "You can go {N}{S}{E}{W}{SW}{SE}{NE}";:input a$:if a$="N" then 581
524 if a$="status" or a$="Status" or a$="STATUS" then gosub 1000
525 if a$="S" then 460
526 if a$="E" then 535
527 if a$="W" then 505
528 if a$="SW" then 450
529 if a$="NE" then 595
530 if a$="SE" then 474
532 goto 523
535 Rem 11
536 print:print "Info":gosub 2700
538 print:print "You can go {N}{S}{E}{W}{SW}{SE}{NW}";:input a$:if a$="N" then 595
539 if a$="status" or a$="Status" or a$="STATUS" then gosub 1000
540 if a$="S" then 475
542 if a$="E" then 552
543 if a$="W" then 520
544 if a$="SW" then 475
545 if a$="NW" then 581
549 if a$="SE" then 490
550 goto 538
552 Rem 12
554 print:print "Info":gosub 2700
556 print:print "You can go {N}{S}{W}{SW}";:input a$:if a$="N" then 615
557 if a$="status" or a$="Status" or a$="STATUS" then gosub 1000
558 if a$="S" then 490
560 if a$="W" then 535
562 if a$="SW" then 475
566 goto 556
570 Rem 13
572 print:print "Info":gosub 2700
573 print:print "You can go {N}{S}{E}{NE}";:input a$:if a$="N" then 630
575 if a$="status" or a$="Status" or a$="STATUS" then gosub 1000
577 if a$="S" then 505
578 if a$="E" then 581
579 if a$="NE" then 645
580 goto 573
581 Rem 14
582 print:print "Info":gosub 2700
583 print:print "You can go {N}{S}{E}{W}{SE}{NW}";:input a$:if a$="N" then 645
584 if a$="status" or a$="Status" or a$="STATUS" then gosub 1000
585 if a$="S" then 520
586 if a$="E" then 595
587 if a$="W" then 570
589 if a$="NW" then 630
590 if a$="SE" then 535
591 goto 583
595 Rem 15
597 print:print "Info":gosub 2700
599 print:print "You can go {N}{S}{E}{W}{SW}{NE}";:input a$:if a$="N" then 660
600 if a$="status" or a$="Status" or a$="STATUS" then gosub 1000
602 if a$="S" then 535
603 if a$="E" then 615
604 if a$="W" then 581
605 if a$="SW" then 520
607 if a$="NE" then 680
609 goto 599
615 Rem 16
616 print:print "Info":gosub 2700
618 print:print "You can go {N}{S}{W}{NW}";:input a$:if a$="N" then 680
619 if a$="status" or a$="Status" or a$="STATUS" then gosub 1000
620 if a$="S" then 552
622 if a$="W" then 595
624 if a$="NW" then 660
625 goto 618
630 Rem 17
632 print:print "Info":gosub 2700
634 print:print "You can go {N}{S}{E}{SE}{NE}";:input a$:if a$="N" then 695
635 if a$="status" or a$="Status" or a$="STATUS" then gosub 1000
636 if a$="S" then 570
637 if a$="E" then 645
638 if a$="NE" then 710
639 if a$="SE" then 581
640 goto 634
645 Rem 18
647 print:print "Info":gosub 2700
648 print:print "You can go {N}{S}{E}{W}{SW}{NE}{NW}";:input a$:if a$="N" then 710
649 if a$="status" or a$="Status" or a$="STATUS" then gosub 1000
650 if a$="S" then 581
652 if a$="E" then 660
653 if a$="W" then 630
654 if a$="SW" then 570
655 if a$="NW" then 695
656 if a$="NE" then 725
658 goto 648
660 Rem 19
662 print:print "Info":gosub 2700
664 print:print "You can go {N}{S}{E}{W}{SE}{NE}{NW}";:input a$:if a$="N" then 725
666 if a$="status" or a$="Status" or a$="STATUS" then gosub 1000
667 if a$="S" then 595
668 if a$="E" then 680
669 if a$="W" then 645
672 if a$="NW" then 710
673 if a$="NE" then 740
674 if a$="SE" then 615
675 goto 664
680 Rem 20
682 print:print "A Sign here reads:  Northern Forest of Krynn.  East to the Teeth Range.":gosub 2700
684 print:print "You can go {N}{S}{E}{W}{NW}";:input a$:if a$="N" then 740
686 if a$="status" or a$="Status" or a$="STATUS" then gosub 1000
687 if a$="S" then 615
688 if a$="E" then 805
689 if a$="W" then 660
690 if a$="S" then 615
692 if a$="NW" then 725
693 goto 684
695 Rem 21
697 print:print "Info":gosub 2700
699 print:print "You can go {S}{E}{W}{SE}";:input a$
700 if a$="status" or a$="Status" or a$="STATUS" then gosub 1000
701 if a$="S" then 630
702 if a$="E" then 710
703 if a$="W" then print:print "Uncharted"
704 if a$="SE" then 645
705 goto 699
710 Rem 22
711 print:print "Info":gosub 2700
713 print:print "You can go {S}{E}{W}{SW}{SE}";:input a$
715 if a$="status" or a$="Status" or a$="STATUS" then gosub 1000
716 if a$="S" then 710
717 if a$="E" then 725
718 if a$="W" then 695
719 if a$="SW" then 630
720 if a$="SE" then 660
721 goto 713
725 Rem 23
726 print:print "Info":gosub 2700
728 print:print "You can go {S}{E}{W}{SW}{SE}";:input a$
730 if a$="status" or a$="Status" or a$="STATUS" then gosub 1000
731 if a$="S" then 660
732 if a$="E" then 740
734 if a$="W" then 710
735 if a$="SW" then 645
736 if a$="SE" then 680
738 goto 728
740 Rem 24
742 print:print "Info":gosub 2700
744 print:print "You can go {S}{W}{SW}";:input a$:747 if a$="SW" then 660
745 if a$="status" or a$="Status" or a$="STATUS" then gosub 1000
746 if a$="S" then 680
748 if a$ = "W" then 725
749 goto 744
755 Rem Teeth Range 1
756 print:print "Info":gosub 2700
758 print:print "You can go {N}{E}{NE}";:input a$:if a$="N" then 805
760 if a$="status" or a$="Status" or a$="STATUS" then gosub 1000
761 if a$="E" then 765
762 if a$="NE" then 820
763 goto 758
765 Rem 2
767 print:print "Info":gosub 2700
769 print:print "You can go {N}{E}{W}{NE}{NW}";:input a$:if a$="N" then 820
770 if a$="status" or a$="Status" or a$="STATUS" then gosub 1000
771 if a$="E" then 780
772 if a$="W" then 755
773 if a$="NW" then 805
774 if a$="NE" then 835
775 goto 769
780 Rem 3
781 print:print "Info":gosub 2700
783 print:print "You can go {N}{E}{W}{NE}{NW}";:input a$:if a$="N" then 835
785 if a$="status" or a$="Status" or a$="STATUS" then gosub 1000
786 if a$="E" then 795
787 if a$="W" then 765
788 if a$="NW" then 820
789 if a$="NE" then 850
790 goto 783
795 Rem 4
797 print:print "Info":gosub 2700
799 print:print "You can go {N}{W}{NW}";:input a$:if a$="N" then 850
800 if a$="status" or a$="Status" or a$="STATUS" then gosub 1000
801 if a$="W" then 780
802 if a$="NW" then 835
803 goto 799
805 Rem 5
807 print:print "A Sign here Reads:  Teeth Range.  West to Northern Krynn Forest.":gosub 2700
809 print:print "You can go {N}{S}{E}{W}{SE}{NE}";:input a$:if a$="N" then 865
810 if a$="status" or a$="Status" or a$="STATUS" then gosub 1000
811 if a$="S" then 755
812 if a$="E" then 820
813 if a$="W" then 680
814 if a$="NE" then 875
815 if a$="SE" then 765
816 goto 809
820 Rem 6
822 print:print "Info":gosub 2700
824 print:print "You can go {N}{S}{E}{W}{SW}{SE}{NE}{NW}";:input a$:if a$="N" then 875
825 if a$="status" or a$="Status" or a$="STATUS" then gosub 1000
826 if a$="S" then 765
827 if a$="E" then 835
828 if a$="W" then 805
829 if a$="SW" then 755
830 if a$="NW" then 865
831 if a$="NE" then 890
832 if a$="SE" then 780
833 goto 824
835 Rem 7
837 print:print "Info":gosub 2700
839 print:print "You can go {N}{S}{E}{W}{SW}{SE}{NE}{NW}";:input a$:if a$="N" then 890
840 if a$="status" or a$="Status" or a$="STATUS" then gosub 1000
841 if a$="S" then 780
842 if a$="E" then 850
843 if a$="W" then 820
844 if a$="SW" then 765
845 if a$="NW" then 875
846 if a$="NE" then 905
847 if a$="SE" then 795
848 goto 839
850 Rem 8
852 print:print "Info":gosub 2700
854 print:print "You can go {N}{S}{W}{SW}{NW}";:input a$:if a$="N" then 905
855 if a$="status" or a$="Status" or a$="STATUS" then gosub 1000
856 if a$="S" then 795
857 if a$="W" then 835
858 if a$="SW" then 780
859 if a$="NW" then 890
860 goto 854
865 Rem 9
867 print:print "Info":gosub 2700
869 print:print "You can go {S}{E}{SE}";:input a$
870 if a$="status" or a$="Status" or a$="STATUS" then gosub 1000
871 if a$="S" then 805
872 if a$="E" then 875
873 if a$="SE" then 820
874 goto 869
875 Rem 10
877 print:print "Info":gosub 2700
879 print:print "You can go {S}{E}{W}{SW}{SE}";:input a$
880 if a$="status" or a$="Status" or a$="STATUS" then gosub 1000
881 if a$="S" then 820
882 if a$="E" then 890
883 if a$="SE" then 835
884 if a$="W" then 865
885 if a$="SW" then 805
886 goto 877
890 Rem 11
892 print:print "A Sign here reads:  Teeth Range.  North to the Town of Quentin.":gosub 2700
894 print:print "You can go {N}{S}{E}{W}{SW}{SE}";:input a$:if a$="N" then 920
895 if a$="status" or a$="Status" or a$="STATUS" then gosub 1000
896 if a$="S" then 835
897 if a$="E" then 905
898 if a$="W" then 875
899 if a$="SW" then 820
900 if a$="SE" then 850
901 goto 894
905 Rem 12
907 print:print "Info":gosub 2700
909 print:print "You can go {S}{W}{SW}";:input a$
910 if a$="status" or a$="Status" or a$="STATUS" then gosub 1000
911 if a$="S" then 850
912 if a$="W" then 890
913 if a$="SW" then 835
914 goto 909
920 Rem The City of Quentin Outside
921 print:print "You are standing outside the City of Quentin.":gosub 2700
923 print "From here you may go:"
924 print "{E}ast to BladeCrack Forest"
925 print "{N}orth to Hells Tower."
926 print "{S}outh to Teeth Mountains."
927 print "{EN}ter the City of Quentin."
930 print:print "Which would you like to do?";:input a$:if a$="E" then 2120
932 if a$="N" then print:print "Uncharted"
934 if a$="S" then 890
936 if a$="EN" then print:print "City unaccesible at this time."
937 if a$="status" or a$="Status" or a$="STATUS" then gosub 1000
938 goto 930
945 Rem The BladeCrack Forest 1
947 print:print "Info":gosub 2700
949 print:print "You can go {N}{E}{NE}";:input a$:if a$="N" then 980
950 if a$="status" or a$="Status" or a$="STATUS" then gosub 1000
951 if a$="E" then 955
952 if a$="NE" then 2000
953 goto 949
955 Rem 2
957 print:print "Info":gosub 2700
959 print:print "You can go {N}{E}{W}{NE}{NW}";:input a$:if a$="N" then 2000
960 if a$="status" or a$="Status" or a$="STATUS" then gosub 1000
961 if a$="E" then 970
962 if a$="W" then 945
963 if a$="NW" then 980
964 if a$="NE" then 2015
965 goto 959
970 Rem 3
972 print:print "Info":gosub 2700
974 print:print "You can go {N}{W}{NW}";:input a$:if a$="N" then 2015
975 if a$="status" or a$="Status" or a$="STATUS" then gosub 1000
976 if a$="W" then 955
977 if a$="NW" then 2000
978 goto 974
980 Rem 4
982 print:print "Info":gosub 2700
984 print:print "You can go {N}{S}{E}{SE}{NE}";:input a$:if a$="N" then 2030
985 if a$="status" or a$="Status" or a$="STATUS" then gosub 1000
986 if a$="S" then 945
987 if a$="E" then 2000
988 if a$="NE" then 2045
989 if a$="SE" then 955
990 goto 984
1000 gosub 198
1005 gosub 198
1010 print:print "Name:  ";nm$;"."
1012      print  "Race:  ";rc$;"."
1014      print  "Hit Points:     ";hp;"/";thp;"."
1015      print  "Magic Points:   ";mp;"/";tmp;"."
1017      print  "++++++++++++++++++++++++++++++++"
1019      print  "Strength:      ";str
1021      print  "Intelligence   ";int
1023      print  "Dexterity      ";dex
1025      print  "Constitution   ";con
1027 print:print "Current Weather Conditions:":GOSUB 2900
1028 print       "It is ";dy$;"time and ";wx$;".":PRINT "Time:  Chronos ";x3;"."
1030 print       "Days Played:  ";days;"."
1999 print:print "Press Return to Close Status Window";:input r$:gosub 198:gosub 198:return
2000 Rem The BladeCrack Forest 5
2002 print:print "Info":gosub 2700
2004 print:print "You can go {N}{S}{E}{W}{SW}{SE}{NE}{NW}";:input a$:if a$="N" then 2045
2005 if a$="status" or a$="Status" or a$="STATUS" then gosub 1000
2006 if a$="S" then 955
2007 if a$="E" then 2015
2008 if a$="W" then 980
2009 if a$="SW" then 945
2010 if a$="NW" then 2030
2011 if a$="NE" then 2060
2012 if a$="SE" then 970
2013 goto 2004
2015 Rem 6
2017 print:print "Info":gosub 2700
2019 print:print "You can go {N}{S}{W}{SW}{NW}";:input a$:if a$="N" then 2060
2020 if a$="status" or a$="Status" or a$="STATUS" then gosub 1000
2021 if a$="S" then 970
2022 if a$="W" then 2000
2023 if a$="SW" then 955
2024 if a$="NW" then 2045
2025 goto 2019
2030 Rem 7
2032 print:print "Info":gosub 2700
2034 print:print "You can go {N}{S}{E}{SE}{NE}";:input a$:if a$="N" then 2075
2035 if a$="status" or a$="Status" or a$="STATUS" then gosub 1000
2036 if a$="S" then 980
2037 if a$="E" then 2045
2038 if a$="NE" then 2090
2039 if a$="SE" then 2000
2040 goto 2034
2045 Rem 8
2047 print:print "Info":gosub 2700
2049 print:print "You can go {N}{S}{E}{W}{SW}{SE}{NE}{NW}";:input a$:if a$="N" then 2090
2050 if a$="status" or a$="Status" or a$="STATUS" then gosub 1000
2051 if a$="S" then 2000
2052 if a$="E" then 2060
2053 if a$="W" then 2030
2054 if a$="SW" then 980
2055 if a$="NW" then 2075
2056 if a$="NE" then 2105
2057 if a$="SE" then 2015
2058 goto 2049
2060 Rem 9
2062 print:print "A Sign reads:  BladeCrack Forest.  East to the Passage to Gyge.":gosub 2700
2064 print:print "You can go {N}{S}{W}{E}{SW}{NW}";:input a$:if a$="N" then 2105
2065 if a$="status" or a$="Status" or a$="STATUS" then gosub 1000
2066 if a$="S" then 2015
2067 if a$="E" then print:print "Uncharted"
2068 if a$="W" then 2045
2069 if a$="SW" then 2000
2070 if a$="NW" then 2090
2071 goto 2064
2075 Rem 10
2077 print:print "Info":gosub 2700
2079 print:print "You can go {N}{S}{E}{SE}{NE}";:input a$:if a$="N" then 2120
2080 if a$="status" or a$="Status" or a$="STATUS" then gosub 1000
2081 if a$="S" then 2030
2082 if a$="E" then 2090
2083 if a$="NE" then 2135
2084 if a$="SE" then 2045
2085 goto 2079
2090 Rem 11
2092 print:print "Info":gosub 2700
2094 print:print "You can go {N}{S}{E}{W}{SW}{SE}{NE}{NW}";:input a$:if a$="N" then 2135
2095 if a$="status" or a$="Status" or a$="STATUS" then gosub 1000
2096 if a$="S" then 2045
2097 if a$="E" then 2105
2098 if a$="W" then 2075
2099 if a$="SW" then 2030
2100 if a$="NW" then 2120
2101 if a$="NE" then 2150
2102 if a$="SE" then 2060
2103 goto 2094
2105 Rem 12
2107 print:print "Info":gosub 2700
2109 print:print "You can go {N}{S}{W}{SW}{NW}";:input a$:if a$="N" then 2150
2110 if a$="status" or a$="Status" or a$="STATUS" then gosub 1000
2111 if a$="S" then 2060
2112 if a$="W" then 2090
2113 if a$="SW" then 2045
2114 if a$="NW" then 2135
2115 goto 2109
2120 Rem 13
2122 print:print "A Sign here reads:  Bladecrack Forest.  West to The City of Quentin.":gosub 2700
2124 print:print "You can go {N}{S}{W}{E}{SE}{NE}";:input a$:if a$="N" then 2165
2125 if a$="status" or a$="Status" or a$="STATUS" then gosub 1000
2126 if a$="S" then 2075
2127 if a$="W" then 920
2128 if a$="E" then 2135
2129 if a$="NE" then 2180
2130 if a$="SE" then 2090
2131 goto 2124
2135 Rem 14
2137 print:print "Info":gosub 2700
2139 print:print "You can go {N}{S}{E}{W}{SW}{SE}{NE}{NW}";:input a$:if a$="N" then 2180
2140 if a$="status" or a$="Status" or a$="STATUS" then gosub 1000
2141 if a$="S" then 2090
2142 if a$="E" then 2150
2143 if a$="W" then 2120
2144 if a$="SW" then 2075
2145 if a$="NW" then 2165
2146 if a$="NE" then 2195
2147 if a$="SE" then 2106
2148 goto 2139
2150 Rem 15
2152 print:print "A Sign reads:  BladeCrack Forest.  East to the Passage to Gyge.":gosub 2700
2154 print:print "You can go {N}{S}{W}{SW}{NW}";:input a$:if a$="N" then 2195
2155 if a$="status" or a$="Status" or a$="STATUS" then gosub 1000
2156 if a$="S" then 2105
2158 if a$="W" then 2135
2159 if a$="SW" then 2090
2160 if a$="NW" then 2180
2161 goto 2154
2165 Rem 16
2167 print:print "Info":gosub 2700
2169 print:print "You can go {N}{S}{E}{SE}{NE}";:input a$:if a$="N" then 2210
2170 if a$="status" or a$="Status" or a$="STATUS" then gosub 1000
2171 if a$="S" then 2120
2173 if a$="E" then 2180
2174 if a$="NE" then 2220
2175 if a$="SE" then 2135
2176 goto 2169
2180 Rem 17
2182 print:print "Info":gosub 2700
2184 print:print "You can go {N}{S}{E}{W}{SW}{SE}{NE}{NW}";:input a$:if a$="N" then 2220
2185 if a$="status" or a$="Status" or a$="STATUS" then gosub 1000
2186 if a$="S" then 2135
2187 if a$="E" then 2195
2188 if a$="W" then 2165
2189 if a$="SW" then 2120
2190 if a$="NW" then 2210
2191 if a$="NE" then 2235
2192 if a$="SE" then 2150
2193 goto 2184
2195 Rem 18
2197 print:print "Info":gosub 2700
2199 print:print "You can go {N}{S}{W}{SW}{NW}";:input a$:if a$="N" then 2235
2200 if a$="status" or a$="Status" or a$="STATUS" then gosub 1000
2201 if a$="S" then 2150
2202 if a$="W" then 2180
2203 if a$="SW" then 2135
2204 if a$="NW" then 2220
2205 goto 2199
2210 Rem 19
2212 print:print "Info":gosub 2700
2214 print:print "You can go {S}{E}{SE}";:input a$
2215 if a$="status" or a$="Status" or a$="STATUS" then gosub 1000
2216 if a$="S" then 2165
2217 if a$="E" then 2220
2218 if a$="SE" then 2180
2219 goto 2214
2220 Rem 20
2222 print:print "Info":gosub 2700
2224 print:print "You can go {S}{E}{W}{SW}{SE}";:input a$
2225 if a$="status" or a$="Status" or a$="STATUS" then gosub 1000
2226 if a$="S" then 2180
2227 if a$="E" then 2235
2228 if a$="W" then 2210
2229 if a$="SW" then 2165
2230 if a$="SE" then 2195
2231 goto 2224
2235 Rem 21
2237 print:print "Info":gosub 2700
2238 print:print "You can go {S}{W}{SW}";:input a$
2239 if a$="status" or a$="Status" or a$="STATUS" then gosub 1000
2240 if a$="S" then 2195
2241 if a$="W" then 2220
2242 if a$="SW" then 2180
2243 goto 2238
2250 Rem Passage to Gyge North
2255 gosub 2700:print:print "From here you can go {N}orth to Gyge, {E}ast to Gyge Lake, {W}est to BladeCrack Forest":print "or {S}outh to the South Passage of Gyge."
2256 print:print "Which Way Will You Go (N,E,W,S)";:input a$:if a$="N" then
2257 if a$="E" then print:print "Uncharted"
2258 if a$="W" then 2150
2259 if a$="S" then 2265
2260 if a$="status" or a$="Status" or a$="STATUS" then gosub 1000
2262 goto 2256
2265 Rem Passage to Gyge South
2270 gosub 2700:print:print "From here you can go {N}orth to North Passage of Gyge, {S}outh to Ohnshun De'Lak Moore (Lowlands of Sorrow)":print "or {W}est to the BladeCrack Forest."
2272 print:print "Which Way Will You Go (N,S,W)";:input a$:if a$="N" then 2250
2273 if a$="status" or a$="Status" or a$="STATUS" then gosub 1000
2274 if a$="S" then print:print "Uncharted"
2275 if a$="W" then 2060
2276 goto 2272
2280 Rem The City of Gyge Outside
2285 gosub 2700:print:print "From here you may only go {S}outh to North Passage of Gyge,":print "and of course {EN}ter the City of Gyge."
2286 print:print "Which Will You Do (S,EN)";:input a$
2287 if a$="S" then 2250
2288 if a$="EN" then print:print "City unaccesible at this time."
2289 if a$="status" or a$="Status" or a$="STATUS" then gosub 1000
2290 goto 2286
2295 Rem Krynn Forest South 1
2297 print:print "Info":gosub 2700
2299 print:print "You can go {N}{E}{NE}";:input a$:if a$="N" then 2335
2300 if a$="status" or a$="Status" or a$="STATUS" then gosub 1000
2301 if a$="E" then 2305
2302 if a$="NE" then 2350
2303 goto 2299
2305 Rem 2
2307 print:print "Info":gosub 2700
2309 print:print "You can go {N}{E}{W}{NE}{NW}";:input a$:if a$="N" then 2350
2310 if a$="status" or a$="Status" or a$="STATUS" then gosub 1000
2311 if a$="E" then 2320
2312 if a$="W" then 2295
2313 if a$="NW" then 2335
2314 if a$="NE" then 2365
2315 goto 2309
2320 Rem 3
2322 print:print "A Sign here reads: South to Vonaryn River.  East to Ohnshun De'Lak Moore.":gosub 2700
2324 print:print "You can go {N}{S}{E}{W}{NW}";:input a$:if a$="N" then 2365
2325 if a$="status" or a$="Status" or a$="STATUS" then gosub 1000
2326 if a$="S" then print:print "Uncharted"
2327 if a$="E" then print:print "Uncharted"
2328 if a$="W" then 2305
2329 if a$="NW" then 2350
2330 goto 2324
2335 Rem 4
2337 print:print "Info":gosub 2700
2339 print:print "You can go {N}{S}{E}{SE}{NE}";:input a$:if a$="N" then 2380
2340 if a$="status" or a$="Status" or a$="STATUS" then gosub 1000
2341 if a$="S" then 2295
2342 if a$="E" then 2350
2343 if a$="NE" then 2395
2344 if a$="SE" then 2305
2345 goto 2339
2350 Rem 5
2352 print:print "Info":gosub 2700
2354 print:print "You can go {N}{S}{E}{W}{SW}{SE}{NE}{NW}";:input a$:if a$="N" then 2395
2355 if a$="status" or a$="Status" or a$="STATUS" then gosub 1000
2356 if a$="S" then 2305
2357 if a$="E" then 2365
2358 if a$="W" then 2335
2359 if a$="SW" then 2295
2360 if a$="NW" then 2380
2361 if a$="NE" then 2410
2362 if a$="SE" then 2320
2363 goto 2354
2365 Rem 6
2367 print:print "Info":gosub 2700
2369 print:print "You can go {N}{S}{W}{SW}{NW}";:input a$:if a$="N" then 2410
2370 if a$="status" or a$="Status" or a$="STATUS" then gosub 1000
2371 if a$="S" then 2330
2372 if a$="W" then 2359
2373 if a$="SW" then 2305
2374 if a$="NW" then 2395
2375 goto 2369
2380 Rem 7
2382 print:print "Info":gosub 2700
2384 print:print "You can go {N}{S}{E}{SE}{NE}";:input a$:if a$="N" then 2435
2385 if a$="status" or a$="Status" or a$="STATUS" then gosub 1000
2386 if a$="S" then 2335
2387 if a$="E" then 2395
2388 if a$="NE" then 2450
2389 if a$="SE" then 2350
2390 goto 2384
2395 Rem 8
2397 print:print "Info":gosub 2700
2399 print:print "You can go {N}{S}{E}{W}{SW}{SE}{NE}{NW}";:input a$:if a$="N" then 2450
2400 if a$="status" or a$="Status" or a$="STATUS" then gosub 1000
2401 if a$="S" then 2350
2402 if a$="E" then 2410
2403 if a$="W" then 2380
2404 if a$="SW" then 2335
2405 if a$="NW" then 2435
2406 if a$="NE" then 2465
2407 if a$="SE" then 2365
2408 goto 2399
2410 Rem 9
2412 print:print "Info":gosub 2700
2414 print:print "You can go {N}{S}{W}{SW}{NW}";:input a$:if a$="N" then 2465
2415 if a$="status" or a$="Status" or a$="STATUS" then gosub 1000
2416 if a$="S" then 2365
2417 if a$="W" then 2395
2418 if a$="SW" then 2350
2419 if a$="NW" then 2450
2420 goto 2414
2425 Rem 10
2427 print:print "Info":gosub 2700
2429 print:print "You can go {N}{E}{NE}";:input a$:if a$="N" then 2480
2430 if a$="status" or a$="Status" or a$="STATUS" then gosub 1000
2431 if a$="E" then 2435
2432 if a$="NE" then 2510
2433 goto 2429
2435 Rem 11
2437 print:print "Info":gosub 2700
2439 print:print "You can go {N}{S}{E}{W}{SE}{NE}{NW}";:input a$:if a$="N" then 2495
2440 if a$="status" or a$="Status" or a$="STATUS" then gosub 1000
2441 if a$="S" then 2380
2442 if a$="E" then 2450
2443 if a$="W" then 2425
2444 if a$="NW" then 2480
2445 if a$="NE" then 2510
2446 if a$="SE" then 2395
2447 goto 2439
2450 Rem 12
2452 print:print "Info":gosub 2700
2454 print:print "You can go {N}{S}{E}{W}{SW}{SE}{NE}{NW}";:input a$:if a$="N" then 2510
2455 if a$="status" or a$="Status" or a$="STATUS" then gosub 1000
2456 if a$="S" then 2395
2457 if a$="E" then 2465
2458 if a$="W" then 2435
2459 if a$="SW" then 2380
2460 if a$="NW" then 2495
2461 if a$="NE" then 2525
2462 if a$="SE" then 2410
2463 goto 2454
2465 Rem 13
2467 print:print "Info":gosub 2700
2469 print:print "You can go {N}{S}{W}{SW}{NW}";:input a$:if a$="N" then 2525
2470 if a$="status" or a$="Status" or a$="STATUS" then gosub 1000
2471 if a$="S" then 2410
2472 if a$="W" then 2450
2473 if a$="SW" then 2395
2474 if a$="NW" then 2510
2475 goto 2469
2480 Rem 14
2482 print:print "Info":gosub 2700
2484 print:print "You can go {N}{S}{E}{SE}{NE}";:input a$:if a$="N" then 2535
2485 if a$="status" or a$="Status" or a$="STATUS" then gosub 1000
2486 if a$="S" then 2425
2487 if a$="E" then 2495
2488 if a$="NE" then 2550
2489 if a$="SE" then 2435
2490 goto 2484
2495 Rem 15
2497 print:print "Info":gosub 2700
2498 print:print "You can go {N}{S}{E}{W}{SW}{SE}{NE}{NW}";:input a$:if a$="N" then 2550
2499 if a$="status" or a$="Status" or a$="STATUS" then gosub 1000
2500 if a$="S" then 2435
2501 if a$="E" then 2510
2502 if a$="W" then 2480
2503 if a$="SW" then 2425
2504 if a$="NW" then 2535
2505 if a$="NE" then 2565
2506 if a$="SE" then 2450
2507 goto 2498
2510 Rem 16
2512 print:print "Info":gosub 2700
2514 print:print "You can go {N}{S}{E}{W}{SW}{SE}{NE}{NW}";:input a$:if a$="N" then 2565
2515 if a$="status" or a$="Status" or a$="STATUS" then gosub 1000
2516 if a$="S" then 2450
2517 if a$="E" then 2525
2518 if a$="W" then 2495
2519 if a$="SW" then 2435
2520 if a$="NW" then 2550
2521 if a$="NE" then 335
2522 if a$="SE" then 2465
2523 goto 2514
2525 Rem 17
2527 print:print "Info":gosub 2700
2528 print:print "You can go {N}{S}{W}{SW}{NW}";:input a$:if a$="N" then 335
2529 if a$="status" or a$="Status" or a$="STATUS" then gosub 1000
2530 if a$="S" then 2465
2531 if a$="W" then 2510
2532 if a$="SW" then 2450
2533 if a$="NW" then 2565
2534 goto 2528
2535 Rem 18
2537 print:print "A Sign here reads: West to Vonaryn River.":gosub 2700
2539 print:print "You can go {S}{E}{W}{SE}";:input a$
2540 if a$="status" or a$="Status" or a$="STATUS" then gosub 1000
2541 if a$="S" then 2480
2542 if a$="E" then 2550
2543 if a$="W" then print:print "Uncharted"
2544 if a$="SE" then 2495
2545 goto 2539
2550 Rem 19
2552 print:print "Info":gosub 2700
2554 print:print "You can go {S}{E}{W}{SW}{SE}";:input a$
2555 if a$="status" or a$="Status" or a$="STATUS" then gosub 1000
2556 if a$="S" then 2495
2557 if a$="E" then 2565
2558 if a$="W" then 2535
2559 if a$="SW" then 2480
2560 if a$="SE" then 2510
2561 goto 2554
2565 Rem 20
2567 print:print "Info":gosub 2700
2569 print:print "You can go {S}{E}{W}{SW}{SE}";:input a$
2570 if a$="status" or a$="Status" or a$="STATUS" then gosub 1000
2571 if a$="S" then 2510
2572 if a$="E" then 335
2573 if a$="W" then 2550
2574 if a$="SW" then 2495
2575 if a$="SE" then 2525
2576 goto 2569
2599 Rem City Shit!
2600 Rem No Money!
2601 Print:Print "You dont have enough money!  (Gold = ";g;".)":return
2604 Rem Inn!
2605 print:print "A man behind the counter says, 'Welcome to my humble Inn.'"
2606 print "The price for you to stay here is ";a;" Gold Pieces.  Would you like to stay?":print "(Gold = ";g;") (Y/N)";:input a$
2607 if a$ = "Y" then 2614
2608 if a$ = "N" then print:print "You leave the Inn.":return
2610 if a$="status" or a$="Status" or a$="STATUS" then gosub 1000
2612 goto 2606
2614 if a>g then gosub 2601:a$= "N":goto 2608
2615 g=g-a: print:print "You have a very restful night and are fully recovered!":hp=thp:mp=tmp
2617 Rem this line for more resets or whatever
2618 print "(Gold = ";g;" HP = ";hp;" MP = ";mp;")":print:print "You gather your things and leave the Inn.":return
2620 Rem Banking!
2622 print:print "Welcome to the National Bank of Krynn.":print "We pride ourselves in our safe, secure banking system":print "Here at the National Bank of Krynn, we put the customer above all other things.":if nbv<>1 then 2650
2623 print:print "::Account Number XZX";accnum;"::":print "Balance: ";acc;"::Current Gold:  ";g;"::"
2624 print:print "Would you like to [D]eposit Gold, [W]ithdraw Gold, or [L]eave?";:input a$
2625 if a$="D" then 2630
2626 if a$="W" then 2636
2627 if a$="L" then 2643
2628 if a$="status" or a$="Status" or a$="STATUS" then gosub 1000
2629 goto 2623
2630 print:print "How much would you like to deposit (0 to exit)";:input a
2632 if a=0 then 2623
2633 if a>g then gosub 2600:goto 2630
2635 g=g-a:acc=acc+a: print:print "You deposit ";a;" Gold in your account.":goto 2623
2636 print:print "How much would you like to withdraw (0 to exit)";:input a
2637 if a=0 then 2623
2639 if a>acc then print:print "You dont have that much money in your account! (acc = ";acc;".)":goto 2636
2640 g=g+a:acc=acc-a:print:print "You withdraw ";a;" Gold from your account.":goto 2623
2643 print:print "You leave the National Bank of Krynn.":return
2650 Rem First Time Banking
2655 print:print "'Greetings and Salutations, ";nm$;".'"
2656 a=int(rnd(1)*4)+1:if a=1 then x$="Shielna":goto 2660
2657 if a=2 then x$="Gordona":goto 2660
2658 if a=3 then x$="Dalia":goto 2660
2659 x$="Lacence"
2660 print "'My name is ";x$;", and i will be in your service today!":print "You do not have an account here.'"
2662 print "Would you like to open one?  The cost is a mere 100 Gold. (Y/N)";:input a$:if a$="N" then print:print "'I'm sorry, dear sir, but you must open an account for us to be of any service.  Have a wonderful day!'":print:print "You have no choice but to leave.":return
2663 if a$="Y" then 2668
2665 if a$="status" or a$="Status" or a$="STATUS" then gosub 1000
2667 goto 2662
2668 if g<100 then gosub 2600:print:print "'I'm sorry, dear sir, but you must open an account for us to be of any service.  Have a wonderful day!'":print:print "You have no choice but to leave.":return
2669 g=g-100:print:print x$;" hands you a little glowing ball etched in ruins.  'This is a BankBall.', she says.  'With it you will be able":print "to access your accounts in any city that we have a branch in."
2670 nbv=1:print:print "'Thank you for opening an account with us.  I'm sure you will find our services to be an Elfs Head above the Rest!'":accnum = int(rnd(1)*1000000000)+100000:goto 2623
2675 Rem Interest:: goes with timed events
2676 if x1=55 then 2678
2677 x1=x1+1:return
2678 x1=0:if acc>10000000000 then a=.0008:goto 2685
2679 if acc>1000000000 then a=.0007:goto 2685
2680 if acc>100000000 then a=.0006:goto 2685
2681 if acc>10000000 then a=.0005:goto 2685
2682 if acc>1000000 then a=.0004:goto 2685
2683 a=.0002
2685 acc1=int(acc*a):itr =itr +acc1:acc=acc+acc1:return
2700 Rem ::ALL TIMED EVENTS GO HERE::
2705 gosub 2676:gosub 2800:return
2800 Rem Day/Night
2802 x3=x3+1:if x3=30 then 2806
2804 goto 2825
2806 if dn=1 then 2815
2807 a=int(rnd(1)*3)+1:if a=1 then print:print "The moon sets and the sun begins to rise.":light$="Sun":goto 2812
2809 if a=2 then print:print "The morning light vanquishes the night.":light$="Sun":goto 2812
2810 print:print "Dawn arrives, the night fades.":light$="Sun"
2812 dn=1:x3=0:days=days+1:goto 2825
2815 a=int(rnd(1)*3)+1:if a=1 then print:print "The sun sets beyond the mountains and a distant moon shines.":light$="Moon":goto 2820
2817 if a=2 then print:print "The glimmering moon raises from the shadows to take the day light away.":light$="Moon":goto 2820
2819 print:print "The darkness of the evening arrives, the daylight dwindles.":light$="Moon"
2820 dn=2:x3=0
2824 Rem Weather Changer
2825 x4=x4+1:if x4=x5 then 2838
2826 a=int(rnd(1)*25)+1:if a=1 then a=int(rnd(1)*2)+1:goto 2830
2828 return
2830 if w=1 then 2880
2832 if w=2 then 2884
2834 if w=3 then 2888
2835 if w=4 then 2892
2838 x5=int(rnd(1)*10)+15:if dn=1 then light$="Sun"
2839 if dn=2 then light$="Moon"
2840 a=int(rnd(1)*4)+1:if w=1 then 2846
2842 if w=2 then 2854
2844 if w=3 then 2862
2845 if w=4 then 2870
2846 if a=1 then print:print "This rain knows no end!":w=1:gosub 2900:return
2848 if a=2 then print:print "The rain clears up and the ";light$;" begins to shine.":w=2:gosub 2900:return
2850 if a=3 then print:print "The rain stops but the dark cloud remains.":w=3:gosub 2900:return
2852 print:print "The rain has quit and now a wave of humidity sweeps the land.":w=4:gosub 2900:return
2854 if a=1 then print:print "The clouds swallow the ";light$;" and it begins to storm.":w=1:gosub 2900:return
2856 if a=2 then print:print "The ";light$;" hides behind big dark clouds that have moved in.":w=3:gosub 2900:return
2858 if a=3 then print:print "A humid mist sets in making you very uncomfortable.":w=4:gosub 2900:return
2860 print:print "The ";light$;" shines away.":w=2:gosub 2900:return
2862 if a=1 then print:print "A storm breaks for the overcast sky.":w=1:gosub 2900:return
2864 if a=2 then print:print "The clouds dissapates and the ";light$;" shines strong.":w=2:gosub 2900:return
2866 if a=3 then print:print "The dark grey clouds linger on.":w=3:gosub 2900:return
2868 print:print "The humidity skyrockets and you begin to sweat profusely.":w=4:gosub 2900:return
2870 if a=1 then print:print "A storm turns up and staves off some of the humidity.":w=1:gosub 2900:return
2872 if a=2 then print:print "It begins to cool a bit, although the ";light$;" is still hidden behind the clouds.":w=3:gosub 2900:return
2874 if a=3 then print:print "The heatwave succumbs to a brilliant ";light$;".  It shines above":print "as the mugginess melts away.":w=2:gosub 2900:return
2876 print:print "Will this humidity never cease?":w=4:gosub 2900:return
2879 Rem Reminder
2880 if a=1 then print:print "The rain falls gently.":return
2882 print:print "The storm rages above you!":return
2884 if a=1 then print:print "The ";light$;" is bright and shiny.":return
2886 print:print "The ";light$;" softly glows above you.":return
2888 if a=1 then print:print "The skies are gray as far as the eye can see.":return
2890 print:print "Big puffy clouds streak the sky.":return
2892 if a=1 then print:print "It is very humid and sticky out.":return
2894 print:print "You are very uncomfortable in this humidity.":return
2899 Rem Current Conditions.
2900 if w=1 then wx$="Raining"
2902 if w=2 then wx$="Clear"
2904 if w=3 then wx$="Cloudy"
2906 if w=4 then wx$="Humid"
2908 if dn=1 then dy$="Day"
2910 if dn=2 then dy$="Night"
2912 if ins=1 then dy$="Unknown (inside)":wx$="Unknown (inside)"
2914 return
2919 Rem Beginning Weather Conditions
2920 a=int(rnd(1)*3)+1:if a=1 then dn=2:print:print "It is Nightime out.":goto 2924
2922 dn=1:print:print "It is Daytime out."
2924 a=int(rnd(1)*4)+1:if a=1 then print:print "It is raining.":w=1:goto 2932
2926 if a=2 then print:print "The skies are clear.":w=2:goto 2932
2928 if a=3 then print:print "Yhe skies are cloudy.":w=3:goto 2932
2930 print:print "It is very humid.":w=4:goto 2932
2932 x3=int(rnd(1)*20)+1:print "Time:  Chronos ";x3;"."
2934 x4=0:x5=int(rnd(1)*10)+5:x6=0:return

