Ya im pretty sure someone posted that b bars dont work. ill fix it and post the numbers now
e: go to the procedure loaddtms and change the whole thing to:
SCAR Code:
Procedure LoadDtms;
Begin
Bar := DTMFromString('78DA637466626078CC80021AAAAA18FE03694' +
'620FE0F048C0140350F19D00013986484F2184D81FC1704D4D802' +
'F96F09A801B9E73D0135DE84ED020012890D95');
mould := DTMFromString('78DA637464626078CC800272535319FE03694' +
'620FE0F048CA640356F19D000231209A4BD816ADE1350E30F54F3' +
'90801A27A09A9B04D49803D53CC0AF0600DF080D32');
If BarInfo.Name = '' then
BarInfo.Name:=Lowercase(Players[CurrentPlayer].Strings[0]);
case BarInfo.Name of
'bronze':
begin
BarInfo.Ore1 := LoadOreDtm(3433391);
BarInfo.Ore2 := LoadOreDtm(5987167);
BarInfo.Ore1Hue := 0.02;
BarInfo.Ore1Sat := 0.18;
BarInfo.Ore2Hue := 0.00;
BarInfo.Ore2Sat := 0.07;
BarInfo.Ore1Amount:=28;
BarInfo.Ore2amount:=1;
BarInfo.Spot := 1;
BarInfo.Amount:= 14;
end;
'iron':
begin
BarInfo.Ore1 := LoadOreDtm(1581110);
BarInfo.Ore1Hue := 0.13;
BarInfo.Ore1Sat := 0.54;
BarInfo.Ore2:=0
BarInfo.Ore2Amount:=0
if (Players[CurrentPlayer].Booleans[0]) then
begin
Ring := DTMFromString('78DA63DCC5C4C050CFC8800C0C141418FE036' +
'990E87F2060DC0354D381AA06220B2381F421A09A2A026AF601D5' +
'941050B305A8A68D809AED84DD03008D110CF3');
end;
BarInfo.Ore1Amount:=28;
BarInfo.Spot := 3;
BarInfo.Amount:= 28;
end;
'steel':
begin
BarInfo.Ore1 := LoadOreDtm(1515574);
BarInfo.Ore2 := LoadOreDtm(1976104);
BarInfo.Ore1Hue := 0.34;
BarInfo.Ore1Sat := 0.90;
BarInfo.Ore2Hue := 0.5;
BarInfo.Ore2Sat := 0.9;
BarInfo.Ore2amount:=2
BarInfo.Ore1Amount:=27
BarInfo.Spot := 5;
BarInfo.Amount:= 10;
end;
'or-ball':
Begin
sbar := DTMFromString('78DA63946660601062400113DBDB19B880342' +
'310FF0702460520839B010D302291401A648E0C01353C40429880' +
'1A652021825F0D00B24D0699');
BarInfo.Ore1 := LoadOreDtm(1844541);
BarInfo.Ore2 := LoadOreDtm(1844517);
BarInfo.Ore1Hue := 0.2;
BarInfo.Ore1Sat := 0.2;
BarInfo.Ore2Hue := 0.0;
BarInfo.Ore2Sat := 0.59;
BarInfo.Spot := 5;
BarInfo.Amount:= 10;
BarInfo.Ore1Amount:=28;
BarInfo.Ore2amount:=2;
end;
'st-ball':
begin
sbar := DTMFromString('78DA63946660601062400113DBDB19B880342' +
'310FF0702460520839B010D302291401A648E0C01353C40429880' +
'1A652021825F0D00B24D0699');;
BarInfo.Ore1Amount := 28;
BarInfo.Ore2amount:=0;
end;
'silver':
begin
BarInfo.Ore1 := LoadOreDtm(10984603);
BarInfo.Ore1Hue := 0.2;
BarInfo.Ore1Sat := 0.2;
BarInfo.Ore2:=0
BarInfo.Ore1Amount:=28;
BarInfo.Ore2amount:=0;
BarInfo.Spot := 4;
BarInfo.Amount:= 28;
end;
'gold':
begin
BarInfo.Ore1 := LoadOreDtm(1746635);
BarInfo.Ore1Hue := 0.2;
BarInfo.Ore1Sat := 0.2;
BarInfo.Ore2:=0
BarInfo.Ore1Amount:=28;
BarInfo.Ore2amount:=0
BarInfo.Spot := 6;
BarInfo.Amount:= 28;
end;
'mithril':
begin
BarInfo.Ore1 := LoadOreDtm(6636869);
BarInfo.Ore2 := LoadOreDtm(1844517);
BarInfo.Ore1Hue := 0.2;
BarInfo.Ore1Sat := 0.2;
BarInfo.Ore2Hue := 0.0;
BarInfo.Ore2Sat := 0.59;
BarInfo.Ore1Amount:=25;
BarInfo.Ore2amount:=4;
BarInfo.Spot := 7;
BarInfo.Amount:= 5;
end;
'adamant':
begin
BarInfo.Ore1 := LoadOreDtm(4015677);
BarInfo.Ore2 := LoadOreDtm(1844517);
BarInfo.Ore1Hue := 0.5;
BarInfo.Ore1Sat := 0.31;
BarInfo.Ore2Hue := 0.0;
BarInfo.Ore2Sat := 0.59;
BarInfo.Ore1Amount:=28;
BarInfo.Ore2amount:=6;
BarInfo.Spot := 8;
BarInfo.Amount:= 5;
end;
'rune':
begin
BarInfo.Ore1 := LoadOreDtm(5130040);
BarInfo.Ore2 := LoadOreDtm(1844517);
BarInfo.Ore1Hue := 0.09;
BarInfo.Ore1Sat := 0.58;
BarInfo.Ore2Hue := 0.0;
BarInfo.Ore2Sat := 0.59;
BarInfo.Ore1Amount:=27;
BarInfo.Ore2amount:=8;
BarInfo.Spot := 9;
BarInfo.Amount:= 5;
end;
'auto': begin end;
else
begin
Writeln('You Entered an Invalid Bar Type...Terminating');
terminatescript;
end;
end;
end;
and that should fix bronze...ONLY BRONZE, steel should still work
