GeoIP by Falcon

[Mighty]

Name: GeoIP

Author: Falcon` (with my minor additions)
Script version: 1.0
Server version: 2.6.5
Release Date: 14.03.2011
Compile Test: Passed
Description:
Now you can easily check from which country a player is connected

Commands:
 * /locate X - shows where X is (X = ID or nickname part)
 * /locateall - shows everyone's location

Requirements:
 * Make sure you got database (HexGeoIP.dat) in your root soldatserver folder

Uses:
 * Explode function by DorkeyDear, CurryWurst
 * GeoIP API

---
If you're interested in raw GeoIP functions, not the script, check attachments or Click
---

---
Code: {snippets}

Code: [Select]

(...)
Procedure PlayerToCountry(ID: byte; Who: string);
var
foundid: byte;
begin
foundid := StrToId(Who);
if foundid = 254 then
WriteMessage(ID,'Player not found ('+Who+')',Red)
else
WriteMessage(ID,IdToName(foundid)+' is connected from: '+CountryNames[player[foundid].country],Violet);
end;

// Default Events

Procedure ActivateServer();
begin
InitializeGeoIP;
end;

function OnPlayerCommand(ID: Byte; Text: string): boolean;
var
i: byte;
begin
Result := FALSE;
case LowerCase(GetPiece(Text,' ', 0)) of
'/locate': PlayerToCountry(ID,Copy(Text,9,Length(Text)))
'/locateall': for i:=1 to 32 do
if not(IdToName(i)='') then
WriteConsole(ID,'['+CountryCodes[player[i].country]+']   '+IdToName(i),Violet);
end;
end;

(...)

Questions? Bugs? Report please --> macekmil@gmail.com

[Falcon`]

i asked you to publish this as you're also part of the project. I did the functions, you did the script. That's something, isn't it?

[Gizd]

An evil player may crash a server using this script for lulz.

[KoGAi]

Is there an updated IP DB for this?

[Falcon`]

Attached zip containing converter (for linux, untested), it's source code, and newest GeoIP.dat converted (untested).

Short manual: Put GeoIP.dat in the same dir as converter (if it's GeoIP.dat.gz then first unpack it) and it should produce HexGeoIP.dat required by the script.

[KoGAi]

Thanks a lot, man. I'll give it a shot.