Ok!
Its a very young version i began it to write yesterday.
Usage:
Download mirc
go to map24
give your routing points in the fields and press enter
after it press the right mouse button in the field where the routing information is and source code
save the file in /mirc
start mirc, load the script, go in a channel and type
downhalf <input file> <Output file>
<input file> the name of the file you saved
<Output file> the name of the file you want to make
Sorry thats in mirc but i dont know other languages good.
Like i said its a concept but i try to make it better.
So i dont take any responsibility of the right of the coords etc!!
on *:input:*: {
if $1 == downhalf && $2 != $null && $3 != $null {
%file = $2
%file1 = $3
/header
timer1 0 0.5 /down1
}
else { //echo Usage: Files must be in /mirc: 12Downhalf 12<Inputfile> 9<Outputfile> }
if $1 == poi && $2 != $null && $3 != $null {
%file2 = $2
%file3 = $3
/header1
timer2 0 0.5 /poi
}
else { //echo Usage: Files must be in /mirc: 12poi 12<Inputfile> 9<Outputfile> }
}
/header {
/write -i %file1 $chr(35)
/write -i %file1 !IMAGE:waypoint.png,10,5,
/write -i %file1 !WAYPOINT
/write -i %file1 $chr(35)
}
/stop {
%tile1 = 1
%tile2 = 1
%1 = 1
timer1 off
//echo 4All Lines Wrote!
%var1 = 0
%var2 = 0
%var3 = 0
%var4 = 0
%aaa = 0
%file = 0
%file1 = 0
}
/down1 {
%var1 = $calc($gettok($read(%file,%tile1), 6-6,39) / 60) $+ $chr(44) $+ $chr(32) $+ $chr(44)
%var2 = $calc($gettok($read(%file,%tile1), 8-8,39) / 60) $+ $chr(44)
%var3 = $remove($gettok($read(%file,%tile2), 14-14,39), $chr(44))
%aaa = %var2 $+ %var1 $+ $replace(%var3,$chr(124),$chr(32),ß,ss) $+ $chr(44)
{
if 0 $+ $chr(44) $+ 0 isin %aaa { goto end }
else {
/write -i %file1 %aaa
}
}
:end
%tile1 = %tile1 + 1
%tile2 = %tile2 + 1
%1 = %1 + 1
//echo Wrote Line %1
if Fahrtziel isin %aaa { /stop }
if arrived isin %aaa { /stop }
}
/header1 {
/write -i %file3 $chr(35)
/write -i %file3 !IMAGE:food.png,40,20,
/write -i %file3 $chr(35)
}
/poi {
%vab1 = $calc($gettok($read(%file2,%tile4),4,34) / 60) $+ $chr(44)
%vab2 = $calc($gettok($read(%file2,%tile4),6,34) / 60) $+ $chr(44)
%vab3 = $remove($gettok($read(%file2,%tile4),12,34), telefon: ,fax: ) $+ $chr(44) $+ $chr(32) $+ $chr(59) $+ $chr(32) $+ $chr(59) $+ $chr(32) $+ $chr(44)
%bbb = %vab2 $+ %vab1 $+ $replace(%vab3,$chr(124),$chr(32))
if 0 $+ $chr(44) $+ 0 isin %bbb { goto end }
else { /write -i %file3 %bbb }
:end
If %tile4 == 1000 { /stop1 }
%tile4 = %tile4 + 1
%bb = %bb + 1
//echo scan Line %bb
}
/stop1 {
%tile4 = 1
%bb = 1
timer2 off
//echo 4All Lines wrote
%vab1 = 0
%vab2 = 0
%vab3 = 0
%bbb = 0
%file2 = 0
%file3 = 0
}
the variables are:
%1 1
%aaa 0
%file 0
%file1 0
%tile1 1
%tile2 1
%var1 0
%var2 0
%var3 0
%var4 0
%var5 0
%var6
%bb 2
%tile4 2
%file2 0
%file3 0
%vab1 0
%vab2 0
%vab3 0
%bbb 0
added poi support!
Usage: map24 / search / the place you want / enter / right click / source /save
poi <inputfile> <outputfile>
