PDA

Archiv verlassen und diese Seite im Standarddesign anzeigen : Zeigt eure Expression's



gamerpaddy
19.03.2009, 03:36
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:

#|--------------------------------|
#| 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:

@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:

@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


@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


@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

Mitsuma
19.03.2009, 10:20
Kann man auch zCPU codes reinstellen ?

Gidius
19.03.2009, 15:59
JA darfst du ^^ :D natürlich nicht man man man Mitsuma

gamerpaddy
19.03.2009, 16:41
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)

Gidius
19.03.2009, 20:59
kann mal wer denn Expression 1 code in Expression 2 umwandeln (schreiben) ?


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);

Gidius
20.03.2009, 21:03
-snip-

gamerpaddy
23.03.2009, 22:39
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:

@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:

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


gaaaaaanz viel expression1


gaaaaaaanz wenig expression 2:

@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

gamerpaddy
24.05.2009, 22:34
so update:
ein PM watch hack (für ULX)

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

@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


@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:

@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()

minifisch
25.05.2009, 18:06
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:


@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}

gamerpaddy
24.10.2009, 19:20
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


@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
}

Quabit
25.10.2009, 20:57
CJ[CSR];363368']
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.

@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.


@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.


@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.


@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))
}

gamerpaddy
03.11.2009, 18:51
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:


@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,25 5))}
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


@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


@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)

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

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

@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{holoColo r(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


@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)

@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


@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...