Sorry your browser is not supported!

Rem Project: Night Watch
Rem Created: Monday, July 15, 2013

Rem ***** Main Source File *****

Rem Temp
set dir "Media"
set image colorkey 255,174,201
NightWatchMoney=500
NightWatchWeeklyCost=0
Rem Temp
Rem Recuiting
do
Rem UI
If image exist(1)=0 then load image "Night Watch/Main Menu/NightWatchMenuPatrolsHighlighted.bmp",1
If image exist(1)=1 and NightWatchMainMenuSelection=0 then paste image 1,0,0 
If image exist(2)=0 then load image "Night Watch/Main Menu/NightWatchMenuCasesHighlighted.bmp",2
If image exist(2)=1 and NightWatchMainMenuSelection=1 then paste image 2,0,0 
If image exist(3)=0 then load image "Night Watch/Main Menu/NightWatchMenuFinanceHighlighted.bmp",3
If image exist(3)=1 and NightWatchMainMenuSelection=2 then paste image 3,0,0 
If image exist(4)=0 then load image "Night Watch/Main Menu/NightWatchMenuOfficersHighlighted.bmp",4
If image exist(4)=1 and NightWatchMainMenuSelection=3 then paste image 4,0,0 
If image exist(5)=0 then load image "Night Watch/Main Menu/NightWatchMenuRecuitmentHighlighted.bmp",5
If image exist(5)=1 and NightWatchMainMenuSelection=4 then paste image 5,0,0 
If image exist(6)=0 then load image "Night Watch/Main Menu/NightWatchSubMenu.bmp",6
If image exist(6)=1 and RecuitmentMenu=1 or RecuitSubMenu>0 then paste image 6,0,0 
` Profile
If image exist(17)=0 then load image "Night Watch/Main Menu/Profile/1.bmp",17
If image exist(17)=1 and RecuitmentMenu=1 then sprite 11,80,115,17
If image exist(17)=1 and RecuitmentMenu=1 then sprite 12,338,115,17
` Return Button
If image exist(21)=0 then load image "Night Watch/Main Menu/Return Button.bmp",21
If image exist(21)=1 and RecuitmentMenu=1 then sprite 21,70,90,21
` Bar 1
If image exist(7)=0 then load image "Night Watch/Main Menu/Bar/1.bmp",7
If image exist(7)=1 and RecuitmentMenu=1 and Recuitable1Trustworthy=1 and RecruitPage=0 then sprite 7,85,180,7
If image exist(7)=1 and RecuitmentMenu=1 and Recuitable1Loyalty=1 and RecruitPage=0 then sprite 8,85,270,7
If image exist(7)=1 and RecuitmentMenu=1 and Recuitable2Trustworthy=1 and RecruitPage=0 then sprite 9,343,180,7
If image exist(7)=1 and RecuitmentMenu=1 and Recuitable2Loyalty=1 and RecruitPage=0 then sprite 10,343,270,7
If image exist(7)=1 and RecuitmentMenu=1 and Recuitable3Trustworthy=1 and RecruitPage=1 then sprite 7,85,180,7
If image exist(7)=1 and RecuitmentMenu=1 and Recuitable3Loyalty=1 and RecruitPage=1 then sprite 8,85,270,7
If image exist(7)=1 and RecuitmentMenu=1 and Recuitable4Trustworthy=1 and RecruitPage=1 then sprite 9,343,180,7
If image exist(7)=1 and RecuitmentMenu=1 and Recuitable4Loyalty=1 and RecruitPage=1 then sprite 10,343,270,7
If image exist(7)=1 and RecuitmentMenu=1 and Recuitable5Trustworthy=1 and RecruitPage=2 then sprite 7,85,180,7
If image exist(7)=1 and RecuitmentMenu=1 and Recuitable5Loyalty=1 and RecruitPage=2 then sprite 8,85,270,7
If image exist(7)=1 and RecuitmentMenu=1 and Recuitable6Trustworthy=1 and RecruitPage=2 then sprite 9,343,180,7
If image exist(7)=1 and RecuitmentMenu=1 and Recuitable6Loyalty=1 and RecruitPage=2 then sprite 10,343,270,7
` Bar 2
If image exist(8)=0 then load image "Night Watch/Main Menu/Bar/2.bmp",8
If image exist(8)=1 and RecuitmentMenu=1 and Recuitable1Trustworthy=2 and RecruitPage=0 then sprite 7,85,180,8
If image exist(8)=1 and RecuitmentMenu=1 and Recuitable1Loyalty=2 and RecruitPage=0 then sprite 8,85,270,8
If image exist(8)=1 and RecuitmentMenu=1 and Recuitable2Trustworthy=2 and RecruitPage=0 then sprite 9,343,180,8
If image exist(8)=1 and RecuitmentMenu=1 and Recuitable2Loyalty=2 and RecruitPage=0 then sprite 10,343,270,8
If image exist(8)=1 and RecuitmentMenu=1 and Recuitable3Trustworthy=2 and RecruitPage=1 then sprite 7,85,180,8
If image exist(8)=1 and RecuitmentMenu=1 and Recuitable3Loyalty=2 and RecruitPage=1 then sprite 8,85,270,8
If image exist(8)=1 and RecuitmentMenu=1 and Recuitable4Trustworthy=2 and RecruitPage=1 then sprite 9,343,180,8
If image exist(8)=1 and RecuitmentMenu=1 and Recuitable4Loyalty=2 and RecruitPage=1 then sprite 10,343,270,8
If image exist(8)=1 and RecuitmentMenu=1 and Recuitable5Trustworthy=2 and RecruitPage=2 then sprite 7,85,180,8
If image exist(8)=1 and RecuitmentMenu=1 and Recuitable5Loyalty=2 and RecruitPage=2 then sprite 8,85,270,8
If image exist(8)=1 and RecuitmentMenu=1 and Recuitable6Trustworthy=2 and RecruitPage=2 then sprite 9,343,180,8
If image exist(8)=1 and RecuitmentMenu=1 and Recuitable6Loyalty=2 and RecruitPage=2 then sprite 10,343,270,8
` Bar 3
If image exist(9)=0 then load image "Night Watch/Main Menu/Bar/3.bmp",9
If image exist(9)=1 and RecuitmentMenu=1 and Recuitable1Trustworthy=3 and RecruitPage=0 then sprite 7,85,180,9
If image exist(9)=1 and RecuitmentMenu=1 and Recuitable1Loyalty=3 and RecruitPage=0 then sprite 8,85,270,9
If image exist(9)=1 and RecuitmentMenu=1 and Recuitable2Trustworthy=3 and RecruitPage=0 then sprite 9,343,180,9
If image exist(9)=1 and RecuitmentMenu=1 and Recuitable2Loyalty=3 and RecruitPage=0 then sprite 10,343,270,9
If image exist(9)=1 and RecuitmentMenu=1 and Recuitable3Trustworthy=3 and RecruitPage=1 then sprite 7,85,180,9
If image exist(9)=1 and RecuitmentMenu=1 and Recuitable3Loyalty=3 and RecruitPage=1 then sprite 8,85,270,9
If image exist(9)=1 and RecuitmentMenu=1 and Recuitable4Trustworthy=3 and RecruitPage=1 then sprite 9,343,180,9
If image exist(9)=1 and RecuitmentMenu=1 and Recuitable4Loyalty=3 and RecruitPage=1 then sprite 10,343,270,9
If image exist(9)=1 and RecuitmentMenu=1 and Recuitable5Trustworthy=3 and RecruitPage=2 then sprite 7,85,180,9
If image exist(9)=1 and RecuitmentMenu=1 and Recuitable5Loyalty=3 and RecruitPage=2 then sprite 8,85,270,9
If image exist(9)=1 and RecuitmentMenu=1 and Recuitable6Trustworthy=3 and RecruitPage=2 then sprite 9,343,180,9
If image exist(9)=1 and RecuitmentMenu=1 and Recuitable6Loyalty=3 and RecruitPage=2 then sprite 10,343,270,9
` Bar 4
If image exist(10)=0 then load image "Night Watch/Main Menu/Bar/4.bmp",10
If image exist(10)=1 and RecuitmentMenu=1 and Recuitable1Trustworthy=4 and RecruitPage=0 then sprite 7,85,180,10
If image exist(10)=1 and RecuitmentMenu=1 and Recuitable1Loyalty=4 and RecruitPage=0 then sprite 8,85,270,10
If image exist(10)=1 and RecuitmentMenu=1 and Recuitable2Trustworthy=4 and RecruitPage=0 then sprite 9,343,180,10
If image exist(10)=1 and RecuitmentMenu=1 and Recuitable2Loyalty=4 and RecruitPage=0 then sprite 10,343,270,10
If image exist(10)=1 and RecuitmentMenu=1 and Recuitable3Trustworthy=4 and RecruitPage=1 then sprite 7,85,180,10
If image exist(10)=1 and RecuitmentMenu=1 and Recuitable3Loyalty=4 and RecruitPage=1 then sprite 8,85,270,10
If image exist(10)=1 and RecuitmentMenu=1 and Recuitable4Trustworthy=4 and RecruitPage=1 then sprite 9,343,180,10
If image exist(10)=1 and RecuitmentMenu=1 and Recuitable4Loyalty=4 and RecruitPage=1 then sprite 10,343,270,10
If image exist(10)=1 and RecuitmentMenu=1 and Recuitable5Trustworthy=4 and RecruitPage=2 then sprite 7,85,180,10
If image exist(10)=1 and RecuitmentMenu=1 and Recuitable5Loyalty=4 and RecruitPage=2 then sprite 8,85,270,10
If image exist(10)=1 and RecuitmentMenu=1 and Recuitable6Trustworthy=4 and RecruitPage=2 then sprite 9,343,180,10
If image exist(10)=1 and RecuitmentMenu=1 and Recuitable6Loyalty=4 and RecruitPage=2 then sprite 10,343,270,10
` Bar 5
If image exist(11)=0 then load image "Night Watch/Main Menu/Bar/5.bmp",11
If image exist(11)=1 and RecuitmentMenu=1 and Recuitable1Trustworthy=5 and RecruitPage=0 then sprite 7,85,180,11
If image exist(11)=1 and RecuitmentMenu=1 and Recuitable1Loyalty=5 and RecruitPage=0 then sprite 8,85,270,11
If image exist(11)=1 and RecuitmentMenu=1 and Recuitable2Trustworthy=5 and RecruitPage=0 then sprite 9,343,180,11
If image exist(11)=1 and RecuitmentMenu=1 and Recuitable2Loyalty=5 and RecruitPage=0 then sprite 10,343,270,11
If image exist(11)=1 and RecuitmentMenu=1 and Recuitable3Trustworthy=5 and RecruitPage=1 then sprite 7,85,180,11
If image exist(11)=1 and RecuitmentMenu=1 and Recuitable3Loyalty=5 and RecruitPage=1 then sprite 8,85,270,11
If image exist(11)=1 and RecuitmentMenu=1 and Recuitable4Trustworthy=5 and RecruitPage=1 then sprite 9,343,180,11
If image exist(11)=1 and RecuitmentMenu=1 and Recuitable4Loyalty=5 and RecruitPage=1 then sprite 10,343,270,11
If image exist(11)=1 and RecuitmentMenu=1 and Recuitable5Trustworthy=5 and RecruitPage=2 then sprite 7,85,180,11
If image exist(11)=1 and RecuitmentMenu=1 and Recuitable5Loyalty=5 and RecruitPage=2 then sprite 8,85,270,11
If image exist(11)=1 and RecuitmentMenu=1 and Recuitable6Trustworthy=5 and RecruitPage=2 then sprite 9,343,180,11
If image exist(11)=1 and RecuitmentMenu=1 and Recuitable6Loyalty=5 and RecruitPage=2 then sprite 10,343,270,11
` Bar 6
If image exist(12)=0 then load image "Night Watch/Main Menu/Bar/6.bmp",12
If image exist(12)=1 and RecuitmentMenu=1 and Recuitable1Trustworthy=6 and RecruitPage=0 then sprite 7,85,180,12
If image exist(12)=1 and RecuitmentMenu=1 and Recuitable1Loyalty=6 and RecruitPage=0 then sprite 8,85,270,12
If image exist(12)=1 and RecuitmentMenu=1 and Recuitable2Trustworthy=6 and RecruitPage=0 then sprite 9,343,180,12
If image exist(12)=1 and RecuitmentMenu=1 and Recuitable2Loyalty=6 and RecruitPage=0 then sprite 10,343,270,12
If image exist(12)=1 and RecuitmentMenu=1 and Recuitable3Trustworthy=6 and RecruitPage=1 then sprite 7,85,180,12
If image exist(12)=1 and RecuitmentMenu=1 and Recuitable3Loyalty=6 and RecruitPage=1 then sprite 8,85,270,12
If image exist(12)=1 and RecuitmentMenu=1 and Recuitable4Trustworthy=6 and RecruitPage=1 then sprite 9,343,180,12
If image exist(12)=1 and RecuitmentMenu=1 and Recuitable4Loyalty=6 and RecruitPage=1 then sprite 10,343,270,12
If image exist(12)=1 and RecuitmentMenu=1 and Recuitable5Trustworthy=6 and RecruitPage=2 then sprite 7,85,180,12
If image exist(12)=1 and RecuitmentMenu=1 and Recuitable5Loyalty=6 and RecruitPage=2 then sprite 8,85,270,12
If image exist(12)=1 and RecuitmentMenu=1 and Recuitable6Trustworthy=6 and RecruitPage=2 then sprite 9,343,180,12
If image exist(12)=1 and RecuitmentMenu=1 and Recuitable6Loyalty=6 and RecruitPage=2 then sprite 10,343,270,12
` Bar 7
If image exist(13)=0 then load image "Night Watch/Main Menu/Bar/7.bmp",13
If image exist(13)=1 and RecuitmentMenu=1 and Recuitable1Trustworthy=7 and RecruitPage=0 then sprite 7,85,180,13 
If image exist(13)=1 and RecuitmentMenu=1 and Recuitable1Loyalty=7 and RecruitPage=0 then sprite 8,85,270,13
If image exist(13)=1 and RecuitmentMenu=1 and Recuitable2Trustworthy=7 and RecruitPage=0 then sprite 9,343,180,13
If image exist(13)=1 and RecuitmentMenu=1 and Recuitable2Loyalty=7 and RecruitPage=0 then sprite 10,343,270,13
If image exist(13)=1 and RecuitmentMenu=1 and Recuitable3Trustworthy=7 and RecruitPage=1 then sprite 7,85,180,13 
If image exist(13)=1 and RecuitmentMenu=1 and Recuitable3Loyalty=7 and RecruitPage=1 then sprite 8,85,270,13
If image exist(13)=1 and RecuitmentMenu=1 and Recuitable4Trustworthy=7 and RecruitPage=1 then sprite 9,343,180,13
If image exist(13)=1 and RecuitmentMenu=1 and Recuitable4Loyalty=7 and RecruitPage=1 then sprite 10,343,270,13
If image exist(13)=1 and RecuitmentMenu=1 and Recuitable5Trustworthy=7 and RecruitPage=2 then sprite 7,85,180,13 
If image exist(13)=1 and RecuitmentMenu=1 and Recuitable5Loyalty=7 and RecruitPage=2 then sprite 8,85,270,13
If image exist(13)=1 and RecuitmentMenu=1 and Recuitable6Trustworthy=7 and RecruitPage=2 then sprite 9,343,180,13
If image exist(13)=1 and RecuitmentMenu=1 and Recuitable6Loyalty=7 and RecruitPage=2 then sprite 10,343,270,13
` Bar 8
If image exist(14)=0 then load image "Night Watch/Main Menu/Bar/8.bmp",14
If image exist(14)=1 and RecuitmentMenu=1 and Recuitable1Trustworthy=8 and RecruitPage=0 then sprite 7,85,180,14 
If image exist(14)=1 and RecuitmentMenu=1 and Recuitable1Loyalty=8 and RecruitPage=0 then sprite 8,85,270,14
If image exist(14)=1 and RecuitmentMenu=1 and Recuitable2Trustworthy=8 and RecruitPage=0 then sprite 9,343,180,14
If image exist(14)=1 and RecuitmentMenu=1 and Recuitable2Loyalty=8 and RecruitPage=0 then sprite 10,343,270,14
If image exist(14)=1 and RecuitmentMenu=1 and Recuitable3Trustworthy=8 and RecruitPage=1 then sprite 7,85,180,14 
If image exist(14)=1 and RecuitmentMenu=1 and Recuitable3Loyalty=8 and RecruitPage=1 then sprite 8,85,270,14
If image exist(14)=1 and RecuitmentMenu=1 and Recuitable4Trustworthy=8 and RecruitPage=1 then sprite 9,343,180,14
If image exist(14)=1 and RecuitmentMenu=1 and Recuitable4Loyalty=8 and RecruitPage=1 then sprite 10,343,270,14
If image exist(14)=1 and RecuitmentMenu=1 and Recuitable5Trustworthy=8 and RecruitPage=2 then sprite 7,85,180,14 
If image exist(14)=1 and RecuitmentMenu=1 and Recuitable5Loyalty=8 and RecruitPage=2 then sprite 8,85,270,14
If image exist(14)=1 and RecuitmentMenu=1 and Recuitable6Trustworthy=8 and RecruitPage=2 then sprite 9,343,180,14
If image exist(14)=1 and RecuitmentMenu=1 and Recuitable6Loyalty=8 and RecruitPage=2 then sprite 10,343,270,14
` Bar 9
If image exist(15)=0 then load image "Night Watch/Main Menu/Bar/9.bmp",15
If image exist(15)=1 and RecuitmentMenu=1 and Recuitable1Trustworthy=9 and RecruitPage=0 then sprite 7,85,180,15 
If image exist(15)=1 and RecuitmentMenu=1 and Recuitable1Loyalty=9 and RecruitPage=0 then sprite 8,85,270,15
If image exist(15)=1 and RecuitmentMenu=1 and Recuitable2Trustworthy=9 and RecruitPage=0 then sprite 9,343,180,15
If image exist(15)=1 and RecuitmentMenu=1 and Recuitable2Loyalty=9 and RecruitPage=0 then sprite 10,343,270,15
If image exist(15)=1 and RecuitmentMenu=1 and Recuitable3Trustworthy=9 and RecruitPage=1 then sprite 7,85,180,15 
If image exist(15)=1 and RecuitmentMenu=1 and Recuitable3Loyalty=9 and RecruitPage=1 then sprite 8,85,270,15
If image exist(15)=1 and RecuitmentMenu=1 and Recuitable4Trustworthy=9 and RecruitPage=1 then sprite 9,343,180,15
If image exist(15)=1 and RecuitmentMenu=1 and Recuitable4Loyalty=9 and RecruitPage=1 then sprite 10,343,270,15
If image exist(15)=1 and RecuitmentMenu=1 and Recuitable5Trustworthy=9 and RecruitPage=2 then sprite 7,85,180,15 
If image exist(15)=1 and RecuitmentMenu=1 and Recuitable5Loyalty=9 and RecruitPage=2 then sprite 8,85,270,15
If image exist(15)=1 and RecuitmentMenu=1 and Recuitable6Trustworthy=9 and RecruitPage=2 then sprite 9,343,180,15
If image exist(15)=1 and RecuitmentMenu=1 and Recuitable6Loyalty=9 and RecruitPage=2 then sprite 10,343,270,15
` Bar 10
If image exist(16)=0 then load image "Night Watch/Main Menu/Bar/10.bmp",16
If image exist(16)=1 and RecuitmentMenu=1 and Recuitable1Trustworthy=10 and RecruitPage=0 then sprite 7,85,180,16 
If image exist(16)=1 and RecuitmentMenu=1 and Recuitable1Loyalty=10 and RecruitPage=0 then sprite 8,85,270,16
If image exist(16)=1 and RecuitmentMenu=1 and Recuitable2Trustworthy=10 and RecruitPage=0 then sprite 9,343,180,16
If image exist(16)=1 and RecuitmentMenu=1 and Recuitable2Loyalty=10 and RecruitPage=0 then sprite 10,343,270,16
If image exist(16)=1 and RecuitmentMenu=1 and Recuitable3Trustworthy=10 and RecruitPage=1 then sprite 7,85,180,16 
If image exist(16)=1 and RecuitmentMenu=1 and Recuitable3Loyalty=10 and RecruitPage=1 then sprite 8,85,270,16
If image exist(16)=1 and RecuitmentMenu=1 and Recuitable4Trustworthy=10 and RecruitPage=1 then sprite 9,343,180,16
If image exist(16)=1 and RecuitmentMenu=1 and Recuitable4Loyalty=10 and RecruitPage=1 then sprite 10,343,270,16
If image exist(16)=1 and RecuitmentMenu=1 and Recuitable5Trustworthy=10 and RecruitPage=2 then sprite 7,85,180,16 
If image exist(16)=1 and RecuitmentMenu=1 and Recuitable5Loyalty=10 and RecruitPage=2 then sprite 8,85,270,16
If image exist(16)=1 and RecuitmentMenu=1 and Recuitable6Trustworthy=10 and RecruitPage=2 then sprite 9,343,180,16
If image exist(16)=1 and RecuitmentMenu=1 and Recuitable6Loyalty=10 and RecruitPage=2 then sprite 10,343,270,16
Rem Interaction
NightWatchMainMenuTimer=NightWatchMainMenuTimer+1
` WASD
If keystate(17)=1 and NightWatchMainMenuTimer=>50 then NightWatchMainMenuSelection=NightWatchMainMenuSelection-1 : NightWatchMainMenuTimer=0
If keystate(31)=1 and NightWatchMainMenuTimer=>50 then NightWatchMainMenuSelection=NightWatchMainMenuSelection+1 : NightWatchMainMenuTimer=0
` Arrow Keys
If keystate(200)=1 and NightWatchMainMenuTimer=>50 then NightWatchMainMenuSelection=NightWatchMainMenuSelection-1 : NightWatchMainMenuTimer=0
If keystate(208)=1 and NightWatchMainMenuTimer=>50 then NightWatchMainMenuSelection=NightWatchMainMenuSelection+1 : NightWatchMainMenuTimer=0
` Select
If keystate(28)=1 and NightWatchMainMenuTimer=>50 and NightWatchMainMenuSelection=4 then RecuitmentSetup=1 : RecuitmentMenu=1 : NightWatchMainMenuTimer=0
` Return
If mousex()=>70 and mousex()=<91 and mousey()=>90 and mousey()=<112 and mouseclick()=1 and NightWatchMainMenuTimer=>50
RecuitmentMenu=0 : NightWatchMainMenuTimer=0 : RecuitmentSetup=0
for HidingSpriteRecruitment=7 to 21
If sprite exist(HidingSpriteRecruitment)=1 then hide sprite HidingSpriteRecruitment   
Next HidingSpriteRecruitment
endif
    Rem Recuitment Menu
    If RecuitmentMenu=1
    for ShowSpriteRecruitment=7 to 21
    If sprite exist(ShowSpriteRecruitment)=1 then show sprite ShowSpriteRecruitment   
    Next ShowSpriteRecruitment
    ` Temp
    set cursor 0,0 : Print "Mouse:", mousex(), ",", mousey()
    set cursor 0,15 : Print "RecruitPage=", RecruitPage
    set cursor 0,30 : Print "Recuited3=", Recuited3
    ` Temp
    ` Text Colour
    ink rgb(0,0,0),rgb(0,0,0)
   ` Page 1 Name
    If RecruitPage=0
    text 182,105,Recuitable1FirstName$ + " " + Recuitable1SecondName$
    center text 182,219,"Trustworthy : " + str$(Recuitable1Trustworthy)
    center text 182,300,"Loyalty : " + str$(Recuitable1Loyalty)
    If Recuited1=0 then center text 182,335,"Recruit"
    If Recuited1=1 then center text 182,335,"Recruited"
    ` Page 2 Name
    text 440,105,Recuitable2FirstName$ + " " + Recuitable2SecondName$
    center text 440,219,"Trustworthy : " + str$(Recuitable2Trustworthy)
    center text 440,300,"Loyalty : " + str$(Recuitable2Loyalty)
    If Recuited2=0 then center text 440,335,"Recruit"
    If Recuited2=1 then center text 440,335,"Recruited"
    endif
    ` Page 3 Name
    If RecruitPage=1
    text 182,105,Recuitable3FirstName$ + " " + Recuitable3SecondName$
    center text 182,219,"Trustworthy : " + str$(Recuitable3Trustworthy)
    center text 182,300,"Loyalty : " + str$(Recuitable3Loyalty)
    center text 182,335,"Recruit"
    If Recuited3=0 then center text 182,335,"Recruit"
    If Recuited3=1 then center text 182,335,"Recruited"
    ` Page 4 Name
    text 440,105,Recuitable4FirstName$ + " " + Recuitable4SecondName$
    center text 440,219,"Trustworthy : " + str$(Recuitable4Trustworthy)
    center text 440,300,"Loyalty : " + str$(Recuitable4Loyalty)
    center text 440,335,"Recruit"
    If Recuited4=0 then center text 440,335,"Recruit"
    If Recuited4=1 then center text 440,335,"Recruited"
    endif
    ` Page 5 Name
    If RecruitPage=2
    text 182,105,Recuitable5FirstName$ + " " + Recuitable5SecondName$
    center text 182,219,"Trustworthy : " + str$(Recuitable5Trustworthy)
    center text 182,300,"Loyalty : " + str$(Recuitable5Loyalty)
    center text 182,335,"Recruit"
    If Recuited5=0 then center text 182,335,"Recruit"
    If Recuited5=1 then center text 182,335,"Recruited"
    ` Page 6 Name
    text 440,105,Recuitable6FirstName$ + " " + Recuitable6SecondName$
    center text 440,219,"Trustworthy : " + str$(Recuitable6Trustworthy)
    center text 440,300,"Loyalty : " + str$(Recuitable6Loyalty)
    center text 440,335,"Recruit"
    If Recuited6=0 then center text 440,335,"Recruit"
    If Recuited6=1 then center text 440,335,"Recruited"
    endif
    ` Recuiting
        If RecruitPage=0 and mousex()=>147 and mousex()=<217 and mousey()=>334 and mousey()=<349 and mouseclick()=1 and Recuited1=0
        RecuitmentMenu=0 : RecuitSubMenu=1
        For HidingSprite=7 to 21
        If sprite exist(HidingSprite)=1 then hide sprite HidingSprite
        Next HidingSprite
        RecuitPageTimer=0
        endif
            If RecruitPage=0 and mousex()=>404 and mousex()=<470 and mousey()=>334 and mousey()=<349 and mouseclick()=1 and Recuited2=0
            RecuitmentMenu=0 : RecuitSubMenu=2
            For HidingSprite=7 to 21
            If sprite exist(HidingSprite)=1 then hide sprite HidingSprite
            Next HidingSprite
            RecuitPageTimer=0
            endif
        If RecruitPage=1 and mousex()=>147 and mousex()=<217 and mousey()=>334 and mousey()=<349 and mouseclick()=1 and Recuited3=0
        RecuitmentMenu=0 : RecuitSubMenu=3
        For HidingSprite=7 to 21
        If sprite exist(HidingSprite)=1 then hide sprite HidingSprite
        Next HidingSprite
        RecuitPageTimer=0
        endif
            If RecruitPage=1 and mousex()=>404 and mousex()=<470 and mousey()=>334 and mousey()=<349 and mouseclick()=1 and Recuited4=0
            RecuitmentMenu=0 : RecuitSubMenu=4
            For HidingSprite=7 to 21
            If sprite exist(HidingSprite)=1 then hide sprite HidingSprite
            Next HidingSprite
            RecuitPageTimer=0
            endif
        If RecruitPage=2 and mousex()=>147 and mousex()=<217 and mousey()=>334 and mousey()=<349 and mouseclick()=1 and Recuited5=0
        RecuitmentMenu=0 : RecuitSubMenu=5
        For HidingSprite=7 to 21
        If sprite exist(HidingSprite)=1 then hide sprite HidingSprite
        Next HidingSprite
        RecuitPageTimer=0
        endif
            If RecruitPage=2 and mousex()=>404 and mousex()=<470 and mousey()=>334 and mousey()=<349 and mouseclick()=1 and Recuited6=0
            RecuitmentMenu=0 : RecuitSubMenu=6
            For HidingSprite=7 to 21
            If sprite exist(HidingSprite)=1 then hide sprite HidingSprite
            Next HidingSprite
            RecuitPageTimer=0
            endif
    Rem Timers
        ` Next Page Timer
        NextPageTimer=NextPageTimer+1
            ` Recuit Timer
            RecuitPageTimer=RecuitPageTimer+1
    ` Next Page
    If RecruitPage<2 then text 484,370,"Next Page"
    If mousex()=>467 and mousex()=<563 and mousey()=>370 and mousey()=<387 and mouseclick()=1 and NextPageTimer=>50 and RecruitPage<2 then RecruitPage=RecruitPage+1 : NextPageTimer=0
    ` Previous Page
    If RecruitPage>0 then text 84,370,"Previous Page"
    If mousex()=>75 and mousex()=<195 and mousey()=>370 and mousey()=<387 and mouseclick()=1 and NextPageTimer=>50 and RecruitPage>0 then RecruitPage=RecruitPage-1 : NextPageTimer=0
    endif
    Rem Recuit Person
    If RecuitSubMenu=1
    center text 182,105,"Recuit Information"
    text 70,130, "Trustworthy : " + str$(Recuitable1Trustworthy)
    text 70,150, "Loyalty : " + str$(Recuitable1Loyalty)
    box 70,175,280,178
    text 70,190, "Finance"
    text 200,190,str$(NightWatchMoney)
    text 200,210,"-50"
    box 150,230,280,233
    text 200,240,str$(NightWatchMoney-50)
    text 70,255, "Weekly Cost"
    text 200,255,"-" + str$(NightWatchWeeklyCost)
    text 70,270, "New Weekly Cost"
    text 200,270,"-" + str$(NightWatchWeeklyCost+25)
    box 150,290,280,293
    text 200,300,str$((NightWatchMoney-50)-NightWatchWeeklyCost-25)
    center text 182,335,"Confirm       Return"
    paste sprite 11,400,130
    set text size 30
    center text 440,220,Recuitable1FirstName$ + " " + Recuitable1SecondName$
    set text size 12
    If Recuitable1Trustworthy>Recuitable1Loyalty 
    text 340,270,Recuitable1FirstName$ + " " + Recuitable1SecondName$ + " will follow orders "
    text 340,290,"of people they trust even if "
    text 340,310,"it isn't strictly legal and"
    text 340,330,"will get any job done but may"
    text 340,350,"take out some of the "
    text 340,370,"buildings in the process."
    endif
    If Recuitable1Trustworthy<Recuitable1Loyalty 
    text 340,270,Recuitable1FirstName$ + " " + Recuitable1SecondName$ + " will uphold the law"
    text 340,290,"at any cost to themself or "
    text 340,310,"others.They do everything by"
    text 340,330,"the book and are praized well"
    text 340,350,"by the public for doing so, "
    text 340,370,"but not by all."
    endif
    If Recuitable1Trustworthy=Recuitable1Loyalty 
    text 340,270,Recuitable1FirstName$ + " " + Recuitable1SecondName$ + " will slide from one"
    text 340,290,"side of law enforcing to the"
    text 340,310,"other.Good at getting things"
    text 340,330,"done and the most versatile "
    text 340,350,"Watchman."
    endif
    Rem Recuit/Return
    Rem Confirm
    If mouseclick()=1 and mousex()=>102 and mousex()=<160 and mousey()=>334 and mousey()=<351
    RecuitSubMenu=0 : RecuitmentMenu=1
    open to write 10,"Night Watch/Watchmen/RWM.txt"
    write string 10,Recuitable1FirstName$ + " " + Recuitable1SecondName$
    write string 10,str$(Recuitable1Trustworthy)
    write string 10,str$(Recuitable1Loyalty)
    Recuited1=1
    endif
    Rem Return
    If mousex()=>212 and mousex()=<266 and mousey()=>334 and mousey()=<348 and mouseclick()=1 then RecuitSubMenu=0 : RecuitmentMenu=1
    endif
        Rem Recuit Person 2
        If RecuitSubMenu=2
        center text 182,105,"Recuit Information"
        text 70,130, "Trustworthy : " + str$(Recuitable2Trustworthy)
        text 70,150, "Loyalty : " + str$(Recuitable2Loyalty)
        box 70,175,280,178
        text 70,190, "Finance"
        text 200,190,str$(NightWatchMoney)
        text 200,210,"-50"
        box 150,230,280,233
        text 200,240,str$(NightWatchMoney-50)
        text 70,255, "Weekly Cost"
        text 200,255,"-" + str$(NightWatchWeeklyCost)
        text 70,270, "New Weekly Cost"
        text 200,270,"-" + str$(NightWatchWeeklyCost+25)
        box 150,290,280,293
        text 200,300,str$((NightWatchMoney-50)-NightWatchWeeklyCost-25)
        center text 182,335,"Confirm       Return"
        paste sprite 11,400,130
        set text size 30
        center text 440,220,Recuitable2FirstName$ + " " + Recuitable2SecondName$
        set text size 12
        If Recuitable2Trustworthy>Recuitable2Loyalty 
        text 340,270,Recuitable2FirstName$ + " " + Recuitable2SecondName$ + " will follow orders "
        text 340,290,"of people they trust even if "
        text 340,310,"it isn't strictly legal and"
        text 340,330,"will get any job done but may"
        text 340,350,"take out some of the "
        text 340,370,"buildings in the process."
        endif
        If Recuitable2Trustworthy<Recuitable2Loyalty 
        text 340,270,Recuitable2FirstName$ + " " + Recuitable2SecondName$ + " will uphold the law"
        text 340,290,"at any cost to themself or "
        text 340,310,"others.They do everything by"
        text 340,330,"the book and are praized well"
        text 340,350,"by the public for doing so, "
        text 340,370,"but not by all."
        endif
        If Recuitable2Trustworthy=Recuitable2Loyalty 
        text 340,270,Recuitable2FirstName$ + " " + Recuitable2SecondName$ + " will slide from one"
        text 340,290,"side of law enforcing to the"
        text 340,310,"other.Good at getting things"
        text 340,330,"done and the most versatile "
        text 340,350,"Watchman."
        endif
        Rem Recuit/Return
        Rem Confirm
        If mouseclick()=1 and mousex()=>102 and mousex()=<160 and mousey()=>334 and mousey()=<351
        RecuitSubMenu=0 : RecuitmentMenu=1
        open to write 10,"Night Watch/Watchmen/RWM.txt"
        write string 10,Recuitable2FirstName$ + " " + Recuitable2SecondName$
        write string 10,str$(Recuitable2Trustworthy)
        write string 10,str$(Recuitable2Loyalty)
        Recuited2=1
        endif
        Rem Return
        If mousex()=>212 and mousex()=<266 and mousey()=>334 and mousey()=<348 and mouseclick()=1 then RecuitSubMenu=0 : RecuitmentMenu=1
        endif
            Rem Recuit Person 3
            If RecuitSubMenu=3
            center text 182,105,"Recuit Information"
            text 70,130, "Trustworthy : " + str$(Recuitable3Trustworthy)
            text 70,150, "Loyalty : " + str$(Recuitable3Loyalty)
            box 70,175,280,178
            text 70,190, "Finance"
            text 200,190,str$(NightWatchMoney)
            text 200,210,"-50"
            box 150,230,280,233
            text 200,240,str$(NightWatchMoney-50)
            text 70,255, "Weekly Cost"
            text 200,255,"-" + str$(NightWatchWeeklyCost)
            text 70,270, "New Weekly Cost"
            text 200,270,"-" + str$(NightWatchWeeklyCost+25)
            box 150,290,280,293
            text 200,300,str$((NightWatchMoney-50)-NightWatchWeeklyCost-25)
            center text 182,335,"Confirm       Return"
            paste sprite 11,400,130
            set text size 30
            center text 440,220,Recuitable3FirstName$ + " " + Recuitable3SecondName$
            set text size 12
            If Recuitable3Trustworthy>Recuitable3Loyalty 
            text 340,270,Recuitable3FirstName$ + " " + Recuitable3SecondName$ + " will follow orders "
            text 340,290,"of people they trust even if "
            text 340,310,"it isn't strictly legal and"
            text 340,330,"will get any job done but may"
            text 340,350,"take out some of the "
            text 340,370,"buildings in the process."
            endif
            If Recuitable3Trustworthy<Recuitable3Loyalty 
            text 340,270,Recuitable3FirstName$ + " " + Recuitable3SecondName$ + " will uphold the law"
            text 340,290,"at any cost to themself or "
            text 340,310,"others.They do everything by"
            text 340,330,"the book and are praized well"
            text 340,350,"by the public for doing so, "
            text 340,370,"but not by all."
            endif
            If Recuitable3Trustworthy=Recuitable3Loyalty 
            text 340,270,Recuitable3FirstName$ + " " + Recuitable3SecondName$ + " will slide from one"
            text 340,290,"side of law enforcing to the"
            text 340,310,"other.Good at getting things"
            text 340,330,"done and the most versatile "
            text 340,350,"Watchman."
            endif
            Rem Recuit/Return
            Rem Confirm
            If mouseclick()=1 and mousex()=>102 and mousex()=<160 and mousey()=>334 and mousey()=<351 
            RecuitSubMenu=0 : RecuitmentMenu=1
            open to write 10,"Night Watch/Watchmen/RWM.txt"
            write string 10,Recuitable3FirstName$ + " " + Recuitable3SecondName$
            write string 10,str$(Recuitable3Trustworthy)
            write string 10,str$(Recuitable3Loyalty)
            Recuited3=1
            endif
            Rem Return
            If mousex()=>212 and mousex()=<266 and mousey()=>334 and mousey()=<348 and mouseclick()=1 then RecuitSubMenu=0 : RecuitmentMenu=1
            endif
                Rem Recuit Person 4
                If RecuitSubMenu=4
                center text 182,105,"Recuit Information"
                text 70,130, "Trustworthy : " + str$(Recuitable4Trustworthy)
                text 70,150, "Loyalty : " + str$(Recuitable4Loyalty)
                box 70,175,280,178
                text 70,190, "Finance"
                text 200,190,str$(NightWatchMoney)
                text 200,210,"-50"
                box 150,230,280,233
                text 200,240,str$(NightWatchMoney-50)
                text 70,255, "Weekly Cost"
                text 200,255,"-" + str$(NightWatchWeeklyCost)
                text 70,270, "New Weekly Cost"
                text 200,270,"-" + str$(NightWatchWeeklyCost+25)
                box 150,290,280,293
                text 200,300,str$((NightWatchMoney-50)-NightWatchWeeklyCost-25)
                center text 182,335,"Confirm       Return"
                paste sprite 11,400,130
                set text size 30
                center text 440,220,Recuitable4FirstName$ + " " + Recuitable4SecondName$
                set text size 12
                If Recuitable4Trustworthy>Recuitable4Loyalty 
                text 340,270,Recuitable4FirstName$ + " " + Recuitable4SecondName$ + " will follow orders "
                text 340,290,"of people they trust even if "
                text 340,310,"it isn't strictly legal and"
                text 340,330,"will get any job done but may"
                text 340,350,"take out some of the "
                text 340,370,"buildings in the process."
                endif
                If Recuitable4Trustworthy<Recuitable4Loyalty 
                text 340,270,Recuitable4FirstName$ + " " + Recuitable4SecondName$ + " will uphold the law"
                text 340,290,"at any cost to themself or "
                text 340,310,"others.They do everything by"
                text 340,330,"the book and are praized well"
                text 340,350,"by the public for doing so, "
                text 340,370,"but not by all."
                endif
                If Recuitable4Trustworthy=Recuitable4Loyalty 
                text 340,270,Recuitable4FirstName$ + " " + Recuitable4SecondName$ + " will slide from one"
                text 340,290,"side of law enforcing to the"
                text 340,310,"other.Good at getting things"
                text 340,330,"done and the most versatile "
                text 340,350,"Watchman."
                endif
                Rem Recuit/Return
                Rem Confirm
                If mouseclick()=1 and mousex()=>102 and mousex()=<160 and mousey()=>334 and mousey()=<351
                RecuitSubMenu=0 : RecuitmentMenu=1
                open to write 10,"Night Watch/Watchmen/RWM.txt"
                write string 10,Recuitable4FirstName$ + " " + Recuitable4SecondName$
                write string 10,str$(Recuitable4Trustworthy)
                write string 10,str$(Recuitable4Loyalty)
                Recuited4=1
                endif
                Rem Return
                If mousex()=>212 and mousex()=<266 and mousey()=>334 and mousey()=<348 and mouseclick()=1 then RecuitSubMenu=0 : RecuitmentMenu=1
                endif
                    Rem Recuit Person 5
                    If RecuitSubMenu=5
                    center text 182,105,"Recuit Information"
                    text 70,130, "Trustworthy : " + str$(Recuitable5Trustworthy)
                    text 70,150, "Loyalty : " + str$(Recuitable5Loyalty)
                    box 70,175,280,178
                    text 70,190, "Finance"
                    text 200,190,str$(NightWatchMoney)
                    text 200,210,"-50"
                    box 150,230,280,233
                    text 200,240,str$(NightWatchMoney-50)
                    text 70,255, "Weekly Cost"
                    text 200,255,"-" + str$(NightWatchWeeklyCost)
                    text 70,270, "New Weekly Cost"
                    text 200,270,"-" + str$(NightWatchWeeklyCost+25)
                    box 150,290,280,293
                    text 200,300,str$((NightWatchMoney-50)-NightWatchWeeklyCost-25)
                    center text 182,335,"Confirm       Return"
                    paste sprite 11,400,130
                    set text size 30
                    center text 440,220,Recuitable5FirstName$ + " " + Recuitable5SecondName$
                    set text size 12
                    If Recuitable5Trustworthy>Recuitable5Loyalty 
                    text 340,270,Recuitable5FirstName$ + " " + Recuitable5SecondName$ + " will follow orders "
                    text 340,290,"of people they trust even if "
                    text 340,310,"it isn't strictly legal and"
                    text 340,330,"will get any job done but may"
                    text 340,350,"take out some of the "
                    text 340,370,"buildings in the process."
                    endif
                    If Recuitable5Trustworthy<Recuitable5Loyalty 
                    text 340,270,Recuitable5FirstName$ + " " + Recuitable5SecondName$ + " will uphold the law"
                    text 340,290,"at any cost to themself or "
                    text 340,310,"others.They do everything by"
                    text 340,330,"the book and are praized well"
                    text 340,350,"by the public for doing so, "
                    text 340,370,"but not by all."
                    endif
                    If Recuitable5Trustworthy=Recuitable5Loyalty 
                    text 340,270,Recuitable5FirstName$ + " " + Recuitable5SecondName$ + " will slide from one"
                    text 340,290,"side of law enforcing to the"
                    text 340,310,"other.Good at getting things"
                    text 340,330,"done and the most versatile "
                    text 340,350,"Watchman."
                    endif
                    Rem Recuit/Return
                    Rem Confirm
                    If mouseclick()=1 and mousex()=>102 and mousex()=<160 and mousey()=>334 and mousey()=<351
                    RecuitSubMenu=0 : RecuitmentMenu=1
                    open to write 10,"Night Watch/Watchmen/RWM.txt"
                    write string 10,Recuitable5FirstName$ + " " + Recuitable5SecondName$
                    write string 10,str$(Recuitable5Trustworthy)
                    write string 10,str$(Recuitable5Loyalty)
                    Recuited5=1
                    endif
                    Rem Return
                    If mousex()=>212 and mousex()=<266 and mousey()=>334 and mousey()=<348 and mouseclick()=1 then RecuitSubMenu=0 : RecuitmentMenu=1
                    endif
                        Rem Recuit Person 6
                        If RecuitSubMenu=6
                        center text 182,105,"Recuit Information"
                        text 70,130, "Trustworthy : " + str$(Recuitable6Trustworthy)
                        text 70,150, "Loyalty : " + str$(Recuitable6Loyalty)
                        box 70,175,280,178
                        text 70,190, "Finance"
                        text 200,190,str$(NightWatchMoney)
                        text 200,210,"-50"
                        box 150,230,280,233
                        text 200,240,str$(NightWatchMoney-50)
                        text 70,255, "Weekly Cost"
                        text 200,255,"-" + str$(NightWatchWeeklyCost)
                        text 70,270, "New Weekly Cost"
                        text 200,270,"-" + str$(NightWatchWeeklyCost+25)
                        box 150,290,280,293
                        text 200,300,str$((NightWatchMoney-50)-NightWatchWeeklyCost-25)
                        center text 182,335,"Confirm       Return"
                        paste sprite 11,400,130
                        set text size 30
                        center text 440,220,Recuitable6FirstName$ + " " + Recuitable6SecondName$
                        set text size 12
                        If Recuitable6Trustworthy>Recuitable6Loyalty 
                        text 340,270,Recuitable6FirstName$ + " " + Recuitable6SecondName$ + " will follow orders "
                        text 340,290,"of people they trust even if "
                        text 340,310,"it isn't strictly legal and"
                        text 340,330,"will get any job done but may"
                        text 340,350,"take out some of the "
                        text 340,370,"buildings in the process."
                        endif
                        If Recuitable6Trustworthy<Recuitable6Loyalty 
                        text 340,270,Recuitable6FirstName$ + " " + Recuitable6SecondName$ + " will uphold the law"
                        text 340,290,"at any cost to themself or "
                        text 340,310,"others.They do everything by"
                        text 340,330,"the book and are praized well"
                        text 340,350,"by the public for doing so, "
                        text 340,370,"but not by all."
                        endif
                        If Recuitable6Trustworthy=Recuitable6Loyalty 
                        text 340,270,Recuitable6FirstName$ + " " + Recuitable6SecondName$ + " will slide from one"
                        text 340,290,"side of law enforcing to the"
                        text 340,310,"other.Good at getting things"
                        text 340,330,"done and the most versatile "
                        text 340,350,"Watchman."
                        endif
                        Rem Recuit/Return
                        Rem Confirm
                        If mouseclick()=1 and mousex()=>102 and mousex()=<160 and mousey()=>334 and mousey()=<351
                        RecuitSubMenu=0 : RecuitmentMenu=1
                        open to write 10,"Night Watch/Watchmen/RWM.txt"
                        write string 10,Recuitable6FirstName$ + " " + Recuitable6SecondName$
                        write string 10,str$(Recuitable6Trustworthy)
                        write string 10,str$(Recuitable6Loyalty)
                        Recuited6=1
                        endif
                        Rem Return
                        If mousex()=>212 and mousex()=<266 and mousey()=>334 and mousey()=<348 and mouseclick()=1 then RecuitSubMenu=0 : RecuitmentMenu=1
                        endif
