hi guys,
well my latest script is based in kamanja and it is my first srl script, Fakawi know's what it is but i dont wanna tell anyone until its flawless. The function bellow is one of a few that i made for the script and i can tell you that im working on a wide range of kamanji scripts like fishers, miners auto fighters ect ect.
o ya and btw i tried to use "standards"
Code:Function KamanjaRoadColor: boolean; var C, TX ,TY, kamanjaroad : integer; begin kamanjaroad := BitmapFromString(10, 2, 'z78DA33304000572737' + '235747032200A64A52F50200A8431815'); begin repeat c:=c+1; If FindBitMapspiralTolerance(kamanjaroad,TX,TY,580,7,718,155,c) then begin Kroad:=GetColor(TX+8,TY); Players[CurrentPlayer].Loc:='Kamanja'; writeln('RoadColor '+inttostr(kroad)) Result:=true; break; end; wait(50+random(50)) until(result)or(c=25) if kroad=0 then writeln('RoadColor NOT Found'); FreeBitMap(kamanjaroad); end; end;






Reply With Quote










