Sorry your browser is not supported!

// get limb id
int limb ( int id, char * name )
{
	int out = -1;
	for ( int i = 0; i < 1000; i++ )
		if ( dbLimbExist ( id, i ) )
			if ( !strcmp( dbLimbName ( id, i ), name ) )
			{
				out = i;
				break;
			}
	return out;
}

int limb ( int id, char * name )
{
	int out = -1;
	dbPerformChecklistForObjectLimbs(id);
	for ( int i = 0; i < dbChecklistQuantity(); i++ )
			if ( !strcmp( dbLimbName ( id, i ), name ) )
			{
				out = i;
				break;
			}
	return out;
}

 if limb exist (worldnum,n)
      properties$=limb name$(worldnum,n)
      objecttype$=lower$(KeyValue$(properties$,"objecttype",""))
      classname$=lower$(KeyValue$(properties$,"classname",""))

      select objecttype$

         case "entity"
            ex# = limb position x(worldnum,n)
            ey# = limb position y(worldnum,n)
            ez# = limb position z(worldnum,n)

            select classname$

               case "badguy"
                   badguyhp = val(KeyValue$(properties$,"hp",""))
etc, etc...

function Replace2$(s$,c$,nc$)
for n=1 to len(s$)
	tc$=mid$(s$,n)
	if tc$=c$
		tc$=nc$
	endif
	ns$=ns$+tc$
next
endfunction ns$

function Piece$(s$,entry,char$)
`If entry<1
`   exitfunction ""
`   EndIf
`If Trim(char$)=""
`   While Instr2$(s$,char$+char$)>0
`      s$=ReplaceString$(s$,char$+char$,char$)
`      endwhile
`   EndIf
For n=1 To entry-1
   p=Instr2(s$,char$)
   If p
      s$=Right$(s$,Len(s$)-p)
      Else
      exitfunction ""
      EndIf
   Next
p=Instr2(s$,char$)
If p<1
   `s$=Trim(s$)
   Else
   s$=Left$(s$,p-1)
   EndIf
endfunction s$

`function Trim$(s$)
`endfunction

function KeyValue$(properties$,findname$,defaultvalue$)
findname$=lower$(findname$)
repeat
   p=Instr2(properties$,chr$(13)+chr$(10))
   if p>0
      keypair$=left$(properties$,p-1)
      properties$=right$(properties$,len(properties$)-p-1)
      else
      keypair$=properties$
      properties$=""
      endif
   p=Instr2(keypair$,"=")
   if p=0
      exitfunction ""
      else
      name$=left$(keypair$,p-1)
      value$=right$(keypair$,len(keypair$)-p)
      if lower$(name$)=findname$ then exitfunction value$
      endif
	until properties$=""
endfunction defaultvalue$

function Instr2(searchstring$,findstring$)
l1=len(searchstring$)
l2=len(findstring$)
dl=l1-l2
if dl<l then exitfunction 0
for n=0 to dl
   endp=n+l2
   s$=right$(searchstring$,l1-n)
   s$=left$(s$,endp-n)
   if s$=findstring$ then exitfunction n+1
   next n
endfunction 0

// HP_value_string is a standart string that contains the HP value string

int HP = dbVal ( (char*)HP_value_string.c_str() );

#include <string>
using namespace std;

string data = "monster BlaBla HP100 BlaBla";

int GetHPFromString ( string str_in )
{
   int output = 0;
   string hp;

   int pos = str_in.find ( "HP", 0 );

   // checks if string is found in data string.
   if ( pos != string::npos )    // could also be != str_in.length(), not quite sure right now.
   {
      // get 3 character sub-string from data string at given position
      hp = str_in.substr ( pos, 3 );

      // convert std::string to integer using DarkGDKs function
      output = dbVal ( (char*)hp.c_str() );
   }

   return output;
}

int MonsterHealth = GetHPFromString ( data );

void setup(){
        bool end = false;
        char tstring;
        char * get;
        char * get2;
        int remove;

        dbPerformChecklistForObjectLimbs(obj);
        for ( int i = 0; i < dbChecklistQuantity(); i++ ){
            dbText(100,100,dbLimbName(obj,i));
            get = strstr(dbLimbName(obj,i),"hp=");
            remove = strcspn(dbLimbName(obj,i),"\n");
            strncpy(get2,get,remove);
            dbSync();
            while (dbDownKey()==0){//print things so I can see what's going on
                dbText(100,100,dbLimbName(obj,i));
                dbText(400,100,get);
                dbText(500,100,dbStr(remove));
                dbText(100,400,get2);
                dbSync();
                dbWait(3000);
            }
        }

    }

char * get2 = new char[256];

char get2[256];

char* get2 = dbLimbName(1, 1);
std::string s = get2;
delete[] get2;

 int get_value(std::string found, std::string inputstr){
        int output = 0;
        std::string sub;
        
        int pos = found.find(inputstr);
        int pos2 = found.find("\n",pos);
        if (pos != std::string::npos){
            sub = found.substr( pos, pos2 );
            output = dbVal ( (char*)sub.c_str() );
        }
        return output;
    }

if ((getpos = get.find("Classname=monaster")) != std::string::npos){
                //make a monster
            }

float get_value(std::string found, std::string inputstr){
        float output = 0;
        std::string sub;
        
        int pos = found.find(inputstr);
        int pos2 = found.find_first_not_of("abcdefghijklmnopqrstuvwxyz=",pos);
        int pos3 = found.find_first_of("abcdefghijklmnopqrstuvwxyz=",pos2);
        if (pos != std::string::npos){
            sub = found.substr( pos2, pos3-2 );
            output = dbVal ( (char*)sub.c_str() );
        }
        return output;
    }