http://www.eathena.ws/board/index.php?showtopic=120522
http://www.pow4games.com/downloads2/BK01.gif
Of course is in spanish (i'm from Argentina), you can translate and modified the code.
Regardz
Code: Select all
automacro antibot {
console /^.*:\s+.?(ciento|doscientos|trescientos|cuatrocientos|quinientos|seiscientos|setecientos|ochocientos|novecientos).?\s+.?(veinte|treinta|cuarenta|cincuenta|sesenta|setenta|ochenta|noventa).?\s+y\s+.?(uno|dos|tres|cuatro|cinco|seis|siete|ocho|nueve).?$/i
call {
$primero = $.lastMatch1
$segundo = $.lastMatch2
$tercero = $.lastMatch3
if ($primero == ciento) goto cientos
if ($primero == doscientos) goto doscientos
if ($primero == trescientos) goto trescientos
if ($primero == cuatrocientos) goto cuatrocientos
if ($primero == quinientos) goto quinientos
if ($primero == seiscientos) goto seiscientos
if ($primero == setecientos) goto seetecientos
if ($primero == trescientos) goto ochocientos
if ($primero == novecientos) goto novecientos
goto resultado
:cientos
$centena = 100
goto decenas
:doscientos
$centena = 200
goto decenas
:trescientos
$centena = 300
goto decenas
:cuatrocientos
$centena = 400
goto decenas
:quinientos
$centena = 500
goto decenas
:seiscientos
$centena = 600
goto decenas
:setecientos
$centena = 700
goto decenas
:ochocientos
$centena = 800
goto decenas
:novecientos
$centena = 900
:decenas
if ($segundo == veinte) goto veinte
if ($segundo == treinta) goto treinta
if ($segundo == cuarenta) goto cuarenta
if ($segundo == cincuenta) goto cincuenta
if ($segundo == sesenta) goto sesenta
if ($segundo == setenta) goto setenta
if ($segundo == ochenta) goto ochenta
if ($segundo == noventa) goto noventa
:veinte
$decena = 20
goto unidad
:treinta
$decena = 30
goto unidad
:cuarenta
$decena = 40
goto unidad
:cincuenta
$decena = 50
goto unidad
:sesenta
$decena = 60
goto unidad
:setenta
$decena = 70
goto unidad
:ochenta
$decena = 80
goto unidad
:noventa
$decena = 90
:unidad
if ($tercero == uno) goto uno
if ($tercero == dos) goto dos
if ($tercero == tres) goto tres
if ($tercero == cuatro) goto cuatro
if ($tercero == cinco) goto cinco
if ($tercero == seis) goto seis
if ($tercero == siete) goto siete
if ($tercero == ocho) goto ocho
if ($tercero == nueve) goto nueve
:uno
$unidad = 1
goto resultado
:dos
$unidad = 2
goto resultado
:tres
$unidad = 3
goto resultado
:cuatro
$unidad = 4
goto resultado
:cinco
$unidad = 5
goto resultado
:seis
$unidad = 6
goto resultado
:siete
$unidad = 7
goto resultado
:ocho
$unidad = 8
goto resultado
:nueve
$unidad = 9
:resultado
$result = @eval($centena+$decena+$unidad)
log $result
do talk num $result
}
}
automacro antibotexepcion1 {
console /^.*:\s+.?(cien|doscientos|trescientos|cuatrocientos|quinientos|seiscientos|setecientos|ochocientos|novecientos|veinte|treinta|cuarenta|cincuenta|sesenta|setenta|ochenta|noventa|veintiuno|veintidos|veintitres|veinticuatro|veinticinco|veintiseis|veintisiete|veintiocho|veintinueve|once|doce|trece|catorce|quince|dieciseis|diecisiete|dieciocho|diecinueve|uno|dos|tres|cuatro|cinco|seis|siete|ocho|nueve|diez).?$/i
call {
$primero = $.lastMatch1
if ($primero == uno) goto uno
if ($primero == dos) goto dos
if ($primero == tres) goto tres
if ($primero == cuatro) goto cuatro
if ($primero == cinco) goto cinco
if ($primero == seis) goto seis
if ($primero == siete) goto siete
if ($primero == ocho) goto ocho
if ($primero == nueve) goto nueve
if ($primero == diez) goto diez
if ($primero == once) goto once
if ($primero == doce) goto doce
if ($primero == trece) goto trece
if ($primero == catorce) goto catorce
if ($primero == quince) goto quince
if ($primero == dieciseis) goto dieciseis
if ($primero == diecisiete) goto diecisiete
if ($primero == dieciocho) goto dieciocho
if ($primero == diecinueve) goto diecinueve
if ($primero == veinte) goto veinte
if ($primero == veintiuno) goto veintiuno
if ($primero == veintidos) goto veintidos
if ($primero == veintitres) goto veintitres
if ($primero == veinticuatro) goto veinticuatro
if ($primero == veinticinco) goto veinticinco
if ($primero == veintiseis) goto veintiseis
if ($primero == veintisiete) goto veintisiete
if ($primero == veintiocho) goto veintiocho
if ($primero == veintinueve) goto veintinueve
if ($primero == treinta) goto treinta
if ($primero == cuarenta) goto cuarenta
if ($primero == cincuenta) goto cincuenta
if ($primero == sesenta) goto sesenta
if ($primero == setenta) goto setenta
if ($primero == ochenta) goto ochenta
if ($primero == noventa) goto noventa
if ($primero == cien) goto cien
if ($primero == doscientos) goto doscientos
if ($primero == trescientos) goto trescientos
if ($primero == cuatrocientos) goto cuatrocientos
if ($primero == quinientos) goto quinientos
if ($primero == seiscientos) goto seiscientos
if ($primero == setecientos) goto seetecientos
if ($primero == trescientos) goto ochocientos
if ($primero == novecientos) goto novecientos
:uno
$simple = 1
goto resultado
:dos
$simple = 2
goto resultado
:tres
$simple = 3
goto resultado
:cuatro
$simple = 4
goto resultado
:cinco
$simple = 5
goto resultado
:seis
$simple = 6
goto resultado
:siete
$simple = 7
goto resultado
:ocho
$simple = 8
goto resultado
:nueve
$simple = 9
goto resultado
:diez
$simple = 10
goto resultado
:once
$simple = 11
goto resultado
:doce
$simple = 12
goto resultado
:trece
$simple = 13
goto resultado
:catorce
$simple = 14
goto resultado
:quince
$simple = 15
goto resultado
:dieciseis
$simple = 16
goto resultado
:diecisiete
$simple = 17
goto resultado
:dieciocho
$simple = 18
goto resultado
:diecinueve
$simple = 19
goto resultado
:veinte
$simple = 20
goto resultado
:veintiuno
$simple = 21
goto resultado
:veintidos
$simple = 22
goto resultado
:veintitres
$simple = 23
goto resultado
:veinticuatro
$simple = 24
goto resultado
:veinticinco
$simple = 25
goto resultado
:veintiseis
$simple = 26
goto resultado
:veintisiete
$simple = 27
goto resultado
:veintiocho
$simple = 28
goto resultado
:veintinueve
$simple = 29
goto resultado
:treinta
$simple = 30
goto resultado
:cuarenta
$simple = 40
goto resultado
:cincuenta
$simple = 50
goto resultado
:sesenta
$simple = 60
goto resultado
:setenta
$simple = 70
goto resultado
:ochenta
$simple = 80
goto resultado
:noventa
$simple = 90
goto resultado
:cien
$simple = 100
goto resultado
:doscientos
$simple = 200
goto resultado
:trescientos
$simple = 300
goto resultado
:cuatrocientos
$simple = 400
goto resultado
:quinientos
$simple = 500
goto resultado
:seiscientos
$simple = 600
goto resultado
:setecientos
$simple = 700
goto resultado
:ochocientos
$simple = 800
goto resultado
:novecientos
$simple = 900
:resultado
$result = @eval($simple)
log $result
do talk num $result
}
}
automacro antibotexepcion2 {
console /^.*:\s+.?(veinte|treinta|cuarenta|cincuenta|sesenta|setenta|ochenta|noventa).?\s+y\s+.?(uno|dos|tres|cuatro|cinco|seis|siete|ocho|nueve).?$/i
call {
$primero = $.lastMatch1
$segundo = $.lastMatch2
if ($primero == veinte) goto veinte
if ($primero == treinta) goto treinta
if ($primero == cuarenta) goto cuarenta
if ($primero == cincuenta) goto cincuenta
if ($primero == sesenta) goto sesenta
if ($primero == setenta) goto setenta
if ($primero == ochenta) goto ochenta
if ($primero == noventa) goto noventa
goto resultado
:veinte
$decena = 20
goto unidad
:treinta
$decena = 30
goto unidad
:cuarenta
$decena = 40
goto unidad
:cincuenta
$decena = 50
goto unidad
:sesenta
$decena = 60
goto unidad
:setenta
$decena = 70
goto unidad
:ochenta
$decena = 80
goto unidad
:noventa
$decena = 90
:unidad
if ($segundo == uno) goto uno
if ($segundo == dos) goto dos
if ($segundo == tres) goto tres
if ($segundo == cuatro) goto cuatro
if ($segundo == cinco) goto cinco
if ($segundo == seis) goto seis
if ($segundo == siete) goto siete
if ($segundo == ocho) goto ocho
if ($segundo == nueve) goto nueve
goto resultado
:uno
$unidad = 1
goto resultado
:dos
$unidad = 2
goto resultado
:tres
$unidad = 3
goto resultado
:cuatro
$unidad = 4
goto resultado
:cinco
$unidad = 5
goto resultado
:seis
$unidad = 6
goto resultado
:siete
$unidad = 7
goto resultado
:ocho
$unidad = 8
goto resultado
:nueve
$unidad = 9
:resultado
$result = @eval($decena+$unidad)
log $result
do talk num $result
}
}
automacro antibotexepcion3 {
console /^.*:\s+.?(ciento|doscientos|trescientos|cuatrocientos|quinientos|seiscientos|setecientos|ochocientos|novecientos).?\s+.?(veinte|treinta|cuarenta|cincuenta|sesenta|setenta|ochenta|noventa|veintiuno|veintidos|veintitres|veinticuatro|veinticinco|veintiseis|veintisiete|veintiocho|veintinueve|once|doce|trece|catorce|quince|dieciseis|diecisiete|dieciocho|diecinueve|uno|dos|tres|cuatro|cinco|seis|siete|ocho|nueve|diez).?$/i
call {
$primero = $.lastMatch1
$segundo = $.lastMatch2
if ($primero == ciento) goto ciento
if ($primero == doscientos) goto doscientos
if ($primero == trescientos) goto trescientos
if ($primero == cuatrocientos) goto cuatrocientos
if ($primero == quinientos) goto quinientos
if ($primero == seiscientos) goto seiscientos
if ($primero == setecientos) goto seetecientos
if ($primero == trescientos) goto ochocientos
if ($primero == novecientos) goto novecientos
goto resultado
:ciento
$centena = 100
goto decenas
:doscientos
$centena = 200
goto decenas
:trescientos
$centena = 300
goto decenas
:cuatrocientos
$centena = 400
goto decenas
:quinientos
$centena = 500
goto decenas
:seiscientos
$centena = 600
goto decenas
:setecientos
$centena = 700
goto decenas
:ochocientos
$centena = 800
goto decenas
:novecientos
$centena = 900
:decenas
if ($segundo == uno) goto uno
if ($segundo == dos) goto dos
if ($segundo == tres) goto tres
if ($segundo == cuatro) goto cuatro
if ($segundo == cinco) goto cinco
if ($segundo == seis) goto seis
if ($segundo == siete) goto siete
if ($segundo == ocho) goto ocho
if ($segundo == nueve) goto nueve
if ($segundo == diez) goto diez
if ($segundo == once) goto once
if ($segundo == doce) goto doce
if ($segundo == trece) goto trece
if ($segundo == catorce) goto catorce
if ($segundo == quince) goto quince
if ($segundo == dieciseis) goto dieciseis
if ($segundo == diecisiete) goto diecisiete
if ($segundo == dieciocho) goto dieciocho
if ($segundo == diecinueve) goto diecinueve
if ($segundo == veinte) goto veinte
if ($segundo == veintiuno) goto veintiuno
if ($segundo == veintidos) goto veintidos
if ($segundo == veintitres) goto veintitres
if ($segundo == veinticuatro) goto veinticuatro
if ($segundo == veinticinco) goto veinticinco
if ($segundo == veintiseis) goto veintiseis
if ($segundo == veintisiete) goto veintisiete
if ($segundo == veintiocho) goto veintiocho
if ($segundo == veintinueve) goto veintinueve
if ($segundo == treinta) goto treinta
if ($segundo == cuarenta) goto cuarenta
if ($segundo == cincuenta) goto cincuenta
if ($segundo == sesenta) goto sesenta
if ($segundo == setenta) goto setenta
if ($segundo == ochenta) goto ochenta
if ($segundo == noventa) goto noventa
:uno
$simple = 1
goto resultado
:dos
$simple = 2
goto resultado
:tres
$simple = 3
goto resultado
:cuatro
$simple = 4
goto resultado
:cinco
$simple = 5
goto resultado
:seis
$simple = 6
goto resultado
:siete
$simple = 7
goto resultado
:ocho
$simple = 8
goto resultado
:nueve
$simple = 9
goto resultado
:diez
$simple = 10
goto resultado
:once
$simple = 11
goto resultado
:doce
$simple = 12
goto resultado
:trece
$simple = 13
goto resultado
:catorce
$simple = 14
goto resultado
:quince
$simple = 15
goto resultado
:dieciseis
$simple = 16
goto resultado
:diecisiete
$simple = 17
goto resultado
:dieciocho
$simple = 18
goto resultado
:diecinueve
$simple = 19
goto resultado
:veinte
$simple = 20
goto resultado
:veintiuno
$simple = 21
goto resultado
:veintidos
$simple = 22
goto resultado
:veintitres
$simple = 23
goto resultado
:veinticuatro
$simple = 24
goto resultado
:veinticinco
$simple = 25
goto resultado
:veintiseis
$simple = 26
goto resultado
:veintisiete
$simple = 27
goto resultado
:veintiocho
$simple = 28
goto resultado
:veintinueve
$simple = 29
goto resultado
:treinta
$simple = 30
goto resultado
:cuarenta
$simple = 40
goto resultado
:cincuenta
$simple = 50
goto resultado
:sesenta
$simple = 60
goto resultado
:setenta
$simple = 70
goto resultado
:ochenta
$simple = 80
goto resultado
:noventa
$simple = 90
:resultado
$result = @eval($centena+$simple)
log $result
do talk num $result
}
}
