world/New()
    ..()
    Splash()

proc
    Splash()
        winshow(usr,"splash",1)
        var/i
        for(i=255; i<=0; i-=10)
            winset(usr, "splash", "alpha=[i]")
            sleep(10)