Rem Recuitment Setup
If RecuitmentSetup=1
for PeopleRecuitable=1 to 6
FirstName=rnd(1)
LastName=rnd(1)
Trustworthy=rnd(10)
Loyalty=rnd(10)
` Sixth
If Recuitable6FirstName$="" and len(Recuitable5FirstName$)=>1
If FirstName=1 then Recuitable6FirstName$="bob"
If LastName=1 then Recuitable56econdName$="fred"
Recuitable6Trustworthy=Trustworthy
If Recuitable6Trustworthy=0 then Recuitable6Trustworthy=1
Recuitable6Loyalty=Loyalty
If Recuitable6Loyalty=0 then Recuitable6Loyalty=1
endif
` Fifth
If Recuitable5FirstName$="" and len(Recuitable4FirstName$)=>1
If FirstName=1 then Recuitable5FirstName$="bob"
If LastName=1 then Recuitable5SecondName$="fred"
Recuitable5Trustworthy=Trustworthy
If Recuitable5Trustworthy=0 then Recuitable5Trustworthy=1
Recuitable5Loyalty=Loyalty
If Recuitable5Loyalty=0 then Recuitable5Loyalty=1
endif
` Fourth
If Recuitable4FirstName$="" and len(Recuitable3FirstName$)=>1
If FirstName=1 then Recuitable4FirstName$="bob"
If LastName=1 then Recuitable4SecondName$="fred"
Recuitable4Trustworthy=Trustworthy
If Recuitable4Trustworthy=0 then Recuitable4Trustworthy=1
Recuitable4Loyalty=Loyalty
If Recuitable4Loyalty=0 then Recuitable4Loyalty=1
endif
` Third
If Recuitable3FirstName$="" and len(Recuitable2FirstName$)=>1
If FirstName=1 then Recuitable3FirstName$="bob"
If LastName=1 then Recuitable3SecondName$="fred"
Recuitable3Trustworthy=Trustworthy
If Recuitable3Trustworthy=0 then Recuitable3Trustworthy=1
Recuitable3Loyalty=Loyalty
If Recuitable3Loyalty=0 then Recuitable3Loyalty=1
endif
` Second
If Recuitable2FirstName$="" and len(Recuitable1FirstName$)=>1
If FirstName=1 or FirstName=0 then Recuitable2FirstName$="Will"
If LastName=1 or LastName=0 then Recuitable2SecondName$="Trip"
Recuitable2Trustworthy=Trustworthy
If Recuitable2Trustworthy=0 then Recuitable2Trustworthy=1
Recuitable2Loyalty=Loyalty
If Recuitable2Loyalty=0 then Recuitable2Loyalty=1
endif
` First
If Recuitable1FirstName$=""
If FirstName=1 or FirstName=0 then Recuitable1FirstName$="Sam"
If LastName=1 or LastName=0 then Recuitable1SecondName$="Gold"
Recuitable1Trustworthy=Trustworthy
If Recuitable1Trustworthy=0 then Recuitable1Trustworthy=1
Recuitable1Loyalty=Loyalty
If Recuitable1Loyalty=0 then Recuitable1Loyalty=1
endif
Next PeopleRecuitable
endif
loop

