PureBoard

Verfasst: **31.12.2007 17:19**

Es darf erst heute um 0 Uhr geböllert werden, deswegen gehen die Bilder nicht

Auch von mir einen guten Rutsch

Verfasst: **31.12.2007 17:23**

RSBasic hat geschrieben:>Recht viel Umständlicher geht's wircklich nicht^^

MessageRequester("",Chr(69)+Chr(105)+Chr(110)+Chr(101)+Chr(110)+Chr(160)+Chr(103)+Chr(117)+Chr(116)+Chr(101)+Chr(110)+Chr(160)+Chr(82)+Chr(117)+Chr(116)+Chr(115)+Chr(99)+Chr(104)+Chr(160)+Chr(105)+Chr(110)+Chr(115)+Chr(160)+Chr(110)+Chr(101)+Chr(117)+Chr(101)+Chr(160)+Chr(74)+Chr(97)+Chr(104)+Chr(114),0)

Das nennst du umständlich? Das is doch garnix

Hier mein umständlicher Code

Code: Alles auswählen

; Buchstaben :D
b1 = Asc("S")
b2 = Asc("i")
b3 = Asc("l")
b4 = Asc("v")
b5 = Asc("e")
b6 = Asc("s")
b7 = Asc("t")
b8 = Asc("e")
b9 = Asc("r")

c1 = Asc("-")
c2 = Asc("W")
c3 = Asc("u")
c4 = Asc("n")
c5 = Asc("s")
c6 = Asc("c")
c7 = Asc("h")

d1 = Asc("G")
d2 = Asc("u")
d3 = Asc("t")
d4 = Asc("e")
d5 = Asc("n")

e1 = Asc(" ")
e2 = Asc("R")
e3 = Asc("u")
e4 = Asc("t")
e5 = Asc("s")
e6 = Asc("c")
e7 = Asc("h")

f1 = Asc(" ")
f2 = Asc("i")
f3 = Asc("n")
f4 = Asc("s")

g1 = Asc(" ")
g2 = Asc("n")
g3 = Asc("e")
g4 = Asc("u")
g5 = Asc("e")

h1 = Asc(" ")
h2 = Asc("J")
h3 = Asc("a")
h4 = Asc("h")
h5 = Asc("r")

i1 = Asc(" ")
i2 = Asc("2")
i3 = Asc("0")
i4 = Asc("0")
i5 = Asc("8")
i6 = Asc("!")

; Teilsätze
Silvester$ = Str(b1)+"|"+Str(b2)+"|"+Str(b3)+"|"+Str(b4)+"|"+Str(b5)+"|"+Str(b6)+"|"+Str(b7)+"|"+Str(b8)+"|"+Str(b9)
Wunsch$ = Str(c1)+"|"+Str(c2)+"|"+Str(c3)+"|"+Str(c4)+"|"+Str(c5)+"|"+Str(c6)+"|"+Str(c7)
Guten$ = Str(d1)+"|"+Str(d2)+"|"+Str(d3)+"|"+Str(d4)+"|"+Str(d5)
Rutsch$ = Str(e1)+"|"+Str(e2)+"|"+Str(e3)+"|"+Str(e4)+"|"+Str(e5)+"|"+Str(e6)+"|"+Str(e7)
ins$ = Str(f1)+"|"+Str(f2)+"|"+Str(f3)+"|"+Str(f4)
neue$ = Str(g1)+"|"+Str(g2)+"|"+Str(g3)+"|"+Str(g4)+"|"+Str(g5)
Jahr$ = Str(h1)+"|"+Str(h2)+"|"+Str(h3)+"|"+Str(h4)+"|"+Str(h5)
Z2008$ = Str(i1)+"|"+Str(i2)+"|"+Str(i3)+"|"+Str(i4)+"|"+Str(i5)+"|"+Str(i6)

