@name MERLS AUTOS AUKTIONHUS @inputs EGP:wirelink R:entity Lys:wirelink @outputs @persist Player:entity Farve:vector [Pris,S,Req,Tid,First]:number Concmds:array @trigger if(duped()){reset()} if(first()){ ##INDSTILLINGER Tid = 200 First = 1 Pris = 4000 ############### timer("draw.noCar",250) runOnChat(1) timer("lys",1000) function void nccmd(Str:string){ Concmds:pushString(Str) } timer("Nextcmd",250) } if(clk("draw.noCar")){ EGP:egpClear() EGP:egpBoxOutline(1,vec2(256,264),vec2(189,550)) EGP:egpBox(2,vec2(256,264),vec2(187,548)) EGP:egpColor(2,35,35,35,200) EGP:egpText(3,"MERL'S",vec2(256,46)) EGP:egpAlign(3,1,1) EGP:egpFont(3,"Courier New") EGP:egpSize(3,36) EGP:egpBox(4,vec2(256,60),vec2(160,1)) EGP:egpText(5,"Auktionshus",vec2(256,74)) EGP:egpAlign(5,1,1) EGP:egpFont(5,"Courier New") EGP:egpSize(5,24) EGP:egpText(6,"- Vi har ingen biler ",vec2(256,250)) EGP:egpAlign(6,1,1) EGP:egpFont(6,"Courier New") EGP:egpSize(6,16) EGP:egpText(7," Til salg lige nu -",vec2(256,262)) EGP:egpAlign(7,1,1) EGP:egpFont(7,"Courier New") EGP:egpSize(7,16) EGP:egpBoxOutline(8,vec2(256,256),vec2(190,50)) EGP:egpMaterial(8,"gui/center_gradient") S = 2 } if(clk("draw.info")){ Farve = R:getColor() EGP:egpClear() EGP:egpBoxOutline(1,vec2(256,264),vec2(189,550)) EGP:egpBox(2,vec2(256,264),vec2(187,548)) EGP:egpColor(2,35,35,35,200) EGP:egpText(3,"MERL'S",vec2(256,46)) EGP:egpAlign(3,1,1) EGP:egpFont(3,"Courier New") EGP:egpSize(3,36) EGP:egpBox(4,vec2(256,60),vec2(160,1)) EGP:egpText(5,"Auktionshus",vec2(256,74)) EGP:egpAlign(5,1,1) EGP:egpFont(5,"Courier New") EGP:egpSize(5,24) EGP:egpText(6,"Bilmodel",vec2(256,150)) EGP:egpAlign(6,1,1) EGP:egpFont(6,"Courier New") EGP:egpSize(6,26) EGP:egpBox(7,vec2(256,162),vec2(130,1)) EGP:egpText(8,R:getCarName()+"",vec2(256,174)) EGP:egpAlign(8,1,1) EGP:egpFont(8,"Courier New") EGP:egpSize(8,20) EGP:egpBox(9,vec2(256,236),vec2(150,1)) EGP:egpText(11,"Nuv"+ae()+"rende bud",vec2(256,226)) EGP:egpAlign(11,1,1) EGP:egpFont(11,"Courier New") EGP:egpSize(11,18) EGP:egpText(12,""+Pris+",-",vec2(256,252)) EGP:egpAlign(12,1,1) EGP:egpFont(12,"Courier New") EGP:egpSize(12,20) EGP:egpText(222,"",vec2(256,270)) EGP:egpAlign(222,1,1) EGP:egpFont(222,"Courier New") EGP:egpSize(222,16) EGP:egpText(13,"Bilfarve",vec2(256,312)) EGP:egpAlign(13,1,1) EGP:egpFont(13,"Courier New") EGP:egpSize(13,26) EGP:egpBox(14,vec2(256,326),vec2(130,1)) EGP:egpBox(15,vec2(256,340),vec2(80,4)) EGP:egpColor(15,Farve) EGP:egpText(16,""+Farve+"",vec2(256,350)) EGP:egpAlign(16,1,1) EGP:egpFont(16,"Courier New") EGP:egpSize(16,12) EGP:egpText(17,"Tid tilbage",vec2(256,396)) EGP:egpAlign(17,1,1) EGP:egpFont(17,"Courier New") EGP:egpSize(17,20) EGP:egpBox(18,vec2(256,410),vec2(130,1)) EGP:egpText(19,""+Tid+"S",vec2(256,424)) EGP:egpAlign(19,1,1) EGP:egpFont(19,"Courier New") EGP:egpSize(19,18) S = 1 } if(clk("lys")){ Lys:egpClear() Lys:egpBox(1,vec2(312,220),vec2(6,100)) Lys:egpColor(1,65,65,65,255) Lys:egpBox(2,vec2(200,220),vec2(6,100)) Lys:egpColor(2,65,65,65,255) Lys:egpBox(3,vec2(256,256),vec2(200,80)) Lys:egpColor(3,15,15,15,255) Lys:egpCircle(4,vec2(210,256),vec2(30,30)) Lys:egpColor(4,45,45,45,255) Lys:egpCircle(5,vec2(302,256),vec2(30,30)) Lys:egpColor(5,45,45,45,255) Lys:egpCircle(6,vec2(210,256),vec2(28,28)) Lys:egpColor(6,29,204,29,255) Lys:egpCircle(7,vec2(302,256),vec2(28,28)) Lys:egpColor(7,150,24,24,255) } if(clk("Tid")){ if(Tid == 0){ print(""+Player:name()+" Vandt en "+R:getCarName()+"") concmd("say /pm "+Player:name()+" Tillykke du har vundet en "+R:getCarName()+" med et bud p"+aa()+" "+Pris+",-") reset() }else{ Tid = Tid - 1 EGP:egpSetText(19,""+Tid+"S") timer("Tid",1000) } } if(dsClk()){ if(dsClk("NCCMD")){ nccmd(dsGetString()) } } if(clk("Nextcmd")){ if(Concmds[1,string]){ concmd(Concmds[1,string]) print(2,"Ran command: "+Concmds[1,string]) Concmds:remove(1) } timer("Nextcmd",1555) } if(moneyClk("Auktion")){ if(First == 1){timer("Tid",1000) First = 0} EGP:egpSetText(222,"["+moneyClkPlayer():name()+"]") moneyGive(Player,Pris) Player = moneyClkPlayer() Pris = Req EGP:egpSetText(12,""+Pris+",-") S = 1 } if(moneyNoClk("Auktion")){ S = 1 } if(moneyTimeout("Auktion")){ S = 1 } if(chatClk(owner())) { Said = owner():lastSaid():lower():explode(" ") Cmd = lastSaid():explode(" "):string(1) switch(Cmd) { case "!load", timer("draw.info",250) Lys:egpColor(6,30,136,26,255) Lys:egpColor(7,225,19,19,255) hideChat(1) ,break } } if(chatClk(owner())) { Said = owner():lastSaid():lower():explode(" ") Cmd = lastSaid():explode(" "):string(1) switch(Cmd) { case "!close", timer("draw.noCar",250) Lys:egpColor(6,29,204,29,255) Lys:egpColor(7,150,24,24,255) hideChat(1) reset() ,break } } if(chatClk(owner())) { Said = owner():lastSaid():lower():explode(" ") Cmd = lastSaid():explode(" "):string(1) switch(Cmd) { case "!help", print("For at vise en by bil p"+aa()+" sk"+ae()+"rmen skal du skrive !load") print("Hvis du ingen biler har p"+aa()+" auktion skal du skrive !close") print("---------------------------------------------------------------------------------------------") hideChat(1) ,break } } if(S == 1){ if(changed(R)){ if(R:isVehicle()){ timer("Screen",250) #nccmd("say /advert "+R1:owner():name()+"'s "+R1:car()+" er nu p"+aa()+" auktion, kom til gamle cardealer for at byde eller brug !byd [Pris]") }else{timer("draw.noCar",250)} } A = lastSpoke():lastSaid():explode(" ") if(A[1,string]=="!byd" & chatClk(lastSpoke())){ if(lastSpoke() == Player){nccmd("say /pm "+lastSpoke():steamID()+" Du er allerede den h"+oe()+"jeste bydene")}else{ if(A[2,string]:toNumber() > Pris+99){ Req = A[2,string]:toNumber() moneyRequest(lastSpoke(),Req,"Auktion") S = 0 }else{ nccmd("say /pm "+lastSpoke():steamID()+" Du skal minimum byde 100,- h"+oe()+"jere end det nuv"+ae()+"rende som er p"+aa()+" "+Pris+"") } } } }