PC World Plus! (NZ) 2001 October/PCW1001.iso/Games/startopiademo1.exe/missions/32/mish32.txt

Text File | 2001-05-14 | 3KB | 206 lines

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

:energytopup
if
    energy < 50000
    turn > topup
then
    set topup (turn + 10)
    set energy 50000
end


:cargotutorial010
if
    turn > 10
then
    place_peep scutter 6 2 sub_deck 1024
    tutorial "tutorial_tutorial50" set cargotutorial 1
    disable
end

:cargotutorial020
if
      cargotutorial = 1
then
    cam_pos 80 100 200 0 256
    placeportable hard_plan_crate 8 12 sub_deck 1000 cargo_bay
    tutorial "tutorial_tutorial51" set cargotutorial 2 "opencratebutton"
    disable
end

:cargotutorial030
if
      cargotutorial = 2
then
    tutorial "tutorial_tutorial52" set cargotutorial 3 special cargobaybuilt
    disable
end

:cargotutorial035
if
    cargo_bay_count > 0
then
    set cargobaybuilt 1
    disable
end

:cargotutorial040
if
      cargotutorial = 3
then
    tutorial "tutorial_tutorial53" set tradetutorial 1
    disable
end

:tradetutorial040
if
    said = 0
    cargo_bay_count > 0
    tradetutorial = 1
then
    trader "arona3000.csv" 50 "tutorial_tutorial54"
    set tradetimer (turn + 1250)
    tutorial "tutorial_tutorial55" set tradetutorial 2
    set said 1
end

:tradetutorial050
if
    turn > tradetimer
    tradetimer > 0
then
    trader "arona3000.csv" 50 "tutorial_tutorial54"
    set tradetimer (turn + 1250)
end

:cargocounter
if
    tradetutorial < 4
    turn > cargotimer
then
    set cargostock (((((((Industrial_crate_count + Medical_Supply_crate_count) + Food_Supply_crate_count) + Hardware_crate_count) + Luxury_Item_crate_count) + Ore_crate_count) + Black_Market_Goods_crate_count) + Furniture_plan_crate_count)
    set cargotimer (turn + 6)
end

:cargobought
if
    tradetutorial < 4
    cargostock > cargotraded
then
    set somethingbought (somethingbought + 1)
    set cargotraded (cargostock)
end

:cargosold
if
    tradetutorial < 4
    cargostock < cargotraded
then
    set somethingsold (somethingsold + 1)
    set cargotraded (cargostock)
end


:tradetutorial060
if
    cargo_bay_count > 0
    (somethingsold + somethingbought) > 6
then
    tutorial "tutorial_tutorial56" set tradetutorial 3 findroom cargo_bay
    disable
end

:cargobayreplace
if
    cargotutorial > 2
    cargo_bay_count < 1
then
    tutorial "tutorial_tutorial60" set said 0
    set tradetutorial 1
    disable
end

:tradetutorial070
if
    cargo_bay_count > 0
    tradetutorial = 3
then
    tutorial "tutorial_tutorial57" set tradetutorial 4 special pbuffer_size 1
    set pbuffer_test 0
    set pbuffer_test2 1
    disable
end

:tradetutorial080
if
    tradetutorial = 4
then
    pbuffer pbuffer_test2
;    set pbuffer_test (1 - buffer_test2)
end

:tutorial080b
if
    pbuffer_test2 = 0
then
    set pbuffer_test 1
end


:tradetutorial085
if
    tradetutorial = 4
then
    tutorial "tutorial_tutorial58" set tradetutorial 5 special pbuffer_test
    disable
end

:tradetutorial090
if
    tradetutorial = 5
then
    set scriptwait (turn + 100)
    set tradetutorial 6
    disable
end

:tradetutorial100
if
    turn > scriptwait
    tradetutorial = 6
then
    set scriptwait (turn + 200)
    set tradetutorial 7
    incoming local_comms icon 0 respond reply02 "tutorial_tutorial59"
end

:tradetutorial110
if
    reply02 = 2
then
    win
    disable
end

:tradetutorial120
if
    reply02 < 2
then
    set reply02 3
    set scriptwait (turn + 200)
    set tradetutorial 6
end