; Teilsätze-Umwandeln
SilvesterGesamt$ = Chr(Val(StringField(Silvester$,1,"|")))
SilvesterGesamt$ + Chr(Val(StringField(Silvester$,2,"|")))
SilvesterGesamt$ + Chr(Val(StringField(Silvester$,3,"|")))
SilvesterGesamt$ + Chr(Val(StringField(Silvester$,4,"|")))
SilvesterGesamt$ + Chr(Val(StringField(Silvester$,5,"|")))
SilvesterGesamt$ + Chr(Val(StringField(Silvester$,6,"|")))
SilvesterGesamt$ + Chr(Val(StringField(Silvester$,7,"|")))
SilvesterGesamt$ + Chr(Val(StringField(Silvester$,8,"|")))
SilvesterGesamt$ + Chr(Val(StringField(Silvester$,9,"|")))

WunschGesamt$ = Chr(Val(StringField(Wunsch$,1,"|")))
WunschGesamt$ + Chr(Val(StringField(Wunsch$,2,"|")))
WunschGesamt$ + Chr(Val(StringField(Wunsch$,3,"|")))
WunschGesamt$ + Chr(Val(StringField(Wunsch$,4,"|")))
WunschGesamt$ + Chr(Val(StringField(Wunsch$,5,"|")))
WunschGesamt$ + Chr(Val(StringField(Wunsch$,6,"|")))
WunschGesamt$ + Chr(Val(StringField(Wunsch$,7,"|")))

GutenGesamt$ = Chr(Val(StringField(Guten$,1,"|")))
GutenGesamt$ + Chr(Val(StringField(Guten$,2,"|")))
GutenGesamt$ + Chr(Val(StringField(Guten$,3,"|")))
GutenGesamt$ + Chr(Val(StringField(Guten$,4,"|")))
GutenGesamt$ + Chr(Val(StringField(Guten$,5,"|")))

RutschGesamt$ = Chr(Val(StringField(Rutsch$,1,"|")))
RutschGesamt$ + Chr(Val(StringField(Rutsch$,2,"|")))
RutschGesamt$ + Chr(Val(StringField(Rutsch$,3,"|")))
RutschGesamt$ + Chr(Val(StringField(Rutsch$,4,"|")))
RutschGesamt$ + Chr(Val(StringField(Rutsch$,5,"|")))
RutschGesamt$ + Chr(Val(StringField(Rutsch$,6,"|")))
RutschGesamt$ + Chr(Val(StringField(Rutsch$,7,"|")))

insGesamt$ = Chr(Val(StringField(ins$,1,"|")))
insGesamt$ + Chr(Val(StringField(ins$,2,"|")))
insGesamt$ + Chr(Val(StringField(ins$,3,"|")))
insGesamt$ + Chr(Val(StringField(ins$,4,"|")))

neueGesamt$ = Chr(Val(StringField(neue$,1,"|")))
neueGesamt$ + Chr(Val(StringField(neue$,2,"|")))
neueGesamt$ + Chr(Val(StringField(neue$,3,"|")))
neueGesamt$ + Chr(Val(StringField(neue$,4,"|")))
neueGesamt$ + Chr(Val(StringField(neue$,5,"|")))

JahrGesamt$ = Chr(Val(StringField(Jahr$,1,"|")))
JahrGesamt$ + Chr(Val(StringField(Jahr$,2,"|")))
JahrGesamt$ + Chr(Val(StringField(Jahr$,3,"|")))
JahrGesamt$ + Chr(Val(StringField(Jahr$,4,"|")))
JahrGesamt$ + Chr(Val(StringField(Jahr$,5,"|")))

Z2008Gesamt$ = Chr(Val(StringField(Z2008$,1,"|")))
Z2008Gesamt$ + Chr(Val(StringField(Z2008$,2,"|")))
Z2008Gesamt$ + Chr(Val(StringField(Z2008$,3,"|")))
Z2008Gesamt$ + Chr(Val(StringField(Z2008$,4,"|")))
Z2008Gesamt$ + Chr(Val(StringField(Z2008$,5,"|")))
Z2008Gesamt$ + Chr(Val(StringField(Z2008$,6,"|")))

