0 Members and 1 Guest are viewing this topic.
var:addscore: array [1..32] of string;add: byte;...procedure WriteAndSet(ID: byte; typ: integer);begin if typ = 2 then begin case add of 1: addscore := 1; 2: addscore := 2; end; SetScore(ID,GetPlayerStat(ID,'Kills')+addscore); WriteConsole(0,'*** '+idtoname(ID)+' + '+addscore+'***',color); end;...
case add of 1: addscore := 1; 2: addscore := 2; end;
SetScore(ID,GetPlayerStat(ID,'Kills')+addscore);
var:addscore: byte;add: byte;...procedure WriteAndSet(ID: byte; typ: integer);begin if typ = 2 then begin case add of 1: addscore := 1; 2: addscore := 2; end; SetScore(ID,GetPlayerStat(ID,'Kills')+addscore); WriteConsole(0,'*** '+idtoname(ID)+' + '+IntToStr(addscore)+'***',color); end;...
Questions like this one perfectly show dominikk26's expertise in scripting, and how all of his scripts are but mere rip-offs. This may be an offtopic post, but I cannot stand this bullocks no more and I want to voice my opinion publicly, so #yolo.dominikk26, we have had this discussion before. Please read some guides on Pascal or any other coding language like Java or C#. You have not even grasped the basic concepts of scripting after 2 years of tryhard'ing, and another 2 years are to come for you to understand that as it seems to me. Please do not feel (too) offended. I am just losing my patience.