Changerustung

Ilands
Verfügbare Informationen zu "Changerustung"

  • Qualität des Beitrags: 0 Sterne
  • Beteiligte Poster: raphael
  • Forum: Ilands
  • Forenbeschreibung: Community
  • aus dem Unterforum: Programmierung
  • Antworten: 1
  • Forum gestartet am: Montag 11.08.2008
  • Sprache: deutsch
  • Link zum Originaltopic: Changerustung
  • Letzte Antwort: vor 15 Jahren, 6 Monaten, 16 Tagen, 7 Stunden, 9 Minuten
  • Alle Beiträge und Antworten zu "Changerustung"

    Re: Changerustung

    raphael - 10.09.2008, 19:09

    Changerustung
    Changerustung wechselt das Equip des Spielers, und sieht so aus:

    Code: procedure Tform1.Changerustung(name:string);
    var ilini:tinifile;
    begin
      ilini:=Tinifile.Create('C:\Ilands\EQ\'+name+'.ilf');
      with ilini do begin
        if eq.names.caption <> '(kein)' then inventar.Items.Add(eq.names.caption);
        //Altes Epquip ausziehen
        reskill;
        //Die Stärken neu aufteilen
        eq.names.Caption:=readstring('EQ','name','(kein)');//Equipname laden
        activeplayer.Picture.LoadFromFile('C:\ilands\EQ\'+name+'.bmp');//Equipbild laden
        eq.melee.caption:=inttostr(melee);
        eq.fireblast.Caption:=inttostr(fireblast);
        eq.stream.Caption:=inttostr(stream);
        eq.testeq.Picture:=activeplayer.Picture;
        eq.hp.Caption:=inttostr(hp.max);
        //Dem Formular EQ neue Werte zuweisen
        Free;
      end;
      with form1 do begin
        ResetBuf;
        buf.key:='ONLINE';
        buf.username:=edit2.Text;
        buf.location:=activeplayer.Parent.Name;
        buf.eq:=eq.names.Caption;
        sendrecord(buf);
      end;
      //Dem Server mitteilen
    end;

    So wenden Sie es an:
    Code: Changerustung('Lordons Rüstung');
    Nun trägt der Player Lordons Rüstung. Achten Sie auf die richtige Schreibweise des Rüstungsnamen.
    Syntax:
    Changerustung(name:string); = Changerustung('Rüstungsname');
    Viel Spaß



    Mit folgendem Code, können Sie den Beitrag ganz bequem auf ihrer Homepage verlinken



    Weitere Beiträge aus dem Forum Ilands

    News - gepostet von raphael am Montag 11.08.2008



    Ähnliche Beiträge wie "Changerustung"

    Werbung - gepostet von no_hero am Sonntag 30.04.2006
    Vielleicht ja doch einen weichen, leichten Chinabelag? - gepostet von noppennorbert am Samstag 27.05.2006