X2000 Projekt

[Kungsfisk]

Sådär, äntligen. Varsågoda!!

TANKA HEM HÄR (Dropbox direktlänk, högerklicka och spara som!)


Bästa upplevelsen får ni genom att välja ett av de tre medföljande tågseten i Quick Drive.
Alternativt kan ni ploppa ner vagnarna i era egna byggen.

Använd "C"-knappen för att fälla in backspeglarna. Bara vänstra backspegeln på driven funkar.

Tåget heter "Litt X2" om ni inte hittar det. Benämns med prefix SJ - XXXX i världseditorn.

[Hamp3]

Nu har jag testat nya betan och precis som Micke.L skrev tidigare så lyckas du än en gång överträffa dig själv!

Hytten, pantografen och backspegeln är superfina men trots det var det faktiskt interiören i vagnarna som jag blev extra uppspelt över för du hade verkligen lyckats fånga den där lite trånga men exklusiva känslan som jag upplevde när jag åkte tåget IRL. Kanske är det innertaket och det höga golvet som gör det men du lyckades verkligen få till känslan där - trots att du inte satt in varken hyllor, stolar eller något alls ännu. Den bruna vägg/golv/tak-färgen är klockren och exakt så som jag minns att det ser ut på riktigt!

Den enda jag kan anmärka på är att jag tyckte fronten kändes lite kort och nästan lite trubbig. Men det kanske bara beror på att noskonen inte är där?

[ADDE]

Snyggt jobbat! Avinstallerade förra versionen och laddade upp på nytt. placerade X2:an på min Dalabana, och sedan ändrade jag vädret till regnigt storm... På första bilden ser jag att du inte har använt dig utav regnvänliga fönster ännu... fast det kanske är klokt då fönstertorkarna ej heller funkar. Jämför t.ex. med RC-hytten, eller officiella DLCn, och kolla hur det ser ut med regnväder påslaget.

I bild 2 så ville jag sitta i passargerarvagn, men det var inte mycket till passagerarvagn jag fick där

[Kungsfisk]

@ADDE
Har inte ändrat sökvägarna i åka med vagnen än, pillar med den just nu faktiskt. Ang. vindrutorna så är det precis just för att vindrutetorkarna inte är operativa än ^^

@Hamp3
Haha, jag får ta en vända till med nosen

Kul att det funkar i varje fall!

[Micke.L]

Ursprungligen postat av Hamp3

Nu har jag testat nya betan och precis som Micke.L skrev tidigare så lyckas du än en gång överträffa dig själv!

Hytten, pantografen och backspegeln är superfina men trots det var det faktiskt interiören i vagnarna som jag blev extra uppspelt över för du hade verkligen lyckats fånga den där lite trånga men exklusiva känslan som jag upplevde när jag åkte tåget IRL. Kanske är det innertaket och det höga golvet som gör det men du lyckades verkligen få till känslan där - trots att du inte satt in varken hyllor, stolar eller något alls ännu. Den bruna vägg/golv/tak-färgen är klockren och exakt så som jag minns att det ser ut på riktigt!

Den enda jag kan anmärka på är att jag tyckte fronten kändes lite kort och nästan lite trubbig. Men det kanske bara beror på att noskonen inte är där?

Har du nån bild från passagerarvyn? Jag kommer inte kunna testa för än slutet av juli

[Kungsfisk]

Gav TrainGlassWeatherEffect ett försök, råkade få den att bugga ur sig men å andra sidan kanske det nu finns ett material man kan använda för spegling?

01.jpg02.jpg

[Hamp3]

Ursprungligen postat av Micke.L

Har du nån bild från passagerarvyn? Jag kommer inte kunna testa för än slutet av juli

Vet inte riktigt om bilderna gör tåget rättvisa, men såhär:

[Hamp3]

Ursprungligen postat av Kungsfisk

Gav TrainGlassWeatherEffect ett försök, råkade få den att bugga ur sig men å andra sidan kanske det nu finns ett material man kan använda för spegling?

