problem

func chatt()

$block = 0
$name = ''
$name = iniread('data\name.ini', 'Chatt', 'name', '')
if $name='' then
Do
$name = InputBox('Name', 'Bitte geben sie einen Namen ein den sie im Chatt verwenden wollen:'&@crlf&'(Wenn sie auf http://www.autoit.de registriet sind, verwenden sie bitte ihren dortigen Benutzernamen)', 'Name eingeben')

if $name = 'Name eingeben' then $name = ''
if StringInStr($name, 'arsch') = 1 then $name = ''
if StringInStr($name, 'admin') = 1 then $name = ''
until $name <> ''
iniwrite('data\name.ini', 'Chatt', 'name', $name)
EndIf
if FileExists('data\chatt.txt') not then filemove('', 'data\chatt.txt', 1)
$open=_ftpopen('MyFTP')
$connected = _ftpconnect($open, 'http://steruma.kilu.de/', 'entfernt', 'entfernt')
guisetstate(@SW_SHOW, $chatting)
$exit = 0
$up = @SEC + 5
$block=0
if $name='' then
Do
$name = InputBox('Name', 'Bitte geben sie einen Namen ein den sie im Chatt verwenden wollen:'&@crlf&'(Wenn sie auf http://www.autoit.de registriet sind, verwenden sie bitte ihren dortigen Benutzernamen)', 'Name eingeben')

if $name = 'Name eingeben' then $name = ''
if StringInStr($name, 'arsch') = 1 then $name = ''
if StringInStr($name, 'admin') = 1 then $name = ''
until $name <> ''
iniwrite('data\name.ini', 'Chatt', 'name', $name)
EndIf
if iniread('data\name.ini', 'entfernt', 'entfernt', 'error') = 1 then $name = '{{ADMIN}}'&$name
if FileExists('data\chatt.txt') not then filemove('', 'data\chatt.txt', 1)
$open=_ftpopen('MyFTP')
$connected = _ftpconnect($open, 'ftp.steruma.kilu.de', 'entfernt', 'entfernt')
guisetstate(@SW_SHOW, $chatting)
$exit = 0
$up = @SEC + 5
Do
$msg = guigetmsg()
Switch $msg
case $GUI_EVENT_CLOSE
$exit = 1
case $abs
if $block > @SEC then MsgBox(48,"","Du musst noch warten bis du eine weitere Nachricht verschicken kannst... (Noch: "&$block - @sec&" Sekunden)",2)
if $block < @sec Then
filewrite('data\chatt.txt', @crlf&$name&'['&@HOUR&':'&@MIN&':'&@SEC&']'&':'&guictrlread($input1))
DllOpen('wininet.dll')
_ftpdelfile($connected, '/www/chatt/chatt.txt')
_ftpputfile($connected, @ScriptDir&'\data\chatt.txt', '/www/chatt/chatt.txt')
guictrlsetdata($input1, '')
$block = @sec + 10
if $block > 60 then $block = $block - 60

EndIf
case $adm
GUISetState(@SW_SHOW, $admm)
Do
$msg = guigetmsg()
Switch $msg
case $delv
FileDelete('data\chatt.txt')
FileMove('', 'data\chatt.txt', 1)
filewrite('data\chatt.txt', 'Der Nachrichtenverlauf wurde von '&$name&' am '& @MDAY&'.'&@MON&'.'&@YEAR&' um '&@HOUR&':'&@MIN&':'&@SEC&' zurückgesetzt')
_ftpdelfile($connected, '/www/chatt/chatt.txt')
_ftpputfile($connected, @ScriptDir&'\data\chatt.txt', '/www/chatt/chatt.txt')
EndSwitch
Until $msg = $GUI_EVENT_CLOSE
guisetstate(0, $admm)
endswitch
if $up < @SEC Then

guictrlsetdata($edit1, fileread('data\chatt.txt') )
$up = @sec + 5
if $up > 60 then $up = $up - 60
EndIf
until $exit = 1
guisetstate(0, $chatting)

EndFunc