partikel=CreateImage(64, 64)
   SetBuffer ImageBuffer(partikel)
   ClsColor 0, 0, 0
   Cls
   Color 255, 255, 255
   Oval 16, 16, 32, 32
SaveBuffer(ImageBuffer(Partikel), "C:/Partikel.bmp")



AppTitle "Rauchpartikel"
Graphics3D 800,600,32,2
SeedRnd MilliSecs()

camera=CreateCamera()
PositionEntity camera,0,1,-10


Type partikel
   Field Qualm
   Field zeit#
   Field alpha#
   Field groesse#
   Field farbg
   Field farbr
End Type


;Global Qualm = LoadSprite("smoke1.bmp",3)              ;<-------------wenn man die Rauchtextur hat       
Global Qualm = LoadSprite("C:\partikel.bmp",3)        ;<-------------wenn man die Rauchtextur nicht hat
HideEntity qualm

HidePointer

;-----------------------------------------------Hauptteil-----------------------------------------------;

Repeat

   mx=MouseX()
   my=MouseY()

   If MouseDown(1)  Then
      ADDqualm() 
   End If


   curTime = MilliSecs()
      If curTime > checkTime Then
         checkTime = curTime + 1000
         curFPS = fpscounter
         fpscounter = 0
         If currentFrame>75
            If curFPS<fps_low Then fps_low = curFPS
         EndIf
      Else
         fpscounter = fpscounter + 1
      End If


   UpdateWorld()
   UppQualm()
   RenderWorld()

      Oval mx-3,my-3,6,6,0
      Text 0,0,curfps

   Flip

Until KeyHit(1)

;----------------------------------------------Ende Hauptteil-------------------------------------------;

End

;---------------------------------------------Qualm erstellen-------------------------------------------;

Function AddQualm()

   For i=0 To 2

      p.partikel=New partikel
      p\qualm=CopyEntity(Qualm)
      p\zeit#=100   
      p\alpha#=Rnd(0.1,0.9)
      p\groesse#=Rnd(90,100)
      p\farbg=255
      p\farbr=255
       
      PositionEntity p\qualm,(MouseX()/100)-5.5,-MouseY()/100+4,0

   Next

End Function

;-------------------------------------------Qualm aktualisieren-----------------------------------------;

Function UppQualm()

   For p.partikel = Each partikel

      If p\zeit# > 0 Then
         
         p\zeit# = p\zeit# + 1
         p\alpha#=p\alpha#-0.01
         p\groesse#=p\groesse+5
         p\farbg=p\farbg-4

         TranslateEntity p\qualm,Sin(Rnd(-0.5,0.5))*20 ,Rnd(0.07,0.1),Rnd(-0.5,0.5)
         EntityColor p\qualm,p\farbr,p\farbg,0
         EntityAlpha P\qualm,P\alpha#
      
         ;ScaleSprite P\qualm,P\groesse# /150,P\groesse# /150   ;<-------------wenn man die Rauchtextur hat
         ScaleSprite P\qualm,P\groesse# /300,P\groesse#/300    ;<-------------wenn man die Rauchtextur nicht hat
      
      End If


      If p\alpha# < 0.1 Then
         FreeEntity P\qualm
         Delete P
      End If

   Next

End Function

"Pizza Manager"

Du machst alles selbst: Von der Auswahl des Standorts, über die Einrichtung, die
Zusammenstellung der Speisekarte, die Bestellung beim Lieferanten bis hin zu
Werbung und Konkurrentenbehandlung liegt alles in Deiner Hand.

Echtzeit Spielablauf und animierte Kellner und Gäste
Vier verschiedene Restauranttypen (Imbiss, Eisdiele, Fastfood und Pizzaria)
Über 100 Zutaten aus denen eigene Rezepte kreiert werden können
Viele verschiedene Einrichtungsgegenstände für dein Restaurant
Verschiedene Gästetypen, unterschiedliches Aussehen, unterschiedliche Eigenschaften
Mehrere Restaurants gleichzeitig
Stadtkarten mit Tag-Nachtwechsel
Computergegner, die unter anderem mit Anschlägen drohen (noch nicht fertig!)
Umfangreiche Ingame-Statistik (noch nicht fertig!)
Einrichtungen wie Bank, Werbeagentur, Marktforschung und Kochschule (noch nicht fertig!)
Extras wie Putzkräfte, unterschiedliche Kücheneinrichtungen, uvm.
Restaurantkritiker die dein Restaurant unter die Lupe nehmen (noch nicht fertig!)
Homepagegalerie mit den besten Restaurants und Rezepten (noch nicht fertig!)
...


