:VALComment100
if
	human = 1
	VALRand = 0
then
	set VALComment (turn + 100000)
	set VALRand ((rnd%28) + 1)
	disable
end

:VALComment101
if
	blueprint_count < 1
	VALRand = 1
	turn > VALComment
then
	say ! "Valmessages_val01"
	set VALRand ((rnd%28) + 1)
	set VALcomment (turn + 50000)
end

:VALComment102
if
	blueprint_count < 1
	VALRand = 2
	turn > VALComment
then
	say ! "Valmessages_val02"
	set VALRand ((rnd%28) + 1)
	set VALcomment (turn + 50000)
end

:VALComment103
if
	blueprint_count < 1
	VALRand = 3
	turn > VALComment
then
	say ! "Valmessages_val03"
	set VALRand ((rnd%28) + 1)
	set VALcomment (turn + 50000)
end

:VALComment104
if
	blueprint_count < 1
	VALRand = 4
	turn > VALComment
then
	say ! "Valmessages_val04"
	set VALRand ((rnd%28) + 1)
	set VALcomment (turn + 50000)
end

:VALComment105
if
	blueprint_count < 1
	VALRand = 5
	turn > VALComment
then
	say ! "Valmessages_val05"
	set VALRand ((rnd%28) + 1)
	set VALcomment (turn + 50000)
end

:VALComment106
if
	blueprint_count < 1
	VALRand = 6
	turn > VALComment
then
	say ! "Valmessages_val06"
	set VALRand ((rnd%28) + 1)
	set VALcomment (turn + 50000)
end

:VALComment107
if
	blueprint_count < 1
	VALRand = 7
	turn > VALComment
then
	say ! "Valmessages_val07"
	set VALRand ((rnd%28) + 1)
	set VALcomment (turn + 50000)
end

:VALComment108
if
	blueprint_count < 1
	VALRand = 8
	turn > VALComment
then
	say ! "Valmessages_val08"
	set VALRand ((rnd%28) + 1)
	set VALcomment (turn + 50000)
end

:VALComment109
if
	blueprint_count < 1
	VALRand = 9
	turn > VALComment
then
	say ! "Valmessages_val09"
	set VALRand ((rnd%28) + 1)
	set VALcomment (turn + 50000)
end

:VALComment110
if
	blueprint_count < 1
	VALRand = 10
	turn > VALComment
then
	say ! "Valmessages_val10"
	set VALRand ((rnd%28) + 1)
	set VALcomment (turn + 50000)
end

:VALComment111
if
	blueprint_count < 1
	VALRand = 11
	turn > VALComment
then
	say ! "Valmessages_val11"
	set VALRand ((rnd%28) + 1)
	set VALcomment (turn + 50000)
end

:VALComment112
if
	blueprint_count < 1
	VALRand = 12
	turn > VALComment
then
	say ! "Valmessages_val12"
	set VALRand ((rnd%28) + 1)
	set VALcomment (turn + 50000)
end

:VALComment113
if
	blueprint_count < 1
	VALRand = 13
	turn > VALComment
then
	say ! "Valmessages_val13"
	set VALRand ((rnd%28) + 1)
	set VALcomment (turn + 50000)
end

:VALComment114
if
	blueprint_count < 1
	VALRand = 14
	turn > VALComment
then
	say ! "Valmessages_val14"
	set VALRand ((rnd%28) + 1)
	set VALcomment (turn + 50000)
end

:VALComment115
if
	blueprint_count < 1
	VALRand = 15
	turn > VALComment
then
	say ! "Valmessages_val15"
	set VALRand ((rnd%28) + 1)
	set VALcomment (turn + 50000)
end

:VALComment116
if
	blueprint_count < 1
	VALRand = 16
	turn > VALComment
then
	say ! "Valmessages_val16"
	set VALRand ((rnd%28) + 1)
	set VALcomment (turn + 50000)
end

:VALComment117
if
	blueprint_count < 1
	VALRand = 17
	turn > VALComment
then
	say ! "Valmessages_val17"
	set VALRand ((rnd%28) + 1)
	set VALcomment (turn + 50000)
end

:VALComment118
if
	blueprint_count < 1
	VALRand = 18
	turn > VALComment
then
	say ! "Valmessages_val18"
	set VALRand ((rnd%28) + 1)
	set VALcomment (turn + 50000)
end

:VALComment119
if
	blueprint_count < 1
	VALRand = 19
	turn > VALComment
then
	say ! "Valmessages_val19"
	set VALRand ((rnd%28) + 1)
	set VALcomment (turn + 50000)
end

:VALComment120
if
	blueprint_count < 1
	VALRand = 20
	turn > VALComment
then
	say ! "Valmessages_val20"
	set VALRand ((rnd%28) + 1)
	set VALcomment (turn + 50000)
end

:VALComment121
if
	blueprint_count < 1
	VALRand = 21
	turn > VALComment
then
	say ! "Valmessages_val21"
	set VALRand ((rnd%28) + 1)
	set VALcomment (turn + 50000)
end

:VALComment122
if
	blueprint_count < 1
	VALRand = 22
	turn > VALComment
then
	say ! "Valmessages_val22"
	set VALRand ((rnd%28) + 1)
	set VALcomment (turn + 50000)
end

:VALComment123
if
	blueprint_count < 1
	VALRand = 23
	turn > VALComment
then
	say ! "Valmessages_val23"
	set VALRand ((rnd%28) + 1)
	set VALcomment (turn + 50000)
end

:VALComment124
if
	blueprint_count < 1
	VALRand = 24
	turn > VALComment
then
	say ! "Valmessages_val24"
	set VALRand ((rnd%28) + 1)
	set VALcomment (turn + 50000)
end

:VALComment125
if
	blueprint_count < 1
	VALRand = 25
	turn > VALComment
then
	say ! "Valmessages_val25"
	set VALRand ((rnd%28) + 1)
	set VALcomment (turn + 50000)
end

:VALComment126
if
	blueprint_count < 1
	VALRand = 26
	turn > VALComment
then
	say ! "Valmessages_val26"
	set VALRand ((rnd%28) + 1)
	set VALcomment (turn + 50000)
end

:VALComment127
if
	blueprint_count < 1
	VALRand = 27
	turn > VALComment
then
	say ! "Valmessages_val27"
	set VALRand ((rnd%28) + 1)
	set VALcomment (turn + 50000)
end

:VALComment128
if
	blueprint_count < 1
	VALRand = 28
	turn > VALComment
then
	say ! "Valmessages_val28"
	set VALRand ((rnd%28) + 1)
	set VALcomment (turn + 50000)
end