Haha, smart!
Kom nyss att tänka på att eftersom det är ganska svårt(omöjligt?) att se backspeglarna inifrån hytten så kanske man kunde fästa "head-out camera"-vyn så den tittar in i backspegeln. Men det är bara en tanke - det kan finnas bättre lösningar.

[Kungsfisk]

Den där interiören är INTE den som kommer laddas när man sitter och dricker kaffe i Bistron, bara så att ni är med på det. Det är grunden till den interiör man kommer se exteriört

Två frågor:
1: Call(“*:ActivateNode”, “<Node Name>”, "<RN>")

Gör denna funktion en del av geometrin synlig/osynlig?

2: Jag får inte animationerna att hända alls...och jag förstår inte varför. Tycker detta borde vara ett idiotsäkert skript?!

Default value funkar bra, om den är satt till 1 är lamporna påslagna, vice versa med ett default value av 0.
03.jpg

Provade även lite andra idéer men som inte riktigt heller gick vägen.
Denna är överexplicit där jag försökte göra en "push button" som alltid ger reella hela tal och därav skapa en cykel för de olika lamp-lägena.

PHP-kod:

function Initialise()
startup=0
HLA=1
HLB=0
HLC=0
HLD=0
LV=1
end

function Setup() 
    Call("*:SetControlValue", "HeadlightsB",0,1);  -- Ger inget resultat
    Call("*:SetControlValue", "HeadlightsC",0,1);  -- Ger inget resultat
    Call("*:BeginUpdate");
end


function OnControlValueChange ( name, index, value)

    if Call( "*:ControlExists", name, index ) then
        if (name=="LiveInjectorWater") then  -- "L"
            LV=LV+1
            if LV==5 then
            LV=0
            end
            if LV==0 then
                HLA=1
                HLB=0
                HLC=0
                HLD=0
            elseif LV==1 then
                HLA=0
                HLB=0
                HLC=0
                HLD=0
            elseif LV==2 then
                HLA=0
                HLB=0
                HLC=1
                HLD=0
            elseif LV==3 then
                HLA=0
                HLB=1
                HLC=1
                HLD=0
            elseif LV==4 then
                HLA=0
                HLB=1
                HLC=1
                HLD=1
            end
        end
    end
    Call( "*:SetControlValue", name, index, value);
end

function Update(interval)

    if HLA==0 then
        Call("*:SetControlValue", "HeadlightsA",0,0);
    else
        Call("*:SetControlValue", "HeadlightsA",0,1);
    end
    
    if HLB==0 then
        Call("*:SetControlValue", "HeadlightsB",0,0);
    else
        Call("*:SetControlValue", "HeadlightsB",0,1);
    end
    
    if HLC==0 then
        Call("*:SetControlValue", "HeadlightsC",0,0);
    else
        Call("*:SetControlValue", "HeadlightsC",0,1);
    end
    
    if HLD==0 then
        Call("*:SetControlValue", "HeadlightsD",0,0);
    else
        Call("*:SetControlValue", "HeadlightsD",0,1);
    end
    
end 


[Kungsfisk]

Sagt det förr och säger det igen, är ingen höjdare på stolar. Håller på att piffa upp kupén och här är en lite bättre stol.

Ny till vänster, gammal till höger. ~2000polys/paret men kommer kunna trimma bort en hel del.
04.jpg

[Mawkish]

Två frågor:
1: Call(“*:ActivateNode”, “<Node Name>”, "<RN>")

Gör denna funktion en del av geometrin synlig/osynlig?

2: Jag får inte animationerna att hända alls...och jag förstår inte varför. Tycker detta borde vara ett idiotsäkert skript?!

1. Jepp den visar/gömmer geometri t.ex. om du har 1_0128_hlA geometrin i din max fil så kommer Call("*:ActivateNode","hlA",0) göra den osynlig.

2. Vad är det för animationer du har för ljuset i strålkastarna? Normalt brukar dessa bara vara oanimerade objekt i 3dsmax med materialet TrainEmissiveGlow(passar bäst för helljus) och/eller addTex(halvljus) som du gömmer/visar beroende på läget av ljusreglaget.

Utan att ha koll på x2:ans alla strålkastarlägen så gör jag ett skriptexempel(ej komplett och troligtvis med en hel del fel eftersom jag inte har möjlighet att testa med trial/errror metoden) som kanske kan ge några ideer.

