Since I am new to kixtart I would like if someone can take a look at script and comment..
I mean is there some general rules like something is better or quicker than I used or something like that.. thank you.

SETCONSOLE ("HIDE")
SHELL "deltmp.bat"
IF @IPADDRESS0 = 194.247.192.100 OR 194.247.192.109
GOTO "start"
ELSE GOTO "theend"
ENDIF
:start
$success= 0
$index = 0
$key1 = "HKEY_CURRENT_USER\Identities\"
$key2 = "\Software\Microsoft\Internet Account Manager\Accounts\"
$value = 1
$key = "HKEY_CURRENT_USER\Software\Microsoft\Internet Account Manager\Accounts\"
$null = "0000000"
$nul = "000000"
$pattern= "office.eunet.yu"
IF @IPADDRESS0 = 194.247.192.100
$leave = "0000001"
GOTO "setvalue"
ELSE
$leave = "0000000"
GOTO "setvalue"
ENDIF
:setvalue
$result = $key + $res
$servername = READVALUE("$result", "POP3 Server")
IF @ERROR <> 0 GOTO check
ENDIF
IF $servername = $pattern
WRITEVALUE ("$result", "Leave Mail On Server", "$leave", "REG_DWORD")
$success = $success + 1
GOTO "ident"
ELSE GOTO "check"
:check
$res = dectohex($value)
IF $res <= F
$res = $null + $res
ELSE $res = $nul + $res
ENDIF
IF $res = 000000FF
GOTO "ident"
ELSE
$value = $value + 1
GOTO "setvalue"
:ident
$value = 1
$keyname = ENUMKEY ("$key1", $index)
IF @ERROR = 0
$key = $key1 + $keyname + $key2
$index = $index + 1
GOTO "setvalue"
ELSE GOTO "process"
ENDIF
: process
IF $success = 0
MESSAGEBOX (" Account office.eunet.yu ne postoji u vasem profilu.
Ako bas morate kontaktirajte vaseg sistem administratora
P.S. Prethodno se smirite, ponasajte se 'ladno i kupite mu dva sladoleda", "GRESKA!!!", 0)
ENDIF
:theend
EXIT

[ 07 November 2001: Message edited by: gambler ]