Jump to content

Chat script not working


Recommended Posts

I am having trouble making my chat script work. the server isn't processing the GETMSG command.

Server:

func ok()
    $ok = ""
    Do
        $ok = tcprecv($ac,2048)
    until $ok = "OK"
EndFunc
func listen()
    TCPCloseSocket($ac)
    $ac = -1
    Do
    $ac = TCPAccept($ls)
    until $ac <> -1
EndFunc
global $ok
$ip = "192.168.1.199"
$port = 100
tcpstartup()
sleep(100)
$ls = tcplisten($ip,$port,  100)
if $ls = -1 Then exit
Dim $ac = -1
Do
    $ac = TCPAccept($ls)
Until $ac <> -1
Dim $ip_a
Dim $msg, $recv
while 1
    Do
        $c = tcprecv($ac,2048)
    until $c <> ""
    $getmsg = StringSplit($c,"|")
    if $c = "MSG" Then
        $mr = iniread("MSG.ini","MSG","NMSG",0)
        sleep(500)
        tcpsend($ac,$mr)
        $ok = ""
        Do
            $ok = tcprecv($ac,2048)
        until $ok <> ""
        if $ok = "OK" Then
            listen()
        EndIf
    EndIf
    if $getmsg[0] = 3 Then
        for $i = $getmsg[2] to $getmsg[3]
            sleep(500)
            $mru = iniread("MSG.ini","MSG",$i & "user","error")
            $mrm = iniread("MSG.ini","MSG",$i,"error")
            tcpsend($ac,$mru & "  : " & $mrm)
        Next
        ok()
        listen()
    EndIf
    if $c = "NEWMSG" Then
        $nre = ""
        Do
            $NMR = tcprecv($ac,2048)
        until $NMR <> ""
        Do
            $nre = tcprecv($ac,2048)
        until $nre <> ""
        $mr = iniread("MSG.ini","MSG","NMSG",0)
        $mrn = $mr + 1
        iniwrite("MSG.ini","MSG","NMSG",$mrn)
        iniwrite("MSG.ini","MSG",$mrn & "user",$nre)
        iniwrite("MSG.ini","MSG",$mrn,$NMR)
        ok()
        listen()
    EndIf
    if $c <> "NEWMSG" Then
        if $c <> "GETMSG" Then
            if $c <> "MSG" Then
                listen()
            EndIf
        EndIf
    EndIf
WEnd
oÝ÷ ÙÉbz{ZºÚ"µÍÚ[ÛYH  ÑÕRPÛÛÝ[Ë]LÉÝÂÌÍÚH  ][ÝÌNLMKNNI][ÝÂÌÍÜÜHLÌÍÛXÚÈH[]Þ
    ][ÝÓXÚÓ[YI][ÝË    ][ÝÝÚ]ÛÝ[[ÝHZÙH[ÝIÌÎNÜHXÚÛ[YHÈOÉ][ÝÊBÜÝ

BÝZXÜX]J  ][ÝØÚ]   ][ÝÊB[H   ÌÍÑÓÓÑVHHÕRPÜX]J    ][ÝØÚ]   ][ÝË
L
L
B[H ÌÍÙY]HÕRPÝÜX]QY]
    ][ÝÉ][ÝËLLN
B[H ÌÍÙY]HÕRPÝÜX]R[]
    ][ÝÉ][ÝËL
B[H ÌÍØ]ÛHÝZPÝÜX]P]Û    ][ÝÜÝXZ] ][ÝËÌ
BÕRTÙ]Ý]JÝ×ÜÚÝÊBÕRPÝÙ]Ý]J  ÌÍÙY]    ÌÍÑÕRWÑTÐPJBÝZXÝÙ]Ý]J ÌÍÙY]    ÌÍÑÕRWÑSPJBÝZXÝÙ]Ý]J   ÌÍØ]Û   ÌÍÑÕRWÑSPJBÚ[HBIÌÍÜÙHÜÛÛXÝ
    ÌÍÚ  ÌÍÜÜ
BIÌÍØØXÚHH[XY
    ][ÝØØXÚK][ÝË  ][ÝÛÙÉ][ÝË    ][ÝÛÙÉ][ÝËJB]ÜÙ[
    ÌÍÜÙ    ][ÝÓTÑÉ][ÝÊBYÂBIÌÍÛÙÈHÜXÝ ÌÍÜÙ

B][[    ÌÍÛÙÈ  ÉÝÈ  ][ÝÉ][ÝÂZY  ÌÍÛÙÈ  ÝÈ    ÌÍØØXÚH[B]ÜÙ[
    ÌÍÜÙ    ][ÝÑÑUTÑß  ][ÝÈ  [È ÌÍØØXÚH    [È ][Ýß  ][ÝÈ  [È ÌÍÛÙÊBBYÜ ÌÍÚHH    ÌÍØØXÚHÈ  ÌÍÛÙÂBBIÌÍÛÙÙÙ]H ][ÝÉ][ÝÂBBQÂBBBIÌÍÛÙÙÙ]HÜXÝ    ÌÍÜÙ

BBB][[  ÌÍÛÙÙÙ]   ÉÝÈ  ][ÝÉ][ÝÂBBQÕRPÝÙ]]J  ÌÍÙY]    ÌÍÛÙÙÙ]   [ÈÔ   [ÈÕRPÝXY
    ÌÍÙY]
JBBS^BÛY
L
BB]ÜÙ[
    ÌÍÜÙ    ][ÝÓÒÉ][ÝÊBBZ[]Ü]J   ][ÝØØXÚK][ÝË  ][ÝÛÙÉ][ÝË    ][ÝÛÙÉ][ÝË    ÌÍÛÙÊBQ[ÙBB]ÜÙ[
    ÌÍÜÙ    ][ÝÓÒÉ][ÝÊBQ[YIÌÍÛÙÌHÝZYÙ]ÙÊ
BÙ[XÝBXØÙH  ÌÍÛÙÌH ÌÍÑÕRWÑUSÐÓÔÑBBBQ^]BBBXØÙH   ÌÍÛÙÌH ÌÍØ]ÛBBIÌÍÜÙHÜÛÛXÝ
    ÌÍÚ  ÌÍÜÜ
BBBIÌÍØÝXYHÝZXÝXY
    ÌÍÙY]BBB]ÜÙ[
    ÌÍÜÙ    ][ÝÓUÓTÑÉ][ÝÊBBBÛY
L
BBB]ÜÙ[
    ÌÍÜÙ    ÌÍØÝXY
BBBÛY
L
BBB]ÜÙ[
    ÌÍÜÙ    ][ÝÓÒÉ][ÝÊBQ[Ù[XÝÑ[

Thanks in advance!

[size="10"]Pure Au3 crypt funcs(I'm currently also working on making a dll from this)[/size][Y] Be more active in the community[Y] Get 200 posts[N] Get 300 posts[N] Make a Topic in the example scripts forum with at least 50 replies.People who currently hate me:ValikSmOke_N

Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...