Halvljus nedre med objekt 1_128_HLHalvNedre
Helljus nedre med objekt 1_128_HLHelNedre
Halvljus övre med objekt 1_128_HLHalvOvre
Helljus övre med objekt 1_128_HLHelOvre
Slutljus med objekt 1_128_Slutljus

Eftersom slutljuset ska slås på i en helt annan vagn så kommer man att behöva skicka ett meddelande från lok->manövervagn och vice versa när dessa ska vara av/på.

--GLOBALS
animationTimer=0
animationONTime=0.9 --hur länge lampan lyser i animationcykeln(kan ej exakta värden)
animationOFFTime=1.1 --hur länge lampan är släckt i animationcykeln
animationON=false
slutljus_msg_id=1000
slutljusON=false
gInit=false
--END GLOBALS

function Initialise ()
  Call("BeginUpdate")
end

--Vissa saker går ej att göra i bas Initialse funktionen då tex child-objekt i blueprinten ofta inte är registrerade vid den tidpunkten när skriptet körs.
--Denna funktion körs första gången skriptet kör Update() och då kan man vara säker på att alla objekt/kontroller kan sättas som man vill
function safeInitialise()
  LightsOFF()
end

function LightsOFF()
  Call("*:ActivateNode","HLHalvNedre",0)
  Call("*:ActivateNode","HLHelNedre",0)
  Call("*:ActivateNode","HLHalvOvre",0)
  Call("*:ActivateNode","HLHelOvre",0)
  
  Call("*:ActivateNode","Slutljus",0)
  Call("*:SendConsistMessage",slutljus_msg_id,0,1) --skicka meddelande om slutljus av till manövervagnen
end

function LightsON(hlcontrolpos)
  LightsOFF() --Resetta alla lampor innan den nya konfigurationen slås på
  if hlcontrolpos==1 then
    --halvljus ovre/undre
    Call("*:ActivateNode","HLHalvNedre",1)
    Call("*:ActivateNode","HLHalvOvre",1)
    Call("*:SendConsistMessage",slutljus_msg_id,1,1)
  elseif hlcontrolpos==2 then
    --halvljus övre, helljus nedre
    Call("*:ActivateNode","HLHelNedre",1)
    Call("*:ActivateNode","HLHalvOvre",1)
    Call("*:SendConsistMessage",slutljus_msg_id,1,1)
  elseif hlControlpos==3 then
    --helljus övre, helljus nedre
    Call("*:ActivateNode","HLHelNedre",1)
    Call("*:ActivateNode","HLHelOvre",1)
    Call("*:SendConsistMessage",slutljus_msg_id,1,1)
  --elseif.....för eventuella andra lägen
  end
end

function SlutljusAnimate(dtime)
  if not slutljusON then
    if animationON then
      Call("*:ActivateNode","Slutljus",0)
      animationON=false
      animationTime=0
    end
    return
  end
  animationTimer=animationTimer+dtime
  if not animationON and animationTimer>animationOFFTime then
    Call("*:ActivateNode","Slutljus",1)
    animationON=true
    animationTime=0
  elseif animationON and animationTime>animationONTime then
    Call("*:ActivateNode","Slutljus",0)
    animationON=false
    animationTime=0
  end
end

function OnControlValueChange ( name, index, value)
  if Call( "*:ControlExists", name, index ) then
    if name=="LiveInjectorWater" then
      LightsON(value)
    end
  end
  Call( "*:SetControlValue", name, index, value)
end

function OnConsistMessage(msg,argument,direction)
  --Ta emot meddelande om slutljus i loket skickat från manövervagnen
  --Denna funktion måste även speglas i skriptet för manövervagnen så att slutljuset i tänds när man styr från loket
  if msg==slutljus_msg_id then
    if argument==0 then
      --slutljus av
      slutljusON=false
    else
      --slutljus på
      slutljusON=true
    end
  end
  Call("SendConsistMessage",msg,argument,direction ) --Skicka alla meddelanden vidare
end

