Share bộ icon Smile Facebook cho Xtgem

function smile $nd=:o:

var $sp = call chr $val=53

Var $tag = :A1: :A2: :A3: :A4: :A5: :A6: :A7: :A8: :A9: :A10: :A11: :A12: :A13: :A14: :A15: :A16: :A17: :A18:   :A19: :A20: :A21: :A22: :A23: :A24: :A25: :A26: :e1: :e2: :e3: :e4: :e5: :e6: :e7: :e8: :e9: :e10: :e11: :e12: :e13: :e14: :e15: :e16: :e17: :e18: :e19:   :e20: :e21: :e22: :e23: :e24: :e25: :e26: :e27:$sp

Var $i=0

@tag

Var $i=1

Var $tit = call strstr $haystack=$tag; $needle=$sp; $before_needle=1

Var $ltit = strlen $val=$tit

Var $img = call substr $val=$tit; $start=1; $length=-1

Var $nd = call str_replace $subject=$nd; $search=$tit; $replace=<img src="http://trym.mobie.in/func/$img.png" />

Var $tag = call str_replace $subject=$tag; $search=$tit$sp; $replace=

Var $le = call strlen $val=$tag



If $le > 0

goto @tag

Endif

 print $nd

endfunction

:A1: :A2: :A3: :A4: :A5: :A6: :A7: :A8: :A9: :A10: :A11: :A12: :A13: :A14: :A15: :A16: :A17: :A18:   :A19: :A20: :A21: :A22: :A23: :A24: :A25: :A26: :e1: :e2: :e3: :e4: :e5: :e6: :e7: :e8: :e9: :e10: :e11: :e12: :e13: :e14: :e15: :e16: :e17: :e18: :e19:   :e20: :e21: :e22: :e23: :e24: :e25: :e26: :e27:

include /func/smile.xt 

# nếu muốn dùng smile cho biến $cmt 

Var $cmt = call @smile $nd=$cmt