Tank game

[Fabry]

This is a lan game, like tank. You use up,down,left and right arrow to move and space to shoot. It works, but not perfectly.

It needs Grafica.txt.

This is the code:

[autoit]#cs ----------------------------------------------------------------------------

AutoIt Version: 3.2.4.9

Author: Fabrizio2210

Script Function:

Template AutoIt script.

#ce ----------------------------------------------------------------------------

#include <GUIConstants.au3>

#Include <GuiListView.au3>

#Include <Misc.au3>

#region Dichiarazione variabili

Dim $left = 64, $top = 48, $riga = 15, $width = 495, $height = 360, $maxspari = 10

Dim $Label1[$riga + 1], $Label2[$riga + 1], $ips[101][9], $punti = 0, $data = '', $morti = 0, $MySpari[$maxspari + 4][13], $spari[100][13], $c = 1

$MySpari[0][0] = 0

$spari[0][0] = 0

$timersparo = 0

$ultimosparo=0

$destra = ChrW(0x25BA)

$sinistra = ChrW(0x25C4)

$su = ChrW(0x25B2)

$giu = ChrW(0x25BC)

$tondo = ChrW(0x2022)

#endregion Variabili

#region Parametri server

$My_ips = StringSplit(@IPAddress1, '.')

$Broadcast = $My_ips[1] & '.' & $My_ips[2] & '.' & $My_ips[3] & '.255'

UDPStartup()

$nome = InputBox('Nome:', 'Inserisci il tuo nick', @UserName, ' M20')

If $nome = '' Or $nome = ' ' Then $nome = @UserName

$socket = UDPBind(@IPAddress1, 65530)

If @error <> 0 Then

MsgBox(16, 'Errore socket', 'Controlla di non aver gi

Edited July 16, 2007 by Fabry

[Sn0opy]

Neu AutoIt v3 Script.au3(61,64) : ERROR: BinaryToString() [built-in] called with wrong number of args.
        If IsBinary($data) Then $data = BinaryToString($data, 4)
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
Neu AutoIt v3 Script.au3(317,80) : ERROR: StringToBinary() [built-in] called with wrong number of args.
    If Not IsBinary($messaggio) Then $messaggio1 = StringToBinary($messaggio, 4)
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
Neu AutoIt v3 Script.au3 - 2 error(s), 0 warning(s)

And please translate it into english... and discribe it a little bit more

Edited July 12, 2007 by Sn0opy

[Fabry]

In autoit 3.2.4.9 Stringtobinary has the flag (See the help). 4 is for UTF8 code instead ansi or ascii. Scite poll the flag as a error, but works.

I have the necessity of send in binary because I use unicode.►◄▼▲

[Fabry]

If you have version 3.2.4.9, write the script in SciTe and press F5, if there is same error click Continue anyway.

[Toady]

Can't seem to get this to work at all. The Grafica.txt file won't download correctly. I tried debugging this yet I only understand english. nice job, can't wait to see it working eventually.

[Fabry]

Grafica.txt contains only this:

CODE

►

◄

▲

▼

You can use

Alt + 16 ►

Alt + 17 ◄

Alt + 30 ▲

Alt + 31 ▼

Alt + 7

Chr in autoit is different by normal.

[RazerM]

Take out the need for the text file with the following

$destra = ChrW(0x25BA)
$sinistra = ChrW(0x25C4)
$su = ChrW(0x25B2)
$giu = ChrW(0x25BC)
$tondo = ChrW(0x2022)

[Fabry]

Take out the need for the text file with the following

$destra = ChrW(0x25BA)
$sinistra = ChrW(0x25C4)
$su = ChrW(0x25B2)
$giu = ChrW(0x25BC)
$tondo = ChrW(0x2022)

Thank you, I tried with Chr(16), Chr(17).... but doesn't work.

Instead with your ChrW works, now it doesn't need the file grafica.txt.

I release a better version:

[autoit]#cs ----------------------------------------------------------------------------

AutoIt Version: 3.2.4.9

Author: Fabrizio2210

Script Function:

Template AutoIt script.

#ce ----------------------------------------------------------------------------

#include <GUIConstants.au3>

#Include <GuiListView.au3>

#Include <Misc.au3>

#region Dichiarazione variabili

Dim $left = 64, $top = 48, $riga = 15, $width = 495, $height = 360, $maxspari = 10

Dim $Label1[$riga + 1], $Label2[$riga + 1], $ips[101][9], $punti = 0, $data = '', $morti = 0, $MySpari[$maxspari + 4][13], $spari[100][13], $c = 1

$MySpari[0][0] = 0

$spari[0][0] = 0

$timersparo=0

$destra =ChrW(0x25BA)

$sinistra = ChrW(0x25C4)

$su = ChrW(0x25B2)

$giu = ChrW(0x25BC)

$tondo = ChrW(0x2022)

#endregion Variabili

#region Parametri server

$My_ips = StringSplit(@IPAddress1, '.')

$Broadcast = $My_ips[1] & '.' & $My_ips[2] & '.' & $My_ips[3] & '.255'

UDPStartup()

$nome = InputBox('Nome:', 'Iserisci il tuo nick', @UserName, ' M20')

If $nome = '' Or $nome = ' ' Then $nome = @UserName

$socket = UDPBind(@IPAddress1, 65530)

If @error <> 0 Then

MsgBox(16, 'Errore socket', 'Controlla di non aver gi

[Fabry]

Where do you find the list of character for ascii or unicode?

[atomix77]

Where do you find the list of character for ascii or unicode?

Under start/accessories/system tools/character map

theres a bunch of those characters

[RazerM]

AutoIt Help file has a good list of ascii codes. In Character map, if a character says U+FFFC use ChrW(0xFFFC)

[Fabry]

Thak you for information, I will need it in future.

I rewrite the program.

[autoit]#cs ----------------------------------------------------------------------------

AutoIt Version: 3.2.4.9

Author: Fabrizio2210

Script Function:

Template AutoIt script.

#ce ----------------------------------------------------------------------------

#include <GUIConstants.au3>

#Include <GuiListView.au3>

#Include <Misc.au3>

#region Dichiarazione variabili

Dim $left = 64, $top = 48, $riga = 15, $width = 495, $height = 360, $maxspari = 10

Dim $Label1[$riga + 1], $Label2[$riga + 1], $ips[101][9], $punti = 0, $data = '', $morti = 0, $MySpari[$maxspari + 4][13], $spari[100][13], $c = 1

$MySpari[0][0] = 0

$spari[0][0] = 0

$timersparo = 0

$ultimosparo=0

$destra = ChrW(0x25BA)

$sinistra = ChrW(0x25C4)

$su = ChrW(0x25B2)

$giu = ChrW(0x25BC)

$tondo = ChrW(0x2022)

#endregion Variabili

#region Parametri server

$My_ips = StringSplit(@IPAddress1, '.')

$Broadcast = $My_ips[1] & '.' & $My_ips[2] & '.' & $My_ips[3] & '.255'

UDPStartup()

$nome = InputBox('Nome:', 'Iserisci il tuo nick', @UserName, ' M20')

If $nome = '' Or $nome = ' ' Then $nome = @UserName

$socket = UDPBind(@IPAddress1, 65530)

If @error <> 0 Then

MsgBox(16, 'Errore socket', 'Controlla di non aver gi

Edited July 15, 2007 by Fabry

[arekkusu82]

I'm trying to create a little script to check the games running on the network, especifically Unreal Tournament. This migth come in handy.