function Update(dTime)
  if gInit==false then
    gInit=true
    safeInitialise()
  end
  SlutljusAnimate(dTime)
end

För manövervagnen så krävs väl något liknande skript som ovan med vissa ändringar för att få det hela att fungera med slutljusen.

För att meddelanden ska kunna skickas genom tåget så måste även alla vagnar ett skript. Så i varje vagn behövs minst...

function OnConsistMessage(msg,argument,direction)
  Call("SendConsistMessage",msg,argument,direction ) --Skicka alla meddelanden vidare
end

Som sagt, ta detta skript med två nävar salt och använd endast som någon slags inspiration när du gör ditt eget.

P.S. X2:an ser helt grymt ut! Fantastiskt snyggt jobbat! D.S.

[Kungsfisk]

Det gör saken betydligt smidigare! Jag hade två "plattor" som skulle växla plats beroende på läge. Skall testa detta i eftermiddag.

[Kungsfisk]

Okej, såhär ser det ut nu. Det funkar betydligt bättre! Och trainemessive är verkligen natt och dag för lamporna. Tack för tipset Mawkish

1. Jag kör LogMate, men får inte ut något debugmeddelande från skriptet. Vart går print eller hur får jag meddelandena att dyka upp i LogMate? Försökte göra som i class390.

2.hlcontrolpos == 0 och hlcontrolpos == 1 funkar, hlcontrolpos == 2 eller högre ändrar inget. Lamporna stannar i konfigurationen som ges av lightsOFF().
Jag hade innan 6st konfigurationen men har bantat ner det till 3 för att debugga.

Kontrolvärdet har:
name: Headlights
default value: 0
min value: 0
max value: 2

..och en internal notched lever med 3 notches.

3. Funkar Activate Node på child objekt också, dvs kan jag använda det för att slå av/på ljuset?

Fortsätter testa mig framåt

PHP-kod:

gInit=false
DEBUG = true

function DebugPrint(msg)
    if DEBUG then
        Print(msg)
    end
end

function Initialise ()
  Call("BeginUpdate")
end

function safeInitialise()
  LightsOFF()
end

function LightsOFF()
  --Geometri för tända lampor
  Call("*:ActivateNode","hlaon",0) --Geometri nedre:yttre:påslagen
  Call("*:ActivateNode","hlbon",0) --Geometri nedre:inre:påslagen
  Call("*:ActivateNode","hlcon",0) --Geometri övre:inre:påslagen
  Call("*:ActivateNode","hldon",0) --Geometri slutljus:påslagen
   --Geometri för släkta lampor
  Call("*:ActivateNode","hlaoff",1) --Geometri nedre:yttre:frånslagen
  Call("*:ActivateNode","hlboff",1) --Geometri nedre:inre:frånslagen
  Call("*:ActivateNode","hlcoff",1) --Geometri övre:inre:frånslagen
  Call("*:ActivateNode","hldoff",1) --Geometri slutljus:frånslagen
end

function LightsON(hlcontrolpos)
        LightsOFF()
        Print("DEBUG: LightsOn - start")
    if hlcontrolpos==0    then
        Print("DEBUG: hlccontrolpos == 0")
        Call("*:ActivateNode","hlaon",0)
        Call("*:ActivateNode","hlbon",0)
        Call("*:ActivateNode","hlcon",0)
        Call("*:ActivateNode","hldon",1)
        
        Call("*:ActivateNode","hlaoff",1)
        Call("*:ActivateNode","hlboff",1)
        Call("*:ActivateNode","hlcoff",1)
        Call("*:ActivateNode","hldoff",0)
    
    elseif hlcontrolpos==1    then
        Print("DEBUG: hlccontrolpos == 1")
        Call("*:ActivateNode","hlaon",1)
        Call("*:ActivateNode","hlbon",1)
        Call("*:ActivateNode","hlcon",0)
        Call("*:ActivateNode","hldon",0)
        
        Call("*:ActivateNode","hlaoff",0)
        Call("*:ActivateNode","hlboff",0)
        Call("*:ActivateNode","hlcoff",1)
        Call("*:ActivateNode","hldoff",1)
        
    elseif hlControlpos==2    then
        Print("DEBUG: hlccontrolpos == 2")
        Call("*:ActivateNode","hlaon",1)
        Call("*:ActivateNode","hlbon",1)
        Call("*:ActivateNode","hlcon",1)
        Call("*:ActivateNode","hldon",0)
        
        Call("*:ActivateNode","hlaoff",0)
        Call("*:ActivateNode","hlboff",0)
        Call("*:ActivateNode","hlcoff",0)
        Call("*:ActivateNode","hldoff",1)
    end
    Print("DEBUG: LightsOn - end")
