tutor_12_derma

@name Tutor_12_Derma
@persist [O E]:entity
@persist Show [Cars]:table [Car_Color_Red Car_Color_Green Car_Color_Blue]

@model models/sprops/cuboids/height12/size_4/cube_48x132x12.mdl

interval(25)

if(first()){

    alibNoDup()

    E=entity()
    O=owner()

    Cars = table(
    table(
        "models/props_vehicles/car005a_physics.mdl",                                    # Model
        ang(0,0,-2),                                                                    # Rotation
        table(vec(-5,17,-6),vec(-5,-17,-6)),                                            # Kresla
        table(vec(52.5,38,-20),vec(52.5,-38,-20),vec(-60,38,-20),vec(-60,-38,-20)),     # Kolesa
        table(vec(76.5,29,0),vec(76.5,-31.5,0)),                                        # Fari
        vec(18,18,10),
        15,                                                                             # Turbina Fix
        table(vec(-5,35,-19),vec(-5,-37.5,-19),vec(75,-2.5,-16))                        # Neon
        ) ,

    table(
        "models/props_vehicles/car002a_physics.mdl",
        ang(0,0,-3),
        table(vec(0,15,-12),vec(0,-15,-12)),
        table(vec(50,35,-20),vec(50,-35,-20),vec(-42.5,35,-20),vec(-42.5,-35,-20)),
        table(vec(69,28,1),vec(69,-29.5,1.5)),
        vec(20,13.5,8.5),
        44,
        table(vec(0,34,-18),vec(0,-37,-18),vec(70,0,-16))
        ) ,

    table(
        "models/props_vehicles/car004a_physics.mdl",
        ang(0,0,2),
        table(vec(-2,17,-7),vec(-2,-17,-7)),
        table(vec(57.5,38,-20),vec(57.5,-38,-20),vec(-62.5,38,-20),vec(-62.5,-38,-20)),
        table(vec(82,30,-2.5),vec(80.5,-31.5,-2.5)),
        vec(17.5,17.5,7.5),
        7.5,
        table(vec(-4,36,-19),vec(-4,-38,-19),vec(84,0,-16))
        )
    )

    dPanel("Car Creator",vec2(100*5.2,100),vec2(500,500))
        dText("Car Creator", "Name")
    dTabHolder("Car Holder","Car Creator", vec2(10,20),vec2(480,470))
    dTab("1. Car Base","Car Holder")

    dLabel("Модель Машины","1. Car Base",vec2(30,40 * 1))
    dDropBox("Car Model","1. Car Base", vec2(20,15 + 40 * 1), 200)
        dArray("Car Model", array("1. Запарожец","2. Вазик","3. Корвет"))

    dLabel("Модель Кресел","1. Car Base",vec2(30,40 * 2))
    dDropBox("Car Salon","1. Car Base", vec2(20,15 + 40 * 2), 100)
        dArray("Car Salon", array("1. Default","2. Hammer","3. Jeep"))

    dLabel("Модель Колес","1. Car Base",vec2(30,40 * 3))
    dDropBox("Car Koleso","1. Car Base", vec2(20,15 + 40 * 3), 150)
        dArray("Car Koleso", array("1. ","2. ","3. ","4. ","5. ","6. "))

    #[ TAB 2 ]#


    dTab("2. Car Modify","Car Holder")

    dLabel("Цвет Машины","2. Car Modify",vec2(60,40*2.5))
    dSlider("Car_Color_Red","2. Car Modify",vec2(-110,40*2 + 25 * 1),300,0,255)
    dSlider("Car_Color_Green","2. Car Modify",vec2(-110,40*2 + 25 * 2),300,0,255)
    dSlider("Car_Color_Blue","2. Car Modify",vec2(-110,40*2 + 25 * 3),300,0,255)

        #End Modify
    dButton("Done","Car Creator",vec2(25,455),vec2(450,20))

    dShow("Car Creator",0)
    setName("# Car Creator#")

    O:giveWeapon("weapon_stunstick")

} else {

    if(O:weapon():type() == "weapon_stunstick") {
        if( (O:aimEntity() == E ) & changed(O:keyAttack1())&O:keyAttack1() ){
            Show=!Show
            dShow("Car Creator",Show)
            }
        EditMod = 1
    } else { EditMod = 0 }

    if(changed(EditMod)&EditMod) {
            O:weapon():setAlpha(0)
            holoEntity(500):unParent()
            holoPos(500,O:attachmentPos("anim_attachment_rh"))
            holoAng(500,O:attachmentAng("anim_attachment_rh"))
            holoAng(500,holoEntity(500):toWorld(ang(0,0,90)))
            holoParentAttachment(500,O,"anim_attachment_rh")
        }
    elseif(changed(EditMod)&!EditMod) { holoEntity(500):unParent() holoPos(500,E:pos()) holoAng(500,E:angles()) holoParent(500,E) }

    if(Show){

        CarModel            = dSval("Car Model")
        CarSalon            = dSval("Car Salon")
        CarKoles            = dSval("Car Koleso")

        Car_Color_Red       = dNval("Car_Color_Red")
        Car_Color_Green     = dNval("Car_Color_Green")
        Car_Color_Blue      = dNval("Car_Color_Blue")

        local DDone = dSval("Done")

        if(changed(CarModel)&CarModel){
            E:setModel(Cars[CarModel:left(1):toNumber(),table][1,string])
        }

        if(changed(CarSalon)&CarSalon){
            print(Cars[CarModel:left(1):toNumber(),table][3,table][1,vector])
        }

        if(changed(CarKoles)&CarKoles){
            print(Cars[CarModel:left(1):toNumber(),table][7,number])
        }

        if(changed(Car_Color_Red)&Car_Color_Red | changed(Car_Color_Green)&Car_Color_Green | changed(Car_Color_Blue)&Car_Color_Blue){
            E:setColor(vec(Car_Color_Red,Car_Color_Green,Car_Color_Blue))
        }

        if(dClk("Done")){
            if(!CarModel | !CarSalon | !CarKoles ){print("NO")}
            else{
                Show=!Show
                dShow("Car Creator",Show)
                if(!CarModel){ Seat = 1 }
            }
        }

    }

}