Wer ist online?
Buchempfehlung
FreeBASIC-Chat
FreeBASIC-Nachrichten jetzt auch über Twitter erhalten. Follow us!fb:porticula NoPaste
Freundin 0.9 Alpha - Nonpublic preview
| Uploader: |  PMedia |
| Datum/Zeit: | 15.08.2007 22:40:12 |
#define False = 0
#define True = Not False
' Zur Simulation des echten Lebens:
#undef false
#define False = Not True
Type Mensch
geboren as integer 'unix-timestamp seit 1970
End Type
Type Adam
inherited as mensch
vorname as string = "Adam"
nachname as string = "" 'gibs zu diesem Zeitalter noch nicht
End Type
Type Eva
inherited as Adam
vorname as string = "Eva"
nachname as string = "" 'gibs zu diesem Zeitalter noch nicht
Koerbchengroesse as uinteger = asc("a") 'sollte evualiert werden,
'Wert kann vlt. nicht stimmen
Brustumfang as uinteger = 70
Bauchumfang as uinteger = 70
Hueftumfang as uinteger = 70
zicke as ubyte = 1
End Type
Type ModerneFrau
inherited as Eva
vorname as string= "<todo>"
nachname as string = "<todo>"
Koerbchengroesse as uinteger = asc("f") 'sollte evualiert werden,
'Wert kann vlt. nicht stimmen
Brustumfang as uinteger = 90
Bauchumfang as uinteger = 60
Hueftumfang as uinteger = 90
End Type
Dim Freundin As ModerneFrau
Dim Egal As String
? "<freundin> Was willst du?"
? "<du>";
input egal
if instr(lcase(egal), "sex") then
randomize timer
if int(rnd * 255) = 5 then
? "<freundin> ok"
else
? "<freundin> jetzt nicht, schatz, ich habe Migräne."
end if
else
? "Ach wusstest du eigentlich schon, dass..." 'ablenken
end if
sleep
end