Besonderheit:
Komplexes Bewertungssystem für alle Gerichte. Bewertet wird:
- Individueller Geschmack jedes Besuchers (50%)
- Typenabhängiger Geschmack jedes Besuchers (50%)
- Anzahl der verwendeten zutaten (für jede Zutat ist eine andere Menge optimal)
- Kombination von Zutaten (geschickte Kombinationen erhöhen die Qualität der Zutaten)
- Preis / Leistungsverhältnis

Somit können eigene, kreative Gerichte zusammengestellt werden, die aber
regelgeleitet bewertet werden. Dennoch steht besonderen Kreationen
(z.B. Currywurst mit Ananas) nichts im Weg. Jeder kann selbst herausfinden
auf welche Weise er die meisten Kunden zufriedenstellt!!!
In der Kochschule könnt ihr bestimmte Rezepte lernen, die vergleichsweise
gut funktionieren. Die wirklichen Knaller müssen jedoch selbst gefunden werden.

Graphics 640,480,32,2
SetBuffer BackBuffer()

Type partikel
   Field x,y
   Field r,g,b
   Field size
   Field winkel
   Field speed
End Type

p_winkel=18



SeedRnd MilliSecs()

Repeat
   
   If MouseDown(1) Then createpartikel()
   showpartikel()
   updatepartikel()
   
   Flip
   Cls
Until KeyHit(1)


Function createpartikel()
   p.partikel=New partikel
   p\x=MouseX()
   p\y=MouseY()
   p\r=255
   p\g=255
   p\b=0
   p\size=Rand(2,6)
   p\winkel=p_winkel+Rand(0,30)
   p\speed=1
   
   
End Function

Function updatepartikel()
   
   For p.partikel=Each partikel
      If p\g>1 Then p\g=p\g-3
       If p\g<=1 And p\r>10 Then p\r=p\r-3
      
      ;winkel leicht verändern
      p\x=p\x-Cos(p\winkel)*p\speed
      p\y=p\y+Sin(p\winkel-Rand(0,200))*p\speed
      
      If p\r<=10 Then Delete p
      
      
      
      
   Next
   
   
End Function


Function showpartikel()
   For p.partikel=Each partikel
      Color p\r,p\g,p\b
      Oval p\x,p\y,p\size,p\size,1
   Next
End Function

   

// Skript zum Item "Wetterstein" mit der ID "15"
// (c) Ilir Nuhiu / T-Team
// http://tehadon.info
// Beschreibung: Mithilfe des Wettersteins kann man das Wetter mit Magie ändern.

// Bedingung, unter welcher Skript ausgeführt wird:
#SCRIPT ON_USE 'C_Item' Condition ("Wetterstein","15");

// Variabeln registrieren
// Die Variable Art speichert die Art des Wetter als INT
// z.B.: Unwetter=1, sonnig=2, usw.

//   Zuerst Variable reservieren
// In dieser Variable wird gespeichert, wie das Wetter verändert wird.
ReserveRam ("Wetterart", STRING);   
ReserveRam ("WetterÄndern", BOOL);

// Zuerst abfragen was für Wetter erstellt wird:
CMD_Input ("Wetterart","Welches Wetter?");

// Messagebox setzen um fragen ob wetter wirklich verändern:
MessageBox ("WetterÄndern", "Willst du das Wetter %Wetterart% machen?","Wetter veraendern");

// Wenn Button von Messagebox geklickt wird:
if (WetterÄndern="TRUE")
{
// Dann Wetter auch setzen:
TE_SetWeather ("Wetterart");
}

#SCRIPT ON_USE 'C_Item' Condition ("Wetterstein","15");

ReserveRam ("Wetterart", STRING);

CMD_Input ("Wetterart","Welches Wetter?");

MessageBox ("WetterÄndern", "Willst du das Wetter %Wetterart% machen?","Wetter veraendern");

if (WetterÄndern="TRUE")

TE_SetWeather ("Wetterart");