If image exist(7)=1 and RecuitmentMenu=1 and Recuitable1Trustworthy=1 and RecruitPage=0 then sprite 7,85,180,7
If image exist(7)=1 and RecuitmentMenu=1 and Recuitable1Loyalty=1 and RecruitPage=0 then sprite 8,85,270,7
If image exist(7)=1 and RecuitmentMenu=1 and Recuitable2Trustworthy=1 and RecruitPage=0 then sprite 9,343,180,7
If image exist(7)=1 and RecuitmentMenu=1 and Recuitable2Loyalty=1 and RecruitPage=0 then sprite 10,343,270,7
If image exist(7)=1 and RecuitmentMenu=1 and Recuitable3Trustworthy=1 and RecruitPage=1 then sprite 7,85,180,7
If image exist(7)=1 and RecuitmentMenu=1 and Recuitable3Loyalty=1 and RecruitPage=1 then sprite 8,85,270,7
If image exist(7)=1 and RecuitmentMenu=1 and Recuitable4Trustworthy=1 and RecruitPage=1 then sprite 9,343,180,7
If image exist(7)=1 and RecuitmentMenu=1 and Recuitable4Loyalty=1 and RecruitPage=1 then sprite 10,343,270,7
If image exist(7)=1 and RecuitmentMenu=1 and Recuitable5Trustworthy=1 and RecruitPage=2 then sprite 7,85,180,7
If image exist(7)=1 and RecuitmentMenu=1 and Recuitable5Loyalty=1 and RecruitPage=2 then sprite 8,85,270,7
If image exist(7)=1 and RecuitmentMenu=1 and Recuitable6Trustworthy=1 and RecruitPage=2 then sprite 9,343,180,7
If image exist(7)=1 and RecuitmentMenu=1 and Recuitable6Loyalty=1 and RecruitPage=2 then sprite 10,343,270,7

