Hacker 70/HACKER70.ISO/Igre/Startopia/startopiademo.exe/missions/00/valmessages00.txt

Text File | 2001-05-14 | 5KB | 319 lines

: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