''''''''''''''''' HIER KOMMT MEINE KLASSE
Type tweapon Extends bewegung

   Field damage:Int;
   Field wdelay:Int;
   Field reichweite:Int;
   Global weapon1_timer:Int;
   
   Field ursprung_x:Int;
   Field ursprung_y:Int;

   Function shootweapon(wname:String,wdamage:Int,wspeed:Int,wtileset:String,x:Int,y:Int,ausrichtung:Int, mdelay:Int, reichweite:Int)
   
      Local weapon:tweapon = New tweapon;
      
      weapon.wdelay = mdelay;
      
      If weapon1_timer
         If weapon1_timer <= MilliSecs()
            weapon1_timer = MilliSecs()+weapon.wdelay;
         Else
            Return;
         End If
      Else
         weapon1_timer = MilliSecs()+weapon.wdelay;
      EndIf
      
      weapon.name = wname;
      weapon.damage = wdamage;
      weapon.speed = wspeed;
      weapon.x = x;
      weapon.y = y;
      weapon.ursprung_x = x;
      weapon.ursprung_y = y;
      
      weapon.ausrichtung = ausrichtung;
      weapon.reichweite = reichweite;
      weapon.tileset = LoadImage(wtileset);      
      
      If Not objektliste Then objektliste = CreateList();
      objektliste.addlast(weapon);
      
      weapon = Null;
   
   EndFunction      

EndType

''''''''''''''''' HIER ENDET SIE


''''''''''''''''' HIER KOMMT DER TEIL IN MEINER UPDATE FUNCTION

         Local laserUp:tweapon = tweapon(objects);
         If laserUp
         
            laserUp.x = laserUp.x + laserUp.speed*Cos(laserUp.ausrichtung)*delta.time();
            laserUp.y = laserUp.y + laserUp.speed*Sin(laserUp.ausrichtung)*delta.time();
         
            SetRotation(laserUp.ausrichtung);
            MidHandleImage(laserUp.tileset);
            DrawImage(laserUp.tileset,laserUp.x,laserUp.y);
            SetRotation(0);
         

            '' Siehe wiki Kreis Parameterdarstellung !!!
            If laserUp And laserUp.x > (laserUp.ursprung_x+(laserUp.reichweite*Cos(laserUp.ausrichtung))) And Cos(laserUp.ausrichtung) >= 0
               objektliste.Remove(laserUp);
            Else If laserUp And laserUp.x < (laserUp.ursprung_x+(laserUp.reichweite*Cos(laserUp.ausrichtung))) And Cos(laserUp.ausrichtung) <= 0
               objektliste.Remove(laserUp);
            Else If laserUp And laserUp.y > (laserUp.ursprung_y+(laserUp.reichweite*Sin(laserUp.ausrichtung))) And Sin(laserUp.ausrichtung) >= 0
               objektliste.Remove(laserUp);
            Else If laserUp And laserUp.y < (laserUp.ursprung_y+(laserUp.reichweite*Sin(laserUp.ausrichtung))) And Sin(laserUp.ausrichtung) <= 0
               objektliste.Remove(laserUp);
            End If   
                     
            laserUp = Null;
         
         EndIf

''''''''''''''''' HIER ENDET ER


''''''''''''''''' UND HIER WIRD SIE ERSTELLT
         Local pship:tplayership = tplayership(objects);
         If pship
            
            If KeyDown(key_lcontrol)
               tweapon.shootweapon("Plasma",100,450,"dat/theplasma.png",pship.x,pship.y,pship.ausrichtung,150,300);                        
            EndIf