Verfügbare Informationen zu "Changerustung"
Qualität des Beitrags: 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:09Changerustung
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