SRL Archive - General

Hey guys, i need to know how everyone's doing, how far everyone is with their stuff, so status update time!

~RM

Status:

Currently done Banking.Scar's functions:

-> Widthdraw
-> Deposit
-> OpenBank?

OpenBank will need some more work on it. And, if I get the time, I'll see if there is some 'half-way house' between the one you posted and the one there is. :)


Currently Working on: Nothing :(. I was thinking of getting started on ItemInfo.scar, I have a good plan in way of how to set it up (skill, misc etc). So, if no one else is working on it, I'd love to get started on it :).

Walking.scar
http://www.villavu.com/forum/showthread.php?t=52019
+ recorded 1 tile path, east mine <-> bank :rolleyes:

From: marpis
Walking.scar
http://www.villavu.com/forum/showthread.php?t=52019
+ recorded 1 tile path, east mine <-> bank :rolleyes:

So is walking actually finished (except for the paths?)
Also, can we get that committed?

~RM

From: Rasta Magician
So is walking actually finished (except for the paths?)
Also, can we get that committed?

~RM

Well, the reflection part is practically finished although I haven't even tried to compile it yet. I try to get it committed by tonight.

My plan is to have 2 main paths (East mine, some Yew) finished 100% in color by new year, so in january we could start testing at least mining and wc. :) I am pretty sure that walking.scar will be the last section to be finished, because it is enormous job to do with color. I hope many ppl help me here ;)

I should have a few things commited in Objects.scar tomorrow sometime.

From: marpis
Well, the reflection part is practically finished although I haven't even tried to compile it yet. I try to get it committed by tonight.

My plan is to have 2 main paths (East mine, some Yew) finished 100% in color by new year, so in january we could start testing at least mining and wc. :) I am pretty sure that walking.scar will be the last section to be finished, because it is enormous job to do with color. I hope many ppl help me here ;)

IIRC we will just use Reflection for walking. It's a very hard work and it was one of the flaws of the MSI projects, since they were color based.

From: Cazax
IIRC we will just use Reflection for walking. It's a very hard work and it was one of the flaws of the MSI projects, since they were color based.

Me and RM discussed about this and thought about having both, but Reflection as a priority

Walking and banking seem to be covered.
Coh3n is pumpingout content for objects.scar, not sure on how much NCDS has..
I still haven't heard back from what rogeruk has done for ItemInfo.scar, so that needs to be done.
Debug.scar seems to be basically done except it needs filling in, that will come once IntemInfo.scar is filled in.

Seems like we will soon be ready to compile a first version and open up to public.

I'll get into more detail later on.

~RM

I have not forgot about MSI ;)

Worked 54 hours last week though..

I'll talk to Coh3n and we will make sure it get's done.

If you guys don't mind, I can help out with all the different sections. I can get the info for ItemInfo.scar easily, and don't mind committing as much as I can. I don't want to take over anyone's jobs, I would just like to help out where ever I can. :smile:

Coh3n

That's fine by me! :)

By this weekend Objects.scar will without a doubt be finished. Sorry it has taken so long, gotta feed the kid, ya know?

From: Coh3n
If you guys don't mind, I can help out with all the different sections. I can get the info for ItemInfo.scar easily, and don't mind committing as much as I can. I don't want to take over anyone's jobs, I would just like to help out where ever I can. :smile:

Coh3n

May I be able to join you with it?
We can collaborate, otherwise it's not a problem :)

From: Naum
May I be able to join you with it?
We can collaborate, otherwise it's not a problem :)

No, I want to do it on my own.

Haha, jk, of course you can.

Yup, me and Coh3n have started ItemInfo. But if Rogeruk wants to do stuff then we'll gladly call it off :).

After I finish my geography, ofc…

From: Naum
Yup, me and Coh3n have started ItemInfo. But if Rogeruk wants to do stuff then we'll gladly call it off :).

After I finish my geography, ofc…

Sorry guys, works been alot busier recently, hardly getting any time off.

Feel free to do it ill try and help whenever i can