If RecuitmentMenu=1
  If image exist(7)=1

    If  Recuitable1Trustworthy=1 and RecruitPage=0 then sprite 7,85,180,7
    If  Recuitable1Loyalty=1 and RecruitPage=0 then sprite 8,85,270,7
    If  Recuitable2Trustworthy=1 and RecruitPage=0 then sprite 9,343,180,7
    If  Recuitable2Loyalty=1 and RecruitPage=0 then sprite 10,343,270,7
    If  Recuitable3Trustworthy=1 and RecruitPage=1 then sprite 7,85,180,7
    If  Recuitable3Loyalty=1 and RecruitPage=1 then sprite 8,85,270,7
    If  Recuitable4Trustworthy=1 and RecruitPage=1 then sprite 9,343,180,7
    If  Recuitable4Loyalty=1 and RecruitPage=1 then sprite 10,343,270,7
    If  Recuitable5Trustworthy=1 and RecruitPage=2 then sprite 7,85,180,7
    If  Recuitable5Loyalty=1 and RecruitPage=2 then sprite 8,85,270,7
    If  Recuitable6Trustworthy=1 and RecruitPage=2 then sprite 9,343,180,7
    If  Recuitable6Loyalty=1 and RecruitPage=2 then sprite 10,343,270,7

  endif 
endif 

If RecuitmentMenu=1
  If image exist(7)=1

    If  Recuitable1Trustworthy=1 and RecruitPage=0 then sprite 7,85,180,7
    If  Recuitable2Trustworthy=1 and RecruitPage=0 then sprite 9,343,180,7
    If  Recuitable3Trustworthy=1 and RecruitPage=1 then sprite 7,85,180,7
    If  Recuitable4Trustworthy=1 and RecruitPage=1 then sprite 9,343,180,7
    If  Recuitable5Trustworthy=1 and RecruitPage=2 then sprite 7,85,180,7
    If  Recuitable6Trustworthy=1 and RecruitPage=2 then sprite 9,343,180,7

    If  Recuitable1Loyalty=1 and RecruitPage=0 then sprite 8,85,270,7
    If  Recuitable2Loyalty=1 and RecruitPage=0 then sprite 10,343,270,7
    If  Recuitable3Loyalty=1 and RecruitPage=1 then sprite 8,85,270,7
    If  Recuitable4Loyalty=1 and RecruitPage=1 then sprite 10,343,270,7
    If  Recuitable5Loyalty=1 and RecruitPage=2 then sprite 8,85,270,7
    If  Recuitable6Loyalty=1 and RecruitPage=2 then sprite 10,343,270,7

  endif 
endif 

If RecuitmentMenu=1
  If image exist(7)=1

     If  Recuitable1Trustworthy=1
        If  RecruitPage=0 then sprite 7,85,180,7
        If  RecruitPage=0 then sprite 9,343,180,7
        If  RecruitPage=1 then sprite 7,85,180,7
        If  RecruitPage=1 then sprite 9,343,180,7
        If  RecruitPage=2 then sprite 7,85,180,7
        If  RecruitPage=2 then sprite 9,343,180,7
    endif 

    If  Recuitable1Loyalty=1
        If  RecruitPage=0 then sprite 8,85,270,7
        If  RecruitPage=0 then sprite 10,343,270,7
        If  RecruitPage=1 then sprite 8,85,270,7
        If  RecruitPage=1 then sprite 10,343,270,7
        If  RecruitPage=2 then sprite 8,85,270,7
        If  RecruitPage=2 then sprite 10,343,270,7
    endif

  endif 
endif 

If RecuitmentMenu=1
  If image exist(7)=1

    If  Recuitable1Trustworthy=1
        If  RecruitPage=0 then sprite 7,85,180,7 : sprite 9,343,180,7
        If  RecruitPage=1 then sprite 7,85,180,7 : sprite 9,343,180,7
        If  RecruitPage=2 then sprite 7,85,180,7 : sprite 9,343,180,7
    endif 

    If  Recuitable1Loyalty=1
        If  RecruitPage=0 then sprite 8,85,270,7 : sprite 10,343,270,7
        If  RecruitPage=1 then sprite 8,85,270,7 : sprite 10,343,270,7
        If  RecruitPage=2 then sprite 8,85,270,7 : sprite 10,343,270,7
    endif

  endif 
endif 

Rem Project: Night Watch
Rem Created: Monday, July 15, 2013
rem Edited by OBese87 (commenting as 'OB')

Rem ***** Main Source File *****

Rem Temp
set dir "Media"
set image colorkey 255,174,201
NightWatchMoney=500
NightWatchWeeklyCost=0

Rem Temp
Rem Recruiting

do
	rem  ** UI **

	rem ensure all required images are loaded
	if image exist(1)=0 then load image "Night Watch/Main Menu/NightWatchMenuPatrolsHighlighted.bmp",1
	if image exist(2)=0 then load image "Night Watch/Main Menu/NightWatchMenuCasesHighlighted.bmp",2
	if image exist(3)=0 then load image "Night Watch/Main Menu/NightWatchMenuFinanceHighlighted.bmp",3
	if image exist(4)=0 then load image "Night Watch/Main Menu/NightWatchMenuOfficersHighlighted.bmp",4
	if image exist(5)=0 then load image "Night Watch/Main Menu/NightWatchMenuRecruitmentHighlighted.bmp",5
	if image exist(6)=0 then load image "Night Watch/Main Menu/NightWatchSubMenu.bmp",6
	if image exist(7)=0 then load image "Night Watch/Main Menu/Bar/1.bmp",7
	if image exist(8)=0 then load image "Night Watch/Main Menu/Bar/2.bmp",8
	if image exist(9)=0 then load image "Night Watch/Main Menu/Bar/3.bmp",9
	if image exist(10)=0 then load image "Night Watch/Main Menu/Bar/4.bmp",10
	if image exist(11)=0 then load image "Night Watch/Main Menu/Bar/5.bmp",11
	if image exist(12)=0 then load image "Night Watch/Main Menu/Bar/6.bmp",12
	if image exist(13)=0 then load image "Night Watch/Main Menu/Bar/7.bmp",13
	if image exist(14)=0 then load image "Night Watch/Main Menu/Bar/8.bmp",14
	if image exist(15)=0 then load image "Night Watch/Main Menu/Bar/9.bmp",15
	if image exist(16)=0 then load image "Night Watch/Main Menu/Bar/10.bmp",16
	if image exist(17)=0 then load image "Night Watch/Main Menu/Profile/1.bmp",17
	if image exist(21)=0 then load image "Night Watch/Main Menu/Return Button.bmp",21
	
	paste image NightWatchMainMenuSelection+1,0,0	// OB: note: if NightWatchMainMenuSelection < 0 or NightWatchMainMenuSelection > 4 image number may be out of bounds.
	If RecruitmentMenu=1 or RecruitSubMenu>0 then paste image 6,0,0	 // OB: why are we pasting this on top of the previous image?

	If RecruitmentMenu=1
		` Profile
		If RecruitmentMenu=1 then sprite 11,80,115,17 : sprite 12,338,115,17	
		` Return Button
		If RecruitmentMenu=1 then sprite 21,70,90,21

		// Bars (OB: this should be suitable to replace all those bar blocks you had)
		// OB: I assume that you didn't really want to paste sprites over each other but instead paste only one for each spot.
		//     If so, why not use single variables for 'RecruitableTrustworthy' and 'RecruitableLoyalty' and give them
		//     values of 1 to 6, instead of using six mutually exclusive variables?
		if Recruitable1Trustworthy=1 and RecruitPage=0 then sprite 7,85,180,Recruitable1Trustworthy+6
		if Recruitable2Trustworthy=1 and RecruitPage=0 then sprite 9,343,180,Recruitable2Trustworthy+6
		if Recruitable3Trustworthy=1 and RecruitPage=1 then sprite 7,85,180,Recruitable3Trustworthy+6
		if Recruitable4Trustworthy=1 and RecruitPage=1 then sprite 9,343,180,Recruitable4Trustworthy+6
		if Recruitable5Trustworthy=1 and RecruitPage=2 then sprite 7,85,180,Recruitable5Trustworthy+6
		if Recruitable6Trustworthy=1 and RecruitPage=2 then sprite 9,343,180,Recruitable6Trustworthy+6
		if Recruitable1Loyalty=1 and RecruitPage=0 then sprite 8,85,270,Recruitable1Loyalty+6
		if Recruitable2Loyalty=1 and RecruitPage=0 then sprite 10,343,270,Recruitable2Loyalty+6
		if Recruitable3Loyalty=1 and RecruitPage=1 then sprite 8,85,270,Recruitable3Loyalty+6
		if Recruitable4Loyalty=1 and RecruitPage=1 then sprite 10,343,270,Recruitable4Loyalty+6
		if Recruitable5Loyalty=1 and RecruitPage=2 then sprite 8,85,270,Recruitable5Loyalty+6
		if Recruitable6Loyalty=1 and RecruitPage=2 then sprite 10,343,270,Recruitable6Loyalty+6
	endif


	Rem Interaction
	NightWatchMainMenuTimer=NightWatchMainMenuTimer+1

	rem store inputs (OB: maybe store these keystate numbers in variables so they can be rebinded?)
	up = keystate(17) || keystate(200)	// up = <w> OR <up>
	down = keystate(31) || keystate(208)	// down = <s> OR <down>
	select = keystate(28)
	mx = mousex()	: my = mousey()
	leftClick = (mouseclick()=1)

	if NightWatchMainMenuTimer=>50
	   if up or down then inc NightWatchMainMenuSelection,down-up : NightWatchMainMenuTimer=0

	   if select and NightWatchMainMenuSelection=4 then RecruitmentSetup=1 : RecruitmentMenu=1 : NightWatchMainMenuTimer=0

	   // return
	   if leftClick
	      if mx=>70 and mx=<91
	      	 if my=>90 and my=<112
			RecruitmentMenu=0 : NightWatchMainMenuTimer=0 : RecruitmentSetup=0
			for n=7 to 21 : if sprite exist(n)=1 then hide sprite n : next n
		 endif
	      endif
	   endif
	endif

Rem Project: Night Watch
Rem Created: Monday, July 15, 2013

Rem ***** Main Source File *****