end

function OnControlValueChange ( name, index, value)
        Print (("DEBUG: OnControlValueChange - name = " .. name .. ", index = " .. index .. ",value = " .. value))
        if Call( "*:ControlExists", name, index ) then
            if name=="Headlights" then
                Print (("DEBUG: OnControlValueChange - Headlights, value = " .. value))
                LightsON(value)
            end
        end
     
    Call( "*:SetControlValue", name, index, value)
end

function Update(dTime)
  if gInit==false then
    gInit=true
    safeInitialise()
  end
end 


hlcontrolpos 1 och 0. Ingen verklighetsåterkoppling, bara för test. Inte ställt in glow-effekten.
05.jpg

[zaphr89]

Det ser riktigt, riktigt bra ut.

[Mawkish]

Ursprungligen postat av Kungsfisk

1. Jag kör LogMate, men får inte ut något debugmeddelande från skriptet. Vart går print eller hur får jag meddelandena att dyka upp i LogMate? Försökte göra som i class390.

2.hlcontrolpos == 0 och hlcontrolpos == 1 funkar, hlcontrolpos == 2 eller högre ändrar inget. Lamporna stannar i konfigurationen som ges av lightsOFF().
Jag hade innan 6st konfigurationen men har bantat ner det till 3 för att debugga.

Kontrolvärdet har:
name: Headlights
default value: 0
min value: 0
max value: 2

..och en internal notched lever med 3 notches.

3. Funkar Activate Node på child objekt också, dvs kan jag använda det för att slå av/på ljuset?

1. Kan väldigt lite om logmate själv men det verkar som om man behöver ha -LogMate -SetLogFilters="All" som uppstartsparametrar till TS(sätts i steam tror jag) för att det ska visas debug utskrifter. Jag struntade mest i logmate och körde debugutskrifter till en vanlig textfil istället men då tappar man ju en del av realtime-debuggandet som logmate erbjuder men är i vilket bättre än ingenting om du inte får logmate att fungera.

--GLOBALS
--lägg till
logfile=nil
--ENDGLOBALS
function Initialise()
  --lägg till
  logfile = io.open("C:/RW_LOGS/scriptdebug.txt", "w");
end

function DebugPrint(dbgmessage)
  if DEBUGGING then
    if logfile~=nil then
      logfile:write(os.date("%X")..": "..dbgmessage.."\n")
      logfile:flush()
    end
  end
end

OBS! Mappen där debugfilen ska skrivas, c:\rw_logs i detta fall, måste skapas för hand innan du kör.

2. elseif hlControlpos==2 --> elseif hlcontrolpos==2 OBS. stort och litet "c"

Jag skulle dock undvika kontrollnamnet Headlights som är någon slags semi-hårdkodad kontroll i TS med lägen "ljus av"/"ljus på"/"byt riktning" dvs 3 lägen som inte går att ändra vad jag vet.
Gör hellre en egen kontroll med "LiveInjectorWater" med de lägen du behöver och koppla sedan ihop vad som händer i "Headlights" kontrollen och vice versa. Då får ett fungerande knapp i UI:t för grundljuset(av/på/ändra riktning) + trycka "L" för att finlira med ljusen.

3. För att visa/gömma childobjekt så används Call("Childnamn:Activate",1/0) så det går utmärkt att styra lamporna med detta och du kan tom ställa in olika parametrar på lamporna i skriptet med

Call( "Headlight:SetRange", 60) --Headlight är här ett child objekt av typen spotlight
Call( "Headlight:SetUmbraAngle", 25)
Call( "Headlight:SetPenumbraAngle", 15)