SRL Archive - Discussions and Debates

is there a function where you can type the monsters name in and you can have it load their xp to count the xp gained? if not im gonna make one and it would be helpfull if anyone knew a table with the monsters on it with their xp…?

RuneHQ should have it. There are too many monsters though…

just times it's health by 4

Either way you'd need to figure out all the monsters Hp's then right?

Maybe this could be a project for MSI after the competition is over?

program New;
{Copy RHQ table (page by page, 11 of them) into a text file.
Set name and location of that text file in const.
Be careful how you copy them. I recommend copying the row above also
(Name etc) so that the spacing stays the same, just in case
(obviously delete that line once in text file). Just make sure
that spaces and chr(13)'s stay where they were.
Hit run, allow access to files. When it's done look in
SCAR folder for monster.ini. :)
}
const FileName='C:\monsters.txt';
var i,startfile,i2,i3:integer;
ordnum:byte;
mystrings:array [0..7] of string;
eom1,endofmonster,endofname,eon1,endofnamedone:boolean;
ans,ans2,anstemp,monstername:string;
begin
  startfile:=openfile(FileName,true);
  repeat
    i:=i+1;
    ans2:='';
    endofmonster:=false;
    eom1:=false;
    endofname:=false;
    eon1:=false;
    endofnamedone:=false;
    for i2:=0 to 7 do
      mystrings[i2]:='';
    i2:=0;
    repeat
      ReadFileString(startfile,ans,1);
      ordnum := getkeycode(ans[1]);
      if (ordnum=13) and (eom1) then
        endofmonster:=true;
      if (ordnum=13) and (not eom1) then
        eom1:=true;
      if (ordnum=9) and (eon1) then
        endofname:=true;
      if  (not endofnamedone) and (ordnum=32) and (not eon1) then
        eon1:=true;
      ans2:=ans2+ans;
      if endofnamedone and (ordnum=9) then
        ans2:='';
      if (endofnamedone and ((ordnum=32) or((ordnum=13)))  ) then
      begin
        anstemp:=trim(ans2);
        anstemp:= replace(anstemp,chr(13),'');
        anstemp:=replace(anstemp,chr(9),'');
        anstemp:=replace(anstemp,chr(55),'');
        mystrings[i2]:=anstemp;
        i2:=i2+1;
      end;
      if not(endofnamedone) and (endofname) then
      begin
        delete(ans2,length(ans2)-1,length(ans2));
        for i3:=1 to length(ans2) do
        begin
          if getkeycode(ans2[i3])=13 then
            delete(ans2,i3,i3);
        end;
        monstername:=ans2;
        ans2:='';
        endofnamedone:=true;
      end;
    until endofmonster or (i2=8);
    writeini(monstername,'Name',monstername,apppath+'monster.ini');
    writeini(monstername,'Combat Level',mystrings[0],apppath+'monster.ini');
    writeini(monstername,'Members Only',mystrings[1],apppath+'monster.ini');
    writeini(monstername,'HP',mystrings[2],apppath+'monster.ini');
    writeini(monstername,'XPC',mystrings[3],apppath+'monster.ini');
    writeini(monstername,'XPA',mystrings[4],apppath+'monster.ini');
    writeini(monstername,'CXP',mystrings[5],apppath+'monster.ini');
    writeini(monstername,'SXP',mystrings[6],apppath+'monster.ini');
    writeini(monstername,'SLXP',mystrings[7],apppath+'monster.ini');
  until i=100;
  closefile(startfile);
end.

If you could make something to search the INI, like the RHQ one does, that would be awesome.

I don't think you would get accurate EXP gained, because while fighting you and the monster can gain health. Therfor it gains +1/2 HP. Or it could heal itself therefor you would get more HP.

For EXP you'd be better off grabbing the EXP before the fight, and calculating how much earned after.

Also, getting the xp divided by hp from the table, and then watching for the red hit damage numbers, and multiplying those might work.

or just
monsterhp*4 ;)

Which monster xp are we talking about? Just SXP or others too?

XPC = Total XP for fighting controlled,
XPA = Total XP when fighting Accurate/Agressive or Defensive,
CXP = XP given to Hitpoints, or if fighting controlled,
SXP = XP when fighting Accurate/Agressive or Defensive,
SLXP = Slayer XP

ow, i mean just if you fighting on 1 thing so you wont get other xp on other levels like atack(and hitpoints if combat involved :p)

I whipped quickly one:

Procedure MonsterTotalEXP(Var AADC, HP: Integer);
Var
  S: String;
begin
  S := GetPage( 'http://www.runehq.com/RHQMonsterView.php?id=20');
  AADC := StrToInt(Between('Total XP for fighting Controlled:<br /><br />', '</td>', S));
  HP := StrToInt(Between('XP given to Hitpoints, or if fighting Controlled:<br /><br />', '</td>', S));
End;

Gets the total xp for fighting controlled or Accurate/Agressive/Defence and HP.

AADC := Accurate…..
HP := HP…

Thats for Al-Kharid warrior, there will be hell of a case if we wanna get any there… Or then just go to RHQ yourself, get the ID from url…

If you want other info, its easy as those:

<td class="sitetblrowdark">Race/Type:<br /><br />Human</td>
<td class="sitetblrowdark">Combat Level:<br /><br />9</td>
<td class="sitetblrowdark">Number of Hitpoints:<br /><br />19</td>
<td>&nbsp;</td>
</tr>

<tr>
<td class="sitetblrow">Retreats?<br /><br />No</td>
<td class="sitetblrow">Members Only?<br /><br />No</td>
<td class="sitetblrow">Slayer XP:<br /><br />0</td>
<td class="sitetblrow">Hunter XP:<br /><br />0</td>

</tr>
<tr>
<td colspan="2" class="sitetblrowdark">Total XP for fighting Controlled:<br /><br />101</td>
<td colspan="3" class="sitetblrowdark">Total XP for fighting Accurate/Agressive/Defensive:<br /><br />101</td>
</tr>
<tr>
<td colspan="2" class="sitetblrow">XP given to Hitpoints, or if fighting Controlled:<br /><br />25</td>

<td colspan="3" class="sitetblrow">XP for fighting Accurate/Agressive/Defensive:<br /><br />76</td>

nice, w/e confusing ;)

n3ss3s try my thing, INI file is easier than a huge case

Seems like I gotta learn those INI things too, they seem handy.

And they are easy -.-


I wish Python could make .DLL files, it would be way simpler.

for line in urllib2.urlopen('http://www.runescape.com/title.ws'):
	if 'There are currently' in line and 'playing!' in line:
		print line

for line in urllib2.urlopen('http://www.runescape.com/title.ws'):
if 'There are currently' in line and 'playing!' in line:
print line

What language that is?

Damn easy/useful it seems..

Its Python :P.


But the regular compiler can't make .DLL files, you'd need a separate program.

I've used Py2Exe to compile them into windows binaries, can it make DLLs too?

Edit: Maybe...

Nope, thats a COM(unications) server.

There was an error in the script above that creates the INI, so I'll just post the INI.

http://uppit.com/d/HHK1D

Ooooooooh.




Coool!