Zeigt eure Expression's

Hallo,
da immoment viele Expression 2 nutzen, dachte ich ich kann ein tread aufmachen wo jeder seine eigenen werke zeigt - zur verfügung stellt.

F: wie Präsentiere ich mein werk?
A:
am besten so:
Was: (expression 1 oder 2)
Name:
erklärung:
sonstiges: (abkürzung S:
CODE:soo dan fang ich mal an...

Was: Expression 2
Name: Ebook
erklärung: ein expression wo texte von eigenen seiten auf den console screen schreibt...
S: erweiterbar(erklärung schon im code), einfacher als CPU, kein Lag (kein timer oder interval eingebaut)
CODE:

Code:

---

#|--------------------------------|
#|        EBook script          |
#|                                |
#|    by H4x0R //---'' CJ        |
#| Infos + anleitungen -> unten  |
#|        (C)2009                |
#|--------------------------------|
#Farben werden in RGBRGBS  RGB geht von 0 - 9 das erste RGB ist schriftfarbe das zweite is hintergrund von der schrift und S ist special (blinkend AN=1 aus=0)
#memory codes: 2041 ist clear screen, 2042 ist hintergrund farbe
#wirelink: um den console screen an das expression zu bekommen musst du wirelink nutzen (wirelink tool dan wire tool)
#write own page->
#als erstes den anfang
#if(PAGE == "NUMMER DER SEITE){
#CS:writeCell(2041,1) # cleart die sete um keine text fehler anzuzeigen
#CS:writeString("DEIN TExT",PX,PY,FARBE) # PX und PY ist PixelX und PixelY wo der text anfangen soll (MIN X & Y = 0, MAX X = 29, MAX Y = 17
#CS:writeString("DEIN TEXT2",PX,PY,FARBE)
#} #ende    danach bei MAXPAGE die anzahl um 1 erhoehen
@name EBook
@inputs RESET NEXT LAST CS:wirelink
@outputs
@persist PAGE MAXPAGE
MAXPAGE= 4 #anzahl der seiten (NUR DIE SEITEN ANGEBEN, NICHT DIE MIT if(PAGE == MAXPAGE)(standart)
MAXPAGE= MAXPAGE + 1 # zeigt die error seite an (bei 0 nicht)
if(PAGE > MAXPAGE){PAGE= 1} #wen die page nr. groeser als die maximale anzahl ist springt man auf seite nr.1
if(RESET > 0){PAGE= 0}#PC resetten (auf 0 setzen)
if(NEXT > 0){PAGE= PAGE +1}#naechste seite
if(LAST > 0){PAGE= PAGE -1}#vorherige seite
if(PAGE < 0){PAGE= 0}#das man nicht unter 0 gehen kann
if(~PAGE & !PAGE){#wen die seite wechselt wird ->
CS:writeCell(2041,1)#die seite gesaeubert
CS:writeCell(2042,0)#hintergrund farbe wird auf schwarz gesetzt
}
if(PAGE == 1)#seite 1
{
CS:writeCell(2041,1)
CS:writeCell(2042,0)
CS:writeString("Hallo und willkommen",0,0,999)
CS:writeString("auf meinem Fagg0t EBook",0,1,999)
CS:writeString("mit NEXT und LAST button ",0,2,999)
CS:writeString("kannst du die seiten wechseln",0,3,999)
}
if(PAGE == 2)#seite 2
{
CS:writeCell(2041,1)
CS:writeCell(2042,0)
CS:writeString("willkommen auf diese seite",0,0,999)
CS:writeString("hier ein paar intiligente woerter:",0,1,999)
CS:writeString("cr4p, n00b , sh1t, assh0le, ftw!1",0,2,999)
CS:writeString("und ein intiligentes zitat von waldi",0,3,999)
CS:writeString("!REMOVED -> LIES DIE SIGNATUR!",0,3,999)
CS:writeString("im gmod.de forum",0,4,999)
}
if(PAGE == 3)#seite 3
{
CS:writeCell(2041,1)
CS:writeCell(2042,0)
CS:writeString("jaa schon au der seite 3",0,0,999)
CS:writeString("na  alles fit im schrit?",0,1,999)
CS:writeString("c0ol hab fuer das exp gerademal",0,2,999)
CS:writeString("ne std. gebraucht",0,3,999)
}
if(PAGE == 4)#seite 4
{
CS:writeCell(2041,1)
CS:writeCell(2042,0)
CS:writeString("yah! Fagg0ts inc.",0,0,999)
CS:writeString("aka gamerpaddy aka CJ",0,1,999)
CS:writeString("aka H4x0R*waffe*CJ",0,2,999)
}
if(PAGE == MAXPAGE)#letzte seite (MAXPAGES)
{
CS:writeCell(2041,1)
CS:writeCell(2042,119)#setzt die hintergrundfarbe auf blau (bluescreen!)
CS:writeString("ERROR",10,0,999)
CS:writeString("DU BIST AUF DER LETZTEN SEITE!",0,1,999)
CS:writeString("Drueke NEXT um auf seite 1",0,2,999)
CS:writeString("zu kommen oder RESET um es aus zuschalten",0,3,999)
}
if(PAGE == 0)#book ist aus
{
CS:writeCell(2041,1)
CS:writeCell(2042,0)
}

if(PAGE > 0)#credits werden auf jeder seite angezeigt
{
CS:writeString("du bist auf der seite "+PAGE,0,16,999)# das +PAGE zeigt die zahl / string an wo auf PAGE definiert ist (in dem fall die seiten nummer)
CS:writeString("Gescriptet von H4x0R*waffe*CJ",0,15,1000091)
}

---

----------------------------------------------------------------------------
Was: Expression 2
Name: LOL verfolger
erklärung: ein expression wo man mit dem console screen und grafik tablet ein verfolger (in dem fall das wort "LOL") machen kann
S: text änderbar, interval auf 0.1 herabsetzbar (bevor irgentwas am server byebye sagt)
aufbau: spawn ein console screen -> darunter das expression -> spawn ein graphic tablet über den console screen und setzte alpha vom tablet auf 0 dan verwirere alles fertig (USE an das tablet (OnScreen)
CODE:

Code:

---

@name LOL verfolger
@inputs D:wirelink X Y Use
@outputs
@persist
if(Use){
interval(1)
X1= X * 29
Y1= Y * 17
X2= round(X1)
Y2= round(Y1)
D:writeCell(2041,1)
D:writeString("LOL",X2,Y2,999)
}
else
{
D:writeCell(2041,1)
}
if(Use){
D:writeCell(2042,111)
}
else
{
D:writeCell(2042,999)
}

---

----------------------------------------------------------------------------
Was: Expression 2
Name: Farbwechsler
erklärung: ein expression wo die farbe von dem entity (E) ändert über spracherkennung (chat) + material änderung + das entity (E) dreht sich auf der yaw und roll achse
S: erweiterbar, mit owner():lastSaid() (oder so) kann man nur as besitzer vom expression die farbe wechseln.
CODE:

Code:

---

@name
@inputs E:entity
@outputs
@persist Ang:angle
interval(1)
if(lastSaid() == "green"){E:setColor(0,255,0,255)}
if(lastSaid() == "red"){E:setColor(255,0,0,255)}
if(lastSaid() == "blue"){E:setColor(0,0,255,255)}
if(lastSaid() == "yellow"){E:setColor(255,255,0,255)}
if(lastSaid() == "pink"){E:setColor(255,0,255,255)}
if(lastSaid() == "black"){E:setColor(0,0,0,255)}
if(lastSaid() == "invisible"){E:setColor(0,0,0,0)}
if(lastSaid() == "white"){E:setColor(255,255,255,255)}
if(lastSaid() == "green and blue"){E:setColor(0,255,255,255)}
if(lastSaid() == "gray"){E:setColor(130,130,130,255)}
if(lastSaid() == "brown"){E:setColor(170,100,100,255)}
if(lastSaid() == "purple"){E:setColor(155,155,255,255)}
if(lastSaid() == "cyan"){E:setColor(110,110,255,255)}
if(lastSaid() == "besch"){E:setColor(160,160,160,255)}
if(lastSaid() == "debug"){E:setMaterial("models/debug/debugwhite")}
if(lastSaid() == "default"){E:setMaterial("0")}
if(lastSaid() == "screenspace"){E:setMaterial("models/screenspace")}
if(lastSaid() == "wood"){E:setMaterial("phoenix_storms/wood")}
if(lastSaid() == "stripes"){E:setMaterial("phoenix_storms/stripes")}
if(lastSaid() == "orange"){E:setColor(250,160,0,255)}
E:rerotate(Ang)
E:propFreeze(1)
Ang:setYaw(Ang:yaw()+1)
Ang:setRoll(Ang:roll()+1)

---

-------------------------------------------------------------------------------
und als letztes was ganz simples
Name: increment decrement mit reset
erklärung: ein expression wo wie der increment decrement chip funktioniert
nur das man ihn auch resetten kann
Sonstiges: mein 2tes expression :D, nichts

Code:

---

@name Increment decrement with reset   
@inputs A INC DEC RESET
@outputs AUS
@persist VALUE
if(INC > 0){VALUE = VALUE + A}
if(DEC > 0){VALUE = VALUE - A}
if(RESET > 0){VALUE = 0}
if(RESET < 0){VALUE + 1}
AUS = VALUE -1

---

falls der code spinnt nehmt den

Code:

---

@name Increment decrement with reset   
@inputs A INC DEC RESET
@outputs VALUE
@persist VALUE
if(INC > 0){VALUE = VALUE + A}
if(DEC > 0){VALUE = VALUE - A}
if(RESET > 0){VALUE = 0}

---

ich hoffe ihr habt auch expression wo ihr mit andern teilen möchten
mfg CJ

Kann man auch zCPU codes reinstellen ?

JA darfst du ^^ :D natürlich nicht man man man Mitsuma

Zitat:

---

Zitat von Mitsuma

Kann man auch zCPU codes reinstellen ?

---

:/ CPU codes in einem Expression codes tread ?
keine ahnung was die modertoren / admins sagen

wen dan machste ein "CPU codes" tread auf (wen es ihn noch nicht gibt)

kann mal wer denn Expression 1 code in Expression 2 umwandeln (schreiben) ?

Code:

---

N@Advanced Smoother
I@Target Speed Acceleration
O@Value Active
# Activate when target has been set
~Target -> Active = 1;

# Main computation loop
first() | clk() ->
# Precomputation of inputs
    !Acceleration -> Acceleration = Speed * 50 * 2;
    AccLength = Speed^2 / Acceleration / 2
    AccRate = min(Speed, Acceleration / 50)
# Precomputation of variables
    Distance = Target - Value
    Direction = Distance >= 0 ? 1 : -1
# Calculate ideal speed modifier
    IdealRate = Speed * Direction
    abs(Distance) <= AccLength ->
        IdealRate *= sqrt(abs(Distance - Rate / 50) / AccLength);
# Calculate final speed for iteration
    Rate += clamp(IdealRate - Rate, -Acceleration / 50, Acceleration / 50)
    Value += Rate / 50
# Check if value has reached target
    Active = abs(Rate) > AccRate
                | abs(Distance) > AccRate / 50
    !Active -> Rate = 0, Value = Target;;

# Schedule the main loop if active
Active -> interval(20);

---

-snip-

so
nach 11 stunden( 10std. schreiben, 1std. CJay nerven :gmod:)
hab ich mein Faildows XP fertig bekommen

name: Faildows XP build 600 V 3.0
erklärung: ein Expression wo ein Menu system mit seiten und verschiedenen funktionen.
Sonstiges: Das "OS" bootet am anfang 9.5 sek., 5 seiten (musik player, leere seite, settings, deine info(User:entity muss an das wire keyboard gelinkt werden), credits)
2 Kommandos( Shutdown (PC fährt nach 5 sek. herunter), Crash PC(der PC crasht mit bluescreen )

Installation:
CS[wirelink] an console screen
ON an ein button (toggle 0 - 1 )
User[entity] an keyboard (an User:entity)
KEY an Keyboard memory

CODE:

Code:

---

@name PC #credts: BY CJ
@inputs CS:wirelink KEY ON User:entity KB:wirelink
@outputs
@persist Page:string SOUND TEAMID FS1 FS2 FS3 FS4 FS5 FS6 FS7 CURSOR Name TEAM:string MAXSOUNDS SOUNDNAME:string Song:string BG S KILLS:string BTimer Y Char Cursor SA:string Total Tog Join Leave SName:string
TEAMID= User:team()
TEAM= teamName(TEAMID)
######################################################################
if(~ON&ON){Page = "BOOT",CS:writeCell(2042,0)
timer("BA",500)
timer("BB",2000)
timer("BC",2400)
timer("BD",3700)
timer("BE",5000)
timer("BF",5500)
timer("BG",6500)
timer("BH",7500)
timer("BI",8600)
timer("BJ",9400)
}
######################################################################
if(~ON&!ON){Page= "NULL"}
if(first()){BG= 0 S= 999 entity():setColor(255,255,255,255) soundPurge() CURSOR= 1}
#1=49, 2=50,3=51,4=52,
if(Page == "NULL"){
CS:writeCell(2042,0)
CS:writeCell(2041,1)
}
######################################################################
if(Page == "BOOT"){
CS:writeString("Boot up",0,0,900)
if(clk("BA")){CS:writeString("Load....Compleete",0,1,999)}
if(clk("BB")){CS:writeString("Write dump...Compleete",0,2,999) soundPlay("soundbootup",1000,"synth/square.wav")}
if(clk("BC")){CS:writeString("initalize CPU....Compleete",0,3,999)}
if(clk("BD")){CS:writeString("initalize RAM ... Compleete",0,4,999)}
if(clk("BE")){CS:writeString("Read settings....Compleete",0,5,999)}
if(clk("BF")){CS:writeString("Set Required DataZ",0,6,999)}
if(clk("BG")){CS:writeString("........................",0,7,999)}
if(clk("BH")){CS:writeString("........................",0,8,999)}
if(clk("BI")){CS:writeString("Faildows XP build 200 loaded",0,9,999)}
if(clk("BJ")){CS:writeString("Boot up Compleete",0,10,999)
CS:writeString("Press Backspace to switch to  main menu",0,11,900)}
if(KEY == 127){Page= "MAIN"}
}
######################################################################
if(Page == "MAIN"){
CS:writeCell(2041,1)
CS:writeCell(2042,BG)
CS:writeString("------------------------------",0,0,900)
CS:writeString("-Faildows XP Hi, "+User:name(),0,1,999)
CS:writeString("------------------------------",0,2,900)
CS:writeString("MAIN PAGE",9,3,190)
#CS:writeString("",1,4,S)
CS:writeString("Menu:",4,5,900)
#CS:writeString("",1,6,S)
CS:writeString("X-Musik Player",4,7,FS1)
CS:writeString("X-Crash PC",4,8,FS2)
CS:writeString("X-Your Info",4,9,FS3)
CS:writeString("X-nothing",4,10,FS4)
CS:writeString("X-Settings",4,11,FS5)
CS:writeString("X-Credits",4,12,FS6)
CS:writeString("X-Shutdown",4,13,FS7)
#CS:writeString("",1,14,S)
CS:writeString("Note: controll the menu ",1,15,S)
CS:writeString("with arrows and enter",0,16,900)
#CS:writeString("",16,17,109009)
CS:writeString("------------------------------",0,17,S)
if(KEY == 18){CURSOR+= 1}
if(KEY == 17){CURSOR-= 1}
if(CURSOR > 7){CURSOR= 1}
if(CURSOR < 1){CURSOR= 7}
if(CURSOR == 1){FS1=900 if(KEY == 13){Page= "SEITE1"}}else{FS1=999}
if(CURSOR == 2){FS2=900 if(KEY == 13){Page= "SEITE2"}}else{FS2=999}
if(CURSOR == 3){FS3=900 if(KEY == 13){Page= "SEITE5"}}else{FS3=999}
if(CURSOR == 4){FS4=900 if(KEY == 13){Page= "SEITE6"}}else{FS4=999}
if(CURSOR == 5){FS5=900 if(KEY == 13){Page= "SEITE7"}}else{FS5=999}
if(CURSOR == 6){FS6=900 if(KEY == 13){Page= "SEITE3"}}else{FS6=999}
if(CURSOR == 7){FS7=900 if(KEY == 13){Page= "SEITE4"}}else{FS7=999}
}
######################################################################
if(Page == "SEITE1"){
CS:writeCell(2041,1)
CS:writeCell(2042,BG)
CS:writeString("Musik Player",1,3,900)
CS:writeString("N-Next Song",4,5,S)
CS:writeString("L-lastSong",4,6,S)
CS:writeString("R-StopSong's",4,7,S)
#CS:writeString("gdgdgdg",1,8,999)
CS:writeString("You Play currently:",1,9,S)
#CS:writeString("hfghfghfgh",1,10,S)
CS:writeString(SOUNDNAME,1,11,S)
CS:writeString("Track: "+SOUND,1,12,S)
#CS:writeString("Pitch: 4-down 5-Up - Current: ",1,13,999)
#CS:writeString(""+PITCH,1,14,S)
CS:writeString("Music Player 10",1,15,S)
CS:writeString("------------------------------",0,16,900)
CS:writeString("XXXXXXXXXXXXXX",16,17,109009)
CS:writeString("Backspace-Start",0,17,S)
if(KEY== 110){SOUND++, timer("soundtimer",400)}
if(KEY== 108){SOUND--, timer("soundtimer",400)}
if(KEY== 114){SOUND= 0}
if(KEY == 127){Page= "MAIN"}
}
############################################################################
if(Page == "SEITE2"){
CS:writeCell(2041,1)
CS:writeCell(2042,109)
CS:writeString("ERROR",7,3,900)
#CS:writeString("YAH",1,4,999)
CS:writeString("YOU PRESSED THE CRASH BUTTON",1,5,999)
CS:writeString("omg wtf lol",1,6,999)
CS:writeString("dadsdadsadasdas",1,7,999)
#CS:writeString("gdgdgdg",1,8,999)
CS:writeString("ERROR CODE:",1,9,999)
#CS:writeString("hfghfghfgh",1,10,999)
CS:writeString("XDXP:O:D::V",1,11,999)
#CS:writeString("nnfghfghjfgjhfgj",1,12,999)
#CS:writeString("dfhgdhdfhdfhdfhdfhdh",1,13,999)
#CS:writeString("yah :D",1,14,999)
CS:writeString("Press Backspace to shutdown",1,15,999)
if(KEY == 127){Page= "SEITE4"}
}
#######################################################
if(Page == "SEITE3"){
CS:writeCell(2041,1)
CS:writeCell(2042,BG)
CS:writeString("Credits",7,3,900)
#CS:writeString("YAH",1,4,S)
CS:writeString("Expression: CJ ",1,5,S)
CS:writeString("aka gamerpaddy",1,6,S)
CS:writeString("------------------",1,7,S)
#CS:writeString("gdgdgdg",1,8,S)
CS:writeString("This chip is W.I.P",1,9,S)
#CS:writeString("hfghfghfgh",1,10,999)
CS:writeString("V 3.0 Faildows XP",1,11,S)
CS:writeString("build 500",1,12,S)
#CS:writeString("dfhgdhdfhdfhdfhdfhdh",1,13,S)
#CS:writeString("yah :D",1,14,S)
CS:writeString("(C) Gamerpaddy aka CJ :D",1,15,S)
CS:writeString("------------------------------",0,16,900)
CS:writeString("XXXXXXXXXXXXXX",16,17,109009)
CS:writeString("Backspace-Start",0,17,S)
if(KEY == 127){Page= "MAIN"}
}
if(Page == "SEITE4"){
timer("SHUTDOWNOK",3000)
if(clk("SHUTDOWNOK")){Page= "NULL"}
CS:writeCell(2041,1)
CS:writeCell(2042,109)
CS:writeString("Shutting down....",7,3,999)
#CS:writeString("YAH",1,4,S)
CS:writeString("wait wait wait....",1,5,999)
CS:writeString("save dataZ",1,6,999)
CS:writeString("------------------",1,7,999)
#CS:writeString("gdgdgdg",1,8,999)
CS:writeString("Clear ram...",1,9,999)
#CS:writeString("hfghfghfgh",1,10,999)
CS:writeString("Faildows says Bye Bye",1,11,999)
CS:writeString("build 500",1,12,999)
#CS:writeString("yah :D",1,14,999)
CS:writeString("(C) Gamerpaddy aka CJ",1,15,999)
}
######################################################################
if(Page == "SEITE5"){
CS:writeCell(2041,1)
CS:writeCell(2042,9)
#CS:writeCell(2041,1)
#CS:writeCell(2042,BG)
CS:writeString("Your Stats / infos",7,3,900)
CS:writeString("Name: " +User:name(),1,4,S)
CS:writeString("Deaths " +User:deaths(),1,5,S)
CS:writeString("Team " +TEAM,1,6,S)
CS:writeString("Kills :"+User:frags(),1,7,S)
CS:writeString("SteamID :"+User:steamID(),1,8,S)
CS:writeString("Health :"+User:health(),1,9,S)
CS:writeString("Armor "+User:armor(),1,10,S)
CS:writeString("Mass: "+User:mass(),1,11,S)
#CS:writeString("",1,13,S)
CS:writeString("Dataz Load scusses",1,14,S)
#CS:writeString("",1,15,S)
CS:writeString("------------------------------",0,16,900)
CS:writeString("XXXXXXXXXXXXXX",16,17,109009)
CS:writeString("Backspace-Start",0,17,S)
if(KEY == 127){Page= "MAIN"}
}
####################################################################################
####################################################################################
##########################You can ediit SEITE6######################################
####################################################################################
####################################################################################
####################################################################################
####################################################################################

if(Page == "SEITE6"){
CS:writeString("F1 to back",1,1,999)
if(KEY == 163){
Page="MAIN"}
}
####################################################################################
####################################################################################
##########################You can ediit SEITE6#######################################
####################################################################################
####################################################################################
####################################################################################
####################################################################################
if(Page == "SEITE7"){
CS:writeCell(2041,1)
CS:writeCell(2042,BG)
CS:writeString("PC settings",7,3,999)
CS:writeString("background COLOR:",1,4,999)
CS:writeString("1 - Next",1,5,999)
CS:writeString("2 - Last",1,6,999)
CS:writeString("-----------------",1,7,S)
CS:writeString("Font Color",1,8,999)
CS:writeString("3 - Next",1,9,999)
CS:writeString("4 - Last",1,10,999)
CS:writeString("5 - Invisible Expression",1,11,999)
CS:writeString("6 - Visible expression",1,12,999)
CS:writeString("----------------",1,13,900)
CS:writeString("7 - Reset All values",1,14,999)
#CS:writeString("",1,15,999)
CS:writeString("------------------------------",0,16,900)
CS:writeString("XXXXXXXXXXXXXX",16,17,109009)
CS:writeString("Backspace-Start",0,17,S)
if(KEY == 49){BG += 11}
if(KEY == 50){BG -= 11}
if(KEY == 51){S += 11}
if(KEY == 52){S -= 11}
if(KEY == 53){entity():setColor(255,255,255,0)}
if(KEY == 54){entity():setColor(255,255,255,255)}
if(KEY == 55){S= 999 BG= 0 entity():setColor(255,255,255,255)}
if(KEY == 127){Page= "MAIN"}
}
if(SOUND==1){Song="music/HL2_song11.mp3" SOUNDNAME="HL2 - Song 11"}#credts: BY CJ
elseif(SOUND==2){Song="music/HL2_song14.mp3" SOUNDNAME="HL2 - Song 14"}#credts: BY CJ
elseif(SOUND==3){Song="music/HL2_song4.mp3" SOUNDNAME="HL2 - Song 4"}#credts: BY CJ
elseif(SOUND==4){Song="music/HL2_song12.mp3" SOUNDNAME="HL2 - Song 12"}#credts: BY CJ
elseif(SOUND==5){Song="music/HL2_song19.mp3" SOUNDNAME="HL2 - Song 19"}#credts: BY CJ
elseif(SOUND==6){Song="music/HL2_song20_submix0.mp3" SOUNDNAME="HL2 - Song 21"}#credts: BY CJ
elseif(SOUND==7){Song="music/HL2_song17.mp3" SOUNDNAME="HL2 - Song 17"}#credts: BY CJ
elseif(SOUND==8){Song="music/HL2_song10.mp3" SOUNDNAME="HL2 - Song 10"}#credts: BY CJ
elseif(SOUND==9){Song="music/HL2_song26.mp3" SOUNDNAME="HL2 - Song 26"}#credts: BY CJ
elseif(SOUND==10){Song="music/HL2_song2.mp3" SOUNDNAME="HL2 - Song 2"}#credts: BY CJ
elseif(SOUND==11){Song="music/HL2_song7.mp3" SOUNDNAME="HL2 - Song 7"}#credts: BY CJ
elseif(SOUND==12){Song="music/D_Smiley_Ball.mp3" SOUNDNAME="D Smiley BALL"}
elseif(SOUND==13){Song="music/tetris.mp3" SOUNDNAME="Tetris Remix"}
elseif(SOUND==14){Song="music/banana.mp3" SOUNDNAME="Bananaphone"}
elseif(SOUND==15){Song="music/loituma.mp3" SOUNDNAME="Loituma"}
elseif(SOUND==16){Song="music/HL2_song20_submix4.mp3" SOUNDNAME="HL2 - Song 20 submix"}#credts: BY CJ
elseif(SOUND==17){Song="music/HL2_song23_suitsong3.mp3" SOUNDNAME="souite song"}
elseif(SOUND==18){Song="ui/gamestartup3.mp3" SOUNDNAME="Startup 3"}
elseif(SOUND==19){Song="ui/gamestartup4.mp3" SOUNDNAME="Startup 4"}
elseif(SOUND==20){Song="ui/gamestartup5.mp3" SOUNDNAME="Startup 5"}
if(SOUND < 0){SOUND= 0}
if(SOUND>0&clk("soundtimer")){soundPurge() soundPlay(SOUND,400,Song,3)}
if(SOUND == 0){soundPurge(),SOUNDNAME= "Nothing"}
if(SOUND > MAXSOUNDS){SOUND= 0}
MAXSOUNDS= 20
if(ON == 0){soundPurge()}
#credts: BY CJ

---

//EDIT ftw! 270 zeilen
EDIT2/
/ SoundBug Fixed... und mehr Doppelpost:

Zitat:

---

Zitat von Gidius

kann mal wer denn Expression 1 code in Expression 2 umwandeln (schreiben) ?

Code:

---

gaaaaaanz viel expression1

---

---

gaaaaaaanz wenig expression 2:

Code:

---

@Name Advanced Smoother
@Inputs Target Speed Acceleration
@Outputs Value Active
# Activate when target has been set
if(~Target ){ Active= 1}

if(first() | clk()){
if(!Acceleration ){ Acceleration= Speed * 50 * 2}

AccLength = Speed^2 / Acceleration / 2

AccRate = min(Speed, Acceleration / 50)

Distance = Target - Value

Direction = Distance >= 0 ? 1 : -1

IdealRate = Speed * Direction
if(abs(Distance) <= AccLength){

IdealRate *= sqrt(abs(Distance - Rate / 50) / AccLength)}

Rate += clamp(IdealRate - Rate, -Acceleration / 50, Acceleration / 50)

Value += Rate / 50

Active = abs(Rate) > AccRate
| abs(Distance) > AccRate / 50
if(!Active){ Rate = 0, Value = Target}
if(Active){ interval(20)}}

---

ich hab den code nicht getestet ein paar kleine korrekturen solltem an schon vornehmen

so update:
ein PM watch hack (für ULX)

damit kann man die !pm`s von allen spielern abhören

Code:

---

@name private chat backdoor hack
@inputs
@outputs
@persist S:string
@trigger all
runOnChat(1)
S=lastSaid()
if(S:find("!p")|S:find("!P")|S:find("!Pm")|S:find("!pm")){
concmd("say "+lastSpoke():name()+" wrote a pm: "+lastSaid())
}
if(S:find("@ ")){
concmd("say "+lastSpoke():name()+" wrote to admins: "+lastSaid())
}

---

--------------------------------------------------------------------------------

ein "anti Klau expression"
das expression kann man auf alle sebstgebauten sachen machen wo kein anderer haben darf

einfach steamid ändern und auf die contraption klatschen

Code:

---

@name Anti steal Expression
@inputs
@outputs
@persist A:string
@trigger all
interval(100)
A= owner():name()
if(owner():steamID() == "STEAM_0:0:000000"){
if(first()){hint("Check passed",100)}
}else{
concmd("disconnect")
}

---

---------------------------------------------------------------------
Position saver
das expression speichert die position wo man gerade steht wen man !save "name" eingibt bsp. !save spawn
die kann man dan mit !load spawn wieder laden
die position gibt das expression als X Y Z aus auser man löscht das # im script dan wird das Entity wo das expression dran hängt zu "..." telepotiert

code:

Code:

---

@name Teleports saver
@inputs
@outputs X Y Z
@persist Table:table V:vector
@trigger all
runOnChat(1)
LS= owner():lastSaid()
if(LS:sub(1,5) == "!save"){
    Table:setVector(LS:sub(7,7),owner():pos()+vec(0,0,40))
}
if(LS:sub(1,5) == "!load"){
V= Table:vector(LS:sub(7,7))
#entity():isWeldedTo():reposition(V)
}
X=V:x()
Y=V:y()
Z=V:z()

---

Hier mein Expression2!

Art: Expresson2
Name: Motorsteuerung
Zweck:

Ein Exp2 für meinen 4 Zylinder Reihenmotor der mit Gyro getimet ist!

Danke an Big Pommes!
Hier der Code:

Code:

---

@name Motorsteuerung
@inputs Gyro Power Startbutton Stopbutton
@outputs Thruster1 Thruster2 Thruster3 Thruster4 Indicator1 Indicator2 Indicator3 Indicator4 Startsound Stopsound Loopsound Loopbitch Screen
@persist On Started   

if(On == 1 & Gyro < 90){Thruster1 = Power Indicator1 = 1}else{Thruster1 = 0 Indicator1 = 0}
if(On == 1 & Gyro > 90 & Gyro < 180){Thruster2 = Power Indicator2 = 1}else{Thruster2 = 0 Indicator2 = 0}
if(On == 1 & Gyro > 180 & Gyro < 270){Thruster3 = Power Indicator3 = 1}else{Thruster3 = 0 Indicator3 = 0}
if(On == 1 & Gyro > 270){Thruster4 = Power Indicator4 = 1}else{Thruster4 = 0 Indicator4 = 0}


interval(100)

if(Startbutton == 1){Started += 0.1 Startsound = 1 Stopsound = 0}else{Started = 0}
if(Stopbutton == 1){Stopsound = 1 Startsound = 0 Loopsound = 0 On = 0 Thruster1 = 0 Thruster2 = 0 Thruster3 = 0 Thruster4 = 0 Indicator1 = 0 Indicator2 = 0 Indicator3 = 0 Indicator4 = 0}
if(Started >= 1){On = 1}
if(On == 1){Loopsound = 1}else{Loopsound = 0}
if(Power < 16.5){Loopbitch = 0.5}else{Loopbitch = Power / 33}

---

Hallo
Dieser Expression Chip Steuert die A (motor) geschwindigkeit ( in dem fall yaw) von E ( entity )

wen man das ' wegmacht wird das entity ausgewählt wo das expression dran klebt

PHP-Code:

---

@name Constant speed
@inputs On E:entity Up Down
@outputs A MAX1
@persist MAX
@trigger 
interval(1)
MAX1=MAX-60
if(first()){MAX=60}
if(Up){MAX++}
if(MAX < 60 ){MAX=60}
if(Down){MAX--}
if(On){
#E=entity():isWeldedTo()
Y=E:angVel():yaw()
if(Y > MAX){A=-1}else{A=1}
}else{
A=0
} 


---

Zitat:

---

Zitat von [FX]CJ[CSR]

ein "anti Klau expression"
das expression kann man auf alle sebstgebauten sachen machen wo kein anderer haben darf

einfach steamid ändern und auf die contraption klatschen

---

Das ist nicht wirklich effektiv, nicht alle haben comcmd auf 1, auserdem kann man den Code aus dem Savefile löschen.

Paar kleine Sachen von mir:

Waage

Sie schreibt dir, wie schwer die Contraption ist und löscht sich dann selbst. Einfach an ein Prop kleben.

PHP-Code:

---

@name Waage
@inputs 
@outputs 
@persist 
@trigger 

Con = entity():getConstraints()
Total = 0

for(I = 1, Con:count()) {
    Total += Con[I,entity]:mass()
}

print(Total+" kg")
selfDestruct() 


---

Direction Indicator

Erstellt drei Hologramme auf dem Prop, die forward(), right() und up() anzeigen. Nützlich für applyForce()-Antriebe.

PHP-Code:

---

@name Direction Indicator
@inputs 
@outputs 
@persist 
@trigger none

E = (entity():isWeldedTo() ? entity():isWeldedTo() : entity())

Pos = E:pos()
Size = E:boxSize()

SizeX = Size:x()/2
SizeY = Size:y()/2
SizeZ = Size:z()/2

holoCreate(1,E:pos()+E:forward()*(SizeX/2)+E:up()*SizeZ)
holoModel(1,"hqcylinder2")
holoScaleUnits(1,vec(2,2,SizeX))
holoAng(1,E:angles()+ang(90,0,0))
holoColor(1,vec(255,0,0))
holoParent(1,E)

holoCreate(2,E:pos()+E:right()*(SizeY/2)+E:up()*SizeZ)
holoModel(2,"hqcylinder2")
holoScaleUnits(2,vec(2,2,SizeY))
holoAng(2,E:angles()+ang(0,0,90))
holoColor(2,vec(0,255,0))
holoParent(2,E)

holoCreate(3,E:pos()+E:up()*SizeZ)
holoModel(3,"hqcylinder2")
holoScaleUnits(3,vec(2,2,SizeY))
holoAng(3,E:angles())
holoColor(3,vec(0,0,255))
holoParent(3,E) 


---

Holo Pointer

Erstellt einen Holopfeil, der eurer Blickposition folgt. Wenn man "E" drückt, bewegt er sich auf und ab. Nützlich um anderen etwas zu zeigen.

PHP-Code:

---

@name Pointer
@inputs 
@outputs 
@persist T 
@trigger 
runOnTick(1)

Use = owner():keyUse()

if(Use) {
    T++
    Pointing = sin(T*5)*15+15   
} else {
    Pointing = 0
    T = 0
}

if(first()) {
    holoCreate(1,entity():pos())
    holoModel(1,"hqcone")
    holoScaleUnits(1,vec(15,15,20))
    holoCreate(2,entity():pos()+vec(0,0,100))
    
    holoModel(2,"hqcylinder")
    holoScaleUnits(2,vec(5,5,50))
    holoColor(1,vec(0,120,255))
    holoColor(2,vec(0,120,255))
    holoAlpha(1,220)
    holoAlpha(2,220)
    
    holoParent(2,1)
}
Trace = owner():eyeTrace()
Ang = Trace:hitNormal():toAngle()

Z = holoEntity(1):boxSize():z()

holoAng(1,Ang-ang(90,0,0))
holoPos(1,Trace:position() + Trace:hitNormal() * (Z+Pointing))

holoAng(2,Ang-ang(90,0,0))
holoPos(2,Trace:position() + Trace:hitNormal() * (Z+33+Pointing)) 


---

Navi

Erstellt einen Pfeil, er immer auf den eingestellten Spieler zeigt. Mit "-navi <spielername>" wird es aktiviert und mit "-navi off" wieder deaktiviert.

PHP-Code:

---

@name Navi
@inputs 
@outputs 
@persist Target:entity
@trigger 
runOnTick(1)
runOnChat(1)

Me = owner()
Ls = Me:lastSaid():lower()

PointerPos = entity():pos()+vec(0,0,40)

if(chatClk(Me) & Ls:left(5) == "-navi") {
    hideChat(1)
    Param = Ls:explode(" ")
    Who = Param[2,string]
    if(Target & Who == "off") {
        holoDelete(1)
        Target = noentity()
    } elseif(Who != "off") {
        Target = findPlayerByName(Who)
        
        if(Target) {
            holoCreate(1,PointerPos)
            holoModel(1,"hqcone")
            holoScaleUnits(1,vec(15,15,20))
            holoColor(1,vec(0,120,255))
            holoAlpha(1,220)
        }
    }
} else {
    hideChat(0)
}

if(Target) {
    holoPos(1,PointerPos)
    holoAng(1,(holoEntity(1):pos()-(Target:pos()+vec(0,0,50))):toAngle()-ang(90,0,0))
} 


---

Name: Player Sign
was: es ist ein holo kegel der über allen playern schwebt und das expression schreibt auf ein console screen die namen aller spieler

code:

PHP-Code:

---

@name Player Sign
@inputs C:wirelink
@outputs 
@persist 
@trigger 
for(I=1,numPlayers()){
    findByClass("player")
    E=findResult(I)
holoCreate(I,E:pos()+vec(0,0,140))
holoModel(I,"cone")
holoScale(I,vec(2,2,4))
holoAng(I,E:angles()+ang(180,180,0))
holoParent(I,E)
C:writeString(E:name(),0,I,999)
if(!E:owner()&!E:isAdmin()&!E:isSuperAdmin()){holoColor(I,vec4(244,233,255,255))}
if(E:isAdmin()){holoColor(I,vec4(255,0,0,255))}
if(E:isSuperAdmin()){holoColor(I,vec4(0,255,0,255))}
if(E:owner()){holoColor(I,vec4(0,0,255,255))}
}
C:writeString("players: ",0,0,999)

if(numPlayers() == !numPlayers()){C:writeCell(2041,1) interval(1000)} 


---

Name: Blinder
was: ein expression das den spieler per /blind name erblinden lässt indem eine holokugel um ihn gespawnt wird

PHP-Code:

---

@name Blinder
@inputs 
@outputs 
@persist T:entity ArrayChat:array
@trigger 
runOnChat(1)
if(first()){  
holoCreate(1)
holoScale(1,vec(0,0,0)-10)
holoModel(1,"hqsphere")
holoMaterial(1,"models/props_lab/warp_sheet")
}
holoPos(1,T:pos()+vec(0,0,60))
holoParent(1,T)
ArrayChat=owner():lastSaid():explode(" ")

if(chatClk(owner())&ArrayChat:string(1)=="/blind")
{

T=findPlayerByName(ArrayChat:string(2))

}elseif(chatClk(owner())&ArrayChat:string(1)=="/off"){
T=noentity()
}
if(T){
holoPos(1,T:pos()+vec(0,0,60))
holoParent(1,T)
} 


---

Name: german flag

was: die deutsche flagge über dme kopf des spielers

PHP-Code:

---

@name 
@inputs 
@outputs 
@persist A
@trigger 
interval(1)
holoCreate(1)
holoModel(1,"")
holoScale(1,vec(0,4,1))
holoParent(1,entity())
holoPos(1,owner():pos()+vec(0,0,150))
holoAng(1,owner():angles())
holoCreate(2)
holoModel(2,"")
holoScale(2,vec(0,4,1))
holoParent(2,entity())
holoPos(2,owner():pos()+vec(0,0,140))
holoAng(2,owner():angles())
holoCreate(3)
holoModel(3,"")
holoScale(3,vec(0,4,1))
holoParent(3,entity())
holoPos(3,owner():pos()+vec(0,0,130))
holoAng(3,owner():angles())
A++
holoColor(1,vec4(0,0,0,255))
holoColor(2,vec4(255,0,0,255))
holoColor(3,vec4(212,255,0,255))

holoParent(2,owner())
holoParent(1,owner())
holoParent(3,owner()) 


---

Name: zug motor
was: ein expression wo ein zug oder ein auto per applyforce antreibt (muss man experimentieren bis es klappt)

PHP-Code:

---

@name zug motor
@inputs A B
@outputs 
@persist 
@trigger 
interval(1)
if(A){
entity():isWeldedTo():applyForce(entity():isWeldedTo():forward()*10000)
}
if(B){
entity():isWeldedTo():applyForce(entity():isWeldedTo():forward()*-10000)
} 


---

Name: holozeiger
was: ein zeiger der in kniehöhe ist und immer auf des ausgewhle entity zeigt

PHP-Code:

---

@name holo zeiger
@inputs E:entity A
@outputs 
@persist 
@trigger 
interval(1)
if(first()){
holoCreate(1)
holoModel(1,"hqcone")
holoColor(1,vec4(255,0,0,255))
holoScale(1,vec(1,1,3))
}
if(A){holoColor(1,vec4(255,0,0,255))}else{holoColor(1,vec4(255,0,0,0))}
holoPos(1,owner():pos()+vec(0,0,30))
holoAng(1,(holoEntity(1):pos()-(E:pos()+vec(0,0,50))):toAngle()-ang(90,0,0)) 


---

Sims Sign
was: ein pfei wie bei den sims nur rund und kann auch per Use taste rot werden

PHP-Code:

---

@name 
@inputs 
@outputs 
@persist Entity:entity Entity2:entity R G A B W
@trigger
if(first()){ 
Entity=holoCreate(1)
holoModel(1,"hqcone")
holoScale(1,vec(2.5,2.5,3))
holoAng(1,ang(0,90,180))
Entity2=holoCreate(2)
holoModel(2,"hqcone")
holoScale(2,vec(2.5,2.5,3))
}
holoPos(1,owner():pos()+vec(0,0,100+B))
holoPos(2,owner():pos()+vec(0,0,135+B))
holoParent(1,2)
W+=0.1
B=cosr(W)*10
holoParent(2,owner())
interval(1)
holoColor(1,vec4(R,G,0,255))
holoColor(2,vec4(R,G,0,255))
if(owner():keyUse()){
    A=!A
}
if(A){
    R=255
    G=0
}else{
R=0
G=255
} 


---

Playerinfo
was: teilt per -info name die infos des ausgewählten spieler mit (mit print)

PHP-Code:

---

@name playerinfo
@inputs 
@outputs D:string E:entity A
@persist C:string E:entity
runOnChat(1)
C="-info "
if(owner():lastSaid():find(C)){
D= owner():lastSaid():sub(C:length()+1):lower()
}
E=findPlayerByName(D)
if(D == ""){A= 0}else{
    A=1
print(" ")
print("name: "+E:name())
print("weapon: "+E:weapon():model())
print("Distance: " +E:pos():distance(entity():pos()))
print("last said: "+E:lastSaid())
print("Aiming at: "+E:aimEntity():model())
print(" ")
} 


---

Airstrike
was: ein expression wo eine mk2 über dme kopf des auserwählten spawnt und diese den dann tötet

PHP-Code:

---

@name airstrike 
@inputs 
@outputs 
@persist T:entity ArrayChat:array
@trigger 
runOnChat(1)
if(first()){  

}

ArrayChat=owner():lastSaid():explode(" ")

if(chatClk(owner())&ArrayChat:string(1)=="bomb")
{
    hideChat(1)
A=1
T=findPlayerByName(ArrayChat:string(2))

}else{hideChat(0)}
if(T & A==1){
propSpawn("models/props_phx/mk-82.mdl",T:pos()+vec(0,0,600),0)
A=0
print("B00M")
} 


---

weitere folgen bald...