Kısaca bu kod ne işe yarıyor diye özetlemek gerekirse, dil dosyaları için yada defname üzerinden string verebilmeniz için yazılmış bir koddur.

Örnek vermek gerekirse;
Atıyorum ki defname izerinden dialoga Katana hasarını %1 oranında arttırır yazdırmak istiyorsunuz. Ancak defname <NAME>,<DLOCAL.XXX> gibi verileri doğru okumadığı için bunları ordan çekmek kolay olmuyor, bu fonksiyon ise defname'e %s yazıp bunları çekmenizi sağlıyor, yani örneğin;

[DEFNAME hamit]

HAMIT_MESAJ="%s hasarını %s oranında arttırır."

Diye bir defname eklediniz ve katana üzerinden açılan dialogda sadece DTEXT'in sonuna yani yazının geleceği yere;

Veriler:

NAME=KATANA

DTAG0.HASAR=3

<STRF "<DEF.HAMIT_MESAJ>",<NAME>,%<DTAG0.HASAR>>

-> Çıktı: Katana hasarını %3 oranında arttırır.

Umarım açıklayıcı anlatabilmişimdir, kısacası benim dil dosyamdan örnek vermem gerekirse;

uommo_0msg_levelsystem "%s Level System" //English

uommo_1msg_levelsystem "%s Level Sistemi" //Türkçe

DHTMLGUMP 10 25 400 20 0 0 <def.center><def.bfont_black><STRF "<SRC.LANG levelsystem>",<SERV.SERVNAME>>

Çıktı: SERVERADI Level Sistemi

[FUNCTION STRF]

IF (STRMATCH('*%s*%s*%s*', '<ARGV[0]>'))

  LOCAL.i=0

  LOCAL.first=0

  LOCAL.second=0

  LOCAL.third=0  

  WHILE <EVAL STRLEN(<ARGV[0]>)> >= <DLOCAL.i>

    IF (STRMATCH('%s', '<STRSUB <DLOCAL.i> 2 <ARGV[0]>>'))

      IF !(<DLOCAL.FIRST>)

        LOCAL.FIRST=<EVAL <LOCAL.i> + 1>

      ELIF !(<DLOCAL.SECOND>)

        LOCAL.SECOND=<EVAL <LOCAL.i> + 1>

      ELIF !(<DLOCAL.THIRD>)

        LOCAL.THIRD=<EVAL <LOCAL.i> + 1>

        IF (<DLOCAL.FIRST> > 1)

          LOCAL.RETURN="<STRSUB 0 <EVAL <DLOCAL.FIRST> - 1> <ARGV[0]>><ARGV[1]>"

        ELSE

          LOCAL.RETURN="<ARGV[1]>"

        ENDIF

        LOCAL.RETURN .="<STRSUB <EVAL <DLOCAL.FIRST> + 1> <EVAL <DLOCAL.SECOND> - (<DLOCAL.FIRST> + 2)> <ARGV[0]>><ARGV[2]>"

        LOCAL.RETURN .="<STRSUB <EVAL <DLOCAL.SECOND> + 1> <EVAL <DLOCAL.THIRD> - (<DLOCAL.SECOND> + 2)> <ARGV[0]>><ARGV[3]><STRSUB <EVAL <DLOCAL.THIRD> + 1> 0 <ARGV[0]>>"

        RETURN <LOCAL.RETURN>

      ENDIF

    ENDIF

    LOCAL.i ++

  ENDWHILE

ELIF (STRMATCH('*%s*%s*', '<ARGV[0]>'))

  LOCAL.i=0

  LOCAL.first=0

  LOCAL.second=0

  WHILE <EVAL STRLEN(<ARGV[0]>)> >= <DLOCAL.i>

    IF (STRMATCH('%s', '<STRSUB <DLOCAL.i> 2 <ARGV[0]>>'))

      IF !(<DLOCAL.FIRST>)

        LOCAL.FIRST=<EVAL <LOCAL.i> + 1>

      ELIF !(<DLOCAL.SECOND>)

        LOCAL.SECOND=<EVAL <LOCAL.i> + 1>

        IF (<DLOCAL.FIRST> > 1)

          LOCAL.RETURN="<STRSUB 0 <EVAL <DLOCAL.FIRST> - 1> <ARGV[0]>><ARGV[1]>"

        ELSE

          LOCAL.RETURN="<ARGV[1]>"

        ENDIF

        LOCAL.RETURN .="<STRSUB <EVAL <DLOCAL.FIRST> + 1> <EVAL <DLOCAL.SECOND> - (<DLOCAL.FIRST> + 2)> <ARGV[0]>><ARGV[2]><STRSUB <EVAL <DLOCAL.SECOND> + 1> 0 <ARGV[0]>>"

        RETURN <LOCAL.RETURN>

      ENDIF

    ENDIF

    LOCAL.i ++

  ENDWHILE

ELIF (STRMATCH('*%s*', '<ARGV[0]>'))

  LOCAL.i=0

  LOCAL.first=0

  WHILE <EVAL STRLEN(<ARGV[0]>)> >= <DLOCAL.i>

    IF (STRMATCH('%s', '<STRSUB <DLOCAL.i> 2 <ARGV[0]>>'))

      IF !(<DLOCAL.FIRST>)

        LOCAL.FIRST=<EVAL <LOCAL.i> + 1>

        IF (<DLOCAL.FIRST> > 1)

          LOCAL.RETURN="<STRSUB 0 <EVAL <DLOCAL.FIRST> - 1> <ARGV[0]>><ARGV[1]>"

        ELSE

          LOCAL.RETURN="<ARGV[1]>"

        ENDIF

        LOCAL.RETURN .="<STRSUB <EVAL <DLOCAL.FIRST> + 1> 0 <ARGV[0]>>"

        RETURN <LOCAL.RETURN>

      ENDIF

    ENDIF

    LOCAL.i ++

  ENDWHILE

ENDIF

RETURN 0