Rem Temp
set dir "Media"
set image colorkey 255,174,201
NightWatchMoney=500
NightWatchWeeklyCost=0
Rem Temp
Rem Recuiting
do
Rem UI
If image exist(1)=0 then load image "Night Watch/Main Menu/NightWatchMenuPatrolsHighlighted.bmp",1
If image exist(1)=1 and NightWatchMainMenuSelection=0 then paste image 1,0,0 
If image exist(2)=0 then load image "Night Watch/Main Menu/NightWatchMenuCasesHighlighted.bmp",2
If image exist(2)=1 and NightWatchMainMenuSelection=1 then paste image 2,0,0 
If image exist(3)=0 then load image "Night Watch/Main Menu/NightWatchMenuFinanceHighlighted.bmp",3
If image exist(3)=1 and NightWatchMainMenuSelection=2 then paste image 3,0,0 
If image exist(4)=0 then load image "Night Watch/Main Menu/NightWatchMenuOfficersHighlighted.bmp",4
If image exist(4)=1 and NightWatchMainMenuSelection=3 then paste image 4,0,0 
If image exist(5)=0 then load image "Night Watch/Main Menu/NightWatchMenuRecuitmentHighlighted.bmp",5
If image exist(5)=1 and NightWatchMainMenuSelection=4 then paste image 5,0,0 
If image exist(6)=0 then load image "Night Watch/Main Menu/NightWatchSubMenu.bmp",6
If image exist(6)=1 and RecuitmentMenu=1 or RecuitSubMenu>0 then paste image 6,0,0 
` Profile
If image exist(17)=0 then load image "Night Watch/Main Menu/Profile/1.bmp",17
If image exist(17)=1 and RecuitmentMenu=1 then sprite 11,80,115,17
If image exist(17)=1 and RecuitmentMenu=1 then sprite 12,338,115,17
` Return Button
If image exist(21)=0 then load image "Night Watch/Main Menu/Return Button.bmp",21
If image exist(21)=1 and RecuitmentMenu=1 then sprite 21,70,90,21
` Bar 1
If image exist(7)=0 then load image "Night Watch/Main Menu/Bar/1.bmp",7
If image exist(7)=1 and RecuitmentMenu=1 and Recuitable1Trustworthy=1 and RecruitPage=0 then sprite 7,85,180,7
If image exist(7)=1 and RecuitmentMenu=1 and Recuitable1Loyalty=1 and RecruitPage=0 then sprite 8,85,270,7
If image exist(7)=1 and RecuitmentMenu=1 and Recuitable2Trustworthy=1 and RecruitPage=0 then sprite 9,343,180,7
If image exist(7)=1 and RecuitmentMenu=1 and Recuitable2Loyalty=1 and RecruitPage=0 then sprite 10,343,270,7
If image exist(7)=1 and RecuitmentMenu=1 and Recuitable3Trustworthy=1 and RecruitPage=1 then sprite 7,85,180,7
If image exist(7)=1 and RecuitmentMenu=1 and Recuitable3Loyalty=1 and RecruitPage=1 then sprite 8,85,270,7
If image exist(7)=1 and RecuitmentMenu=1 and Recuitable4Trustworthy=1 and RecruitPage=1 then sprite 9,343,180,7
If image exist(7)=1 and RecuitmentMenu=1 and Recuitable4Loyalty=1 and RecruitPage=1 then sprite 10,343,270,7
If image exist(7)=1 and RecuitmentMenu=1 and Recuitable5Trustworthy=1 and RecruitPage=2 then sprite 7,85,180,7
If image exist(7)=1 and RecuitmentMenu=1 and Recuitable5Loyalty=1 and RecruitPage=2 then sprite 8,85,270,7
If image exist(7)=1 and RecuitmentMenu=1 and Recuitable6Trustworthy=1 and RecruitPage=2 then sprite 9,343,180,7
If image exist(7)=1 and RecuitmentMenu=1 and Recuitable6Loyalty=1 and RecruitPage=2 then sprite 10,343,270,7
` Bar 2
If image exist(8)=0 then load image "Night Watch/Main Menu/Bar/2.bmp",8
If image exist(8)=1 and RecuitmentMenu=1 and Recuitable1Trustworthy=2 and RecruitPage=0 then sprite 7,85,180,8
If image exist(8)=1 and RecuitmentMenu=1 and Recuitable1Loyalty=2 and RecruitPage=0 then sprite 8,85,270,8
If image exist(8)=1 and RecuitmentMenu=1 and Recuitable2Trustworthy=2 and RecruitPage=0 then sprite 9,343,180,8
If image exist(8)=1 and RecuitmentMenu=1 and Recuitable2Loyalty=2 and RecruitPage=0 then sprite 10,343,270,8
If image exist(8)=1 and RecuitmentMenu=1 and Recuitable3Trustworthy=2 and RecruitPage=1 then sprite 7,85,180,8
If image exist(8)=1 and RecuitmentMenu=1 and Recuitable3Loyalty=2 and RecruitPage=1 then sprite 8,85,270,8
If image exist(8)=1 and RecuitmentMenu=1 and Recuitable4Trustworthy=2 and RecruitPage=1 then sprite 9,343,180,8
If image exist(8)=1 and RecuitmentMenu=1 and Recuitable4Loyalty=2 and RecruitPage=1 then sprite 10,343,270,8
If image exist(8)=1 and RecuitmentMenu=1 and Recuitable5Trustworthy=2 and RecruitPage=2 then sprite 7,85,180,8
If image exist(8)=1 and RecuitmentMenu=1 and Recuitable5Loyalty=2 and RecruitPage=2 then sprite 8,85,270,8
If image exist(8)=1 and RecuitmentMenu=1 and Recuitable6Trustworthy=2 and RecruitPage=2 then sprite 9,343,180,8
If image exist(8)=1 and RecuitmentMenu=1 and Recuitable6Loyalty=2 and RecruitPage=2 then sprite 10,343,270,8
` Bar 3
If image exist(9)=0 then load image "Night Watch/Main Menu/Bar/3.bmp",9
If image exist(9)=1 and RecuitmentMenu=1 and Recuitable1Trustworthy=3 and RecruitPage=0 then sprite 7,85,180,9
If image exist(9)=1 and RecuitmentMenu=1 and Recuitable1Loyalty=3 and RecruitPage=0 then sprite 8,85,270,9
If image exist(9)=1 and RecuitmentMenu=1 and Recuitable2Trustworthy=3 and RecruitPage=0 then sprite 9,343,180,9
If image exist(9)=1 and RecuitmentMenu=1 and Recuitable2Loyalty=3 and RecruitPage=0 then sprite 10,343,270,9
If image exist(9)=1 and RecuitmentMenu=1 and Recuitable3Trustworthy=3 and RecruitPage=1 then sprite 7,85,180,9
If image exist(9)=1 and RecuitmentMenu=1 and Recuitable3Loyalty=3 and RecruitPage=1 then sprite 8,85,270,9
If image exist(9)=1 and RecuitmentMenu=1 and Recuitable4Trustworthy=3 and RecruitPage=1 then sprite 9,343,180,9
If image exist(9)=1 and RecuitmentMenu=1 and Recuitable4Loyalty=3 and RecruitPage=1 then sprite 10,343,270,9
If image exist(9)=1 and RecuitmentMenu=1 and Recuitable5Trustworthy=3 and RecruitPage=2 then sprite 7,85,180,9
If image exist(9)=1 and RecuitmentMenu=1 and Recuitable5Loyalty=3 and RecruitPage=2 then sprite 8,85,270,9
If image exist(9)=1 and RecuitmentMenu=1 and Recuitable6Trustworthy=3 and RecruitPage=2 then sprite 9,343,180,9
If image exist(9)=1 and RecuitmentMenu=1 and Recuitable6Loyalty=3 and RecruitPage=2 then sprite 10,343,270,9
` Bar 4
If image exist(10)=0 then load image "Night Watch/Main Menu/Bar/4.bmp",10
If image exist(10)=1 and RecuitmentMenu=1 and Recuitable1Trustworthy=4 and RecruitPage=0 then sprite 7,85,180,10
If image exist(10)=1 and RecuitmentMenu=1 and Recuitable1Loyalty=4 and RecruitPage=0 then sprite 8,85,270,10
If image exist(10)=1 and RecuitmentMenu=1 and Recuitable2Trustworthy=4 and RecruitPage=0 then sprite 9,343,180,10
If image exist(10)=1 and RecuitmentMenu=1 and Recuitable2Loyalty=4 and RecruitPage=0 then sprite 10,343,270,10
If image exist(10)=1 and RecuitmentMenu=1 and Recuitable3Trustworthy=4 and RecruitPage=1 then sprite 7,85,180,10
If image exist(10)=1 and RecuitmentMenu=1 and Recuitable3Loyalty=4 and RecruitPage=1 then sprite 8,85,270,10
If image exist(10)=1 and RecuitmentMenu=1 and Recuitable4Trustworthy=4 and RecruitPage=1 then sprite 9,343,180,10
If image exist(10)=1 and RecuitmentMenu=1 and Recuitable4Loyalty=4 and RecruitPage=1 then sprite 10,343,270,10
If image exist(10)=1 and RecuitmentMenu=1 and Recuitable5Trustworthy=4 and RecruitPage=2 then sprite 7,85,180,10
If image exist(10)=1 and RecuitmentMenu=1 and Recuitable5Loyalty=4 and RecruitPage=2 then sprite 8,85,270,10
If image exist(10)=1 and RecuitmentMenu=1 and Recuitable6Trustworthy=4 and RecruitPage=2 then sprite 9,343,180,10
If image exist(10)=1 and RecuitmentMenu=1 and Recuitable6Loyalty=4 and RecruitPage=2 then sprite 10,343,270,10
` Bar 5
If image exist(11)=0 then load image "Night Watch/Main Menu/Bar/5.bmp",11
If image exist(11)=1 and RecuitmentMenu=1 and Recuitable1Trustworthy=5 and RecruitPage=0 then sprite 7,85,180,11
If image exist(11)=1 and RecuitmentMenu=1 and Recuitable1Loyalty=5 and RecruitPage=0 then sprite 8,85,270,11
If image exist(11)=1 and RecuitmentMenu=1 and Recuitable2Trustworthy=5 and RecruitPage=0 then sprite 9,343,180,11
If image exist(11)=1 and RecuitmentMenu=1 and Recuitable2Loyalty=5 and RecruitPage=0 then sprite 10,343,270,11
If image exist(11)=1 and RecuitmentMenu=1 and Recuitable3Trustworthy=5 and RecruitPage=1 then sprite 7,85,180,11
If image exist(11)=1 and RecuitmentMenu=1 and Recuitable3Loyalty=5 and RecruitPage=1 then sprite 8,85,270,11
If image exist(11)=1 and RecuitmentMenu=1 and Recuitable4Trustworthy=5 and RecruitPage=1 then sprite 9,343,180,11
If image exist(11)=1 and RecuitmentMenu=1 and Recuitable4Loyalty=5 and RecruitPage=1 then sprite 10,343,270,11
If image exist(11)=1 and RecuitmentMenu=1 and Recuitable5Trustworthy=5 and RecruitPage=2 then sprite 7,85,180,11
If image exist(11)=1 and RecuitmentMenu=1 and Recuitable5Loyalty=5 and RecruitPage=2 then sprite 8,85,270,11
If image exist(11)=1 and RecuitmentMenu=1 and Recuitable6Trustworthy=5 and RecruitPage=2 then sprite 9,343,180,11
If image exist(11)=1 and RecuitmentMenu=1 and Recuitable6Loyalty=5 and RecruitPage=2 then sprite 10,343,270,11
` Bar 6
If image exist(12)=0 then load image "Night Watch/Main Menu/Bar/6.bmp",12
If image exist(12)=1 and RecuitmentMenu=1 and Recuitable1Trustworthy=6 and RecruitPage=0 then sprite 7,85,180,12
If image exist(12)=1 and RecuitmentMenu=1 and Recuitable1Loyalty=6 and RecruitPage=0 then sprite 8,85,270,12
If image exist(12)=1 and RecuitmentMenu=1 and Recuitable2Trustworthy=6 and RecruitPage=0 then sprite 9,343,180,12
If image exist(12)=1 and RecuitmentMenu=1 and Recuitable2Loyalty=6 and RecruitPage=0 then sprite 10,343,270,12
If image exist(12)=1 and RecuitmentMenu=1 and Recuitable3Trustworthy=6 and RecruitPage=1 then sprite 7,85,180,12
If image exist(12)=1 and RecuitmentMenu=1 and Recuitable3Loyalty=6 and RecruitPage=1 then sprite 8,85,270,12
If image exist(12)=1 and RecuitmentMenu=1 and Recuitable4Trustworthy=6 and RecruitPage=1 then sprite 9,343,180,12
If image exist(12)=1 and RecuitmentMenu=1 and Recuitable4Loyalty=6 and RecruitPage=1 then sprite 10,343,270,12
If image exist(12)=1 and RecuitmentMenu=1 and Recuitable5Trustworthy=6 and RecruitPage=2 then sprite 7,85,180,12
If image exist(12)=1 and RecuitmentMenu=1 and Recuitable5Loyalty=6 and RecruitPage=2 then sprite 8,85,270,12
If image exist(12)=1 and RecuitmentMenu=1 and Recuitable6Trustworthy=6 and RecruitPage=2 then sprite 9,343,180,12
If image exist(12)=1 and RecuitmentMenu=1 and Recuitable6Loyalty=6 and RecruitPage=2 then sprite 10,343,270,12
` Bar 7
If image exist(13)=0 then load image "Night Watch/Main Menu/Bar/7.bmp",13
If image exist(13)=1 and RecuitmentMenu=1 and Recuitable1Trustworthy=7 and RecruitPage=0 then sprite 7,85,180,13 
If image exist(13)=1 and RecuitmentMenu=1 and Recuitable1Loyalty=7 and RecruitPage=0 then sprite 8,85,270,13
If image exist(13)=1 and RecuitmentMenu=1 and Recuitable2Trustworthy=7 and RecruitPage=0 then sprite 9,343,180,13
If image exist(13)=1 and RecuitmentMenu=1 and Recuitable2Loyalty=7 and RecruitPage=0 then sprite 10,343,270,13
If image exist(13)=1 and RecuitmentMenu=1 and Recuitable3Trustworthy=7 and RecruitPage=1 then sprite 7,85,180,13 
If image exist(13)=1 and RecuitmentMenu=1 and Recuitable3Loyalty=7 and RecruitPage=1 then sprite 8,85,270,13
If image exist(13)=1 and RecuitmentMenu=1 and Recuitable4Trustworthy=7 and RecruitPage=1 then sprite 9,343,180,13
If image exist(13)=1 and RecuitmentMenu=1 and Recuitable4Loyalty=7 and RecruitPage=1 then sprite 10,343,270,13
If image exist(13)=1 and RecuitmentMenu=1 and Recuitable5Trustworthy=7 and RecruitPage=2 then sprite 7,85,180,13 
If image exist(13)=1 and RecuitmentMenu=1 and Recuitable5Loyalty=7 and RecruitPage=2 then sprite 8,85,270,13
If image exist(13)=1 and RecuitmentMenu=1 and Recuitable6Trustworthy=7 and RecruitPage=2 then sprite 9,343,180,13
If image exist(13)=1 and RecuitmentMenu=1 and Recuitable6Loyalty=7 and RecruitPage=2 then sprite 10,343,270,13
` Bar 8
If image exist(14)=0 then load image "Night Watch/Main Menu/Bar/8.bmp",14
If image exist(14)=1 and RecuitmentMenu=1 and Recuitable1Trustworthy=8 and RecruitPage=0 then sprite 7,85,180,14 
If image exist(14)=1 and RecuitmentMenu=1 and Recuitable1Loyalty=8 and RecruitPage=0 then sprite 8,85,270,14
If image exist(14)=1 and RecuitmentMenu=1 and Recuitable2Trustworthy=8 and RecruitPage=0 then sprite 9,343,180,14
If image exist(14)=1 and RecuitmentMenu=1 and Recuitable2Loyalty=8 and RecruitPage=0 then sprite 10,343,270,14
If image exist(14)=1 and RecuitmentMenu=1 and Recuitable3Trustworthy=8 and RecruitPage=1 then sprite 7,85,180,14 
If image exist(14)=1 and RecuitmentMenu=1 and Recuitable3Loyalty=8 and RecruitPage=1 then sprite 8,85,270,14
If image exist(14)=1 and RecuitmentMenu=1 and Recuitable4Trustworthy=8 and RecruitPage=1 then sprite 9,343,180,14
If image exist(14)=1 and RecuitmentMenu=1 and Recuitable4Loyalty=8 and RecruitPage=1 then sprite 10,343,270,14
If image exist(14)=1 and RecuitmentMenu=1 and Recuitable5Trustworthy=8 and RecruitPage=2 then sprite 7,85,180,14 
If image exist(14)=1 and RecuitmentMenu=1 and Recuitable5Loyalty=8 and RecruitPage=2 then sprite 8,85,270,14
If image exist(14)=1 and RecuitmentMenu=1 and Recuitable6Trustworthy=8 and RecruitPage=2 then sprite 9,343,180,14
If image exist(14)=1 and RecuitmentMenu=1 and Recuitable6Loyalty=8 and RecruitPage=2 then sprite 10,343,270,14
` Bar 9
If image exist(15)=0 then load image "Night Watch/Main Menu/Bar/9.bmp",15
If image exist(15)=1 and RecuitmentMenu=1 and Recuitable1Trustworthy=9 and RecruitPage=0 then sprite 7,85,180,15 
If image exist(15)=1 and RecuitmentMenu=1 and Recuitable1Loyalty=9 and RecruitPage=0 then sprite 8,85,270,15
If image exist(15)=1 and RecuitmentMenu=1 and Recuitable2Trustworthy=9 and RecruitPage=0 then sprite 9,343,180,15
If image exist(15)=1 and RecuitmentMenu=1 and Recuitable2Loyalty=9 and RecruitPage=0 then sprite 10,343,270,15
If image exist(15)=1 and RecuitmentMenu=1 and Recuitable3Trustworthy=9 and RecruitPage=1 then sprite 7,85,180,15 
If image exist(15)=1 and RecuitmentMenu=1 and Recuitable3Loyalty=9 and RecruitPage=1 then sprite 8,85,270,15
If image exist(15)=1 and RecuitmentMenu=1 and Recuitable4Trustworthy=9 and RecruitPage=1 then sprite 9,343,180,15
If image exist(15)=1 and RecuitmentMenu=1 and Recuitable4Loyalty=9 and RecruitPage=1 then sprite 10,343,270,15
If image exist(15)=1 and RecuitmentMenu=1 and Recuitable5Trustworthy=9 and RecruitPage=2 then sprite 7,85,180,15 
If image exist(15)=1 and RecuitmentMenu=1 and Recuitable5Loyalty=9 and RecruitPage=2 then sprite 8,85,270,15
If image exist(15)=1 and RecuitmentMenu=1 and Recuitable6Trustworthy=9 and RecruitPage=2 then sprite 9,343,180,15
If image exist(15)=1 and RecuitmentMenu=1 and Recuitable6Loyalty=9 and RecruitPage=2 then sprite 10,343,270,15
` Bar 10
If image exist(16)=0 then load image "Night Watch/Main Menu/Bar/10.bmp",16
If image exist(16)=1 and RecuitmentMenu=1 and Recuitable1Trustworthy=10 and RecruitPage=0 then sprite 7,85,180,16 
If image exist(16)=1 and RecuitmentMenu=1 and Recuitable1Loyalty=10 and RecruitPage=0 then sprite 8,85,270,16
If image exist(16)=1 and RecuitmentMenu=1 and Recuitable2Trustworthy=10 and RecruitPage=0 then sprite 9,343,180,16
If image exist(16)=1 and RecuitmentMenu=1 and Recuitable2Loyalty=10 and RecruitPage=0 then sprite 10,343,270,16
If image exist(16)=1 and RecuitmentMenu=1 and Recuitable3Trustworthy=10 and RecruitPage=1 then sprite 7,85,180,16 
If image exist(16)=1 and RecuitmentMenu=1 and Recuitable3Loyalty=10 and RecruitPage=1 then sprite 8,85,270,16
If image exist(16)=1 and RecuitmentMenu=1 and Recuitable4Trustworthy=10 and RecruitPage=1 then sprite 9,343,180,16
If image exist(16)=1 and RecuitmentMenu=1 and Recuitable4Loyalty=10 and RecruitPage=1 then sprite 10,343,270,16
If image exist(16)=1 and RecuitmentMenu=1 and Recuitable5Trustworthy=10 and RecruitPage=2 then sprite 7,85,180,16 
If image exist(16)=1 and RecuitmentMenu=1 and Recuitable5Loyalty=10 and RecruitPage=2 then sprite 8,85,270,16
If image exist(16)=1 and RecuitmentMenu=1 and Recuitable6Trustworthy=10 and RecruitPage=2 then sprite 9,343,180,16
If image exist(16)=1 and RecuitmentMenu=1 and Recuitable6Loyalty=10 and RecruitPage=2 then sprite 10,343,270,16
Rem Interaction
NightWatchMainMenuTimer=NightWatchMainMenuTimer+1
` WASD
If keystate(17)=1 and NightWatchMainMenuTimer=>50 then NightWatchMainMenuSelection=NightWatchMainMenuSelection-1 : NightWatchMainMenuTimer=0
If keystate(31)=1 and NightWatchMainMenuTimer=>50 then NightWatchMainMenuSelection=NightWatchMainMenuSelection+1 : NightWatchMainMenuTimer=0
` Arrow Keys
If keystate(200)=1 and NightWatchMainMenuTimer=>50 then NightWatchMainMenuSelection=NightWatchMainMenuSelection-1 : NightWatchMainMenuTimer=0
If keystate(208)=1 and NightWatchMainMenuTimer=>50 then NightWatchMainMenuSelection=NightWatchMainMenuSelection+1 : NightWatchMainMenuTimer=0
` Select
If keystate(28)=1 and NightWatchMainMenuTimer=>50 and NightWatchMainMenuSelection=4 then RecuitmentSetup=1 : RecuitmentMenu=1 : NightWatchMainMenuTimer=0
` Return
If mousex()=>70 and mousex()=<91 and mousey()=>90 and mousey()=<112 and mouseclick()=1 and NightWatchMainMenuTimer=>50
RecuitmentMenu=0 : NightWatchMainMenuTimer=0 : RecuitmentSetup=0
for HidingSpriteRecruitment=7 to 21
If sprite exist(HidingSpriteRecruitment)=1 then hide sprite HidingSpriteRecruitment   
Next HidingSpriteRecruitment
endif

Rem Project: Night Watch
Rem Created: Monday, July 15, 2013
rem Edited by OBese87 (commenting as 'OB')

Rem ***** Main Source File *****

Rem Temp
set dir "Media"
set image colorkey 255,174,201
NightWatchMoney=500
NightWatchWeeklyCost=0

Rem Temp
Rem Recruiting

// -- set up a better structure for the data --
// recruit type
type recruitType
     trust as integer
     loyalty as integer
     firstname as string
     surname as string
     recruited as boolean
endtype

dim recruit(6) as recruitType

// read old data into new structure
recruit(1).trust = Recruitable1Trustworthy
recruit(2).trust = Recruitable2Trustworthy
recruit(3).trust = Recruitable3Trustworthy
recruit(4).trust = Recruitable4Trustworthy
recruit(5).trust = Recruitable5Trustworthy
recruit(6).trust = Recruitable6Trustworthy

recruit(1).loyalty = Recruitable1Loyalty
recruit(2).loyalty = Recruitable2Loyalty
recruit(3).loyalty = Recruitable3Loyalty
recruit(4).loyalty = Recruitable4Loyalty
recruit(5).loyalty = Recruitable5Loyalty
recruit(6).loyalty = Recruitable6Loyalty

recruit(1).firstname = Recruitable1FirstName$
recruit(2).firstname = Recruitable2FirstName$
recruit(3).firstname = Recruitable3FirstName$
recruit(4).firstname = Recruitable4FirstName$
recruit(5).firstname = Recruitable5FirstName$
recruit(6).firstname = Recruitable6FirstName$

recruit(1).surname = Recruitable1SecondName$
recruit(2).surname = Recruitable2SecondName$
recruit(3).surname = Recruitable3SecondName$
recruit(4).surname = Recruitable4SecondName$
recruit(5).surname = Recruitable5SecondName$
recruit(6).surname = Recruitable6SecondName$