; Ausgeben
MessageRequester(SilvesterGesamt$+WunschGesamt$,GutenGesamt$+RutschGesamt$+insGesamt$+neueGesamt$+JahrGesamt$+Z2008Gesamt$,#MB_ICONINFORMATION)

Hat ne Weile gedauert bis ich das hatte

Aber egal! Auch von mir einen guten Rutsch ins neue Jahr!

Gruss
PMTheQuick

Verfasst: **31.12.2007 17:35**

Daniel P. hat geschrieben:Es darf erst heute um 0 Uhr geböllert werden

Wäre schön wenn sich daran mal wirklich jemand halten würde. Das regt mich schon seit langem auf, immer diese Idioten die schon Stunden vorher ihre Raketen steigen lassen. Wie geil es doch wäre, wenn alle Menschen 'ne Funkuhr hätten und um Punkt 12 loslegen. Aber nein, die Ungeduld ist einfach nicht zu bekämpfen...

Naja, dieses Jahr gibt's für mich eh kein Geballer, das ist mir mittlerweile echt schon zu blöd geworden...

Verfasst: **31.12.2007 17:38**

oh scheisse, bin vor ner stunde aufgewacht und hab/hatte voll die kopfschmerzen

dieser tag wird sehr boese enden

allen zusammen ne nette silvester party und nen guten rutsch

Verfasst: **31.12.2007 18:05**

Wie wärs mit folgendem Code?

Code: Alles auswählen

Guten Rutsch ins Jahr _2008

Das funktioniert, wenn ihr folgendes Gerümpel voranstellt:

Code: Alles auswählen

Macro Guten:MessageRequester:EndMacro:Macro Rutsch:(:EndMacro:Macro ins:"Silvester",:EndMacro:Macro neue:"Guten Rutsch ins neue Jahr:EndMacro:Macro Jahr::2008!",:EndMacro:Macro _2008:#MB_ICONINFORMATION):EndMacro

(Irgendwann werde ich doch noch mal PueBasic auf Deutsch übersetzen^^)

Verfasst: **31.12.2007 19:54**

Oda so.. Entschuldigt, dass mir an Sylwester langweilig war xD

Code: Alles auswählen

*Mem = AllocateMemory(18)

!PUSH ECX
!MOV EAX, ECX
!XOR ECX, EAX
!JMP EEX
!EFX:
!MOV ECX, 0x378FD8AD
!MOV EAX, 0x7D4EE56C
!ROL EAX, 0x8
!PUSH EBX
!MOV EBX, 0x628F8C3E
!SHR EBX, 0x7
!XOR EAX, EBX
!POP EBX
!ROL EAX, 0x8
!PUSH EAX
!MOV EAX, 0x6F684672
!ROR EAX, 0x10
!BSWAP EAX
!MOV DWORD [EDX], EAX
!MOV EAX, 0xBE1A8D97
!PUSH ECX
!XOR ECX, ECX
!ADD ECX, 0x4AB51832
!SUB EAX, ECX
!POP ECX
!MOV DWORD [EDX + 8], EAX
!MOV WORD [EDX + 12], 0x4A20
!MOV EAX, 0x21725837
!PUSH ECX
!MOV ECX, 0x102A
!LOP:
!INC EAX
!DEC ECX
!JNZ LOP
!POP ECX
!MOV DWORD [EDX + 14], EAX
!POP EAX
!ROL EAX, 0x8
!BSWAP EAX
!PUSH ECX
!XOR ECX, ECX
!MOV CX, AX
!ROL ECX, 0x10
!BSWAP ECX
!MOV AX, CX
!MOV ECX, EAX
!ROR ECX, 0x10
!ROL CX, 0x8
!ROL ECX, 0x10
!MOV EAX, ECX
!POP ECX
!MOV DWORD [EDX + 4], EAX
!EEX:
!MOV EDX, [p_Mem]
!CMP ECX, 0x378FD8AD
!JNZ EFX
!POP ECX

Debug PeekS(*Mem)

Möglichst unübersichtlich

Hey, daraus könnte man mal nen Contest machen

PeeeEsss: Frohes Neues Jahr an alle

Verfasst: **31.12.2007 20:55**

Auch von mir nen guten Rutsch ...
und viel Erfolg im neuen Jahr!
@ALL

Verfasst: **31.12.2007 21:29**

ZeHa hat geschrieben:Das regt mich schon seit langem auf, immer diese Idioten die schon Stunden vorher ihre Raketen steigen lassen.

Iwo, bei uns kracht's schon seit Samstag...

AND51 hat geschrieben:(Irgendwann werde ich doch noch mal PueBasic auf Deutsch übersetzen^^)

Darf ich auch mitmachen?
pls

Code: Alles auswählen

;statt:
OpenWindow(#Window_1,1,1,50,50,#PB_Window_ScreenCentered,"SiLveStER")
;schreibt man dann:
ÖffneFenster(#Fenster_1,1,1,50,50#PB_Fenster_BildschirmZentriert,"SiLveStER")

PS: Dann müsste PB aber PB heißen, also nicht PureBasic, sondern PureBasis (oderso^^)

Ich weiß, das da unten sollte man nicht machen, aber es iss ja Silvi^^

Jilocasin hat geschrieben:*Mem = AllocateMemory(18)

Code: Alles auswählen

!PUSH ECX
!MOV EAX, ECX
!XOR ECX, EAX
!JMP EEX
!EFX:
!MOV ECX, 0x378FD8AD
!MOV EAX, 0x7D4EE56C
!ROL EAX, 0x8
!PUSH EBX
!MOV EBX, 0x628F8C3E
!SHR EBX, 0x7
!XOR EAX, EBX
!POP EBX
!ROL EAX, 0x8
!PUSH EAX
!MOV EAX, 0x6F684672
!ROR EAX, 0x10
!BSWAP EAX
!MOV DWORD [EDX], EAX
!MOV EAX, 0xBE1A8D97
!PUSH ECX
!XOR ECX, ECX
!ADD ECX, 0x4AB51832
!SUB EAX, ECX
!POP ECX
!MOV DWORD [EDX + 8], EAX
!MOV WORD [EDX + 12], 0x4A20
!MOV EAX, 0x21725837
!PUSH ECX
!MOV ECX, 0x102A
!LOP:
!INC EAX
!DEC ECX
!JNZ LOP
!POP ECX
!MOV DWORD [EDX + 14], EAX
!POP EAX
!ROL EAX, 0x8
!BSWAP EAX
!PUSH ECX
!XOR ECX, ECX
!MOV CX, AX
!ROL ECX, 0x10
!BSWAP ECX
!MOV AX, CX
!MOV ECX, EAX
!ROR ECX, 0x10
!ROL CX, 0x8
!ROL ECX, 0x10
!MOV EAX, ECX
!POP ECX
!MOV DWORD [EDX + 4], EAX
!EEX:
!MOV EDX, [p_Mem]
!CMP ECX, 0x378FD8AD
!JNZ EFX
!POP ECX

Debug PeekS(*Mem)

Möglichst unübersichtlich

Hey, daraus könnte man mal nen Contest machen

Wirklich umständlich... darf ich auch Teilnehmen^^

//EDIT: ist das immer so, dass eine Acht und eine Zu-Klammer ein

ergeben (fall's nich funzt:

)[/code]

Verfasst: **01.01.2008 00:02**

Noch eine Stunde (um genau zu sein 55 Minuten)

Verfasst: **01.01.2008 01:13**

Happy New Year an alle ^^ 2008 wird richtig geil