ti do due posizioni per ora
115 2 S 23 50 E
2 22N 22 51W
115 2 S 23 50 E
2 22N 22 51W

;=======================================================
sub cerca_filone
set !IDPosto %1
event ExMsg #charID 3 0 Prima volta qui. Cerco i filoni.
wait 10
set !fminx #charposx - 1
set !fminy #charposy - 1
set !fmaxx #charposx + 1
set !fmaxy #charposy + 1
if %numfiloni . !IDPosto = n/a
set %numfiloni . !IDPosto 0
for !ffy !fminy !fmaxy
{
for !ffx !fminx !fmaxx
{
set !filonex !ffx / 8
set !filoney !ffy / 8
set !IDFilone !filonex , _ , !filoney
if %Filone . !IDFilone = n/a
{
gosub trova_type_runa_singolo !ffx !ffy
set !result #result
if !result = -2
{
set %numfiloni . !IDPosto -2
}
if !result = OK
{
set !IDFilone !filonex , _ , !filoney
set %Filone . !IDFilone #true
if %Nfiloni = n/a
set %Nfiloni 0
set %Nfiloni %Nfiloni + 1
set %FiloneX . %NFiloni !ffx
set %FiloneY . %NFiloni !ffy
set %FiloneCave . %NFiloni %Cave
set %FiloneTilType . %NFiloni %tiltype
set %numfiloni . !IDPosto %numfiloni . !IDPosto + 1
set !nomevar filone , !IDPosto , _ , %numfiloni . !IDPosto
set % . !nomevar %Nfiloni
}
}
}
}
return
;=======================================================
sub cerca_filone
set !IDPosto %1
event ExMsg #charID 3 0 Prima volta qui. Cerco i filoni.
wait 10
set !fminx #charposx - 1
set !fminy #charposy - 1
set !fmaxx #charposx + 1
set !fmaxy #charposy + 1
if %numfiloni . !IDPosto = n/a
set %numfiloni . !IDPosto 0
for !ffy !fminy !fmaxy
{
for !ffx !fminx !fmaxx
{
set !filonex !ffx / 8
set !filoney !ffy / 8
[COLOR="Blue"]set !IDFilone !IDPosto , _ , !filonex , _ , !filoney[/COLOR]
if %Filone . !IDFilone = n/a
{
gosub trova_type_runa_singolo !ffx !ffy
set !result #result
if !result = -2
{
set %numfiloni . !IDPosto -2
}
if !result = OK
{
[COLOR="Blue"]set !IDFilone !IDPosto , _ , !filonex , _ , !filoney[/COLOR]
set %Filone . !IDFilone #true
if %Nfiloni = n/a
set %Nfiloni 0
set %Nfiloni %Nfiloni + 1
set %FiloneX . %NFiloni !ffx
set %FiloneY . %NFiloni !ffy
set %FiloneCave . %NFiloni %Cave
set %FiloneTilType . %NFiloni %tiltype
set %numfiloni . !IDPosto %numfiloni . !IDPosto + 1
set !nomevar filone , !IDPosto , _ , %numfiloni . !IDPosto
set % . !nomevar %Nfiloni
}
}
}
}
return
.

.



Commenta