rem -------- main --------
do
	rem UI

	rem ensure all required images are loaded
	if image exist(1)=0 then load image "Night Watch/Main Menu/NightWatchMenuPatrolsHighlighted.bmp",1
	if image exist(2)=0 then load image "Night Watch/Main Menu/NightWatchMenuCasesHighlighted.bmp",2
	if image exist(3)=0 then load image "Night Watch/Main Menu/NightWatchMenuFinanceHighlighted.bmp",3
	if image exist(4)=0 then load image "Night Watch/Main Menu/NightWatchMenuOfficersHighlighted.bmp",4
	if image exist(5)=0 then load image "Night Watch/Main Menu/NightWatchMenuRecruitmentHighlighted.bmp",5
	if image exist(6)=0 then load image "Night Watch/Main Menu/NightWatchSubMenu.bmp",6
	if image exist(7)=0 then load image "Night Watch/Main Menu/Bar/1.bmp",7
	if image exist(8)=0 then load image "Night Watch/Main Menu/Bar/2.bmp",8
	if image exist(9)=0 then load image "Night Watch/Main Menu/Bar/3.bmp",9
	if image exist(10)=0 then load image "Night Watch/Main Menu/Bar/4.bmp",10
	if image exist(11)=0 then load image "Night Watch/Main Menu/Bar/5.bmp",11
	if image exist(12)=0 then load image "Night Watch/Main Menu/Bar/6.bmp",12
	if image exist(13)=0 then load image "Night Watch/Main Menu/Bar/7.bmp",13
	if image exist(14)=0 then load image "Night Watch/Main Menu/Bar/8.bmp",14
	if image exist(15)=0 then load image "Night Watch/Main Menu/Bar/9.bmp",15
	if image exist(16)=0 then load image "Night Watch/Main Menu/Bar/10.bmp",16
	if image exist(17)=0 then load image "Night Watch/Main Menu/Profile/1.bmp",17
	if image exist(21)=0 then load image "Night Watch/Main Menu/Return Button.bmp",21
	
	paste image NightWatchMainMenuSelection+1,0,0	// OB: note: if NightWatchMainMenuSelection < 0 or NightWatchMainMenuSelection > 4 image number may be out of bounds.
	If RecruitmentMenu=1 or RecruitSubMenu>0 then paste image 6,0,0	 // OB: why are we pasting this on top of the previous image?

	If RecruitmentMenu=1
		` Profile
		If RecruitmentMenu=1 then sprite 11,80,115,17 : sprite 12,338,115,17	
		` Return Button
		If RecruitmentMenu=1 then sprite 21,70,90,21

		// Bars
		// OB: this should be suitable to replace all those bar blocks you had. I'm assuming the six recruits always display in the
		// same order on the same pages, it's easier that way.
		leftPageRecruit = RecruitPage*2 +1
		rightPageRecruit = leftPageRecruit +1

		sprite 7,85,180, 6 + recruit(leftPageRecruit).trust
		sprite 8,85,270, 6 + recruit(leftPageRecruit).loyalty
		sprite 9,343,180, 6 + recruit(rightPageRecruit).trust
		sprite 10,343,270, 6 + recruit(rightPageRecruit).loyalty
	endif


	Rem Interaction

	rem store inputs (OB: maybe store these keystate numbers in variables so they can be rebinded?)
	// menuControl = (<w> OR <up>) - (<s> OR <down>)
	oldMenuControl = menuControl
	menuControl = (keystate(17) || keystate(200)) - (keystate(31) || keystate(208))
	select = obtrip(keystate(28),select)
	leftClick = obtrip(mouseclick()=1,leftClick)

	if menuControl <> oldMenuControl then  inc NightWatchMainMenuSelection,menuControl
	if select and NightWatchMainMenuSelection=4 then RecruitmentSetup=1 : RecruitmentMenu=1

	// return
	if leftClick and mouseInRegion(70,90,91,112)
	   RecruitmentMenu=0 : NightWatchMainMenuTimer=0 : RecruitmentSetup=0
	   for n=7 to 21 : if sprite exist(n)=1 then hide sprite n : next n
	endif

	
	Rem Recruitment Menu
	If RecruitmentMenu=1
		for n=7 to 21 : if sprite exist(n)=1 then show sprite n : next n

		` debugging info
		set cursor 0,0 : Print "Mouse:", mx, ",", my
		set cursor 0,15 : Print "RecruitPage=", RecruitPage
		set cursor 0,30 : Print "Recruited3=", Recruited3

		ink 0,0		// OB: rgb(a,b,c) = a*65536 + b*256 + c ; so rgb(0,0,0) = 0
	
		` display recruits on current left and right pages (when n=0 we are on the left page, when n=1 we are on the right)
		for n = 0 to 1
		      	r = leftPageRecruit + n
			text 182+n*258,105, recruit(r).firstname + " " + recruit(r).surname
			center text 182+n*258,219,"Trustworthy : " + str$(recruit(r).trust)
			center text 182+n*258,300,"Loyalty : " + str$(recruit(r).loyalty)
			if recruit(r).recruited then recruitedStatus$ = "Recruited" else recruitedStatus$ = "Recruit"
			center text 182+n*258,335,recruitedStatus$

			// select recruit
			If recruit(leftPageRecruit+n).recruited=0 and leftClick=1
			   if mouseInRegion(147+n*257,334,217+n*253,349) 
			   	RecruitmentMenu=0 : RecruitSubMenu = leftPageRecruit+n
			    	for n=7 to 21 : if sprite exist(n)=1 then hide sprite n : next n //should not hide them here! Why we hiding them?
			   endif
			endif
		next n

rem ----------------------------------------------------------------

		` Previous Page Button
		If RecruitPage > 0
		   text 84,370,"Previous Page"
		   If mouseInRegion(75,370,195,387) and leftClick=1 then dec RecruitPage
		endif

		` Next Page Button 
		If RecruitPage < 2
		   text 484,370,"Next Page"
		   If mouseInRegion(467,370,563,387) and leftClick=1 then inc RecruitPage
		endif

rem ----------------------------------------------------------------

	Rem Recruit Person
	center text 182,105,"Recruit Information"
	text 70,130, "Trustworthy : " + str$(recruit(recruitSubMenu).trust)
	text 70,150, "Loyalty : " + str$(recruit(recruitSubMenu).loyalty)
	box 70,175,280,178
	text 70,190, "Finance"
	text 200,190,str$(NightWatchMoney)
	text 200,210,"-50"
	box 150,230,280,233
	text 200,240,str$(NightWatchMoney-50)
	text 70,255, "Weekly Cost"
	text 200,255,"-" + str$(NightWatchWeeklyCost)
	text 70,270, "New Weekly Cost"
	text 200,270,"-" + str$(NightWatchWeeklyCost+25)
	box 150,290,280,293
	text 200,300,str$((NightWatchMoney-50)-NightWatchWeeklyCost-25)
	center text 182,335,"Confirm       Return"
	paste sprite 11,400,130
	set text size 30
	center text 440,220,recruit(recruitSubMenu).firstname + " " + recruit(recruitSubMenu).surname
	set text size 12
	If recruit(recruitSubMenu).trust > recruit(recruitSubMenu).loyalty
		bio1$ = Recruit(recruitSubMenu).firstname + " " + Recruit(recruitSubMenu).surname + " will follow orders"
		bio2$ = "of people they trust even if "
		bio3$ = "it isn't strictly legal and"
		bio4$ = "will get any job done but may"
		bio5$ = "take out some of the "
		bio6$ = "buildings in the process."
	endif
	If Recruitable1Trustworthy<=Recruitable1Loyalty 
		bio1$ = Recruit(recruitSubMenu).firstname + " " + Recruit(recruitSubMenu).surname + " will uphold the law"
		bio2$ = "at any cost to themself or "
		bio3$ = "others.They do everything by"
		bio4$ = "the book and are praized well"
		bio5$ = "by the public for doing so, "
		bio6$ = "but not by all."
	endif

rem -------------------------------------------------------- end of OBese87 edits --------------------------------------------------------
	Rem Recruit/Return
	Rem Confirm
	If mouseclick()=1 and mousex()=>102 and mousex()=<160 and mousey()=>334 and mousey()=<351
	RecruitSubMenu=0 : RecruitmentMenu=1
	open to write 10,"Night Watch/Watchmen/RWM.txt"
	write string 10,Recruitable1FirstName$ + " " + Recruitable1SecondName$
	write string 10,str$(Recruitable1Trustworthy)
	write string 10,str$(Recruitable1Loyalty)
	Recruited1=1
	endif
	Rem Return
	If mousex()=>212 and mousex()=<266 and mousey()=>334 and mousey()=<348 and mouseclick()=1 then RecruitSubMenu=0 : RecruitmentMenu=1
	endif


	Rem Recruitment Setup
	If RecruitmentSetup=1
	for PeopleRecruitable=1 to 6
	FirstName=rnd(1)
	LastName=rnd(1)
	Trustworthy=rnd(10)
	Loyalty=rnd(10)
	` Sixth
	If Recruitable6FirstName$="" and len(Recruitable5FirstName$)=>1
	If FirstName=1 then Recruitable6FirstName$="bob"
	If LastName=1 then Recruitable56econdName$="fred"
	Recruitable6Trustworthy=Trustworthy
	If Recruitable6Trustworthy=0 then Recruitable6Trustworthy=1
	Recruitable6Loyalty=Loyalty
	If Recruitable6Loyalty=0 then Recruitable6Loyalty=1
	endif
	` Fifth
	If Recruitable5FirstName$="" and len(Recruitable4FirstName$)=>1
	If FirstName=1 then Recruitable5FirstName$="bob"
	If LastName=1 then Recruitable5SecondName$="fred"
	Recruitable5Trustworthy=Trustworthy
	If Recruitable5Trustworthy=0 then Recruitable5Trustworthy=1
	Recruitable5Loyalty=Loyalty
	If Recruitable5Loyalty=0 then Recruitable5Loyalty=1
	endif
	` Fourth
	If Recruitable4FirstName$="" and len(Recruitable3FirstName$)=>1
	If FirstName=1 then Recruitable4FirstName$="bob"
	If LastName=1 then Recruitable4SecondName$="fred"
	Recruitable4Trustworthy=Trustworthy
	If Recruitable4Trustworthy=0 then Recruitable4Trustworthy=1
	Recruitable4Loyalty=Loyalty
	If Recruitable4Loyalty=0 then Recruitable4Loyalty=1
	endif
	` Third
	If Recruitable3FirstName$="" and len(Recruitable2FirstName$)=>1
	If FirstName=1 then Recruitable3FirstName$="bob"
	If LastName=1 then Recruitable3SecondName$="fred"
	Recruitable3Trustworthy=Trustworthy
	If Recruitable3Trustworthy=0 then Recruitable3Trustworthy=1
	Recruitable3Loyalty=Loyalty
	If Recruitable3Loyalty=0 then Recruitable3Loyalty=1
	endif
	` Second
	If Recruitable2FirstName$="" and len(Recruitable1FirstName$)=>1
	If FirstName=1 or FirstName=0 then Recruitable2FirstName$="Will"
	If LastName=1 or LastName=0 then Recruitable2SecondName$="Trip"
	Recruitable2Trustworthy=Trustworthy
	If Recruitable2Trustworthy=0 then Recruitable2Trustworthy=1
	Recruitable2Loyalty=Loyalty
	If Recruitable2Loyalty=0 then Recruitable2Loyalty=1
	endif
	` First
	If Recruitable1FirstName$=""
	If FirstName=1 or FirstName=0 then Recruitable1FirstName$="Sam"
	If LastName=1 or LastName=0 then Recruitable1SecondName$="Gold"
	Recruitable1Trustworthy=Trustworthy
	If Recruitable1Trustworthy=0 then Recruitable1Trustworthy=1
	Recruitable1Loyalty=Loyalty
	If Recruitable1Loyalty=0 then Recruitable1Loyalty=1
	endif
	Next PeopleRecruitable
	endif
loop

rem ******** FUNCTIONS ********
function mouseInRegion(x1,y1,x2,y2)
	 // this structure causes the check to stop as soon as it finds a value out of bounds.
	 if mousex() >= x1
	    if mousex() <= x2
	       if mousey() >= y1
	       	  if mousey() <= y2
		     exitfunction 1
		  endif
	       endif
	    endif
	 endif
endfunction 0

// obtrip is a function for automated input detection, written by OBese87, which reads only the first instance of an input as true.
function obtrip(trigger,oldstate)
	 state = trigger * ((oldstate=0) - abs(oldstate))
endfunction state

remstart
Project: Night Watch
Created: Monday, July 15, 2013
Edited by OBese87/Libervurto (commenting as 'OB')
--------------------------------
** VARIABLE NAME CHANGES **
'RecruitSubMenu' replaced by 'selectedRecruit'
'trustwothy' replaced by 'loyal'
'loyalty' replaced by 'lawful' (these seem to make more sense in context)
--------------------------------
***** Main Source File *****
remend

set dir "Media"
set image colorkey 255,174,201
NightWatchMoney = 500
NightWatchWeeklyCost = 0

Rem Recruiting

`// -- set up a better structure for the data --
`// recruit type
type recruitType
     loyal as integer
     lawful as integer
     firstname as string
     surname as string
     recruited as boolean
endtype

dim recruit(6) as recruitType

rem --- LOAD NAMES --
rem (OB: Might be a better idea to store names in a separate text file and read them in.)
rem first names
totalfirstnames = 55
data "Merek","Carac","Ulric","Tybalt","Borin","Sadon","Terrowin","Rowan","Forthwind","Althalos","Fendrel","Brom","Hadrian","Walter","Oliver","Clifton","Roger","Leofrick"
data "Joseph","Geoffrey","William","Francis","Simon","John","Edmund","Charles","Benedict","Gregory","Peter","Henry","Frederick","Thomas","Arthur","Bryce","Donald","Letholdus","Lief"
data "Barda","Rulf","Robin","Gavin","Terryn","Ronald","Jarin","Cassius","Leo","Cedric","Gavin","Peyton","Doran","Asher","Quinn","Xalvador","Favian","Destrian","Berinon"

rem surnames
totalsurnames = 1
data "Jones","Smith"

dim firstname$(totalfirstnames)
for n = 0 to totalfirstnames : read firstname$(n) : next n
dim surname$(totalsurnames)
for n = 0 to totalsurnames : read surname$(n) : next n
rem --------------

