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