Silvester

Hier kann alles mögliche diskutiert werden. Themen zu Purebasic sind hier erwünscht.
Flames und Spam kommen ungefragt in den Mülleimer.
Antworten
Benutzeravatar
Daniel P.
Beiträge: 333
Registriert: 06.12.2005 21:49
Kontaktdaten:
Kontaktdaten von Daniel P.

Beitrag von Daniel P. »

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

Auch von mir einen guten Rutsch :D
Gruß, Daniel :? | In der Realität ist die Wirklichkeit ganz anders...

PB 4.10 (Windows XP SP 2)
Nach oben
PMTheQuick
Beiträge: 630
Registriert: 05.05.2005 19:06

Beitrag von PMTheQuick »

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

Code: Alles auswählen

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 :D Hier mein umständlicher Code :D

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 :D Aber egal! Auch von mir einen guten Rutsch ins neue Jahr! ;)

Gruss
PMTheQuick :lol:
Nach oben
Benutzeravatar
ZeHa
Beiträge: 4760
Registriert: 15.09.2004 23:57
Wohnort: Friedrichshafen
Kontaktdaten:
Kontaktdaten von ZeHa

Beitrag von ZeHa »

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

ZeHa hat bisher kein Danke erhalten.
Klicke hier, wenn Du wissen möchtest, woran ihm das vorbeigeht.
Nach oben
xperience2003
Beiträge: 972
Registriert: 04.10.2004 18:42
Computerausstattung: Amiga, LinuxMint, Windows7
Wohnort: gotha
Kontaktdaten:
Kontaktdaten von xperience2003

Beitrag von xperience2003 »

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

dieser tag wird sehr boese enden :twisted:

allen zusammen ne nette silvester party und nen guten rutsch
amiga rulez...
Rebirth Software
Nach oben
Benutzeravatar
AND51
Beiträge: 5220
Registriert: 01.10.2005 13:15

Beitrag von AND51 »

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
:lol:
(Irgendwann werde ich doch noch mal PueBasic auf Deutsch übersetzen^^)
PB 4.30

Code: Alles auswählen

Macro Happy
 ;-)
EndMacro

Happy End
Nach oben
Jilocasin
Beiträge: 665
Registriert: 13.05.2006 16:04
Kontaktdaten:
Kontaktdaten von Jilocasin

Beitrag von Jilocasin »

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 :lol:
Hey, daraus könnte man mal nen Contest machen :mrgreen:


PeeeEsss: Frohes Neues Jahr an alle ;) :allright:
Bild
Nach oben
Benutzeravatar
Thomas
Beiträge: 893
Registriert: 06.07.2006 19:24
Wohnort: Regensburg
Kontaktdaten:
Kontaktdaten von Thomas

Beitrag von Thomas »

Auch von mir nen guten Rutsch ...
und viel Erfolg im neuen Jahr!
@ALL
v6.00
Nach oben
Benutzeravatar
Mok
BotHunter
Beiträge: 1484
Registriert: 26.12.2005 14:14
Computerausstattung: MSI GX780R
Intel Core i5-2410M
Nvidia GT 555M
Windows 7 Home Premium 64 bit
Wohnort:   

Beitrag von Mok »

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 :lol:
Hey, daraus könnte man mal nen Contest machen :mrgreen:
Wirklich umständlich... darf ich auch Teilnehmen^^

//EDIT: ist das immer so, dass eine Acht und eine Zu-Klammer ein 8) ergeben (fall's nich funzt: 8) )[/code]
Win 7 Home Premium 64 bit | PureBasic 5.20 - x86 und x86-64 | Firefox [aktuelle stable-Version hier einfügen]
"Jeder macht irgendwann mal Fehler, darum gibt's auch Bleistifte mit Radiergummi." --Carl
Nach oben
Benutzeravatar
RSBasic
Admin
Beiträge: 8047
Registriert: 05.10.2006 18:55
Wohnort: Gernsbach
Kontaktdaten:
Kontaktdaten von RSBasic

Beitrag von RSBasic »

Noch eine Stunde (um genau zu sein 55 Minuten) :mrgreen:
Nach oben
Benutzeravatar
Fusselohr
Beiträge: 236
Registriert: 02.04.2007 10:43
Kontaktdaten:
Kontaktdaten von Fusselohr

Beitrag von Fusselohr »

Happy New Year an alle ^^ 2008 wird richtig geil :D
Mein Projekt besteht immernoch und wächst stündlich.

Du willst die Entwicklung mitverfolgen ?
Dann besuche jetzt den Entwicklungsblog unter
http://rpg-fire-games.blogspot.com/
Nach oben
Antworten

Zurück zu „Offtopic“