rem recruit bias text
dim recruitbias$(2,6)	`// There are three versions of the bias text, each has six lines.

rem loyal bias
data " will follow the orders"
data "of those he trusts, even if "
data "it isn't strictly legal, and"
data "will get any job done, but may"
data "take out some of the "
data "buildings in the process!"

rem lawful bias
data " will uphold the law"
data "at any cost to themselves or "
data "others.They do everything by"
data "the book and are praised well"
data "by the public for doing so; "
data "but not by all."

rem neutral bias
data " has no biases."
data "He is equally lawful and loyal."
data ""
data ""
data ""
data ""

rem read in bias text to array
for bias = 0 to 2
    for i = 0 to 5
    	read recruitbias$(bias,i)
    next i
next bias

rem -------- setup recruits --------
for n = 1 to 6
    recruit(n).firstname = firstname$(rnd(totalfirstnames))
    recruit(n).surname = surname$(rnd(totalsurnames))
    recruit(n).lawful = rnd(10)
    recruit(n).loyal = rnd(10)
    recruit(n).recruited = 0
next n
rem -------------------

rem ensure all required images are loaded
if image exist(1) = 0 then load image "Night Watch/Main Menu/NightWatchMenuPatrolsHighlighted.bmp",1
if image exist(2) = 0 then load image "Night Watch/Main Menu/NightWatchMenuCasesHighlighted.bmp",2
if image exist(3) = 0 then load image "Night Watch/Main Menu/NightWatchMenuFinanceHighlighted.bmp",3
if image exist(4) = 0 then load image "Night Watch/Main Menu/NightWatchMenuOfficersHighlighted.bmp",4
if image exist(5) = 0 then load image "Night Watch/Main Menu/NightWatchMenuRecruitmentHighlighted.bmp",5
if image exist(6) = 0 then load image "Night Watch/Main Menu/NightWatchSubMenu.bmp",6
if image exist(7) = 0 then load image "Night Watch/Main Menu/Bar/1.bmp",7
if image exist(8) = 0 then load image "Night Watch/Main Menu/Bar/2.bmp",8
if image exist(9) = 0 then load image "Night Watch/Main Menu/Bar/3.bmp",9
if image exist(10) = 0 then load image "Night Watch/Main Menu/Bar/4.bmp",10
if image exist(11) = 0 then load image "Night Watch/Main Menu/Bar/5.bmp",11
if image exist(12) = 0 then load image "Night Watch/Main Menu/Bar/6.bmp",12
if image exist(13) = 0 then load image "Night Watch/Main Menu/Bar/7.bmp",13
if image exist(14) = 0 then load image "Night Watch/Main Menu/Bar/8.bmp",14
if image exist(15) = 0 then load image "Night Watch/Main Menu/Bar/9.bmp",15
if image exist(16) = 0 then load image "Night Watch/Main Menu/Bar/10.bmp",16
if image exist(17) = 0 then load image "Night Watch/Main Menu/Profile/1.bmp",17
if image exist(21) = 0 then load image "Night Watch/Main Menu/Return Button.bmp",21

rem -------- main --------
do
	paste image NightWatchMainMenuSelection+1,0,0
	If RecruitmentMenu = 1 or RecruitSubMenu > 0 then paste image 6,0,0	 `// OB: why are we pasting this on top of the previous image?

	If RecruitmentMenu = 1
		` Profile
		If RecruitmentMenu = 1 then sprite 11,80,115,17 : sprite 12,338,115,17	
		` Return Button
		If RecruitmentMenu = 1 then sprite 21,70,90,21

		`// Bars
		`// OB: this should be suitable to replace all those bar blocks you had. I'm assuming the six recruits always display in the
		`// same order on the same pages, it's easier that way.
		leftPageRecruit = RecruitPage*2 +1
		rightPageRecruit = leftPageRecruit +1

		sprite 7,85,180, 6 + recruit(leftPageRecruit).loyal
		sprite 8,85,270, 6 + recruit(leftPageRecruit).lawful
		sprite 9,343,180, 6 + recruit(rightPageRecruit).loyal
		sprite 10,343,270, 6 + recruit(rightPageRecruit).lawful
	endif


	Rem Interaction

	rem store inputs (OB: maybe store these keystate numbers in variables so they can be rebinded?)
	`// menuControl = (<w> OR <up>) - (<s> OR <down>)
	oldMenuControl = menuControl
	menuControl = (keystate(17) || keystate(200)) - (keystate(31) || keystate(208))
	select = obtrip(keystate(28),select)
	leftClick = obtrip(mouseclick() = 1,leftClick)

	if menuControl <> oldMenuControl then  inc NightWatchMainMenuSelection,menuControl
	if select and NightWatchMainMenuSelection = 4 then RecruitmentSetup = 1 : RecruitmentMenu = 1

	`// return
	if leftClick and mouseInRegion(70,90,91,112)
	   RecruitmentMenu = 0 : NightWatchMainMenuTimer = 0 : RecruitmentSetup = 0
	   for n = 7 to 21 : if sprite exist(n) = 1 then hide sprite n : next n
	endif

	
	Rem Recruitment Menu
	If RecruitmentMenu = 1
		for n = 7 to 21 : if sprite exist(n) = 1 then show sprite n : next n

		` debugging info
		set cursor 0,0 : Print "Mouse:", mx, ",", my
		set cursor 0,15 : Print "RecruitPage = ", RecruitPage
		set cursor 0,30 : Print "Recruited3 = ", Recruited3

		ink 0,0		`// OB: rgb(a,b,c) = a*65536 + b*256 + c ; so rgb(0,0,0) = 0
	
		` display recruits on current left and right pages (when n = 0 we are on the left page, when n = 1 we are on the right)
		for n = 0 to 1
		      	r = leftPageRecruit + n
			text 182+n*258,105, recruit(r).firstname + " " + recruit(r).surname
			center text 182+n*258,219,"Loyalty : " + str$(recruit(r).loyal)
			center text 182+n*258,300,"Lawfulness : " + str$(recruit(r).lawful)
			if recruit(r).recruited then recruitedStatus$ = "Recruited" else recruitedStatus$ = "Recruit"
			center text 182+n*258,335,recruitedStatus$

			`// select recruit
			If recruit(leftPageRecruit+n).recruited = 0 and leftClick = 1
			   if mouseInRegion(147+n*257,334,217+n*253,349) 
			   	RecruitmentMenu = 0 : RecruitSubMenu = leftPageRecruit+n
			    	for n = 7 to 21 : if sprite exist(n) = 1 then hide sprite n : next n `//should not hide them here! Why we hiding them?
			   endif
			endif
		next n

		` Previous Page Button
		If RecruitPage > 0
		   text 84,370,"Previous Page"
		   If mouseInRegion(75,370,195,387) and leftClick = 1 then dec RecruitPage
		endif
		` Next Page Button 
		If RecruitPage < 2
		   text 484,370,"Next Page"
		   If mouseInRegion(467,370,563,387) and leftClick = 1 then inc RecruitPage
		endif

		Rem Recruit Person
		center text 182,105,"Recruit Information"
		text 70,130, "Loyalty : " + str$(recruit(selectedRecruit).loyal)
		text 70,150, "Lawfulness : " + str$(recruit(selectedRecruit).lawful)
		box 70,175,280,178
		text 70,190, "Finance"
		text 200,190,str$(NightWatchMoney)
		text 200,210,"-50"
		box 150,230,280,233
		text 200,240,str$(NightWatchMoney-50)
		text 70,255, "Weekly Cost"
		text 200,255,"-" + str$(NightWatchWeeklyCost)
		text 70,270, "New Weekly Cost"
		text 200,270,"-" + str$(NightWatchWeeklyCost+25)
		box 150,290,280,293
		text 200,300,str$((NightWatchMoney-50)-NightWatchWeeklyCost-25)
		center text 182,335,"Confirm       Return"
		paste sprite 11,400,130
		set text size 30
		center text 440,220,recruit(selectedRecruit).firstname + " " + recruit(selectedRecruit).surname
		set text size 12

		rem recruit bias text
		select (recruit(selectedRecruit).loyal - recruit(selectedRecruit).lawful)
		       rem positive values will be in favour of loyalty, negative values in favour of lawfulness.
		       rem bias=0 means loyal, bias=1 means lawful, bias=2 means neutral.
		       rem I made the bias boundaries wider because this seems better.
		       case >2 : bias = 0 : endcase
		       case <-2 : bias = 1 : endcase
		       case default : bias = 2 : endcase
		endselect

		text 340,270, recruit(selectedRecruit).firstname + " " + recruit(selectedRecruit).surname + recruitbias$(bias,0)
		for i = 1 to 5
		    text 340,270+i*20, recruitbias$(bias,i)
		next i
	
		Rem Recruit/Return
		Rem Confirm
		if mouseInRegion(102,334,160,351) and leftClick
			RecruitSubMenu = 0 : RecruitmentMenu = 1
			open to write 10,"Night Watch/Watchmen/RWM.txt"
			write string 10,recruit(RecruitSubMenu).FirstName$ + " " + recruit(RecruitSubMenu).SecondName$
			write string 10,str$(recruit(RecruitSubMenu).loyal)
			write string 10,str$(recruit(RecruitSubMenu).Lawful)
			recruit(selectedRecruit).recruited = 1
		endif
		Rem Return
		if mouseInRegion(212,334,266,348) and leftClick = 1 then RecruitSubMenu = 0 : RecruitmentMenu = 1
	endif
loop

rem ******** FUNCTIONS ********
function mouseInRegion(x1,y1,x2,y2)
	 `// this structure causes the check to stop as soon as it finds a value out of bounds.
	 if mousex() >=  x1
	    if mousex() <=  x2
	       if mousey() >=  y1
	       	  if mousey() <=  y2
		     exitfunction 1
		  endif
	       endif
	    endif
	 endif
endfunction 0

`// obtrip is a function for automated input detection, written by OBese87, which reads only the first instance of an input as true.
function obtrip(trigger,oldstate)
	 state = trigger * ((oldstate = 0) - abs(oldstate))
endfunction state

do
  cls
  menuControl = (keystate(17) || keystate(200)) - (keystate(31) || keystate(208))
  set cursor 20, 20
  print menucontrol
loop

select = obtrip(keystate(28),select)

remstart
Project: Night Watch
Created: Monday, July 15, 2013
Edited by OBese87/Libervurto (commenting as 'OB')
--------------------------------
** VARIABLE NAME CHANGES **
'RecruitSubMenu' replaced by 'selectedRecruit'
'trustwothy' replaced by 'loyal'
'loyalty' replaced by 'lawful' (these seem to make more sense in context)
--------------------------------
***** Main Source File *****
remend

set dir "Media"
set image colorkey 255,174,201
NightWatchMoney = 500
NightWatchWeeklyCost = 0

Rem Recruiting

`// -- set up a better structure for the data --
`// recruit type
type recruitType
     loyal as integer
     lawful as integer
     firstname as string
     surname as string
     recruited as boolean
endtype

dim recruit(6) as recruitType

rem --- LOAD NAMES --
rem (OB: Might be a better idea to store names in a separate text file and read them in.)
rem first names
totalfirstnames = 55
data "Merek","Carac","Ulric","Tybalt","Borin","Sadon","Terrowin","Rowan","Forthwind","Althalos","Fendrel","Brom","Hadrian","Walter","Oliver","Clifton","Roger","Leofrick"
data "Joseph","Geoffrey","William","Francis","Simon","John","Edmund","Charles","Benedict","Gregory","Peter","Henry","Frederick","Thomas","Arthur","Bryce","Donald","Letholdus","Lief"
data "Barda","Rulf","Robin","Gavin","Terryn","Ronald","Jarin","Cassius","Leo","Cedric","Gavin","Peyton","Doran","Asher","Quinn","Xalvador","Favian","Destrian","Berinon"

rem surnames
totalsurnames = 1
data "Jones","Smith"

dim firstname$(totalfirstnames)
for n = 0 to totalfirstnames : read firstname$(n) : next n
dim surname$(totalsurnames)
for n = 0 to totalsurnames : read surname$(n) : next n
rem --------------

rem recruit bias text
dim recruitbias$(2,6)   `// There are three versions of the bias text, each has six lines.

rem loyal bias
data " will follow the orders"
data "of those he trusts, even if "
data "it isn't strictly legal, and"
data "will get any job done, but may"
data "take out some of the "
data "buildings in the process!"

rem lawful bias
data " will uphold the law"
data "at any cost to themselves or "
data "others.They do everything by"
data "the book and are praised well"
data "by the public for doing so; "
data "but not by all."

rem neutral bias
data " has no biases."
data "He is equally lawful and loyal."
data ""
data ""
data ""
data ""

rem read in bias text to array
for bias = 0 to 2
    for i = 0 to 5
        read recruitbias$(bias,i)
    next i
next bias

rem -------- setup recruits --------
for n = 1 to 6
    recruit(n).firstname = firstname$(rnd(totalfirstnames))
    recruit(n).surname = surname$(rnd(totalsurnames))
    recruit(n).lawful = rnd(10)
    recruit(n).loyal = rnd(10)
    recruit(n).recruited = 0
next n
rem -------------------

rem ensure all required images are loaded
if image exist(1) = 0 then load image "Night Watch/Main Menu/NightWatchMenuPatrolsHighlighted.bmp",1
if image exist(2) = 0 then load image "Night Watch/Main Menu/NightWatchMenuCasesHighlighted.bmp",2
if image exist(3) = 0 then load image "Night Watch/Main Menu/NightWatchMenuFinanceHighlighted.bmp",3
if image exist(4) = 0 then load image "Night Watch/Main Menu/NightWatchMenuOfficersHighlighted.bmp",4
if image exist(5) = 0 then load image "Night Watch/Main Menu/NightWatchMenuRecruitmentHighlighted.bmp",5
if image exist(6) = 0 then load image "Night Watch/Main Menu/NightWatchSubMenu.bmp",6
if image exist(7) = 0 then load image "Night Watch/Main Menu/Bar/1.bmp",7
if image exist(8) = 0 then load image "Night Watch/Main Menu/Bar/2.bmp",8
if image exist(9) = 0 then load image "Night Watch/Main Menu/Bar/3.bmp",9
if image exist(10) = 0 then load image "Night Watch/Main Menu/Bar/4.bmp",10
if image exist(11) = 0 then load image "Night Watch/Main Menu/Bar/5.bmp",11
if image exist(12) = 0 then load image "Night Watch/Main Menu/Bar/6.bmp",12
if image exist(13) = 0 then load image "Night Watch/Main Menu/Bar/7.bmp",13
if image exist(14) = 0 then load image "Night Watch/Main Menu/Bar/8.bmp",14
if image exist(15) = 0 then load image "Night Watch/Main Menu/Bar/9.bmp",15
if image exist(16) = 0 then load image "Night Watch/Main Menu/Bar/10.bmp",16
if image exist(17) = 0 then load image "Night Watch/Main Menu/Profile/1.bmp",17
if image exist(21) = 0 then load image "Night Watch/Main Menu/Return Button.bmp",21

rem -------- main --------
do
        If NightWatchMainMenuSelection>-1 then paste image NightWatchMainMenuSelection+1,0,0
        If RecruitmentMenu = 1 or RecruitSubMenu > 0 then paste image 6,0,0      `// OB: why are we pasting this on top of the previous image?

        If RecruitmentMenu = 1
                ` Profile
                If RecruitmentMenu = 1 then sprite 11,80,115,17 : sprite 12,338,115,17  
                ` Return Button
                If RecruitmentMenu = 1 then sprite 21,70,90,21

                `// Bars
                `// OB: this should be suitable to replace all those bar blocks you had. I'm assuming the six recruits always display in the
                `// same order on the same pages, it's easier that way.
                leftPageRecruit = RecruitPage*2 +1
                rightPageRecruit = leftPageRecruit +1

                sprite 7,85,180, 6 + recruit(leftPageRecruit).loyal
                sprite 8,85,270, 6 + recruit(leftPageRecruit).lawful
                sprite 9,343,180, 6 + recruit(rightPageRecruit).loyal
                sprite 10,343,270, 6 + recruit(rightPageRecruit).lawful
        endif


        Rem Interaction

        rem store inputs (OB: maybe store these keystate numbers in variables so they can be rebinded?)
        `// menuControl = (<w> OR <up>) - (<s> OR <down>)
        oldMenuControl = menuControl
        menuControl = (keystate(208) || keystate(31)) - (keystate(200) || keystate(17))
        sel = obtrip(keystate(28),sel)
        leftClick = obtrip(mouseclick() = 1,leftClick)

        if menuControl <> oldMenuControl then  inc NightWatchMainMenuSelection,menuControl
        if sel and NightWatchMainMenuSelection = 4 then RecruitmentSetup = 1 : RecruitmentMenu = 1

        `// return
        if leftClick and mouseInRegion(70,90,91,112)
           RecruitmentMenu = 0 : NightWatchMainMenuTimer = 0 : RecruitmentSetup = 0
           for n = 7 to 21
           if sprite exist(n) = 1 then hide sprite n 
           next n
        endif

        
        Rem Recruitment Menu
        If RecruitmentMenu = 1
                for n = 7 to 21
                if sprite exist(n) = 1 then show sprite n
                next n

                ` debugging info
                set cursor 0,0 : Print "Mouse:", mx, ",", my
                set cursor 0,15 : Print "RecruitPage = ", RecruitPage
                set cursor 0,30 : Print "Recruited3 = ", Recruited3

                ink 0,0         `// OB: rgb(a,b,c) = a*65536 + b*256 + c ; so rgb(0,0,0) = 0
        
                ` display recruits on current left and right pages (when n = 0 we are on the left page, when n = 1 we are on the right)
                for n = 0 to 1
                        r = leftPageRecruit + n
                        text 182+n*258,105, recruit(r).firstname + " " + recruit(r).surname
                        center text 182+n*258,219,"Loyalty : " + str$(recruit(r).loyal)
                        center text 182+n*258,300,"Lawfulness : " + str$(recruit(r).lawful)
                        if recruit(r).recruited then recruitedStatus$ = "Recruited" else recruitedStatus$ = "Recruit"
                        center text 182+n*258,335,recruitedStatus$

                        `// select recruit
                        If recruit(leftPageRecruit+n).recruited = 0 and leftClick = 1
                           if mouseInRegion(147+n*257,334,217+n*253,349) 
                                RecruitmentMenu = 0 : RecruitSubMenu = leftPageRecruit+n
                                for n = 7 to 21
                                if sprite exist(n) = 1 then hide sprite n
                                next n `//should not hide them here! Why we hiding them?
                           endif
                        endif
                next n

                ` Previous Page Button
                If RecruitPage > 0
                   text 84,370,"Previous Page"
                   If mouseInRegion(75,370,195,387) and leftClick = 1 then dec RecruitPage
                endif
                ` Next Page Button 
                If RecruitPage < 2
                   text 484,370,"Next Page"
                   If mouseInRegion(467,370,563,387) and leftClick = 1 then inc RecruitPage
                endif

                Rem Recruit Person
                center text 182,105,"Recruit Information"
                text 70,130, "Loyalty : " + str$(recruit(selectedRecruit).loyal)
                text 70,150, "Lawfulness : " + str$(recruit(selectedRecruit).lawful)
                box 70,175,280,178
                text 70,190, "Finance"
                text 200,190,str$(NightWatchMoney)
                text 200,210,"-50"
                box 150,230,280,233
                text 200,240,str$(NightWatchMoney-50)
                text 70,255, "Weekly Cost"
                text 200,255,"-" + str$(NightWatchWeeklyCost)
                text 70,270, "New Weekly Cost"
                text 200,270,"-" + str$(NightWatchWeeklyCost+25)
                box 150,290,280,293
                text 200,300,str$((NightWatchMoney-50)-NightWatchWeeklyCost-25)
                center text 182,335,"Confirm       Return"
                paste sprite 11,400,130
                set text size 30
                center text 440,220,recruit(selectedRecruit).firstname + " " + recruit(selectedRecruit).surname
                set text size 12

                rem recruit bias text
                select (recruit(selectedRecruit).loyal - recruit(selectedRecruit).lawful)
                       rem positive values will be in favour of loyalty, negative values in favour of lawfulness.
                       rem bias=0 means loyal, bias=1 means lawful, bias=2 means neutral.
                       rem I made the bias boundaries wider because this seems better.
                       If case >2 then bias = 0 
                       If case <-2 then bias = 1
                       If case default then bias = 2
                endselect

                text 340,270, recruit(selectedRecruit).firstname + " " + recruit(selectedRecruit).surname + recruitbias$(bias,0)
                for i = 1 to 5
                    text 340,270+i*20, recruitbias$(bias,i)
                next i
        
                Rem Recruit/Return
                Rem Confirm
                if mouseInRegion(102,334,160,351) and leftClick
                        RecruitSubMenu = 0 : RecruitmentMenu = 1
                        open to write 10,"Night Watch/Watchmen/RWM.txt"
                        write string 10,recruit(RecruitSubMenu).FirstName + " " + recruit(RecruitSubMenu).Surname
                        write string 10,str$(recruit(RecruitSubMenu).loyal)
                        write string 10,str$(recruit(RecruitSubMenu).Lawful)
                        recruit(selectedRecruit).recruited = 1
                endif
                Rem Return
                if mouseInRegion(212,334,266,348) and leftClick = 1 then RecruitSubMenu = 0 : RecruitmentMenu = 1
        endif
loop