I can start writing some mining/woodcutting functions if needed :rolleyes:

From: marpis
I can start writing some mining/woodcutting functions if needed :rolleyes:

I'm pretty sure its going to be one function for all object finding and just use the TItem records of each object.

Just to tell you where we are at this moment, that's as much as I've got time for (completely based of Bitmaps.scar)

program New;
{.Include SRL/SRL/MSI/Setup.Scar}

Const MSI_TItemCount = 1;

Var
  MSI_Item : Array[0..(MSI_TItemCount - 1)] Of TItem;

Const
  TI_Cavada_Berries = 0;


Function MSI_GetItem(ID : Integer) : Boolean;
Begin
{  If InRange(ID, -1, MSI_TItemCount) Then
  Begin
    MSIDebug('MSI_GetTItem', 'ID is out of range', Debug_SmallDetails);
    Exit;
  End;  }
  
  Case ID Of
    TI_Cavada_Berries :
    With MSI_Item[TI_Cavada_Berries] Do
    Begin
      Name := 'Cadava Berries';
      UpText := ['dava ber'];
      ItemP := Point(0, 0);
      Colors := [10033858, 8984493, 7804054, 6558079, 12001255, 9705915];
      Stackable := True;
      DTM := DTMFromString('78DA63CC616260E0606440066EBA9C0C22401A26CA980554C386A6C6'+
             'C118554D0EA61A902C86391C04D4E401D570A1AA392A3D07D32E2EFC6E0600B439067C');

      BMP := BitmapFromString(7, 7, 'beNoTrfVwMPGwM3G2NmRgYHTT5XTRASE3B2MIAgraa3A'+
                'ASYggUDGEbaTABmEASSAyV2YH6oWwgYxpIuUdQjlAtoc+F5B8pbDzkfzmWsHkqSJlEAXXZFcdlZ6zVbI/lz8Mogto1G7JKWvFO+cCACNQHR0=');
    End;

  End;
End;

Procedure MSI_LoadItems(IDs : TIntegerArray);
Var I : Integer;
Begin
  For I := 0 To High(IDs) Do
    MSI_GetItem(IDs[I]);
End;

Procedure MSI_LoadItemRange(StartID, EndID : Integer);
Var I : Integer;
Begin
  If (StartID > EndID) Then
    MSIDebug('MSI_LoadTItemRange', 'EndID is greater than StartID!', Debug_SmallDetails);

  For I := StartID To EndID Do
    MSI_GetItem(I);
End;

Procedure MSI_FreeItemArray(TIArray : TIntegerArray);
var
  I, Lo, Hi: Integer;
begin
  Lo := Low(TIArray);
  Hi := High(TIArray);
  for I := Lo to Hi do
    MSI_GetItem(I);
end;

Procedure MSI_FreeItemEx(Which : Integer);
Begin
  Try
    With MSI_Item[Which] Do
    Begin
      Name := '';
      UpText := [''];
      ItemP := Point(0, 0);
      Colors := [0];
      DTM := -1;
      BMP := -1;
    End;
  Except End;
End;

Procedure MSI_FreeItems;
var i : Integer;
begin
  for i := 0 to (MSI_TItemCount - 1) do
    MSI_FreeItemEx(i);
end;

Procedure MSI_FreeItemRange(StartID, EndID: Integer);
Var
  I : Integer;
Begin
  If (StartID > EndID) Then
    MSIDebug('MSI_LoadTItemRange', 'EndID is greater than StartID!', Debug_SmallDetails);

  For I := StartID To EndID Do
    MSI_FreeItemEx(I);
End;

var x,y:integer;
Begin
  SetupSRL;
  SetupMSI;
  MSI_LoadItems([TI_Cavada_Berries]);
  If FindBitmapToleranceIn(MSI_Item[TI_Cavada_Berries].BMP, x, y, mix1, miy1, mix2, miy2, 30) Then
  MMouse(x, y, 0, 0);
End.

Sorry Guys :(.

Test on this account:
naumanakhlaq
watch99

Ty.