1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
|
alias cuptop2 {
if ($read(stats\html\Toplist.html)) { remove stats\html\Toplist.html }
write stats\html\Toplist.html <html>
write stats\html\Toplist.html <head>
write stats\html\Toplist.html <title> Street-kZ Cup Ranks </title>
write stats\html\Toplist.html <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
write stats\html\Toplist.html <link href="layout.css" rel="stylesheet" type="text/css" />
write stats\html\Toplist.html </head>
write stats\html\Toplist.html <body>
write stats\html\Toplist.html <table>
write stats\html\Toplist.html <tr>
write stats\html\Toplist.html <td class="top">
write stats\html\Toplist.html </td>
write stats\html\Toplist.html </tr>
write stats\html\Toplist.html <tr>
write stats\html\Toplist.html <td colspan="2" class="top">
write stats\html\Toplist.html </td>
write stats\html\Toplist.html </tr>
write stats\html\Toplist.html </table>
write stats\html\Toplist.html <table>
write stats\html\Toplist.html <tr>
write stats\html\Toplist.html <td class="eins"></td>
write stats\html\Toplist.html <td class="forumheader2">#</th>
write stats\html\Toplist.html <td class="forumheader2">Nick</th>
write stats\html\Toplist.html <td class="forumheader2">Points</th>
write stats\html\Toplist.html <td class="forumheader2">Played Cups</th>
swrite stats\html\Toplist.html <th>Won Cups</th>
write stats\html\Toplist.html <td class="forumheader2">Last Played</th>
write stats\html\Toplist.html <td class="eins"></td>
write stats\html\Toplist.html </tr>
write stats\html\Toplist.html <tr>
write stats\html\Toplist.html <td colspan="7" class="seperator"></td>
write stats\html\Toplist.html </tr>
var %x = 1
while (%x <= $lines(cuptop.txt)) {
if (. isin $calc(%x /2)) {
write stats\html\Toplist.html <tr>
write stats\html\Toplist.html <td class="eins">|</td>
write stats\html\Toplist.html <td $+(class="forumheader3">,%x,</td>)
write stats\html\Toplist.html <td class="forumheader3"><a $+(href="http://,%ftp.cup.1,/,$nocup($gettok($read(cuptop.txt,%x),2,32)),") $+(target="_blank">,$gettok($read(cuptop.txt,%x),2,32),<a) href></td>
write stats\html\Toplist.html <td $+(class="forumheader3">,$no00($gettok($read(cuptop.txt,%x),1,32)),</td>)
write stats\html\Toplist.html <td $+(class="forumheader3">,$gettok($read(cuptop.txt,%x),3,32),</td>)
swrite stats\html\Toplist.html <td $+(class="forumheader3">,$readini(ranking.ini, %x, wons),</td>)
write stats\html\Toplist.html <td $+(class="forumheader3">,$gettok($read(cuptop.txt,%x),4-9,32),</td>)
write stats\html\Toplist.html <td $+(class="eins">|</td>)
write stats\html\Toplist.html </tr>
}
else {
write stats\html\Toplist.html <tr class="gerade">
write stats\html\Toplist.html <td class="eins">|</td>
write stats\html\Toplist.html <td $+(class="forumheader3">,%x,</td>)
write stats\html\Toplist.html <td class="forumheader3"><a $+(href="http://,%ftp.cup.1,/,$nocup($gettok($read(cuptop.txt,%x),2,32)),.html") $+(target="_blank">,$gettok($read(cuptop.txt,%x),2,32),<a) href></td>
write stats\html\Toplist.html <td $+(class="forumheader3">,$no00($gettok($read(cuptop.txt,%x),1,32)),</td>)
write stats\html\Toplist.html <td $+(class="forumheader3">,$gettok($read(cuptop.txt,%x),3,32),</td>)
swrite stats\html\Toplist.html <td $+(class="forumheader3">,$gettok($read(cuptop.txt,%x),3,32),</td>)
write stats\html\Toplist.html <td $+(class="forumheader3">,$gettok($read(cuptop.txt,%x),4-9,32),</td>)
write stats\html\Toplist.html <td $+(class="eins">|</td>)
write stats\html\Toplist.html </tr>
}
inc %x
}
write stats\html\Toplist.html </table>
write stats\html\Toplist.html <br>
write stats\html\Toplist.html <table>
write stats\html\Toplist.html <tr>
write stats\html\Toplist.html <td class="seperator"></td>
write stats\html\Toplist.html </tr>
write stats\html\Toplist.html <tr>
write stats\html\Toplist.html <td class="bottom">
write stats\html\Toplist.html <a href="http://62.204.141.254/news.php" target="blank">CupRanks</a> by Street-kZ
write stats\html\Toplist.html </td>
write stats\html\Toplist.html </tr>
write stats\html\Toplist.html <tr>
write stats\html\Toplist.html <td class="bottom2">
write stats\html\Toplist.html </td>
write stats\html\Toplist.html </tr>
write stats\html\Toplist.html </table>
write stats\html\Toplist.html </body>
write stats\html\Toplist.html </html>
write $+(%ticks,.txt) ftp
write $+(%ticks,.txt) open %ftp.cup.1
write $+(%ticks,.txt) %ftp.cup.2
write $+(%ticks,.txt) %ftp.cup.3
if (%ftp.cup.4) { write $+(%ticks,.txt) cd %ftp.cup.4 }
write $+(%ticks,.txt) put stats\html\Toplist.html
write $+(%ticks,.txt) quit
write $+(%ticks,.bat) @echo off
write $+(%ticks,.bat) ftp -i $+(-s:,%ticks,.txt)
write $+(%ticks,.bat) exit
run -n $+(%ticks,.bat)
.timer 1 10 remove $+(%ticks,.txt)
.timer 1 10 remove $+(%ticks,.bat)
.timer 1 10 msg $1 %skin1 Toplist: $+(http://,%ftp.cup.1 $+ /Toplist.html) %skin3
var %x = 1
while (%x <= $lines(cuptop.txt)) {
.timer 1 0.1 cupplayerinfo $+(stats\html\,$nocup($gettok($read(cuptop.txt,%x),2,32)),.html) $+(stats\txt\,$nocup($gettok($read(cuptop.txt,%x),2,32)),.txt) $gettok($read(cuptop.txt,%x),2,32) $1 $r(1,9999999999999999999)
inc %x
}
.timer 1 30 remove cuptop.txt
}
|