macro games jodoh

ini macro sebetulnya cuma buat iseng-iseng permainan aja. jadi macro ini bisa menghitung kecocokan char player (atau lebih tepatnya id player) dengan yang lainnya. cara pakenya cukup mudah, kira2 fitur2nya seperti ini :
-ketik !jodoh (nick) (nick)
-nick dapat berupa nick lengkap atau hanya potongan nick
-nick dapat berupa huruf besar atau huruf kecil
-bot akan otomatis mencari nick yang sesuai di 1 layar bot tersebut untuk di hitung kecocokannya
-output berupa persentase kecocokan dr 1% hingga 100%
-output tentu saja hanya berupa permainan algoritma jadi jangan dipercaya keakuratannya


automacro jodoh {
pubm /^!jodoh (\S+) (\S+)/7
call {
$nama1 = getID("$.lastMatch1")
$nama2 = getID("$.lastMatch2")
$id1 = @player($nama1)
$id2 = @player($nama2)

if ($id1 = -1) goto gaada
if ($id2 = -1) goto gaada
if ($id1 = $id2) goto samasama
goto ramal

:gaada
do c siapa??
do e ?
goto end

:samasama
do c jodoh sm org lain dong
do e shy
goto end

:ramal
$nid1 = @eval ($::players{$::playersID[$id1]}->{nameID})
$nid2 = @eval ($::players{$::playersID[$id2]}->{nameID})
$s1 = @eval ($::players{$::playersID[$id1]}->{sex})
$s2 = @eval ($::players{$::playersID[$id2]}->{sex})

$noid1 = ambil1($nid1)
$noid2 = ambil1($nid2)
if ($s1 == $s2) goto sama
goto hitungdeh

:sama
if ($s1 == 0) goto lesbi
if ($s1 == 1) goto homo

:lesbi
do c wah apa2an ini, lesbi ya?
do e omg
pause 2
goto hitungdeh

:homo
do c wah apa2an ini, homo ya?
do e omg
pause 2
goto hitungdeh

:hitungdeh
if ($noid1 < $noid2) goto a
goto b

:a
$persenjodoh = @eval ($noid1/$noid2)
goto hasil

:b
$persenjodoh = @eval ($noid2/$noid1)
goto hasil

:hasil
$total = @eval ($persenjodoh*100)
$totalx = ambil($total)

do c kecocokan antara $nama1 dan $nama2 adalah $totalx persen
if ($totalx > 70) goto lv
if ($totalx > 50) goto no1
if ($totalx < 50) goto wah

:lv
do e lv
goto end

:no1
do e no1
goto end

:wah
do e wah
goto end

:end
release all
stop
}
}

sub ambil1 {
my $b = $_[0];
my $t = substr($b, -4);
$t =~ tr/0/1/;
return $t;
}

sub ambil {
my $bilang = $_[0];
my $totalx = substr($bilang, 0, 5);
return $totalx;
}

sub getID{
use Misc;
use strict;
my $result;
my $user = $_;
my $after = $_[0];
my $targetID = getIDFromChat(\%players, $user, $after);
if (defined $targetID) {
$result = $players{$targetID}{name};
}
else {
$result = "none"
}
return $result;
}