<!--parser:xtscript-->
# Cookie set in included file

# Cookie powered visits counter
# cookie settings
var $name = new_test_counter
var $path = /xtscript
var $expire = (60*60*24*365)

# delete cookie
get del
if $del
call cookie::delete $name=$name;$path=$path;$force_current=1
endif

# Get the current value of the cookie or set $val to 0 if no cookie is set
var $val = call cookie::get $name=$name;$default=0
# increment the value
var $val = ($val+1)
# Set the cookie to the new value
call cookie::set $name=$name; $val=$val; $expire=$expire;$path=$path

# Set type for 1st 2nd 3rd 4th
var $len = call strlen $val=$val
var $last_digit = call substr $val=$val;$start=($len-1)
if $last_digit == 1
var $type=st
elseif $last_digit == 2
var $type=nd
elseif $last_digit == 3
var $type=rd
else
var $type=th
endif
# 11th 12th 13th exceptions
var $last_two_digits = call substr $val=$val;$start=($len-2)
if $last_two_digits == 11 or $last_two_digits == 12 or $last_two_digits == 13
var $type = th
endif
if $val == 1
var $message= Welcome new visitor
elseif $val >= 20
var $message= You are a regular visitor
elseif $val >= 10
var $message= You come here a lot
else
var $message= Welcome back
endif

# Show counter
print <b>$message this is your $val$type visit</b><br />
<!--/parser:xtscript--><!--parser:xtscript--> # Cookie set in included file # Cookie powered visits counter # cookie settings var $name = new_test_counter var $path = /xtscript var $expire = (60*60*24*365) # delete cookie get del if $del call cookie::delete $name=$name;$path=$path;$force_current=1 endif # Get the current value of the cookie or set $val to 0 if no cookie is set var $val = call cookie::get $name=$name;$default=0 # increment the value var $val = ($val+1) # Set the cookie to the new value call cookie::set $name=$name; $val=$val; $expire=$expire;$path=$path # Set type for 1st 2nd 3rd 4th var $len = call strlen $val=$val var $last_digit = call substr $val=$val;$start=($len-1) if $last_digit == 1 var $type=st elseif $last_digit == 2 var $type=nd elseif $last_digit == 3 var $type=rd else var $type=th endif # 11th 12th 13th exceptions var $last_two_digits = call substr $val=$val;$start=($len-2) if $last_two_digits == 11 or $last_two_digits == 12 or $last_two_digits == 13 var $type = th endif if $val == 1 var $message= Welcome new visitor elseif $val >= 20 var $message= You are a regular visitor elseif $val >= 10 var $message= You come here a lot else var $message= Welcome back endif # Show counter print <b>$message this is your $val$type visit</b><br /> <!--/parser:xtscript-->