rem ******** FUNCTIONS ********
function mouseInRegion(x1,y1,x2,y2)
         `// this structure causes the check to stop as soon as it finds a value out of bounds.
         if mousex() >=  x1
            if mousex() <=  x2
               if mousey() >=  y1
                  if mousey() <=  y2
                     exitfunction 1
                  endif
               endif
            endif
         endif
endfunction 0

`// obtrip is a function for automated input detection, written by OBese87, which reads only the first instance of an input as true.
function obtrip(trigger,oldstate)
         state = trigger * ((oldstate = 0) - abs(oldstate))
endfunction state

remstart
***** Main Source File *****
Project: Night Watch
Created: Monday, July 15, 2013
Edited by OBese87/Libervurto (commenting as 'OB')
--------------------------------
** VARIABLE CHANGES **
'RecruitSubMenu' → 'selectedRecruit'
'trustwothy' → 'loyal'
'loyalty' → 'lawful'
'NightWatchMainMenuSelection' → 'NWMenuCursor'
'NightWatchMoney' → 'NWMoney' 
'NightWatchWeeklyCost' → 'NWWeeklyCost'
'RecruitmentSetup' → REMOVED: does nothing.
'RecruitmentMenu' → 'NWMenuView': now stores a value from 0-6 for the currently viewed menu:
	0 = main menu, 1 = patrols, 2 = cases, 3 = finance, 4 = officers, 5 = recruits
	(I am also using [6 = recruit profile] since it seems like a better solution than having to check if a recruit is selected,
	but it's not an elegant solution and may change.)
--------------------------------
** PROGRAMMING COMMENTS **
* Why do you use absurdly long variable names, like 'NightWatchMainMenuSelection'? They are not helpful.
* Controlling some parts of the menus with keyboard and others with mouse is confusing.
* Think about how the program will be expanded while you are writing it. Examples of not doing this:
  	→ You did not use a variable for the portrait image number, even though you want to give the recruits different portraits in future.
	→ You are clearly planning to add further menus, but you have rigidly coded in the recruitment menu as if it will be the only sub-menu.
--------------------------------
** GAME DESIGN THOUGHTS **
* There should be separate ledgers (books) for Patrols, Cases, Finances, Officers and Recruits.
* All books should be navigable by page-turning, with buttons acting like hyperlinks to certain pages.
* The recruit menu should be more like a list of names linking to the individual profiles.
* LOYALTY and LAWFULNESS
  → How do LOYALTY and LAWFULNESS effect the watchman's behaviour? Is their loyalty to their captain or to you? Could they be loyal to someone
    above you, or are you the highest authority? I still think these terms are confusing and need rewording.
  → How are these statistics being gathered? Is it available from the start or do you have to interview/know the men to learn about their nature?
  → I think it would be better not to display numbers at all, the recruit's bio/bias text can be refined to give a good idea of their stats.
--------------------------------
** EXPLANATION OF THE SILKEY FUNCTION **
SILKEY, by Silverman/Libervurto, is a function for simplifying the use of Autonomous Assignment Variables (AAVs).
AAVs are self-governing variables, they instruct their own assignment via additional data stored within themselves.
You do not need to understand the inner workings of AAVs in order to use this function, you only need to interpret the return values.
SILKEY was designed for managing inputs, so I will explain the return values in that context, but it could be used to monitor
the changing state of any boolean variable.

RETURN VALUES:

  Value	 State
  0	 idle
  1	 newly pressed
  2	 newly released
  3	 held

These values may seem to be in a strange order, but the order becomes logical once you consider their binary representations and the fact
that SILKEY operates a FILO system, which records both the previous and current state of the trigger within the return value itself.
----------------------------------------------------------------
remend

set dir "Media"
set image colorkey 255,174,201
NWMoney = 500
NWWeeklyCost = 0

gosub _load_images
gosub _init_recruits

rem **************** MAIN ****************
do
	rem == MAIN MENU ==
	if NWMenuView = 0
		rem store inputs (OB: maybe store these keystate numbers in variables so they can be rebounded?)
		`// menuControl = (<w> OR <up>) - (<s> OR <down>)
		oldMenuControl = menuControl
		menuControl = (keystate(208) || keystate(31)) - (keystate(200) || keystate(17))
		selectKey = silkey(keystate(28),selectKey)
		leftClick = silkey(mouseclick()=1,leftClick)

		rem move cursor if change within bounds
		if menuControl <> oldMenuControl
		   if NWMenuCursor+menucontrol <=4 and NWMenuCursor+menucontrol >=0 then inc NWMenuCursor,menuControl
		endif

		rem submenu select
		if selectKey then NWMenuView = 5
		// for now, all options lead to the recruit menu, but this will be replaced by: NWMenuView = NWMenuCursor+1

		rem return to main menu
		if leftClick and mouseInRegion(70,90,91,112) then NWMenuView = 0

		rem display highlighted menu (patrols, cases, finance, officers, recruits)
		paste image NWMenuCursor+1,0,0
	else
		rem submenus use a different base image
		paste image 6,0,0
	endif

	Rem == RECRUITMENT MENU ==
	If NWMenuView = 5
		ink 0,0		`// OB: rgb(a,b,c) = a*65536 + b*256 + c ; so rgb(0,0,0) = 0

		` debugging info
		set cursor 0,0 : Print "Mouse X,Y:", mx, ",", my
		set cursor 0,15 : Print "RecruitPage = ", RecruitPage

		rem -- page control --
		If RecruitPage > 0
			text 84,370,"Previous Page"
			If mouseInRegion(75,370,195,387) and leftClick = 1 then dec RecruitPage
			rem update left page recruit to match page
			leftPageRecruit = RecruitPage*2 +1
		endif
		If RecruitPage < 2
			text 484,370,"Next Page"
			If mouseInRegion(467,370,563,387) and leftClick = 1 then inc RecruitPage
			rem update left page recruit to match page
			leftPageRecruit = RecruitPage*2 +1
		endif
        
		` Return to main menu Button
		paste image 21,70,90

		rem -- display page contents -- (left page = 0, right page = 1)
		for n = 0 to 1
			current = leftPageRecruit + n

			rem portraits
			paste image recruit(leftPageRecruit).portrait,80,115
			paste image recruit(rightPageRecruit).portrait,338,115

			rem attribute bars
			paste image 6 + recruit(current).loyal,85,180
			paste image 6 + recruit(current).lawful,85,270

			if recruit(current).recruited then recruitedStatus$ = "Recruited" else recruitedStatus$ = "Recruit"
			text 182+n*258,105, recruit(current).firstname + " " + recruit(r).surname
			center text 182+n*258,219,"Loyalty : " + str$(recruit(current).loyal)
			center text 182+n*258,300,"Lawfulness : " + str$(recruit(current).lawful)
			center text 182+n*258,335,recruitedStatus$

			rem select recruit?
			If recruit(current).recruited = 0 and leftClick = 1
				if mouseInRegion(147+n*257,334,217+n*253,349) then NWMenuView = 6 : selectedRecruit = current
			endif
		next n
	endif

	rem == RECRUIT PROFILE PAGE ==
	if NWMenuView = 6
		Rem Recruit Person
		center text 182,105,"Recruit Information"
		text 70,130, "Loyalty : " + str$(recruit(selectedRecruit).loyal)
		text 70,150, "Lawfulness : " + str$(recruit(selectedRecruit).lawful)
		box 70,175,280,178
		text 70,190, "Finance"
		text 200,190,str$(NWMoney)
		text 200,210,"-50"
		box 150,230,280,233
		text 200,240,str$(NWMoney-50)
		text 70,255, "Weekly Cost"
		text 200,255,"-" + str$(NWWeeklyCost)
		text 70,270, "New Weekly Cost"
		text 200,270,"-" + str$(NWWeeklyCost+25)
		box 150,290,280,293
		text 200,300,str$((NWMoney-50)-NWWeeklyCost-25)
		center text 182,335,"Confirm       Return"
		paste image recruit(selectedRecruit).portrait,400,130
		set text size 30
		center text 440,220,recruit(selectedRecruit).firstname + " " + recruit(selectedRecruit).surname
		set text size 12

		rem determine recruit's bias
		select (recruit(selectedRecruit).loyal - recruit(selectedRecruit).lawful)
			rem positive values will be in favour of loyalty, negative values in favour of lawfulness.
			rem bias=0 means loyal, bias=1 means lawful, bias=2 means neutral.
			rem I made the bias boundaries wider because this seems better.

			case >2 : bias = 0 : endcase
			case <-2 : bias = 1 : endcase
			case default : bias = 2 : endcase
		endselect
		rem display recruit bias text
		text 340,270, recruit(selectedRecruit).firstname + " " + recruit(selectedRecruit).surname + recruitbias$(bias,0)
		for i = 1 to 5 : text 340,270+i*20, recruitbias$(bias,i) : next i

		rem confirm recruitment of selected recruit
		if mouseInRegion(102,334,160,351) and leftClick
			open to write 10,"Night Watch/Watchmen/RWM.txt"
			write string 10,recruit(selectedRecruit).FirstName + " " + recruit(selectedRecruit).Surname
			write string 10,str$(recruit(selectedRecruit).loyal)
			write string 10,str$(recruit(selectedRecruit).Lawful)
			recruit(selectedRecruit).recruited = 1
			selectedRecruit = 0 : NWMenuView = 5
		endif

		Rem return to recruit menu
		if mouseInRegion(212,334,266,348) and leftClick = 1 then selectedRecruit = 0 : NWMenuView = 5
	endif
loop
end

rem ******** SUBROUTINES ********
_init_recruits:
	type recruitType
	     loyal as integer
	     lawful as integer
	     firstname as string
	     surname as string
	     recruited as boolean
	     portrait as integer
	endtype

	dim recruit(6) as recruitType

	rem --- LOAD NAMES --
	rem (OB: Might be a better idea to store names in a separate text file and read them in.)
	rem first names
	maxfirstname = 55
	data "Merek","Carac","Ulric","Tybalt","Borin","Sadon","Terrowin","Rowan","Forthwind","Althalos","Fendrel","Brom","Hadrian","Walter","Oliver"
	data "Clifton","Roger","Leofrick","Joseph","Geoffrey","William","Francis","Simon","John","Edmund","Charles","Benedict","Gregory","Peter","Henry"
	data "Frederick","Thomas","Arthur","Bryce","Donald","Letholdus","Lief","Barda","Rulf","Robin","Gavin","Terryn","Ronald","Jarin","Cassius","Leo"
	data "Cedric","Gavin","Peyton","Doran","Asher","Quinn","Xalvador","Favian","Destrian","Berinon"

	rem surnames
	maxsurname = 46
	data "Adeney","Alevi","Ansgot","Aschuill","Aubert","Auvray","Baignard","Baliol","Basnage","Baujot","Bavent","Beaumont","Bele","Belmis","Berners"
	data "Bigot","Blosbeville","Boisivon","Boivin","Bondeville","Boneth","Bosanquet","Bossard","Boterel","Bourchier","Bourneville","Braund","Bretel"
	data "Brèvedent","Briouse","Buci","Burci","Bursigni","Caen","Cairon","Campion","Caradas","Cardonell","Castillon","Ceauce","Chandos","Cheney"
	data "Claville","Coliar","Colombieres","Corbet"

	dim firstname$(maxfirstname)
	for n = 0 to maxfirstname : read firstname$(n) : next n
	dim surname$(maxsurname)
	for n = 0 to maxsurname : read surname$(n) : next n

	rem --- BIAS TEXT ---
	dim recruitbias$(2,3)   `// There are three versions of the bias text, each has four lines.

	rem loyal bias
	data " will follow the orders"
	data "of those he trusts; even if"
	data "those orders are not"
	data "strictly legal."

	rem lawful bias
	data "'s only loyalty is to the law."
	data "They do everything by the book"
	data "and are praised well by the"
	data "public for doing so."

	rem neutral bias
	data " has no biases."
	data ""
	data ""
	data ""

	rem read bias text into array
	for bias = 0 to 2
	    for i = 0 to 3
		read recruitbias$(bias,i)
	    next i
	next bias
	`--

	rem -- initialize recruit data --
	for n = 1 to 6
	    recruit(n).firstname = firstname$(rnd(maxfirstname))
	    recruit(n).surname = surname$(rnd(maxsurname))
	    recruit(n).lawful = rnd(10)
	    recruit(n).loyal = rnd(10)
	    recruit(n).recruited = 0
	    recruit(n).portrait = 17	`all recruits currently use the same portrait
	next n
return
//

_load_images:
	if image exist(1) = 0 then load image "Night Watch/Main Menu/NightWatchMenuPatrolsHighlighted.bmp",1
	if image exist(2) = 0 then load image "Night Watch/Main Menu/NightWatchMenuCasesHighlighted.bmp",2
	if image exist(3) = 0 then load image "Night Watch/Main Menu/NightWatchMenuFinanceHighlighted.bmp",3
	if image exist(4) = 0 then load image "Night Watch/Main Menu/NightWatchMenuOfficersHighlighted.bmp",4
	if image exist(5) = 0 then load image "Night Watch/Main Menu/NightWatchMenuRecruitmentHighlighted.bmp",5
	if image exist(6) = 0 then load image "Night Watch/Main Menu/NightWatchSubMenu.bmp",6
	if image exist(7) = 0 then load image "Night Watch/Main Menu/Bar/1.bmp",7
	if image exist(8) = 0 then load image "Night Watch/Main Menu/Bar/2.bmp",8
	if image exist(9) = 0 then load image "Night Watch/Main Menu/Bar/3.bmp",9
	if image exist(10) = 0 then load image "Night Watch/Main Menu/Bar/4.bmp",10
	if image exist(11) = 0 then load image "Night Watch/Main Menu/Bar/5.bmp",11
	if image exist(12) = 0 then load image "Night Watch/Main Menu/Bar/6.bmp",12
	if image exist(13) = 0 then load image "Night Watch/Main Menu/Bar/7.bmp",13
	if image exist(14) = 0 then load image "Night Watch/Main Menu/Bar/8.bmp",14
	if image exist(15) = 0 then load image "Night Watch/Main Menu/Bar/9.bmp",15
	if image exist(16) = 0 then load image "Night Watch/Main Menu/Bar/10.bmp",16
	if image exist(17) = 0 then load image "Night Watch/Main Menu/Profile/1.bmp",17
	if image exist(21) = 0 then load image "Night Watch/Main Menu/Return Button.bmp",21
return
//

rem ******** FUNCTIONS ********
function mouseInRegion(x1,y1,x2,y2)
         `// this structure causes the check to stop as soon as it finds a value out of bounds.
         if mousex() >=  x1
            if mousex() <=  x2
               if mousey() >=  y1
                  if mousey() <=  y2
                     exitfunction 1
                  endif
               endif
            endif
         endif
endfunction 0
//

rem [See header notes for an explanation of the silkey function]
function silkey(trigger,oldstate)
    newstate = 3&&(oldstate<<1||trigger)
endfunction newstate
//

                rem confirm recruitment of selected recruit
                if mouseInRegion(102,334,160,351) and leftClick
                        open to write 10,"Night Watch/Watchmen/RWM.txt"
                        write string 10,recruit(selectedRecruit).FirstName + " " + recruit(selectedRecruit).Surname
                        write string 10,str$(recruit(selectedRecruit).loyal)
                        write string 10,str$(recruit(selectedRecruit).Lawful)
                        recruit(selectedRecruit).recruited = 1
                        selectedRecruit = 0 : NWMenuView = 5
                endif

                Rem return to recruit menu
                if mouseInRegion(212,334,266,348) and leftClick = 1 then selectedRecruit = 0 : NWMenuView = 5
        endif
loop
end

rem determine recruit's bias
                select (recruit(selectedRecruit).loyal - recruit(selectedRecruit).lawful)
                        rem positive values will be in favour of loyalty, negative values in favour of lawfulness.
                        rem bias=0 means loyal, bias=1 means lawful, bias=2 means neutral.
                        rem I made the bias boundaries wider because this seems better.

                        case >2 : bias = 0 : endcase
                        case <-2 : bias = 1 : endcase
                        case default : bias = 2 : endcase
                endselect

for b = 0 to 4 step 2
   select (2-b)
      case >1 : bias = 0 : endcase
      case <-1 : bias = 1 : endcase
      case default : bias = 2 : endcase
   endselect

   print bias
next b

wait key

for b = 0 to 4 step 2
   select (2-b)
      case >1 : bias = 0 : endcase
      case <-1 : bias = 1 : endcase
      case default : bias = 2 : endcase
   endselect

   print bias
next b

wait key

select myVar
  case 0
    ...
  endcase
  case 1
    ...
  endcase
  case default
    ...
  endcase
endselect

select myString$
  case "use"
    ...
  endcase
  case "jump"
    ...
  endcase
  case default
    ...
  endcase
endselect

for b = 0 to 4 step 2
   select (2-b)
      case >1 : bias = 0 : endcase
      case <-1 : bias = 1 : endcase
      case default : bias = 2 : endcase
   endselect

   print bias
next b

bias = 0

If b < -1
  bias = 1
Else
  If b <= 1
    bias = 2
  EndIf
EndIf

recruit(selectedRecruit).Lawfulness = 10
recruit(selectedRecruit).ExperienceLevel = 10
recruit(selectedRecruit).Strength = 10

bias = recruit(selectedRecruit).Lawfulness + recruit(selectedRecruit).Experience + recruit(selectedRecruit).Strength

If bias > 20
  Print "You are qualified"
Else
  Print "Sorry you are un-qualified"
EndIf