Hacker 70/HACKER70.ISO/Igre/Startopia/startopiademo.exe/missions/30/mish30.txt

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

:autorun
if
then
    title "Tutorial01"
    disallow decks bio_deck
    disallow decks mid_deck
    set reply01 3
    set reply02 3
    disable
end

:energy
if
    collectorcount > 0
then
    set energy 100000
    disable
end

:tutorial010
if
    turn > 50
then
    tutorial "tutorial_tutorial00" set welcometutorial 1
    disable
end

:tutorial020
if
    welcometutorial = 1
then
    tutorial "tutorial_tutorial01" set cameratutorial 1
    disable
end

:tutorial030
if
    cameratutorial = 1
then
    tutorial "tutorial_tutorial02" set cameratutorial 2
    disable
end

:tutorial040
if
    cameratutorial = 2
then
    tutorial "tutorial_tutorial03" set cameratutorial 3
    disable
end

:tutorial050
if
    cameratutorial = 3
then
    tutorial "tutorial_tutorial04" set cameratutorial 4
    disable
end

:tutorial060
if
    cameratutorial = 4
then
    tutorial "tutorial_tutorial05" set cameratutorial 5
    disable
end

:tutorial070
if
    cameratutorial = 5
then
    tutorial "tutorial_tutorial06" set crateplace 1
    disable
end

:crateplace100
if
    crateplace = 1
then
    set scriptwait (turn + 20)
    set cratetutorial 1
    cam_pos 80 100 200 0 256
    placeportable luxury_item_crate 8 12 sub_deck 1000
    placeportable medical_supply_crate 9 14 sub_deck 1000
    placeportable food_supply_crate 7 13 sub_deck 1000
    disable
end

:tutorial080
if
    scriptwait > turn
    cratetutorial = 1
then
    tutorial "tutorial_tutorial07" set cratetutorial 2 special pbuffer_size 1
    set pbuffer_test  0
    set pbuffer_test2 1
    disable
end

:tutorial084
if
    cratetutorial = 2
then
    pbuffer pbuffer_test2
;    set pbuffer_test (1 - buffer_test2)
end

:tutorial084b
if
    pbuffer_test2 = 0
then
    set pbuffer_test 1
end

:tutorial085
if
    cratetutorial = 2
then
    set scriptwait (turn + 200)
    tutorial "tutorial_tutorial08" set cratetutorial 3 special pbuffer_test
    disable
end

:tutorialend100
if
    turn > scriptwait
    cratetutorial = 3
then
    say 500 "tutorial_tutorial09"
    tutorial "tutorial_tutorial16" set cratetutorial 4 message 500
    disable
end

:tutorialend300
if
    turn > scriptwait
    cratetutorial = 4
then
    set cratetutorial 5
    incoming local_comms icon 0 respond reply01 "tutorial_tutorial10"
end

:tutorialend400
if
    reply01 = 2
then
    set scuzzertutorial 1
    disable
end

:tutorial500
if
    reply01 < 2
then
    set reply01 3
    set scriptwait (turn + 200)
    set cratetutorial 4
end


:scuzzertutorial100
if
    scuzzertutorial = 1
then
    evaporate food_supply_crate 1
    evaporate luxury_item_crate 1
    evaporate medical_supply_crate 1
    cam_pos 80 100 200 0 256
    placeportable scutter_crate 7 13 sub_deck 1000 1
    set scuzzerpause (turn + 10)
    disable
end

:scuzzertutorial100b
if
    scuzzertutorial = 1
    turn > scuzzerpause
then
    tutorial "tutorial_tutorial11" set scuzzertutorial 4 findportable scutter_crate
    disable
end

:scuzzertutorial110
if
    scuzzertutorial = 4
then
    tutorial "tutorial_tutorial12" set scuzzertutorial 5 "opencratebutton"
    disable
end

:scuzzertutorial120
if
    scuzzertutorial = 5
then
    set tutorwait (turn + 100)
    tutorial "tutorial_tutorial13" set collectortutorial 1
    disable
end

:scuzzertutorial125
if
    scutter_count > 0
    scuzzertutorial < 5
then
    set scuzzertutorial 5
    disable
end

:collectortutorial100
if
    turn > tutorwait
    collectortutorial = 1
then
    cam_pos 80 100 200 0 256
    placeportable hard_plan_crate 7 13 sub_deck 600 collector
    disable
end

:collectortutorial110
if
    collectortutorial = 1
    cargoexists hard_plan_crate collector > 0
then
    tutorial "tutorial_tutorial14" set collectortutorial 7 findportable hard_plan_crate collector
    disable
end

:collectortutorial120
if
    collectortutorial = 7
then
    tutorial "tutorial_tutorial15" set collectortutorial 8 "opencratebutton"
    disable
end

:collectortutorial150
if
    collectortutorial = 8
then
    tutorial "tutorial_tutorial18" set bptutorial 1 special placeroom
    disable
end

:collectortutorial160
if
    bptutorial = 1
then
    tutorial "tutorial_tutorial19" set bptutorial 2 special placeroom 1
    disable
end

:collectortutorial170
if
    bptutorial = 2
then
    tutorial "tutorial_tutorial20" set bptutorial 3 special placeroom
    disable
end

:collectortutorial171
if
    collector_count = 1
    bptutorial < 4
then
    tutorial "tutorial_tutorial21" set bptutorial 4
    disable
end

:collectortutorial180
if
    bptutorial = 3
then
    tutorial "tutorial_tutorial22" set bptutorial 4 "roompanelokbutton"
    disable
end

:collectortutorial190
if
    turn > scriptwait
    collector_count > 0
    turn > scriptwait
    bptutorial = 4
then
    set scriptwait (turn + 200)
    set bptutorial 5
    incoming local_comms icon 0 respond reply02 "tutorial_tutorial23"
end

:collectortutorial200
if
    reply02 = 2
then
    win
    disable
end

:collectortutorial300
if
    reply02 < 2
then
    set reply02 3
    set scriptwait (turn + 200)
    set bptutorial 4
end