; Sodoku Help text
; done in a rubbish format :)

XIncludeFile "date.pbi"
Procedure ShowRules()
  msg.s="Sodoku rules are very basic..."+Chr(10)
  msg=msg+"Only numbers 1 - 9 are used"+Chr(10)
  msg=msg+"Each numer can only be use once"+Chr(10)
  msg=msg+"for each row,column, or 3x3 box."+Chr(10)+Chr(10)+Chr(10)
  msg=msg+"Don't for get to visit www.archonrpg.com"+Chr(10)+Chr(10)+Chr(10)
  msg=msg+"Do you wish to view the readme text?"
  If MessageRequester("Waffle's Sodoku puzzler",msg,#MB_YESNO)=#IDYES
    RunProgram(RunPath+"Readme.txt")
  EndIf
EndProcedure

Procedure ShowAbout()
  msg.s="Application created by Norman Perry Sept 2010."+Chr(10)
  msg=msg+"Version 1.90"+Chr(10)
  ;msg=msg+"Last Build "+FormatDate("Y=%yyyy, M= %mm, D=%dd, %hh:%ii:%ss", Date())+Chr(10)
  M.s=GetMonth(Month(#PB_Compiler_Date))
  D.s=GetDay(DayOfWeek(#PB_Compiler_Date))
  msg=msg+FormatDate("Y=%yyyy", #PB_Compiler_Date)+M+","+D+","+ FormatDate("%dd, %hh:%ii:%ss",#PB_Compiler_Date)+Chr(10)
  ;msg=msg+"Last Build "+#BuildDate +Chr(10)  
  msg=msg+"Don't for get to visit www.archonrpg.com"+Chr(10)+Chr(10)
  msg=msg+"Do you wish to view the readme text?"
  If MessageRequester("Waffle's Sodoku puzzler",msg,#MB_YESNO)=#IDYES
    RunProgram(RunPath+"Readme.txt")
  EndIf
  
EndProcedure

Procedure ShowHelp()
  msg.s= "Thank you for playing Sodoku"+Chr(10)
  msg=msg+"The color squares are for changing text colors"+Chr(10)
  msg=msg+"of your entered numbers. Convenient for tracking guesses."+Chr(10)+Chr(10)
  msg=msg+"The number bar is for selecting a number to enter."+Chr(10)
  msg=msg+"When you click, this number will be entered automaticaly."+Chr(10)
  msg=msg+"You can also just type in your number."+Chr(10)+Chr(10)
  msg=msg+"M turns Marking on/off. This is a nice feature"+Chr(10)
  msg=msg+"that will mark all location with the the same number."+Chr(10)+Chr(10)
  msg=msg+"The other buttons just back out lines to help locate"+Chr(10)
  msg=msg+"places where a number may go."+Chr(10)+Chr(10)+Chr(10)
  msg=msg+"Don't for get to visit www.archonrpg.com"+Chr(10)+Chr(10)+Chr(10)
  msg=msg+"Do you wish to view the readme text?"
  If MessageRequester("Waffle's Sodoku puzzler",msg,#MB_YESNO)=#IDYES
    RunProgram(RunPath+"Readme.txt")
  EndIf
EndProcedure

Procedure ShowMenu()
  msg.s="Thank you for playing Sodoku"+Chr(10)
  msg=msg+"Under Game Menu you will find:"+Chr(10)
  msg=msg+"New - This will ask you to select a game"+Chr(10)
  msg=msg+"Load - This will ask you to select a saved game"+Chr(10)
  msg=msg+"Save - This will save your game, so you can play later"+Chr(10)+Chr(10)
  msg=msg+"Create - This will generate a new game, which you can play."+Chr(10)
  msg=msg+"Enter - This will permit you to create a custom game to play"+Chr(10)
  msg=msg+"Solve - This will attempt to solve your current game for you"+Chr(10)+Chr(10)
  msg=msg+"Exit - Will terminate this program"+Chr(10)+Chr(10)
  msg=msg+"Under the Help Menu:"+Chr(10)
  msg=msg+"Undo - will undo your last move (multiple undos permitted)"+Chr(10)
  msg=msg+"Rules - Show rules quick help"+Chr(10)
  msg=msg+"Help - Show common controls help for play area"+Chr(10)
  msg=msg+"Menu - Shows this help window"+Chr(10)
  msg=msg+"About - Show that I wrote this"+Chr(10)+Chr(10)
  msg=msg+"Please see the Readme file for more details"+Chr(10)
  msg=msg+"Don't for get to visit www.archonrpg.com"+Chr(10)+Chr(10)+Chr(10)
  msg=msg+"Do you wish to view the readme text?"
  If MessageRequester("Waffle's Sodoku puzzler",msg,#MB_YESNO)=#IDYES
    RunProgram(RunPath+"Readme.txt")
  EndIf
  
EndProcedure