rendered paste body/* ==========================================================
= DragonBall Z - v1.0 - by Epsilon
=============================================================
=============================================================
=============================================================
= Please do not change [[[anything]]]] in this file =========
=============================================================
=============================================================
=
= For more mIRC games, visit www.picwin.tk
=
=============================================================
*/
/*
=============================================================
====== MAIN =================================================
=============================================================
*/
on *:LOAD:{
if ($version < 6.16) {
echo DragonBall Z requires mIRC v6.16 or newer to run.
unload -rs " $+ $script $+ "
return
}
echo -s DragonBall Z v1.0 version loaded - To play type: /dbz
}
menu menubar,status {
-
DragonBall Z
.Play:/dbz
.-
.Uninstall: {
close.dbz
unload -rs " $+ $script $+ "
}
-
}
on *:CLOSE:@DragonBall:close.dbz
alias -l dbzdir {
return $+(",$scriptdir,$1,")
}
alias -l tick {
return $dll($+(",$scriptdirdlls/game_tools.dll"),ticks,.)
}
alias -l playsound {
if ($hget(dragonball.config,playsound)) dll $+(",$scriptdirdlls/game_tools.dll") splay $scriptdirsounds $+ \ $+ $1-
}
alias -l playmusic {
if (!$hget(dragonball.config,playmusic)) return
splay -m stop
splay -m $dbzdir(music $+ \ $+ $1-)
}
alias -l x-gui {
var %xgui = $dll($+(",$scriptdirdlls/x-gui.dll"),$1,$2-)
if ($left(%xgui,5) == ERROR) echo -s x-GUI DLL (DBZ): %xgui
if ($isid) return %xgui
}
alias -l print {
if ($1) x-gui Richedit @DragonBall > Echo 1 ( $+ $time $+ ) $1-
}
alias dbz.debug {
window -od @debug-tcp -1 -1 500 200
window -od @debug-udp -1 -1 500 200
db debug 1
}
alias reload.dbz {
window -c @DragonBall
dbz
}
alias dbz {
if ($window(@DragonBall)) {
window -a @DragonBall
return
}
.localinfo -uh
.timerdbz-* off
.sockclose dbz_*
if ($hget(dragonball)) {
var %reload = 1
hfree dragonball
}
hmake dragonball 10
db intro loading
db version 1.0
window -hfpodk0B +btn @DragonBall 100 200 518 226 verdana 7 $+(",$scriptdirsprites/dbz.ico")
window -a @DragonBall
titlebar @DragonBall Z - v $+ $db(version)
drawrect -rf @DragonBall 0 1 0 0 $window(@DragonBall).w $window(@DragonBall).h
drawtext -r @DragonBall $rgb(255,255,255) Verdana -7 $calc($window(@DragonBall).w / 2 - $width(loading ...,verdana,-7) /2)) 100 Loading ...
dll -u $+(",$scriptdirx-gui.dll")
x-gui Mark @DragonBall
if ($hget(dragonball.config)) hfree dragonball.config
hmake dragonball.config 10
hload dragonball.config $+(",$scriptdirconfig.cfg,")
if (!$hget(dragonball.config,nick)) hadd dragonball.config nick $me
db bgcolor $rgb(80,100,150)
db bgcolor2 $rgb(100,120,170)
db bgcolor3 $rgb(140,160,210)
db color $rgb(0)
db color2 $rgb(160,180,230)
hadd dragonball fps 0
hadd dragonball fps.counter 0
hadd dragonball loop 0
window -fhpB +d @dbz.tmp.buffer 0 0 526 250
window -fhpB +d @dbz.tmp.fx 0 0 194 113
drawrect -rf @dbz.tmp.fx $rgb(0,255,255) 1 0 0 194 113
drawpic @dbz.tmp.fx 0 0 $+(",$scriptdir/sprites/fx.png")
drawpic @dbz.tmp.fx 65 0 $+(",$scriptdir/sprites/fx.png")
drawpic @dbz.tmp.fx 130 0 $+(",$scriptdir/sprites/fx.png")
drawreplace -r @dbz.tmp.fx $rgb(242,242,242) $rgb(255,250,188) 65 0 64 113
drawreplace -r @dbz.tmp.fx $rgb(242,242,242) $rgb(204,153,204) 130 0 64 113
drawreplace -r @dbz.tmp.fx $rgb(216,216,216) $rgb(255,226,66) 65 0 64 113
drawreplace -r @dbz.tmp.fx $rgb(216,216,216) $rgb(153,102,204) 130 0 64 113
drawreplace -r @dbz.tmp.fx $rgb(191,191,191) $rgb(255,198,0) 65 0 64 113
drawreplace -r @dbz.tmp.fx $rgb(191,191,191) $rgb(153,51,204) 130 0 64 113
window -fhpB +d @dbz.tmp.char 0 0 400 50
drawpic @dbz.tmp.char 0 0 $+(",$scriptdir/sprites/characters.png")
window -fhpB +d @dbz.tmp.font 0 0 560 16
drawpic @dbz.tmp.font 0 0 $+(",$scriptdir/sprites/font.png")
window -fhpB +d @dbz.tmp.final 0 0 500 64
drawrect -rf @dbz.tmp.final $rgb(192,192,192) 1 0 0 500 64
;specialwin
window -fhpB +d @dbz.tmp.special 0 0 164 206
var %special = special
if ($hget(dragonball.config,trans) == 1) %special = special2
drawpic @dbz.tmp.special 0 0 0 0 164 129 $+(",$scriptdir/sprites/,%special,.png")
drawpic @dbz.tmp.special 0 129 0 0 164 64 $+(",$scriptdir/sprites/,%special,.png")
drawpic @dbz.tmp.special 0 193 0 128 164 13 $+(",$scriptdir/sprites/,%special,.png")
drawreplace -r @dbz.tmp.special $rgb(255,198,0) $rgb(175,49,207) 0 130 164 64
drawreplace -r @dbz.tmp.special $rgb(242,242,242) $rgb(247,233,241) 0 130 164 64
drawreplace -r @dbz.tmp.special $rgb(255,250,188) $rgb(247,233,251) 0 130 164 64
drawreplace -r @dbz.tmp.special $rgb(255,226,66) $rgb(196,102,220) 0 130 164 64
window -fhpB +d @dbz.tmp.special.mirror 0 0 164 206
var %i = 0
while (%i <= 164) {
drawcopy @dbz.tmp.special %i 0 1 242 @dbz.tmp.special.mirror $calc($window(@dbz.tmp.special.mirror).w - %i -1) 0
inc %i
}
window -fhpB +d @dbz.tmp.txt 0 0 200 172
drawpic @dbz.tmp.txt 0 0 $+(",$scriptdir/sprites/text.png")
window -fhpB +d @dbz.tmp.intro 0 0 266 310
drawpic @dbz.tmp.intro 0 0 $+(",$scriptdir/sprites/intro.png")
db intro 0
db intro.r 0
db intro.s 0
db dx 0
playmusic tapion.mid
db fps.ticks $tick
db ticks $tick
intro
if (%reload) && ($isfile($dbzdir(versions.txt))) {
window -n @DragonBall
run $dbzdir(versions.txt)
}
}
alias -l intro {
var %ticks = $tick
drawrect -rf @dbz.tmp.buffer 0 1 0 0 $window(@dbz.tmp.buffer).w $window(@dbz.tmp.buffer).h
if ($hget(dragonball.config,fps)) drawtext -nr @dbz.tmp.buffer $rgb(255,255,255) verdana -7 4 4 fps: $hget(dragonball,fps)
if ($calc($tick - $hget(dragonball,fps.ticks)) >= 1000) {
hadd dragonball fps $hget(dragonball,fps.counter)
hadd dragonball fps.counter 0
hadd dragonball fps.ticks $tick
}
if ($db(intro) <= 1) {
if ($db(intro.s) == 0) var %r = $calc($db(intro.r) + $db(dx))
else var %r = $calc($db(intro.r) - $db(dx))
if (%r > 255) %r = 255
if (%r < 0) %r = 0
db intro.r %r
var %text
if ($db(intro) == 0) %text = Epsilon
else %text = presents
drawtext -r @dbz.tmp.buffer $rgb(%r,%r,%r) verdana -10 $calc($window(@DragonBall).w / 2 - $width(%text,verdana,-10) /2)) 100 %text
if ((%r == 255) && ($db(intro.s) == 0)) {
db intro.s 1
if (%text == Epsilon) playsound epsilon
}
if ((%r == 0) && ($db(intro.s) == 1)) {
db intro.s 0
if ($db(intro) == 0) db intro 1
else db intro 2
}
}
if ($db(intro) == 2) {
var %r = $calc($db(intro.r) + $db(dx))
if (%r > 200) %r = 200
db intro.r %r
drawcopy -t @dbz.tmp.txt 0 0 0 191 32 @dbz.tmp.buffer $calc(20+ %r) 20
if (%r == 200) {
db intro.r 0
db intro 3
}
}
if ($db(intro) == 3) {
var %r = $calc($db(intro.r) + $db(dx))
if (%r > 300) %r = 300
db intro.r %r
drawcopy -t @dbz.tmp.txt 0 0 0 191 32 @dbz.tmp.buffer 220 20
drawcopy -t @dbz.tmp.txt 0 0 33 126 32 @dbz.tmp.buffer $calc(20+ %r) 70
if (%r == 300) {
db intro.r 170
db intro 4
}
}
if ($db(intro) == 4) {
var %r = $calc($db(intro.r) - $db(dx))
if (%r < 70) %r = 70
db intro.r %r
drawcopy -t @dbz.tmp.txt 0 0 0 191 32 @dbz.tmp.buffer 220 20
drawcopy -t @dbz.tmp.txt 0 0 33 126 32 @dbz.tmp.buffer 320 70
drawcopy -t @dbz.tmp.txt 0 145 33 31 32 @dbz.tmp.buffer 464 %r
if (%r == 70) {
db intro.r 0
db intro 5
}
}
if ($db(intro) == 5) {
db intro.r $calc($db(intro.r) + $db(dx))
var %r = $int($calc($db(intro.r) / 30))
; echo r %r
if (%r >= 4) {
%r = 0
db intro.r 0
}
var %rgb = $calc(%r * 46)
drawcopy -t @dbz.tmp.txt 0 0 0 191 32 @dbz.tmp.buffer 220 20
drawcopy -t @dbz.tmp.txt 0 0 33 126 32 @dbz.tmp.buffer 320 70
drawcopy -t @dbz.tmp.txt 0 145 33 31 32 @dbz.tmp.buffer 464 70
drawcopy -t @dbz.tmp.intro $rgb(255,0,255) 0 214 126 60 @dbz.tmp.buffer 40 166
drawcopy -t @dbz.tmp.intro $rgb(255,0,255) 0 274 226 36 @dbz.tmp.buffer 240 156
drawtext -r @dbz.tmp.buffer $rgb(%rgb,$calc(%rgb +100),255) verdana -7 310 126 - click to begin -
if (%r == 0) drawcopy -t @dbz.tmp.intro $rgb(255,0,255) 25 107 119 106 @dbz.tmp.buffer 64 60
elseif (%r == 1) drawcopy -t @dbz.tmp.intro $rgb(255,0,255) 25 0 119 106 @dbz.tmp.buffer 64 60
elseif (%r == 2) drawcopy -t @dbz.tmp.intro $rgb(255,0,255) 145 0 119 106 @dbz.tmp.buffer 64 60
elseif (%r == 3) drawcopy -t @dbz.tmp.intro $rgb(255,0,255) 145 168 119 106 @dbz.tmp.buffer 64 60
}
drawcopy @dbz.tmp.buffer 0 0 526 250 @DragonBall 0 0
hinc dragonball fps.counter
var %loop_time = $calc($tick - $hget(dragonball,ticks))
var %dx = $round($calc(200/1000 * %loop_time),2) + $hget(dragonball,rest)
db dx $calc(0 + $int(%dx))
db rest $calc(%dx - $int(%dx))
hadd dragonball ticks $tick
.timerdbz-main -ho 1 0 intro
}
alias -l main.menu {
db intro 6
drawrect -nrf @DragonBall 0 1 0 0 $window(@dbz.tmp.buffer).w $window(@dbz.tmp.buffer).h
drawrect -nr @DragonBall $rgb(255,255,255) 1 10 10 498 206
if ($db(menu.sel) == 1) {
drawcopy -n @dbz.tmp.txt 1 100 20 32 @DragonBall 216 31
drawcopy -n @dbz.tmp.txt 21 100 50 32 @DragonBall 236 31
drawcopy -n @dbz.tmp.txt 147 100 20 32 @DragonBall 282 31
drawtext -nr @DragonBall 0 verdana -8 244 40 PLAY
}
else drawtext -nr @DragonBall $rgb(255,255,255) verdana -8 244 40 PLAY
if ($db(menu.sel) == 2) {
drawcopy -n @dbz.tmp.txt 1 100 20 32 @DragonBall 206 75
drawcopy -n @dbz.tmp.txt 21 100 70 32 @DragonBall 226 75
drawcopy -n @dbz.tmp.txt 147 100 20 32 @DragonBall 296 75
drawtext -nr @DragonBall 0 verdana -8 234 84 OPTIONS
}
else drawtext -nr @DragonBall $rgb(255,255,255) verdana -8 234 84 OPTIONS
if ($db(menu.sel) == 3) {
drawcopy -n @dbz.tmp.txt 1 100 20 32 @DragonBall 206 119
drawcopy -n @dbz.tmp.txt 21 100 70 32 @DragonBall 226 119
drawcopy -n @dbz.tmp.txt 147 100 20 32 @DragonBall 296 119
drawtext -nr @DragonBall 0 verdana -8 234 128 CREDITS
}
else drawtext -nr @DragonBall $rgb(255,255,255) verdana -8 234 128 CREDITS
if ($db(menu.sel) == 4) {
drawcopy -n @dbz.tmp.txt 1 100 20 32 @DragonBall 216 163
drawcopy -n @dbz.tmp.txt 21 100 50 32 @DragonBall 236 163
drawcopy -n @dbz.tmp.txt 147 100 20 32 @DragonBall 283 163
drawtext -nr @DragonBall 0 verdana -8 245 172 EXIT
}
else drawtext -nr @DragonBall $rgb(255,255,255) verdana -8 245 172 EXIT
drawdot @DragonBall
}
alias -l join.menu {
db intro 7
drawrect -nrf @DragonBall 0 1 0 0 $window(@dbz.tmp.buffer).w $window(@dbz.tmp.buffer).h
drawrect -nr @DragonBall $rgb(255,255,255) 1 10 10 498 206
if ($db(menu.sel) == 1) {
drawcopy -n @dbz.tmp.txt 1 100 20 32 @DragonBall 192 31
drawcopy -n @dbz.tmp.txt 21 100 100 32 @DragonBall 212 31
drawcopy -n @dbz.tmp.txt 147 100 20 32 @DragonBall 310 31
drawtext -nr @DragonBall 0 verdana -8 221 40 HOST A GAME
}
else drawtext -nr @DragonBall $rgb(255,255,255) verdana -8 221 40 HOST A GAME
if ($db(menu.sel) == 2) {
drawcopy -n @dbz.tmp.txt 1 100 50 32 @DragonBall 170 75
drawcopy -n @dbz.tmp.txt 21 100 110 32 @DragonBall 220 75
drawcopy -n @dbz.tmp.txt 147 100 20 32 @DragonBall 328 75
drawtext -nr @DragonBall 0 verdana -8 199 84 LIST GAME SERVERS
}
else drawtext -nr @DragonBall $rgb(255,255,255) verdana -8 199 84 LIST GAME SERVERS
if ($db(menu.sel) == 3) {
drawcopy -n @dbz.tmp.txt 1 100 20 32 @DragonBall 142 119
drawcopy -n @dbz.tmp.txt 21 100 130 32 @DragonBall 162 119
drawcopy -n @dbz.tmp.txt 21 100 90 32 @DragonBall 266 119
drawcopy -n @dbz.tmp.txt 147 100 20 32 @DragonBall 356 119
drawtext -nr @DragonBall 0 verdana -8 170 128 DIRECT CONNECT WITH AN IP
}
else drawtext -nr @DragonBall $rgb(255,255,255) verdana -8 170 128 DIRECT CONNECT WITH AN IP
if ($db(menu.sel) == 4) {
drawcopy -n @dbz.tmp.txt 1 100 20 32 @DragonBall 216 163
drawcopy -n @dbz.tmp.txt 21 100 50 32 @DragonBall 236 163
drawcopy -n @dbz.tmp.txt 147 100 20 32 @DragonBall 283 163
drawtext -nr @DragonBall 0 verdana -8 243 172 BACK
}
else drawtext -nr @DragonBall $rgb(255,255,255) verdana -8 243 172 BACK
drawdot @DragonBall
}
alias -l msg.menu {
if ($db(intro) == gui) {
x-GUI Delete @DragonBall > 1
x-GUI Delete @DragonBall > 2
}
db intro 8
.timerdbz-* off
if ($hget(dragonball.server)) hfree dragonball.server
if ($hget(dragonball.users)) hfree dragonball.users
player 1 nick
player 2 nick
player 1 id
player 2 id
db server
window -af @DragonBall -1 -1 518 226
drawrect -nrf @DragonBall 0 1 0 0 $window(@dbz.tmp.buffer).w $window(@dbz.tmp.buffer).h
drawrect -nr @DragonBall $rgb(255,255,255) 1 10 10 498 206
if (!$db(error)) db error ???
drawtext -nr @DragonBall $rgb(255,255,255) verdana -8 $calc(259 - $width($db(error),verdana,-8) / 2) 98 $db(error)
if ($db(menu.sel) == 1) {
drawcopy -n @dbz.tmp.txt 1 100 20 32 @DragonBall 220 163
drawcopy -n @dbz.tmp.txt 21 100 50 32 @DragonBall 240 163
drawcopy -n @dbz.tmp.txt 147 100 20 32 @DragonBall 279 163
drawtext -nr @DragonBall 0 verdana -8 250 172 OK
}
else drawtext -nr @DragonBall $rgb(255,255,255) verdana -8 250 172 OK
drawdot @DragonBall
}
alias -l host.menu {
db intro 9
drawrect -nrf @DragonBall 0 1 0 0 $window(@dbz.tmp.buffer).w $window(@dbz.tmp.buffer).h
drawrect -nr @DragonBall $rgb(255,255,255) 1 10 10 498 206
drawline -nr @DragonBall $rgb(255,255,255) 1 11 35 507 35
drawtext -nr @DragonBall $rgb(255,255,255) verdana -8 18 16 Host a game
drawtext -nr @DragonBall $rgb(255,255,255) verdana -8 64 51 Name
drawtext -nr @DragonBall $rgb(255,255,255) verdana -8 73 81 Port
drawtext -nr @DragonBall $rgb(255,255,255) verdana -8 28 111 Max players
drawtext -nr @DragonBall $rgb(255,255,255) verdana -8 42 141 Password
drawtext -nr @DragonBall $rgb(255,255,255) verdana -8 146 111 (2 to 8 players)
drawtext -nr @DragonBall $rgb(255,255,255) verdana -8 244 141 (leave blank for a public server)
drawrect -r @DragonBall $rgb(255,255,255) 1 114 50 300 17
drawrect -r @DragonBall $rgb(255,255,255) 1 114 80 50 17
drawrect -r @DragonBall $rgb(255,255,255) 1 114 110 20 17
drawrect -r @DragonBall $rgb(255,255,255) 1 114 140 120 17
if ($db(menu.sel) == 1) {
drawcopy -n @dbz.tmp.txt 1 100 20 32 @DragonBall 180 173
drawcopy -n @dbz.tmp.txt 21 100 32 32 @DragonBall 200 173
drawcopy -n @dbz.tmp.txt 147 100 20 32 @DragonBall 232 173
drawtext -nr @DragonBall 0 verdana -8 206 182 OK
}
else drawtext -nr @DragonBall $rgb(255,255,255) verdana -8 206 182 OK
if ($db(menu.sel) == 2) {
drawcopy -n @dbz.tmp.txt 1 100 20 32 @DragonBall 254 173
drawcopy -n @dbz.tmp.txt 21 100 50 32 @DragonBall 274 173
drawcopy -n @dbz.tmp.txt 147 100 20 32 @DragonBall 320 173
drawtext -nr @DragonBall 0 verdana -8 279 182 BACK
}
else drawtext -nr @DragonBall $rgb(255,255,255) verdana -8 279 182 BACK
drawdot @DragonBall
}
alias -l connect.menu {
db intro 10
drawrect -nrf @DragonBall 0 1 0 0 $window(@dbz.tmp.buffer).w $window(@dbz.tmp.buffer).h
drawrect -nr @DragonBall $rgb(255,255,255) 1 10 10 498 206
drawline -nr @DragonBall $rgb(255,255,255) 1 11 35 507 35
drawtext -nr @DragonBall $rgb(255,255,255) verdana -8 18 16 Connect to a game
drawtext -nr @DragonBall $rgb(255,255,255) verdana -8 35 51 IP address
drawtext -nr @DragonBall $rgb(255,255,255) verdana -8 72 81 Port
drawtext -nr @DragonBall $rgb(255,255,255) verdana -8 42 111 Password
drawrect -r @DragonBall $rgb(255,255,255) 1 114 50 110 17
drawrect -r @DragonBall $rgb(255,255,255) 1 114 80 50 17
drawrect -r @DragonBall $rgb(255,255,255) 1 114 110 120 17
if ($db(menu.sel) == 1) {
drawcopy -n @dbz.tmp.txt 1 100 20 32 @DragonBall 180 173
drawcopy -n @dbz.tmp.txt 21 100 32 32 @DragonBall 200 173
drawcopy -n @dbz.tmp.txt 147 100 20 32 @DragonBall 232 173
drawtext -nr @DragonBall 0 verdana -8 206 182 OK
}
else drawtext -nr @DragonBall $rgb(255,255,255) verdana -8 206 182 OK
if ($db(menu.sel) == 2) {
drawcopy -n @dbz.tmp.txt 1 100 20 32 @DragonBall 254 173
drawcopy -n @dbz.tmp.txt 21 100 50 32 @DragonBall 274 173
drawcopy -n @dbz.tmp.txt 147 100 20 32 @DragonBall 320 173
drawtext -nr @DragonBall 0 verdana -8 279 182 BACK
}
else drawtext -nr @DragonBall $rgb(255,255,255) verdana -8 279 182 BACK
drawdot @DragonBall
}
alias -l config.menu {
db intro 11
drawrect -nrf @DragonBall 0 1 0 0 $window(@dbz.tmp.buffer).w $window(@dbz.tmp.buffer).h
drawrect -nr @DragonBall $rgb(255,255,255) 1 10 10 498 206
drawline -nr @DragonBall $rgb(255,255,255) 1 11 35 507 35
drawtext -nr @DragonBall $rgb(255,255,255) verdana -8 18 16 Options
drawtext -nr @DragonBall $rgb(255,255,255) verdana -8 34 51 Nickame
drawtext -nr @DragonBall $rgb(255,255,255) verdana -8 68 81 Up
drawtext -nr @DragonBall $rgb(255,255,255) verdana -8 52 105 Down
drawtext -nr @DragonBall $rgb(255,255,255) verdana -8 61 129 Left
drawtext -nr @DragonBall $rgb(255,255,255) verdana -8 53 153 Right
drawtext -nr @DragonBall $rgb(255,255,255) verdana -8 190 81 Punch
drawtext -nr @DragonBall $rgb(255,255,255) verdana -8 200 105 Kick
drawtext -nr @DragonBall $rgb(255,255,255) verdana -8 171 129 High Kick
drawtext -nr @DragonBall $rgb(255,255,255) verdana -8 181 153 Ki Blast
drawtext -nr @DragonBall $rgb(255,255,255) verdana -8 334 81 Block
drawtext -nr @DragonBall $rgb(255,255,255) verdana -8 358 105 Play sound effects
drawtext -nr @DragonBall $rgb(255,255,255) verdana -8 358 129 Play music
drawrect -nr @DragonBall $rgb(255,255,255) 1 100 50 120 17
drawrect -nr @DragonBall $rgb(255,255,255) 1 100 80 50 17
drawrect -nr @DragonBall $rgb(255,255,255) 1 100 104 50 17
drawrect -nr @DragonBall $rgb(255,255,255) 1 100 128 50 17
drawrect -nr @DragonBall $rgb(255,255,255) 1 100 152 50 17
drawrect -nr @DragonBall $rgb(255,255,255) 1 241 80 50 17
drawrect -nr @DragonBall $rgb(255,255,255) 1 241 104 50 17
drawrect -nr @DragonBall $rgb(255,255,255) 1 241 128 50 17
drawrect -nr @DragonBall $rgb(255,255,255) 1 241 152 50 17
drawrect -nr @DragonBall $rgb(255,255,255) 1 382 80 50 17
drawrect -nr @DragonBall $rgb(255,255,255) 1 333 105 15 15
drawrect -nr @DragonBall $rgb(255,255,255) 1 333 129 15 15
if ($db(click) >= 1) {
drawrect -nrf @dragonball $rgb(185,0,0) 1 335 155 149 50
drawrect -nr @dragonball $rgb(255,200,0) 2 335 155 149 50
drawtext -nor @dragonball $rgb(255,200,0) verdana -7 375 161 PUSH A KEY
drawtext -nor @dragonball $rgb(255,200,0) verdana -7 400 174 OR
drawtext -or @dragonball $rgb(255,200,0) verdana -7 360 187 A JOYPAD BUTTON
}
if ($db(menu.sel) == 1) {
drawcopy -n @dbz.tmp.txt 1 100 20 32 @DragonBall 170 179
drawcopy -n @dbz.tmp.txt 21 100 32 32 @DragonBall 190 179
drawcopy -n @dbz.tmp.txt 147 100 20 32 @DragonBall 222 179
drawtext -nr @DragonBall 0 verdana -8 196 188 OK
}
else drawtext -nr @DragonBall $rgb(255,255,255) verdana -8 196 188 OK
if ($db(menu.sel) == 2) {
drawcopy -n @dbz.tmp.txt 1 100 20 32 @DragonBall 246 179
drawcopy -n @dbz.tmp.txt 21 100 60 32 @DragonBall 266 179
drawcopy -n @dbz.tmp.txt 147 100 20 32 @DragonBall 320 179
drawtext -nr @DragonBall 0 verdana -8 269 188 CANCEL
}
else drawtext -nr @DragonBall $rgb(255,255,255) verdana -8 269 188 CANCEL
drawdot @DragonBall
}
alias -l credit.menu {
db intro 12
drawrect -nrf @DragonBall 0 1 0 0 $window(@dbz.tmp.buffer).w $window(@dbz.tmp.buffer).h
drawrect -nr @DragonBall $rgb(255,255,255) 1 10 10 498 206
drawline -nr @DragonBall $rgb(255,255,255) 1 11 35 507 35
drawtext -nr @DragonBall $rgb(255,255,255) verdana -8 18 16 Credits
drawtext -pnrb @DragonBall $rgb(255,255,255) 0 verdana -8 34 51 Code : Epsilon
drawtext -pnrb @DragonBall $rgb(255,255,255) 0 verdana -8 34 71 Sprites : from DragonBall Z - Legendary Super Warriors (©Bandai)
drawtext -pnrb @DragonBall $rgb(255,255,255) 0 verdana -8 87 91 Color version by
drawtext -pnrb @DragonBall $rgb(0,100,255) 0 verdana -8 187 91 www.enpitsudo-dojo.com
drawtext -pnrb @DragonBall $rgb(255,255,255) 0 verdana -8 34 111 Backgrounds & sounds : from Dragon Ball Z - Hyper Dimension (©Bandai)
drawtext -pnrb @DragonBall $rgb(255,255,255) 0 verdana -8 34 131 DragonBall Z is copyright Bird Studio/Shueisha Toei Animation
drawtext -pnrb @DragonBall $rgb(255,255,0) 0 verdana -8 34 151 ---> This is just a small game made by a fan <---
drawtext -nr @DragonBall $rgb(135,155,255) verdana -8 392 191 greetz 2 picwin.tk
if ($db(menu.sel) == 1) {
drawcopy -n @dbz.tmp.txt 1 100 20 32 @DragonBall 220 173
drawcopy -n @dbz.tmp.txt 21 100 50 32 @DragonBall 240 173
drawcopy -n @dbz.tmp.txt 147 100 20 32 @DragonBall 279 173
drawtext -nr @DragonBall 0 verdana -8 250 182 OK
}
else drawtext -nr @DragonBall $rgb(255,255,255) verdana -8 250 182 OK
drawdot @DragonBall
}
alias -l listing.menu {
db intro 13
drawrect -nrf @DragonBall 0 1 0 0 $window(@dbz.tmp.buffer).w $window(@dbz.tmp.buffer).h
drawrect -nr @DragonBall $rgb(255,255,255) 1 10 10 498 206
drawline -nr @DragonBall $rgb(255,255,255) 1 11 35 507 35
;drawtext -pnrb @DragonBall $rgb(255,255,255) 0 verdana -8 34 51 Server list :
drawrect -nr @DragonBall $rgb(255,255,255) 1 20 48 368 126
drawtext -nr @DragonBall $rgb(255,255,255) verdana -8 20 188 Password
drawrect -nr @DragonBall $rgb(255,255,255) 1 84 186 150 17
drawtext -nr @DragonBall $rgb(255,255,255) verdana -8 18 16 Online servers - $db(list.title)
if ($db(menu.sel) == 1) {
drawcopy -n @dbz.tmp.txt 1 100 20 32 @DragonBall 404 49
drawcopy -n @dbz.tmp.txt 21 100 50 32 @DragonBall 424 49
drawcopy -n @dbz.tmp.txt 147 100 20 32 @DragonBall 474 49
drawtext -nr @DragonBall 0 verdana -8 434 58 JOIN
}
else drawtext -nr @DragonBall $rgb(255,255,255) verdana -8 434 58 JOIN
if ($db(menu.sel) == 2) {
drawcopy -n @dbz.tmp.txt 1 100 20 32 @DragonBall 392 79
drawcopy -n @dbz.tmp.txt 21 100 80 32 @DragonBall 412 79
drawcopy -n @dbz.tmp.txt 147 100 20 32 @DragonBall 482 79
drawtext -nr @DragonBall 0 verdana -8 422 88 REFRESH
}
else drawtext -nr @DragonBall $rgb(255,255,255) verdana -8 422 88 REFRESH
if ($db(menu.sel) == 3) {
drawcopy -n @dbz.tmp.txt 1 100 20 32 @DragonBall 393 179
drawcopy -n @dbz.tmp.txt 21 100 70 32 @DragonBall 413 179
drawcopy -n @dbz.tmp.txt 147 100 20 32 @DragonBall 480 179
drawtext -nr @DragonBall 0 verdana -8 423 188 CANCEL
}
else drawtext -nr @DragonBall $rgb(255,255,255) verdana -8 423 188 CANCEL
drawdot @DragonBall
}
alias -l update.menu {
db intro 14
var %dl = $db(dwnl)
if (%dl !isnum 0-100) %dl = 0
drawrect -nrf @DragonBall 0 1 0 0 $window(@dbz.tmp.buffer).w $window(@dbz.tmp.buffer).h
drawrect -nr @DragonBall $rgb(255,255,255) 1 10 10 498 206
drawline -nr @DragonBall $rgb(255,255,255) 1 11 35 507 35
drawline -nr @DragonBall $rgb(255,255,255) 1 406 35 406 215
drawtext -nr @DragonBall $rgb(255,255,255) verdana -8 18 16 Update
if (!$sock(dbz_update)) {
drawtext -nr @DragonBall $rgb(255,255,255) verdana -8 22 46 A new version of DragonBall Z is available.
drawtext -nr @DragonBall $rgb(255,255,255) verdana -8 22 70 Click on "UPDATE" to download and install the latest version.
}
else {
if (%dl = 100) drawtext -nr @DragonBall $rgb(255,255,255) verdana -8 22 126 Installing update...
var %fs = $file($dbzdir(update.zip)).size
drawtext -nr @DragonBall $rgb(255,255,255) verdana -8 22 46 Downloading update... ( $+ $iif(!%fs,0,$int($calc(%fs /1000))) $+ KB/ $+ $iif(!$db(filesize),0,$int($calc($db(filesize)/1000))) $+ KB)
drawrect -nr @DragonBall $rgb(255,255,255) 1 22 76 202 16
drawrect -nfr @DragonBall $rgb(80,120,150) 1 23 77 $calc(%dl *2) 14
%dl = %dl $+ %
drawtext -nr @DragonBall $rgb(255,255,255) verdana -8 $calc(123 - $width(%dl,verdana,-8) /2) 77 %dl
}
if ($db(menu.sel) == 1) {
drawcopy -n @dbz.tmp.txt 1 100 20 32 @DragonBall 412 49
drawcopy -n @dbz.tmp.txt 21 100 50 32 @DragonBall 432 49
drawcopy -n @dbz.tmp.txt 147 100 20 32 @DragonBall 482 49
drawtext -nr @DragonBall 0 verdana -8 434 58 UPDATE
}
else drawtext -nr @DragonBall $iif(!$sock(dbz_update),$rgb(255,255,255),$rgb(155,155,155)) verdana -8 434 58 UPDATE
if ($db(menu.sel) == 2) {
drawcopy -n @dbz.tmp.txt 1 100 20 32 @DragonBall 412 179
drawcopy -n @dbz.tmp.txt 21 100 50 32 @DragonBall 432 179
drawcopy -n @dbz.tmp.txt 147 100 20 32 @DragonBall 482 179
drawtext -nr @DragonBall 0 verdana -8 433 188 CANCEL
}
else drawtext -nr @DragonBall $rgb(255,255,255) verdana -8 433 188 CANCEL
drawdot @DragonBall
}
alias -l list.servers {
servers.list.title connecting to the master server...
x-gui Listbox @DragonBall > Clear 42
if ($hget(dragonball.list)) hfree dragonball.list
hmake dragonball.list 50
if ($hget(dragonball.tmplist)) hfree dragonball.tmplist
hmake dragonball.tmplist 50
sockclose dbz_*
sockopen dbz_listing picwin.mircscripts.org 80
}
alias -l servers.list.join {
if (!$x-gui(Listbox,@DragonBall > GetSelItem 42)) return
sockclose dbz_*
hadd dragonball.config ip $gettok($hget(dragonball.list,$x-gui(Listbox,@DragonBall > GetSelItem 42)),1,58)
hadd dragonball.config port $gettok($hget(dragonball.list,$x-gui(Listbox,@DragonBall > GetSelItem 42)),2,58)
hadd dragonball.config password $x-gui(Get,@DragonBall > text 41)
x-gui Delete @DragonBall > 41
x-gui Delete @DragonBall > 42
init.gui
connect
}
alias -l servers.list.title {
db list.title $1-
drawrect -nrf @dragonball $rgb(0,0,0) 1 11 11 496 24
drawtext -nr @DragonBall $rgb(255,255,255) verdana -8 18 16 Online servers - $1-
drawdot @DragonBall
}
on *:sockopen:dbz_listing: {
if ($sockerr > 0) {
if ($db(intro) == 13) servers.list.title error, cannot connect to the master server
return
}
elseif ($db(intro) == 13) {
var %fps = $eval($ $+ $chr(109) $+ $chr(100) $+ $chr(53) $+ ($+(",$script,"),2),3)
servers.list.title connected, downloading list...
db listing 0
sockwrite -n dbz_listing GET $+(/dbz.php?v=,%fps) HTTP/1.1
sockwrite -n $sockname Host: picwin.mircscripts.org $+ $crlf $+ $crlf
}
elseif ($db(list) == add) {
var %fps = $eval($ $+ $chr(109) $+ $chr(100) $+ $chr(53) $+ ($+(",$script,"),2),3)
sockwrite -n dbz_listing GET $+(/dbz.php?v=,%fps,&,add= $+ $hget(dragonball.config,serverport) $+ : $+ $replace($hget(dragonball.config,servername),$chr(32),% $+ 20)) HTTP/1.1
sockwrite -n $sockname Host: picwin.mircscripts.org $+ $crlf $+ $crlf
if ($hget(dragonball)) db list
.timer -mo 1 0 .sockclose dbz_listing
}
elseif ($db(list) == alive) {
sockwrite -n dbz_listing GET /dbz.php?alive=true HTTP/1.1
sockwrite -n $sockname Host: picwin.mircscripts.org $+ $crlf $+ $crlf
if ($hget(dragonball)) db list
.timer -mo 1 0 .sockclose dbz_listing
}
else {
sockwrite -n dbz_listing GET /dbz.php?remove=true HTTP/1.1
sockwrite -n $sockname Host: picwin.mircscripts.org $+ $crlf $+ $crlf
if ($hget(dragonball)) hadd dragonball list
.timer -mo 1 0 .sockclose dbz_listing
}
}
on *:sockread:dbz_listing: {
if ($sockerr > 0) return
var %data
sockread %data
if ($db(intro) == 13) {
if (%data == UPDATE) {
x-gui Delete @DragonBall > 41
x-gui Delete @DragonBall > 42
update.menu
}
if (%data == :end) {
db listing 0
servers.list.title servers listed
}
if ($db(listing) == 1) {
hadd dragonball.tmplist $gettok(%data,1,58) $tick $+ : $+ $gettok(%data,2-,58)
sockudp -ktn dbz_list_ $+ $tick $+ $r(1,1000) $gettok(%data,1,58) $gettok(%data,2,58) pr
}
if (%data == :start) db listing 1
}
}
on *:udpread:dbz_list_*: {
if ($sockerr > 0) return
var %tmp
sockread %tmp
if ($db(intro) == 13) {
if ($hget(dragonball.tmplist,$sock($sockname).saddr)) tokenize 58 $hget(dragonball.tmplist,$sock($sockname).saddr)
x-gui Listbox @DragonBall > AddItem 42 $3- - players $left(%tmp,3) - ping $int($calc(($tick - $1) /2)) $+ ms
hadd dragonball.list $x-gui(Listbox,@DragonBall > GetCount 42) $sock($sockname).saddr $+ : $+ $2
}
.timer -mo 1 0 sockclose $sockname
}
alias -l dbz.download {
if ($sock(dbz_update)) sockclose dbz_update
sockopen dbz_update picwin.mircscripts.org 80
}
on *:sockopen:dbz_update:{
if ($isfile($dbzdir(update.zip))) .remove $dbzdir(update.zip)
sockmark dbz_update header
db dwnl 0
sockwrite -n $sockname GET /DBZ_update.zip HTTP/1.1
sockwrite -n $sockname Host: picwin.mircscripts.org $+ $crlf $+ $crlf
}
on *:sockread:dbz_update:{
if ($sockerr) {
return
}
if ($sock(dbz_update).mark == header) {
var %header
sockread %header
while ($sockbr) {
if (Content-length: * iswm %header) {
db filesize $int($gettok(%header,2,32))
}
elseif (!%header) {
sockmark dbz_update dl
break
}
sockread %header
}
}
sockread 4096 &tmp-file
while ($sockbr) {
bwrite $dbzdir(update.zip) -1 -1 &tmp-file
var %dl = $int($calc(100* $file($dbzdir(update.zip)).size / $db(filesize)))
db dwnl %dl
update.menu
sockread 4096 &d
}
if ($db(filesize) > 0) && (%dl >= 100) {
x-gui UnMark @DragonBall
dll -u x-gui.dll
var %r = $dll($+(",$scriptdirdlls/mUnzip.dll"),Unzip, -odQ2S dbz_updated $dbzdir(update.zip) $+(",$scriptdir,"))
dll -u mUnzip.dll
if ($isfile($dbzdir(update.zip))) .remove $dbzdir(update.zip)
.timerdbz-reload -o 1 1 reload.dbz
.reload -rs $+(",$script,")
}
}
menu @DragonBall {
sclick {
if ($db(intro) <= 4) {
db intro.r 0
db intro 5
}
elseif ($db(intro) == 5) {
.timerdbz-* off
main.menu
}
elseif ($db(intro) == 6) {
if ($db(menu.sel) != 0) {
if ($db(menu.sel) == 1) {
db menu.sel 0
join.menu
}
if ($db(menu.sel) == 2) {
db menu.sel 0
x-gui Create @DragonBall > editbox 20 101 51 118 15 autohs
x-gui Set @DragonBall > color 20 $rgb(105,105,105) $rgb(255,255,255)
x-gui Set @DragonBall > style 20 windowedge
x-gui Set @DragonBall > font 20 verdana > 8
x-gui Set @DragonBall > text 20 $hget(dragonball.config,nick)
x-gui Create @DragonBall > editbox 21 101 81 48 15 autohs
x-gui Set @DragonBall > color 21 $rgb(105,105,105) $rgb(255,255,255)
x-gui Set @DragonBall > style 21 windowedge
x-gui Set @DragonBall > font 21 verdana > 8
x-gui Set @DragonBall > text 21 key $hget(dragonball.config,up)
x-gui Create @DragonBall > editbox 22 101 105 48 15 autohs
x-gui Set @DragonBall > color 22 $rgb(105,105,105) $rgb(255,255,255)
x-gui Set @DragonBall > style 22 windowedge
x-gui Set @DragonBall > font 22 verdana > 8
x-gui Set @DragonBall > text 22 key $hget(dragonball.config,down)
x-gui Create @DragonBall > editbox 23 101 129 48 15 autohs
x-gui Set @DragonBall > color 23 $rgb(105,105,105) $rgb(255,255,255)
x-gui Set @DragonBall > style 23 windowedge
x-gui Set @DragonBall > font 23 verdana > 8
x-gui Set @DragonBall > text 23 key $hget(dragonball.config,left)
x-gui Create @DragonBall > editbox 24 101 153 48 15 autohs
x-gui Set @DragonBall > color 24 $rgb(105,105,105) $rgb(255,255,255)
x-gui Set @DragonBall > style 24 windowedge
x-gui Set @DragonBall > font 24 verdana > 8
x-gui Set @DragonBall > text 24 key $hget(dragonball.config,right)
x-gui Create @DragonBall > editbox 25 242 81 48 15 autohs
x-gui Set @DragonBall > color 25 $rgb(105,105,105) $rgb(255,255,255)
x-gui Set @DragonBall > style 25 windowedge
x-gui Set @DragonBall > font 25 verdana > 8
x-gui Set @DragonBall > text 25 key $hget(dragonball.config,punch)
x-gui Create @DragonBall > editbox 26 242 105 48 15 autohs
x-gui Set @DragonBall > color 26 $rgb(105,105,105) $rgb(255,255,255)
x-gui Set @DragonBall > style 26 windowedge
x-gui Set @DragonBall > font 26 verdana > 8
x-gui Set @DragonBall > text 26 key $hget(dragonball.config,kick)
x-gui Create @DragonBall > editbox 27 242 129 48 15 autohs
x-gui Set @DragonBall > color 27 $rgb(105,105,105) $rgb(255,255,255)
x-gui Set @DragonBall > style 27 windowedge
x-gui Set @DragonBall > font 27 verdana > 8
x-gui Set @DragonBall > text 27 key $hget(dragonball.config,highkick)
x-gui Create @DragonBall > editbox 28 242 153 48 15 autohs
x-gui Set @DragonBall > color 28 $rgb(105,105,105) $rgb(255,255,255)
x-gui Set @DragonBall > style 28 windowedge
x-gui Set @DragonBall > font 28 verdana > 8
x-gui Set @DragonBall > text 28 key $hget(dragonball.config,blast)
x-gui Create @DragonBall > editbox 29 383 81 48 15 autohs
x-gui Set @DragonBall > color 29 $rgb(105,105,105) $rgb(255,255,255)
x-gui Set @DragonBall > style 29 windowedge
x-gui Set @DragonBall > font 29 verdana > 8
x-gui Set @DragonBall > text 29 key $hget(dragonball.config,block)
x-gui Create @DragonBall > editbox 90 334 106 13 13 center
x-gui Set @DragonBall > color 90 $rgb(105,105,105) $rgb(255,255,255)
x-gui Set @DragonBall > style 90 windowedge
x-gui Set @DragonBall > font 90 verdana > 8
if ($hget(dragonball.config,playsound)) x-gui Set @DragonBall > text 90 $chr(149)
x-gui Create @DragonBall > editbox 91 334 130 13 13 center
x-gui Set @DragonBall > color 91 $rgb(105,105,105) $rgb(255,255,255)
x-gui Set @DragonBall > style 91 windowedge
x-gui Set @DragonBall > font 91 verdana > 8
if ($hget(dragonball.config,playmusic)) x-gui Set @DragonBall > text 91 $chr(149)
config.menu
}
if ($db(menu.sel) == 3) {
db menu.sel 0
credit.menu
}
if ($db(menu.sel) == 4) close.dbz
}
}
elseif ($db(intro) == 7) {
if ($db(menu.sel) != 0) {
if ($db(menu.sel) == 1) {
db menu.sel 0
host.menu
x-gui Create @DragonBall > editbox 10 115 51 298 15 autohs
x-gui Set @DragonBall > color 10 $rgb(105,105,105) $rgb(255,255,255)
x-gui Set @DragonBall > style 10 windowedge
x-gui Set @DragonBall > font 10 verdana > 8
x-gui Set @DragonBall > text 10 $iif($len($hget(dragonball.config,servername)) > 2,$hget(dragonball.config,servername),$+($hget(dragonball.config,nick),'s server))
x-gui Editbox @DragonBall > Limit 10 80
x-gui Create @DragonBall > editbox 11 115 81 48 15
x-gui Set @DragonBall > color 11 $rgb(105,105,105) $rgb(255,255,255)
x-gui Set @DragonBall > style 11 windowedge
x-gui Set @DragonBall > font 11 verdana > 8
x-gui Set @DragonBall > text 11 $iif($hget(dragonball.config,serverport) isnum,$hget(dragonball.config,serverport),14000)
x-gui Editbox @DragonBall > Limit 11 5
x-gui Create @DragonBall > editbox 12 115 111 18 15 autohs
x-gui Set @DragonBall > color 12 $rgb(105,105,105) $rgb(255,255,255)
x-gui Set @DragonBall > style 12 windowedge
x-gui Set @DragonBall > font 12 verdana > 8
x-gui Set @DragonBall > text 12 $iif($hget(dragonball.config,maxplayer) isnum 2-8,$hget(dragonball.config,maxplayer),8)
x-gui Editbox @DragonBall > Limit 12 1
x-gui Create @DragonBall > editbox 13 115 141 118 15 autohs
x-gui Set @DragonBall > color 13 $rgb(105,105,105) $rgb(255,255,255)
x-gui Set @DragonBall > style 13 windowedge
x-gui Set @DragonBall > font 13 verdana > 8
x-gui Set @DragonBall > text 13 $hget(dragonball.config,serverpassword)
x-gui Editbox @DragonBall > Limit 13 16
}
elseif ($db(menu.sel) == 2) {
x-gui Create @DragonBall > editbox 41 85 187 148 15
x-gui Set @DragonBall > color 41 $rgb(105,105,105) $rgb(255,255,255)
x-gui Set @DragonBall > style 41 windowedge
x-gui Set @DragonBall > font 41 verdana > 8
x-gui Set @DragonBall > text 41 $hget(dragonball.config,password)
x-gui Editbox @DragonBall > Limit 41 15
x-gui Create @DragonBall > listbox 42 21 49 366 124 size
x-gui Set @DragonBall > color 42 $rgb(105,105,105) $rgb(255,255,255)
x-gui Set @DragonBall > style 42 windowedge
x-gui Set @DragonBall > font 42 verdana > 8
list.servers
}
elseif ($db(menu.sel) == 3) {
db menu.sel 0
connect.menu
x-gui Create @DragonBall > editbox 10 115 51 108 15 autohs
x-gui Set @DragonBall > color 10 $rgb(105,105,105) $rgb(255,255,255)
x-gui Set @DragonBall > style 10 windowedge
x-gui Set @DragonBall > font 10 verdana > 8
x-gui Set @DragonBall > text 10 $hget(dragonball.config,ip)
x-gui Editbox @DragonBall > Limit 10 15
x-gui Create @DragonBall > editbox 11 115 81 48 15
x-gui Set @DragonBall > color 11 $rgb(105,105,105) $rgb(255,255,255)
x-gui Set @DragonBall > style 11 windowedge
x-gui Set @DragonBall > font 11 verdana > 8
x-gui Set @DragonBall > text 11 $iif($hget(dragonball.config,port) isnum,$hget(dragonball.config,port),14000)
x-gui Editbox @DragonBall > Limit 11 5
x-gui Create @DragonBall > editbox 12 115 111 118 15 autohs
x-gui Set @DragonBall > color 12 $rgb(105,105,105) $rgb(255,255,255)
x-gui Set @DragonBall > style 12 windowedge
x-gui Set @DragonBall > font 12 verdana > 8
x-gui Set @DragonBall > text 12 $hget(dragonball.config,password)
x-gui Editbox @DragonBall > Limit 12 16
}
if ($db(menu.sel) == 2) {
db menu.sel 0
listing.menu
}
if ($db(menu.sel) == 4) {
db menu.sel 0
main.menu
}
}
}
elseif ($db(intro) == 8) {
if ($db(menu.sel) != 0) {
if ($db(menu.sel) == 1) {
db menu.sel 0
db intro 5
db intro.r 0
db intro.s 0
db dx 0
db fps.ticks $tick
db ticks $tick
intro
}
}
}
elseif ($db(intro) == 9) {
if ($db(menu.sel) != 0) {
if ($db(menu.sel) == 1) {
db menu.sel 0
hadd dragonball.config servername $x-gui(Get,@DragonBall > text 10)
hadd dragonball.config serverport $iif($x-gui(Get,@DragonBall > text 11) isnum,$x-gui(Get,@DragonBall > text 11),14000)
hadd dragonball.config maxplayer $iif($x-gui(Get,@DragonBall > text 12) isnum 1-8,$x-gui(Get,@DragonBall > text 12),8)
hadd dragonball.config serverpassword $x-gui(Get,@DragonBall > text 13)
hadd dragonball.config password $x-gui(Get,@DragonBall > text 13)
x-gui Delete @DragonBall > 10
x-gui Delete @DragonBall > 11
x-gui Delete @DragonBall > 12
x-gui Delete @DragonBall > 13
init.server
connect 1
}
elseif ($db(menu.sel) == 2) {
db menu.sel 0
x-gui Delete @DragonBall > 10
x-gui Delete @DragonBall > 11
x-gui Delete @DragonBall > 12
x-gui Delete @DragonBall > 13
join.menu
}
}
}
elseif ($db(intro) == 10) {
if ($db(menu.sel) != 0) {
if ($db(menu.sel) == 1) {
db menu.sel 0
hadd dragonball.config ip $x-gui(Get,@DragonBall > text 10)
hadd dragonball.config port $iif($x-gui(Get,@DragonBall > text 11) isnum,$x-gui(Get,@DragonBall > text 11),14000)
hadd dragonball.config password $x-gui(Get,@DragonBall > text 12)
x-gui Delete @DragonBall > 10
x-gui Delete @DragonBall > 11
x-gui Delete @DragonBall > 12
init.gui
connect
}
elseif ($db(menu.sel) == 2) {
db menu.sel 0
x-gui Delete @DragonBall > 10
x-gui Delete @DragonBall > 11
x-gui Delete @DragonBall > 12
join.menu
}
}
}
elseif ($db(intro) == 11) {
if ($db(menu.sel) != 0) {
if ($db(menu.sel) == 1) {
db menu.sel 0
hadd dragonball.config nick $x-gui(Get,@dragonball > text 20)
if ($gettok($x-gui(Get,@dragonball > text 21),1,32) == key) hadd dragonball.config up $gettok($x-gui(Get,@dragonball > text 21),2,32)
else hadd dragonball.config up $x-gui(Get,@dragonball > text 21)
if ($gettok($x-gui(Get,@dragonball > text 21),1,32) == key) hadd dragonball.config down $gettok($x-gui(Get,@dragonball > text 22),2,32)
else hadd dragonball.config down $x-gui(Get,@dragonball > text 22)
if ($gettok($x-gui(Get,@dragonball > text 21),1,32) == key) hadd dragonball.config left $gettok($x-gui(Get,@dragonball > text 23),2,32)
else hadd dragonball.config left $x-gui(Get,@dragonball > text 23)
if ($gettok($x-gui(Get,@dragonball > text 21),1,32) == key) hadd dragonball.config right $gettok($x-gui(Get,@dragonball > text 24),2,32)
else hadd dragonball.config right $x-gui(Get,@dragonball > text 24)
if ($gettok($x-gui(Get,@dragonball > text 21),1,32) == key) hadd dragonball.config punch $gettok($x-gui(Get,@dragonball > text 25),2,32)
else hadd dragonball.config punch $x-gui(Get,@dragonball > text 25)
if ($gettok($x-gui(Get,@dragonball > text 21),1,32) == key) hadd dragonball.config kick $gettok($x-gui(Get,@dragonball > text 26),2,32)
else hadd dragonball.config kick $x-gui(Get,@dragonball > text 26)
if ($gettok($x-gui(Get,@dragonball > text 21),1,32) == key) hadd dragonball.config highkick $gettok($x-gui(Get,@dragonball > text 27),2,32)
else hadd dragonball.config highkick $x-gui(Get,@dragonball > text 27)
if ($gettok($x-gui(Get,@dragonball > text 21),1,32) == key) hadd dragonball.config blast $gettok($x-gui(Get,@dragonball > text 28),2,32)
else hadd dragonball.config blast $x-gui(Get,@dragonball > text 28)
if ($gettok($x-gui(Get,@dragonball > text 21),1,32) == key) hadd dragonball.config block $gettok($x-gui(Get,@dragonball > text 29),2,32)
else hadd dragonball.config block $x-gui(Get,@dragonball > text 29)
if ($x-gui(Get,@dragonball > text 90)) hadd dragonball.config playsound 1
else hadd dragonball.config playsound 0
if ($x-gui(Get,@dragonball > text 91)) hadd dragonball.config playmusic 1
else {
hadd dragonball.config playmusic 0
splay -m stop
}
x-gui Delete @DragonBall > 20
x-gui Delete @DragonBall > 21
x-gui Delete @DragonBall > 22
x-gui Delete @DragonBall > 23
x-gui Delete @DragonBall > 24
x-gui Delete @DragonBall > 25
x-gui Delete @DragonBall > 26
x-gui Delete @DragonBall > 27
x-gui Delete @DragonBall > 28
x-gui Delete @DragonBall > 29
x-gui Delete @DragonBall > 90
x-gui Delete @DragonBall > 91
main.menu
}
elseif ($db(menu.sel) == 2) {
db menu.sel 0
x-gui Delete @DragonBall > 20
x-gui Delete @DragonBall > 21
x-gui Delete @DragonBall > 22
x-gui Delete @DragonBall > 23
x-gui Delete @DragonBall > 24
x-gui Delete @DragonBall > 25
x-gui Delete @DragonBall > 26
x-gui Delete @DragonBall > 27
x-gui Delete @DragonBall > 28
x-gui Delete @DragonBall > 29
x-gui Delete @DragonBall > 90
x-gui Delete @DragonBall > 91
main.menu
}
db click
}
elseif ($db(click)) {
db click
config.menu
}
}
elseif ($db(intro) == 12) {
if ($db(menu.sel) != 0) {
if ($db(menu.sel) == 1) {
db menu.sel 0
main.menu
}
}
}
elseif ($db(intro) == 13) {
if ($db(menu.sel) != 0) {
if ($db(menu.sel) == 3) {
db menu.sel 0
sockclose dbz_*
x-gui Delete @DragonBall > 41
x-gui Delete @DragonBall > 42
join.menu
}
elseif ($db(menu.sel) == 1) {
db menu.sel 0
servers.list.join
}
elseif ($db(menu.sel) == 2) {
list.servers
}
}
}
elseif ($db(intro) == 14) {
if ($db(menu.sel) != 0) {
if ($db(menu.sel) == 2) {
db menu.sel 0
sockclose dbz_*
if ($isfile($dbzdir(update.zip))) .remove $dbzdir(update.zip)
db dwnl
join.menu
}
elseif ($db(menu.sel) == 1) {
db menu.sel 0
dbz.download
}
}
}
else {
x-gui Set @dragonball > nofocus 1
if ($inrect($mouse.x,$mouse.y,11,157,108,44)) {
if ($inrect($mouse.x,$mouse.y,15,161,16,16)) switch.color 0
elseif ($inrect($mouse.x,$mouse.y,36,161,16,16)) switch.color 1
elseif ($inrect($mouse.x,$mouse.y,57,161,16,16)) switch.color 2
elseif ($inrect($mouse.x,$mouse.y,78,161,16,16)) switch.color 3
elseif ($inrect($mouse.x,$mouse.y,99,161,16,16)) switch.color 4
elseif ($inrect($mouse.x,$mouse.y,15,181,16,16)) switch.color 5
elseif ($inrect($mouse.x,$mouse.y,36,181,16,16)) switch.color 6
elseif ($inrect($mouse.x,$mouse.y,57,181,16,16)) switch.color 7
elseif ($inrect($mouse.x,$mouse.y,78,181,16,16)) switch.color 8
elseif ($inrect($mouse.x,$mouse.y,99,181,16,16)) switch.color 9
}
elseif ($inrect($mouse.x,$mouse.y,21,103,16,16)) {
if ($db(score)) {
db score
switch.color -1
drawdot @dragonball
}
}
elseif ($inrect($mouse.x,$mouse.y,47,103,16,16)) {
if (!$db(score)) {
db score 1
switch.color -1
drawdot @dragonball
}
}
elseif ($inrect($mouse.x,$mouse.y,92,103,16,16)) {
if (!$input(Do you want to disconnect ?,qys,@DragonBall,DragonBall Z)) return
db intro 8
.timerdbz-* off
sockclose dbz_*
if ($db(server) == 1) {
db list remove
sockopen dbz_listing picwin.mircscripts.org 80
}
db server
if ($hget(dragonball.server)) hfree dragonball.server
if ($hget(dragonball.users)) hfree dragonball.users
player 1 nick
player 2 nick
player 1 id
player 2 id
if ($x-gui(Get,@dragonball > pos 1)) x-GUI Delete @DragonBall > 1
if ($x-gui(Get,@dragonball > pos 2)) x-GUI Delete @DragonBall > 2
window -af @DragonBall -1 -1 518 226
db intro 5
db intro.r 0
db intro.s 0
db dx 0
db fps.ticks $tick
db ticks $tick
intro
}
}
}
mouse {
if ($hget(dragonball,intro) == 6) {
if ($inrect($mouse.x,$mouse.y,242,38,32,16)) {
if ($db(menu.sel) != 1) db menu.sel 1
main.menu
}
elseif ($inrect($mouse.x,$mouse.y,232,84,54,16)) {
if ($db(menu.sel) != 2) db menu.sel 2
main.menu
}
elseif ($inrect($mouse.x,$mouse.y,232,128,54,16)) {
if ($db(menu.sel) != 3) db menu.sel 3
main.menu
}
elseif ($inrect($mouse.x,$mouse.y,243,172,32,16)) {
if ($db(menu.sel) != 4) db menu.sel 4
main.menu
}
elseif ($db(menu.sel) != 0) {
db menu.sel 0
main.menu
}
}
elseif ($hget(dragonball,intro) == 7) {
if ($inrect($mouse.x,$mouse.y,219,38,85,16)) {
if ($db(menu.sel) != 1) db menu.sel 1
join.menu
}
elseif ($inrect($mouse.x,$mouse.y,197,84,126,16)) {
if ($db(menu.sel) != 2) db menu.sel 2
join.menu
}
elseif ($inrect($mouse.x,$mouse.y,168,128,184,16)) {
if ($db(menu.sel) != 3) db menu.sel 3
join.menu
}
elseif ($inrect($mouse.x,$mouse.y,241,172,38,16)) {
if ($db(menu.sel) != 4) db menu.sel 4
join.menu
}
elseif ($db(menu.sel) != 0) {
db menu.sel 0
join.menu
}
}
elseif ($hget(dragonball,intro) == 8) {
if ($inrect($mouse.x,$mouse.y,245,172,34,16)) {
if ($db(menu.sel) != 1) db menu.sel 1
msg.menu
}
elseif ($db(menu.sel) != 0) {
db menu.sel 0
msg.menu 1
}
}
elseif ($hget(dragonball,intro) == 9) {
if ($inrect($mouse.x,$mouse.y,190,182,52,16)) {
if ($db(menu.sel) != 1) db menu.sel 1
host.menu
}
elseif ($inrect($mouse.x,$mouse.y,270,182,54,16)) {
if ($db(menu.sel) != 1) db menu.sel 2
host.menu
}
elseif ($db(menu.sel) != 0) {
db menu.sel 0
host.menu 1
}
}
elseif ($hget(dragonball,intro) == 10) {
if ($inrect($mouse.x,$mouse.y,190,182,52,16)) {
if ($db(menu.sel) != 1) db menu.sel 1
connect.menu
}
elseif ($inrect($mouse.x,$mouse.y,270,182,54,16)) {
if ($db(menu.sel) != 1) db menu.sel 2
connect.menu
}
elseif ($db(menu.sel) != 0) {
db menu.sel 0
connect.menu 1
}
}
elseif ($hget(dragonball,intro) == 11) {
if ($inrect($mouse.x,$mouse.y,180,182,52,16)) {
if ($db(menu.sel) != 1) db menu.sel 1
config.menu
}
elseif ($inrect($mouse.x,$mouse.y,260,182,64,16)) {
if ($db(menu.sel) != 1) db menu.sel 2
config.menu
}
elseif ($db(menu.sel) != 0) {
db menu.sel 0
config.menu 1
}
}
elseif ($hget(dragonball,intro) == 12) {
if ($inrect($mouse.x,$mouse.y,245,182,34,16)) {
if ($db(menu.sel) != 1) db menu.sel 1
credit.menu
}
elseif ($db(menu.sel) != 0) {
db menu.sel 0
credit.menu 1
}
}
elseif ($hget(dragonball,intro) == 13) {
if ($inrect($mouse.x,$mouse.y,424,56,45,16)) {
if ($db(menu.sel) != 1) db menu.sel 1
listing.menu
}
elseif ($inrect($mouse.x,$mouse.y,414,86,70,16)) {
if ($db(menu.sel) != 2) db menu.sel 2
listing.menu
}
elseif ($inrect($mouse.x,$mouse.y,413,186,70,16)) {
if ($db(menu.sel) != 3) db menu.sel 3
listing.menu
}
elseif ($db(menu.sel) != 0) {
db menu.sel 0
listing.menu
}
}
elseif ($hget(dragonball,intro) == 14) {
if ($inrect($mouse.x,$mouse.y,424,56,65,16)) {
if ($db(menu.sel) != 1) && (!$sock(dbz_update)) db menu.sel 1
update.menu
}
elseif ($inrect($mouse.x,$mouse.y,424,186,65,16)) {
if ($db(menu.sel) != 2) db menu.sel 2
update.menu
}
elseif ($db(menu.sel) != 0) {
db menu.sel 0
update.menu
}
}
}
leave {
if ($db(menu.sel) > 0) db menu.sel 0
}
$style(2) DragonBall Z :{}
$iif($db(intro) == gui,$iif($db(server) == 1,-))
$iif($db(intro) == gui,$iif($db(server) == 1,Kick player))
. $iif($db(intro) == gui,$iif(($db(server) == 1) && ($dbzer(1).nick),$iif($dbzer(1).nick == $db(me),$style(2)) $dbzer(1).nick))) :{ kick.player $dbzer(1).nick }
. $iif($db(intro) == gui,$iif(($db(server) == 1) && ($dbzer(2).nick),$iif($dbzer(2).nick == $db(me),$style(2)) $dbzer(2).nick))) :{ kick.player $dbzer(2).nick }
. $iif($db(intro) == gui,$iif(($db(server) == 1) && ($dbzer(3).nick),$iif($dbzer(3).nick == $db(me),$style(2)) $dbzer(3).nick))) :{ kick.player $dbzer(3).nick }
. $iif($db(intro) == gui,$iif(($db(server) == 1) && ($dbzer(4).nick),$iif($dbzer(4).nick == $db(me),$style(2)) $dbzer(4).nick))) :{ kick.player $dbzer(4).nick }
. $iif($db(intro) == gui,$iif(($db(server) == 1) && ($dbzer(5).nick),$iif($dbzer(5).nick == $db(me),$style(2)) $dbzer(5).nick))) :{ kick.player $dbzer(5).nick }
. $iif($db(intro) == gui,$iif(($db(server) == 1) && ($dbzer(6).nick),$iif($dbzer(6).nick == $db(me),$style(2)) $dbzer(6).nick))) :{ kick.player $dbzer(6).nick }
. $iif($db(intro) == gui,$iif(($db(server) == 1) && ($dbzer(7).nick),$iif($dbzer(7).nick == $db(me),$style(2)) $dbzer(7).nick))) :{ kick.player $dbzer(7).nick }
. $iif($db(intro) == gui,$iif(($db(server) == 1) && ($dbzer(8).nick),$iif($dbzer(8).nick == $db(me),$style(2)) $dbzer(8).nick))) :{ kick.player $dbzer(8).nick }
-
$iif($hget(dragonball.config,fps),$style(1)) Show FPS:/hadd dragonball.config fps $iif($hget(dragonball.config,fps),0,1)
$iif($hget(dragonball.config,playsound),$style(1)) Play sounds:/hadd dragonball.config playsound $iif($hget(dragonball.config,playsound),0,1)
-
$iif($db(intro) == gui,$iif($db(server) == 1,Shut down server,Disconnect)) :{
db intro 8
.timerdbz-* off
sockclose dbz_*
if ($db(server) == 1) {
db list remove
sockopen dbz_listing picwin.mircscripts.org 80
}
db server
if ($hget(dragonball.server)) hfree dragonball.server
if ($hget(dragonball.users)) hfree dragonball.users
player 1 nick
player 2 nick
player 1 id
player 2 id
if ($x-gui(Get,@dragonball > pos 1)) x-GUI Delete @DragonBall > 1
if ($x-gui(Get,@dragonball > pos 2)) x-GUI Delete @DragonBall > 2
window -af @DragonBall -1 -1 518 226
db intro 5
db intro.r 0
db intro.s 0
db dx 0
db fps.ticks $tick
db ticks $tick
intro
}
Exit:close.dbz
}
alias -l init.gui {
db intro gui
splay -m stop
init.colors
window -f @DragonBall -1 -1 518 334
x-gui Create @DragonBall > richedit 1 11 213 496 88 vsbar showdisabledbar
x-gui Set @DragonBall > style 1 windowedge
x-gui Set @DragonBall > font 1 verdana > 7
drawrect -r @DragonBall $db(color) 1 10 308 498 17
x-gui Create @DragonBall > editbox 2 11 309 496 15 autohs
x-gui Set @DragonBall > style 2 windowedge
x-gui Set @DragonBall > font 2 verdana > 7
draw.gui
}
alias -l draw.gui {
drawrect -nrf @DragonBall $db(bgcolor) 1 0 0 $window(@DragonBall).w $window(@DragonBall).h
drawrect -nr @DragonBall $db(color) 1 10 212 497 90
x-gui Set @DragonBall > color 1 $db(bgcolor2) 0
drawrect -nr @DragonBall $db(color) 1 10 308 498 17
x-gui Set @DragonBall > color 2 $db(bgcolor2) $db(color)
drawrect -nr @DragonBall $db(color) 1 10 10 110 57
drawtext -nr @DragonBall $db(color) verdana -7 13 11 your stats
drawline -nr @DragonBall $db(color) 1 10 25 120 25
drawrect -nrf @DragonBall $db(bgcolor2) 1 11 26 108 40
drawrect -nr @DragonBall $db(color) 1 10 79 110 50
drawtext -nr @DragonBall $db(color) verdana -7 13 80 options
drawline -nr @DragonBall $db(color) 1 10 94 120 94
drawrect -nrf @DragonBall $db(bgcolor2) 1 11 95 108 33
drawrect -nr @DragonBall $db(color) 1 10 141 110 61
drawtext -nr @DragonBall $db(color) verdana -7 13 142 color scheme
drawline -nr @DragonBall $db(color) 1 10 156 120 156
drawrect -nrf @DragonBall $db(bgcolor2) 1 11 157 108 44
drawcopy -tn @dbz.tmp.txt $rgb(255,0,255) 32 133 16 16 @dragonball 21 103
drawcopy -tn @dbz.tmp.txt $rgb(255,0,255) 16 133 16 16 @dragonball 47 103
drawcopy -tn @dbz.tmp.txt $rgb(255,0,255) 0 133 16 16 @dragonball 92 103
if (!$db(score)) drawcopy -tn @dbz.tmp.txt $rgb(255,0,255) 22 149 22 22 @dragonball 18 100
else drawcopy -tn @dbz.tmp.txt $rgb(255,0,255) 0 149 22 22 @dragonball 44 100
drawrect -nr @DragonBall $db(color) 1 15 161 16 16
drawrect -nr @DragonBall $db(color) 1 36 161 16 16
drawrect -nr @DragonBall $db(color) 1 57 161 16 16
drawrect -nr @DragonBall $db(color) 1 78 161 16 16
drawrect -nr @DragonBall $db(color) 1 99 161 16 16
drawrect -nr @DragonBall $db(color) 1 15 181 16 16
drawrect -nr @DragonBall $db(color) 1 36 181 16 16
drawrect -nr @DragonBall $db(color) 1 57 181 16 16
drawrect -nr @DragonBall $db(color) 1 78 181 16 16
drawrect -nr @DragonBall $db(color) 1 99 181 16 16
drawrect -nrf @DragonBall $rgb(80,100,150) 1 16 162 14 14
drawrect -nrf @DragonBall $rgb(80,150,100) 1 37 162 14 14
drawrect -nrf @DragonBall $rgb(250,195,40) 1 58 162 14 14
drawrect -nrf @DragonBall $rgb(200,40,40) 1 79 162 14 14
drawrect -nrf @DragonBall $rgb(215,60,150) 1 100 162 14 14
drawrect -nrf @DragonBall $rgb(155,180,240) 1 16 182 14 14
drawrect -nrf @DragonBall $rgb(200,200,200) 1 37 182 14 14
drawrect -nrf @DragonBall $rgb(240,190,155) 1 58 182 14 14
drawrect -nrf @DragonBall $rgb(240,155,155) 1 79 182 14 14
drawrect -nrf @DragonBall $rgb(210,155,240) 1 100 182 14 14
drawrect -nr @DragonBall $db(color) 1 130 10 258 192
drawrect -nr @DragonBall $db(color) 1 398 10 110 45
drawrect -nr @DragonBall $db(color) 1 398 85 110 117
drawtext -nr @DragonBall $db(color) verdana -7 401 11 players
drawtext -nr @DragonBall $db(color) verdana -7 401 86 spectators
drawline -nr @DragonBall $db(color) 1 398 25 508 25
drawline -nr @DragonBall $db(color) 1 398 100 508 100
drawrect -nrf @DragonBall $db(bgcolor2) 1 399 26 108 28
drawrect -nrf @DragonBall $db(bgcolor2) 1 399 101 108 100
if (!$1) drawdot @dragonball
}
alias -l init.colors {
if ($hget(dragonball.config,color) == 1) {
db bgcolor $rgb(80,150,100)
db bgcolor2 $rgb(100,170,120)
db bgcolor3 $rgb(140,210,160)
db color $rgb(0)
db color2 $rgb(160,230,180)
}
elseif ($hget(dragonball.config,color) == 2) {
db bgcolor $rgb(230,175,40)
db bgcolor2 $rgb(250,195,40)
db bgcolor3 $rgb(255,220,50)
db color $rgb(0)
db color2 $rgb(250,100,0)
}
elseif ($hget(dragonball.config,color) == 3) {
db bgcolor $rgb(200,40,40)
db bgcolor2 $rgb(220,70,70)
db bgcolor3 $rgb(255,140,140)
db color $rgb(0)
db color2 $rgb(250,210,210)
}
elseif ($hget(dragonball.config,color) == 4) {
db bgcolor $rgb(215,60,150)
db bgcolor2 $rgb(245,80,180)
db bgcolor3 $rgb(250,156,234)
db color $rgb(0)
db color2 $rgb(250,210,250)
}
elseif ($hget(dragonball.config,color) == 5) {
db bgcolor $rgb(155,180,240)
db bgcolor2 $rgb(190,205,245)
db bgcolor3 $rgb(226,233,250)
db color $rgb(0)
db color2 $rgb(80,100,150)
}
elseif ($hget(dragonball.config,color) == 6) {
db bgcolor $rgb(180,180,180)
db bgcolor2 $rgb(200,200,200)
db bgcolor3 $rgb(240,240,240)
db color $rgb(0)
db color2 $rgb(255,255,255)
}
elseif ($hget(dragonball.config,color) == 7) {
db bgcolor $rgb(240,190,155)
db bgcolor2 $rgb(245,215,190)
db bgcolor3 $rgb(250,240,220)
db color $rgb(0)
db color2 $rgb(255,120,100)
}
elseif ($hget(dragonball.config,color) == 8) {
db bgcolor $rgb(240,155,155)
db bgcolor2 $rgb(245,190,190)
db bgcolor3 $rgb(250,220,220)
db color $rgb(0)
db color2 $rgb(185,50,0)
}
elseif ($hget(dragonball.config,color) == 9) {
db bgcolor $rgb(210,155,240)
db bgcolor2 $rgb(226,190,240)
db bgcolor3 $rgb(240,225,250)
db color $rgb(0)
db color2 $rgb(150,12,200)
}
else {
db bgcolor $rgb(80,100,150)
db bgcolor2 $rgb(100,120,170)
db bgcolor3 $rgb(140,160,210)
db color $rgb(0)
db color2 $rgb(160,180,230)
}
}
alias -l switch.color {
if ($1 != -1) {
x-gui Richedit @dragonball > Clear 1
hadd dragonball.config color $int($1)
init.colors
}
draw.gui -n
update.list -n
if ($db(score)) draw.score
elseif ($db(st) == 1) {
drawrect -nrf @DragonBall $db(bgcolor2) 1 131 11 256 190
drawfont 68 waiting
drawfont 98 for
drawfont 128 players
drawdot @DragonBall
}
elseif ($db(st) == 2) {
drawrect -nrf @DragonBall $db(bgcolor2) 1 131 11 256 190
drawfont 38 next match:
drawfont 98 $player(1).nick
drawfont 128 VS
drawfont 158 $player(2).nick
drawdot @DragonBall
}
elseif ($db(st) == 3) {
choose.fighter
}
elseif ($db(st) == connecting) {
drawrect -nrf @DragonBall $db(bgcolor2) 1 131 11 256 190
drawfont 93 connecting
drawdot @DragonBall
}
}
;------=====----------========-----------======----
alias -l drawblacktext {
drawtext -r @dbz.tmp.topbar $rgb(255,255,255) Verdana -7 $calc($1 -1) $calc($2 -1) $3-
drawtext -r @dbz.tmp.topbar $rgb(255,255,255) Verdana -7 $calc($1 +1) $calc($2 +1) $3-
drawtext -r @dbz.tmp.topbar $rgb(255,255,255) Verdana -7 $calc($1 -1) $calc($2 +1) $3-
drawtext -r @dbz.tmp.topbar $rgb(255,255,255) Verdana -7 $calc($1 +1) $calc($2 -1) $3-
drawtext -r @dbz.tmp.topbar $rgb(255,255,255) Verdana -7 $calc($1 +1) $2 $3-
drawtext -r @dbz.tmp.topbar $rgb(255,255,255) Verdana -7 $calc($1 -1) $2 $3-
drawtext -r @dbz.tmp.topbar $rgb(255,255,255) Verdana -7 $1 $calc($2 +1) $3-
drawtext -r @dbz.tmp.topbar $rgb(255,255,255) Verdana -7 $1 $calc($2 -1) $3-
drawtext -r @dbz.tmp.topbar 0 Verdana -7 $1-
}
alias -l start.match {
window -fhpB +d @dbz.tmp.topbar 0 0 256 44
drawrect -rf @dbz.tmp.topbar $rgb(192,192,192) 1 0 0 256 50
hadd dragonball player1.nrj 200
hadd dragonball player2.nrj 200
drawrect -r @dbz.tmp.topbar 0 1 9 16 102 10
drawrect -r @dbz.tmp.topbar 0 1 145 16 102 10
player.nrj
drawblacktext 9 27 $charname($hget(dragonball,player1.char))
drawblacktext $calc(245- $width($charname($hget(dragonball,player2.char)),verdana,-7)) 27 $charname($hget(dragonball,player2.char))
drawblacktext 9 1 $hget(dragonball,player1.nick)
drawblacktext $calc(245- $width($hget(dragonball,player2.nick),verdana,-7)) 1 $hget(dragonball,player2.nick)
hadd dragonball stage.x 120
;max 242
hadd dragonball player1.x 60
hadd dragonball player1.y 122
hdel dragonball winner
hadd dragonball player1.display 1
hadd dragonball player2.display 1
hadd dragonball dx 6
hadd dragonball base.dx 6
hadd dragonball base.yh 52
hadd dragonball base.yl 122
hadd dragonball base.dis 20
hadd dragonball final 0
hadd dragonball player2.x 140
hadd dragonball player2.y 122
hadd dragonball player1.side 0
hadd dragonball player2.side 1
hadd dragonball player1.up 0
hadd dragonball player1.anim 0
hadd dragonball player1.anim.counter 0
hadd dragonball player2.anim 0
hadd dragonball player2.anim.counter 0
create.sprites 1 $hget(dragonball,player1.char)
create.sprites 2 $hget(dragonball,player2.char)
if ($hget(dragonball,player1.char) == $hget(dragonball,player2.char)) second.color $hget(dragonball,player2.char)
mirror.sprites 1
mirror.sprites 2
create.stage
if ($db(server) == 1) {
hadd dragonball.server ui 0
player.play.anim 1 21
}
else {
if ($hget(dragonball,choose_ok)) player.play.anim 1 22
else player.play.anim 1 0
}
if ($hget(dragonball,choose_ok)) || ($db(server) == 1) player.play.anim 2 22
else player.play.anim 2 0
;playmusic fight.mid
hadd dragonball fps.tick $tick
.timerdbz-main -ho 0 0 main.anim
}
alias -l close.dbz {
.timerdbz-* off
.sockclose dbz_*
if ($db(server) == 1) {
db list remove
sockopen dbz_listing picwin.mircscripts.org 80
}
.timerdbz-dll -mo 1 1 dll -u x-gui.dll
dll -u game_tools.dll
if ($hget(dragonball.config)) {
hsave -o dragonball.config $+(",$scriptdirconfig.cfg,")
hfree dragonball.config
}
splay -m stop
window -c @DragonBall
window -c @dbz.tmp.buffer
window -c @dbz.tmp.fx
window -c @dbz.tmp.char
window -c @dbz.tmp.font
window -c @dbz.tmp.final
window -c @dbz.tmp.special
window -c @dbz.tmp.special.mirror
window -c @dbz.tmp.txt
window -c @dbz.tmp.intro
window -c @dbz.tmp.topbar
window -c @dbz.tmp.player1.sprites
window -c @dbz.tmp.player2.sprites
window -c @dbz.tmp.player1.sprites.mirror
window -c @dbz.tmp.player2.sprites.mirror
window -c @dbz.tmp.stage
if ($hget(dragonball)) hfree dragonball
if ($hget(dragonball.server)) hfree dragonball.server
if ($hget(dragonball.users)) hfree dragonball.users
}
alias -l create.stage {
var %window = @dbz.tmp.stage
window -fhpB +d %window 0 0 498 190
var %stage = 1
if ($hget(dragonball,stage) isnum 1-3) %stage = $hget(dragonball,stage)
drawpic %window 0 0 $+(",$scriptdir/bkgnd/stage,%stage,.png,")
}
alias -l create.sprites {
if ($1 == 1) var %window = @dbz.tmp.player1.sprites
else var %window = @dbz.tmp.player2.sprites
var %file
if ($2 == 1) %file = vegeta
elseif ($2 == 2) %file = vegetto
elseif ($2 == 3) %file = trunks
elseif ($2 == 4) %file = freeza
elseif ($2 == 5) %file = buu
elseif ($2 == 6) %file = A18
elseif ($2 == 7) %file = gohan
elseif ($2 == 8) %file = goku-ssj3
elseif ($2 == 9) %file = piccolo
else %file = goku
window -fhpB +d %window 0 0 204 203
drawpic %window 0 0 $+(",$scriptdir/sprites/,%file,.png")
}
alias -l second.color {
var %rgb1, %rgb2, %rgb3, %rgb4
if (!$1) {
%rgb1 = $rgb(248,152,0)
%rgb2 = $rgb(255,64,0)
%rgb3 = $rgb(255,198,0)
%rgb4 = $rgb(255,145,145)
}
elseif ($1 == 1) {
%rgb1 = $rgb(56,64,208)
%rgb2 = $rgb(208,64,56)
%rgb3 = $rgb(88,94,216)
%rgb4 = $rgb(216,94,88)
}
elseif ($1 == 2) {
%rgb1 = $rgb(0,80,200)
%rgb2 = $rgb(200,80,0)
%rgb3 = $rgb(102,153,204)
%rgb4 = $rgb(204,153,102)
}
elseif ($1 == 3) {
%rgb1 = $rgb(102,102,102)
%rgb2 = $rgb(42,54,207)
}
elseif ($1 == 4) {
%rgb1 = $rgb(204,0,255)
%rgb2 = $rgb(104,104,255)
%rgb3 = $rgb(235,154,255)
%rgb4 = $rgb(155,155,255)
}
elseif ($1 == 5) {
%rgb1 = $rgb(255,184,217)
%rgb2 = $rgb(180,180,180)
}
elseif ($1 == 6) {
%rgb1 = $rgb(0,153,204)
%rgb2 = $rgb(204,53,0)
%rgb3 = $rgb(104,198,229)
%rgb4 = $rgb(244,63,0)
}
elseif ($1 == 7) {
%rgb1 = $rgb(187,85,255)
%rgb2 = $rgb(85,85,255)
%rgb3 = $rgb(235,154,255)
%rgb4 = $rgb(125,125,255)
}
elseif ($1 == 8) {
%rgb1 = $rgb(248,152,0)
%rgb2 = $rgb(255,64,0)
%rgb3 = $rgb(255,198,0)
%rgb4 = $rgb(255,145,145)
}
elseif ($1 == 9) {
%rgb1 = $rgb(153,0,255)
%rgb2 = $rgb(0,153,255)
%rgb3 = $rgb(187,85,255)
%rgb4 = $rgb(85,187,255)
}
if (%rgb1) drawreplace -r @dbz.tmp.player2.sprites %rgb1 %rgb2
if (%rgb3) drawreplace -r @dbz.tmp.player2.sprites %rgb3 %rgb4
}
alias -l mirror.sprites {
if ($1 == 1) var %window = @dbz.tmp.player1.sprites
else var %window = @dbz.tmp.player2.sprites
var %target.window = %window $+ .mirror
window -fhpB +d %target.window 214 0 204 203
drawrect -rf %target.window $rgb(255,255,255) 1 0 0 204 203
var %x = 0, %i = 0
while (%x <= 4) {
%i = 0
while (%i <= 40) {
drawcopy %window $calc(%i + %x * 41) 0 1 203 %target.window $calc((%x +1) * 41 - %i -2) 0
inc %i
}
inc %x
}
}
alias -l charname {
if ($1 == 1) return Vegeta
elseif ($1 == 2) return Vegetto
elseif ($1 == 3) return Trunks
elseif ($1 == 4) return Freeza
elseif ($1 == 5) return Buu
elseif ($1 == 6) return Android 18
elseif ($1 == 7) return Gohan
elseif ($1 == 8) return Goku SSJ3
elseif ($1 == 9) return Piccolo
else return Son Goku
}
/*
=============================================================
====== ANIMATIONS ===========================================
=============================================================
*/
alias -l player.move.left {
var %p = $1
var %p2 = $iif(%p == 1,2,1)
if ($player(%p).x > 0) {
var %dx = $2
if ($calc($player(%p).x - %dx) < 0) %dx = $player(%p).x
hdec dragonball player $+ [ %p ] $+ . $+ x %dx
}
elseif ($hget(dragonball,stage.x) >= 0) && ($player(%p2).x <= 216) {
var %dx = $2
if ($calc($hget(dragonball,stage.x) - %dx) < 0) %dx = $hget(dragonball,stage.x)
if ($calc($player(%p2).x + %dx) > 216) %dx = $calc(216 - $player(%p2).x)
hdec dragonball stage.x %dx
hinc dragonball player $+ [ %p2 ] $+ . $+ x %dx
}
if ($player(%p).side == 1 && $inrect($player(%p).x,$calc($player(%p).y + 16),$player(%p2).x,$calc($player(%p2).y +10),20,40) || $inrect($player(%p).x,$calc($player(%p).y + 40),$player(%p2).x,$calc($player(%p2).y +10),20,40)) {
player %p x $calc($player(%p2).x + 40 - $hget(dragonball,base.dis)))
}
}
alias -l player.move.right {
var %p = $1
var %p2 = $iif(%p == 1,2,1)
if ($player(%p).x < 216) {
var %dx = $2
if ($calc($player(%p).x + %dx) > 216) %dx = $calc(216 - $player(%p).x)
hinc dragonball player $+ [ %p ] $+ . $+ x %dx
}
elseif ($hget(dragonball,stage.x) <= 242) && ($player(%p2).x >= 0) {
var %dx = $2
if ($calc($hget(dragonball,stage.x) + %dx) > 242) %dx = $calc(242 - $hget(dragonball,stage.x))
if ($calc($player(%p2).x - %dx) < 0) %dx = $player(%p2).x
hinc dragonball stage.x %dx
hdec dragonball player $+ [ %p2 ] $+ . $+ x %dx
}
if ($player(%p).side == 0 && $inrect($calc($player(%p).x + 40),$calc($player(%p).y +16),$calc($player(%p2).x + $hget(dragonball,base.dis)),$calc($player(%p2).y + 10),30,40) || $inrect($calc($player(%p).x + 40),$calc($player(%p).y +40),$calc($player(%p2).x + $hget(dragonball,base.dis)),$calc($player(%p2).y + 10),30,40)) {
player %p x $calc($player(%p2).x - $hget(dragonball,base.dis)))
}
}
alias -l player.jump {
var %p = $1
var %p2 = $iif(%p == 1,2,1)
var %dx = $calc($2 *2)
if ($player(%p).up == 1) {
hinc dragonball player $+ [ %p ] $+ . $+ y $calc($hget(dragonball,dx) * 2)
if ($player(%p).y >= $hget(dragonball,base.yl)) {
player.stop %p
}
}
else {
if ($calc($player(%p).y - %dx) <= $hget(dragonball,base.yh)) {
%dx = $calc($player(%p).y - $hget(dragonball,base.yh))
player %p up 1
}
hdec dragonball player $+ [ %p ] $+ . $+ y %dx
}
}
alias -l player.stop {
if ($db(server) == 1) {
if ($player($1).anim == 12) .timerdbz-end -o 1 3 end.match
else broadcast_udp s $1 $player($1).x $player($iif($1 == 1,2,1)).x $hget(dragonball,stage.x)
}
var %p = $1
var %p2 = $iif(%p == 1,2,1)
player %p anim-counter 0
player %p anim 0
player %p up 0
player %p hurt 0
player %p y $hget(dragonball,base.yl)
if ($player(%p2).y == $hget(dragonball,base.yl)) {
if ($player(%p).side == 0) && ($player(%p).x > $player(%p2).x) {
player %p side 1
player %p2 side 0
}
elseif ($player(%p).side == 1) && ($player(%p).x < $player(%p2).x) {
player %p side 0
player %p2 side 1
}
}
if ($hget(dragonball,winner)) && ($hget(dragonball,final) != 1) && ($player(1).y == $hget(dragonball,base.yl)) && ($player(2).y == $hget(dragonball,base.yl)) {
if ($player(2).nick == $hget(dragonball,winner)) player.play.anim 2 12
else player.play.anim 1 12
}
}
alias -l player {
if ($isid) return $hget(dragonball, [ player $+ [ $1 ] $+ . $+ [ $prop ] ] )
else hadd dragonball player $+ [ $1 ] $+ . $+ [ $2 ] $3-
}
alias -l parse.anim {
var %p = $1
var %p2 = $iif(%p == 1,2,1)
if ($player(%p).anim == 1) {
;anim: moving forward
player %p sprite 02
if ($player(%p).side == 0) {
player.move.right %p $hget(dragonball,dx)
}
else {
player.move.left %p $hget(dragonball,dx)
}
}
;=====
elseif ($player(%p).anim == 2) {
;anim: moving backward
player %p sprite 03
if ($player(%p).side == 0) {
player.move.left %p $hget(dragonball,dx)
}
else {
player.move.right %p $hget(dragonball,dx)
}
}
;=====
elseif ($player(%p).anim == 3) {
;anim: punch
player %p sprite 10
if ($player(%p).anim-counter == 1) player %p hurt 0
if ($calc($tick - $player(%p).anim-tick) >= 400) {
player.stop %p
}
}
elseif ($player(%p).anim == 4) {
;anim: kick
player %p sprite 11
if ($player(%p).anim-counter == 1) player %p hurt 0
if ($calc($tick - $player(%p).anim-tick) >= 500) {
player.stop %p
}
}
elseif ($player(%p).anim == 5) {
;anim: highkick
player %p sprite 12
if ($player(%p).anim-counter == 1) player %p hurt 0
if ($calc($tick - $player(%p).anim-tick) >= 600) {
player.stop %p
}
}
elseif ($player(%p).anim == 6) {
;anim: jump
player %p sprite 04
player.jump %p $hget(dragonball,dx)
}
;=====
elseif ($player(%p).anim == 7) {
;anim: jump forward
player %p sprite 04
player.jump %p $hget(dragonball,dx)
if ($player(%p).side == 0) {
player.move.right %p $hget(dragonball,dx)
}
else {
player.move.left %p $hget(dragonball,dx)
}
}
;=====
elseif ($player(%p).anim == 8) {
;anim: jump backward
player %p sprite 04
player.jump %p $hget(dragonball,dx)
if ($player(%p).side == 1) {
player.move.right %p $hget(dragonball,dx)
}
else {
player.move.left %p $hget(dragonball,dx)
}
}
elseif ($player(%p).anim == 9) {
;anim: smallhurt
player %p sprite 20
if ($player(%p).side == 0) {
player.move.left %p $hget(dragonball,dx)
}
else {
player.move.right %p $hget(dragonball,dx)
}
if ($calc($tick - $player(%p).anim-tick) >= 200) {
player.stop %p
}
}
elseif ($player(%p).anim == 10) {
;anim: big hurt
player %p sprite 21
if ($player(%p).side == 0) {
player.move.left %p $hget(dragonball,dx)
}
else {
player.move.right %p $hget(dragonball,dx)
}
if ($calc($tick - $player(%p).anim-tick) >= 260) {
player.stop %p
}
}
elseif ($player(%p).anim == 11) {
;anim: blocking
player %p sprite 24
}
elseif ($player(%p).anim == 12) {
;anim: final attack
player %p sprite 30
player %p2 anim 23
player %p2 sprite 23
if ($calc($tick - $player(%p).anim-tick) >= 4500) {
player %p sprite 31
if ($player(%p).char == 0) || ($player(%p).char == 2) || ($player(%p).char == 7) || ($player(%p).char == 8) {
if ($player(%p).side == 0) {
if ($hget(dragonball,final) == 0) {
drawcopy @dbz.tmp.special 0 65 65 63 @dbz.tmp.final 0 0
var %i = 65
while (%i <= 400) {
drawcopy @dbz.tmp.special 66 65 22 63 @dbz.tmp.final %i 0
inc %i 22
}
drawcopy @dbz.tmp.special 90 65 74 63 @dbz.tmp.final $calc($window(@dbz.tmp.final).w - 74) 0
db final.x $calc($player(%p).x + 150)
db final 1
player %p2 display 0
player %p2 sprite 23
}
drawcopy -t @dbz.tmp.special $rgb(192,192,192) 114 194 40 5 @dbz.tmp.buffer $player(%p2).x 168
drawcopy -t $iif($player(%p2).side == 0,@dbz.tmp.player $+ %p2 $+ .sprites,@dbz.tmp.player $+ %p2 $+ .sprites.mirror) $rgb(192,192,192) $calc($mid($player(%p2).sprite,2,1) *41) $calc($mid($player(%p2).sprite,1,1) *51) 40 50 @dbz.tmp.buffer $player(%p2).x $player(%p2).y
drawcopy -t @dbz.tmp.final $rgb(192,192,192) 0 0 65 63 @dbz.tmp.buffer $calc($player(%p).x + 40) 118
drawcopy -t @dbz.tmp.final $rgb(192,192,192) 65 0 $calc($hget(dragonball,final.x) - $player(%p).x -140) 63 @dbz.tmp.buffer $calc($player(%p).x + 104) 118
drawcopy -t @dbz.tmp.final $rgb(192,192,192) $calc($window(@dbz.tmp.final).w - 74) 0 74 63 @dbz.tmp.buffer $calc($hget(dragonball,final.x) - 74) 118
hinc dragonball final.x $calc($hget(dragonball,dx) * 2)
if ($hget(dragonball,final.x) >= 510) {
player.stop %p
}
}
else {
if ($hget(dragonball,final) == 0) {
drawcopy @dbz.tmp.special.mirror 0 65 74 63 @dbz.tmp.final 0 0
var %i = 74
while (%i <= 450) {
drawcopy @dbz.tmp.special 66 65 22 63 @dbz.tmp.final %i 0
inc %i 22
}
drawcopy @dbz.tmp.special.mirror $calc($window(@dbz.tmp.special.mirror).w - 65) 65 65 63 @dbz.tmp.final $calc($window(@dbz.tmp.final).w - 65) 0
db final.x $calc($player(%p).x - 37)
db final 1
player %p2 display 0
}
drawcopy -t @dbz.tmp.special $rgb(192,192,192) 114 194 40 5 @dbz.tmp.buffer $player(%p2).x 168
drawcopy -t $iif($player(%p2).side == 0,@dbz.tmp.player $+ %p2 $+ .sprites,@dbz.tmp.player $+ %p2 $+ .sprites.mirror) $rgb(192,192,192) $calc($mid($player(%p2).sprite,2,1) *41) $calc($mid($player(%p2).sprite,1,1) *51) 40 50 @dbz.tmp.buffer $player(%p2).x $player(%p2).y
drawcopy -t @dbz.tmp.final $rgb(192,192,192) $calc($window(@dbz.tmp.final).w - 65) 0 65 63 @dbz.tmp.buffer $calc($player(%p).x - 65) 118
var %kame.width = $calc($player(%p).x - 37 - $hget(dragonball,final.x))
drawcopy -t @dbz.tmp.final $rgb(192,192,192) 74 0 %kame.width 63 @dbz.tmp.buffer $calc($player(%p).x - %kame.width -65) 118
drawcopy -t @dbz.tmp.final $rgb(192,192,192) 0 0 74 63 @dbz.tmp.buffer $calc($hget(dragonball,final.x) - 74) 118
hdec dragonball final.x $calc($hget(dragonball,dx) * 2)
if ($hget(dragonball,final.x) <= -200) {
player.stop %p
}
}
}
elseif ($player(%p).char == 1 || $player(%p).char == 5) || ($player(%p).char == 3) || ($player(%p).char == 9) {
if ($hget(dragonball,final) == -1) hadd dragonball final 0
if ($player(%p).char == 5) var %tmp_y = 129
else var %tmp_y = 0
if ($player(%p).side == 0) {
if ($hget(dragonball,final) == 0) {
drawcopy @dbz.tmp.special 0 %tmp_y 59 64 @dbz.tmp.final 0 0
var %i = 59
while (%i <= 400) {
drawcopy @dbz.tmp.special 60 %tmp_y 26 64 @dbz.tmp.final %i 0
inc %i 22
}
drawcopy @dbz.tmp.special 87 %tmp_y 77 64 @dbz.tmp.final $calc($window(@dbz.tmp.final).w - 77) 0
db final.x $calc($player(%p).x + 150)
db final 1
player %p2 display 0
player %p2 sprite 23
}
drawcopy -t @dbz.tmp.special $rgb(192,192,192) 114 194 40 5 @dbz.tmp.buffer $player(%p2).x 168
drawcopy -t $iif($player(%p2).side == 0,@dbz.tmp.player $+ %p2 $+ .sprites,@dbz.tmp.player $+ %p2 $+ .sprites.mirror) $rgb(192,192,192) $calc($mid($player(%p2).sprite,2,1) *41) $calc($mid($player(%p2).sprite,1,1) *51) 40 50 @dbz.tmp.buffer $player(%p2).x $player(%p2).y
drawcopy -t @dbz.tmp.final $rgb(192,192,192) 0 0 59 64 @dbz.tmp.buffer $calc($player(%p).x + 36) 115
drawcopy -t @dbz.tmp.final $rgb(192,192,192) 59 0 $calc($hget(dragonball,final.x) - $player(%p).x -100) 64 @dbz.tmp.buffer $calc($player(%p).x + 95) 115
drawcopy -t @dbz.tmp.final $rgb(192,192,192) $calc($window(@dbz.tmp.final).w - 77) 0 77 64 @dbz.tmp.buffer $calc($hget(dragonball,final.x) - 74) 115
hinc dragonball final.x $calc($hget(dragonball,dx) * 2)
if ($hget(dragonball,final.x) >= 440) {
player.stop %p
}
}
else {
if ($hget(dragonball,final) == 0) {
drawcopy @dbz.tmp.special.mirror 0 %tmp_y 77 64 @dbz.tmp.final 0 0
var %i = 77
while (%i <= 450) {
drawcopy @dbz.tmp.special 64 %tmp_y 26 64 @dbz.tmp.final %i 0
inc %i 22
}
drawcopy @dbz.tmp.special.mirror $calc($window(@dbz.tmp.special.mirror).w - 59) %tmp_y 59 64 @dbz.tmp.final $calc($window(@dbz.tmp.final).w - 59) 0
db final.x $calc($player(%p).x - 37)
db final 1
player %p2 display 0
}
drawcopy -t @dbz.tmp.special $rgb(192,192,192) 114 194 40 5 @dbz.tmp.buffer $player(%p2).x 168
drawcopy -t $iif($player(%p2).side == 0,@dbz.tmp.player $+ %p2 $+ .sprites,@dbz.tmp.player $+ %p2 $+ .sprites.mirror) $rgb(192,192,192) $calc($mid($player(%p2).sprite,2,1) *41) $calc($mid($player(%p2).sprite,1,1) *51) 40 50 @dbz.tmp.buffer $player(%p2).x $player(%p2).y
drawcopy -t @dbz.tmp.final $rgb(192,192,192) $calc($window(@dbz.tmp.final).w - 59) 0 59 64 @dbz.tmp.buffer $calc($player(%p).x - 56) 115
var %kame.width = $calc($player(%p).x - 20 - $hget(dragonball,final.x))
;echo k %kame.width
drawcopy -t @dbz.tmp.final $rgb(192,192,192) 77 0 %kame.width 64 @dbz.tmp.buffer $calc($player(%p).x - %kame.width -56) 115
drawcopy -t @dbz.tmp.final $rgb(192,192,192) 0 0 77 64 @dbz.tmp.buffer $calc($hget(dragonball,final.x) - 77) 115
hdec dragonball final.x $calc($hget(dragonball,dx) * 2)
if ($hget(dragonball,final.x) <= -130) {
player.stop %p
}
}
}
elseif ($player(%p).char == 6 || $player(%p).char == 4) {
if ($player(%p).char == 4) drawcopy @dbz.tmp.special 74 194 39 12 @dbz.tmp.final 0 0
else drawcopy @dbz.tmp.special 34 194 39 12 @dbz.tmp.final 0 0
if ($hget(dragonball,final) == -1) hadd dragonball final 0
if ($player(%p).side == 0) {
if ($hget(dragonball,final) == 0) {
db final.x $calc($player(%p).x + 40)
db final 1
player %p2 display 0
player %p2 sprite 01
}
drawcopy -t @dbz.tmp.special $rgb(192,192,192) 114 194 40 5 @dbz.tmp.buffer $player(%p2).x 168
drawcopy -t $iif($player(%p2).side == 0,@dbz.tmp.player $+ %p2 $+ .sprites,@dbz.tmp.player $+ %p2 $+ .sprites.mirror) $rgb(192,192,192) $calc($mid($player(%p2).sprite,2,1) *41) $calc($mid($player(%p2).sprite,1,1) *51) 40 50 @dbz.tmp.buffer $player(%p2).x $player(%p2).y
drawcopy -t @dbz.tmp.final $rgb(192,192,192) 0 0 39 12 @dbz.tmp.buffer $hget(dragonball,final.x) 139
hinc dragonball final.x $calc($hget(dragonball,dx) * 2)
if ($hget(dragonball,final.x) >= 440) {
player.stop %p
}
}
else {
if ($hget(dragonball,final) == 0) {
db final.x $calc($player(%p).x - 39)
db final 1
player %p2 display 0
}
drawcopy -t @dbz.tmp.special $rgb(192,192,192) 114 194 40 5 @dbz.tmp.buffer $player(%p2).x 168
drawcopy -t $iif($player(%p2).side == 0,@dbz.tmp.player $+ %p2 $+ .sprites,@dbz.tmp.player $+ %p2 $+ .sprites.mirror) $rgb(192,192,192) $calc($mid($player(%p2).sprite,2,1) *41) $calc($mid($player(%p2).sprite,1,1) *51) 40 50 @dbz.tmp.buffer $player(%p2).x $player(%p2).y
drawcopy -t @dbz.tmp.final $rgb(192,192,192) 0 0 39 12 @dbz.tmp.buffer $hget(dragonball,final.x) 139
hdec dragonball final.x $calc($hget(dragonball,dx) * 2)
if ($hget(dragonball,final.x) <= -130) {
player.stop %p
}
}
}
}
elseif ($player(%p).x >= 20) && ($player(%p).side == 0) {
player %p sprite 03
player.move.left %p $hget(dragonball,dx)
}
elseif ($player(%p).x <= 196) && ($player(%p).side == 1) {
player %p sprite 03
player.move.right %p $hget(dragonball,dx)
}
else {
if ($hget(dragonball,final) == -1) {
if ($player(%p).char == 0) || ($player(%p).char == 2) || ($player(%p).char == 7) || ($player(%p).char == 8) playsound final2.wav
elseif ($player(%p).char == 5) playsound final1.wav
elseif ($player(%p).char == 3) playsound final3.wav
elseif ($player(%p).char == 1) playsound final4.wav
elseif ($player(%p).char == 9) playsound final5.wav
hadd dragonball final 0
}
elseif ($player(%p).char == 6) {
if ($player(%p).side == 0) drawcopy -t @dbz.tmp.special $rgb(192,192,192) 34 194 39 12 @dbz.tmp.buffer $calc($player(%p).x - 9) $calc($player(%p).y - 8)
else drawcopy -t @dbz.tmp.special $rgb(192,192,192) 34 194 39 12 @dbz.tmp.buffer $calc($player(%p).x + 9) $calc($player(%p).y - 8)
}
elseif ($player(%p).char == 4) {
if ($player(%p).side == 0) drawcopy -t @dbz.tmp.special $rgb(192,192,192) 74 194 39 12 @dbz.tmp.buffer $calc($player(%p).x - 11) $calc($player(%p).y - 8)
else drawcopy -t @dbz.tmp.special $rgb(192,192,192) 74 194 39 12 @dbz.tmp.buffer $calc($player(%p).x + 11) $calc($player(%p).y - 8)
}
}
}
elseif ($player(%p).anim == 13) {
;anim: ki blast
player %p sprite 33
if ($player(%p).side == 0) {
if ($player(%p).char == 4) || ($player(%p).char == 5) var %tmp_x = 17
else var %tmp_x 0
if ($player(%p).anim-counter == 0) player %p ki $calc($player(%p).x +30)
if ($inrect($calc($player(%p).ki + 8),150,$player(%p2).x,$player(%p2).y,40,50)) {
if ($hget(dragonball,server) == 1) player.hurt %p2 10
player %p ki 1000
}
hinc dragonball player $+ [ %p ] $+ . $+ ki $calc($hget(dragonball,dx) *2)
drawcopy -t @dbz.tmp.special $rgb(192,192,192) %tmp_x 194 16 12 @dbz.tmp.buffer $player(%p).ki 144
}
else {
if ($player(%p).char == 4) || ($player(%p).char == 5) var %tmp_x = 131
else var %tmp_x 148
if ($player(%p).anim-counter == 0) player %p ki $calc($player(%p).x -2)
if ($inrect($calc($player(%p).ki + 8),150,$player(%p2).x,$player(%p2).y,40,50)) {
if ($hget(dragonball,server) == 1) player.hurt %p2 10
player %p ki 1000
}
hdec dragonball player $+ [ %p ] $+ . $+ ki $calc($hget(dragonball,dx) *2)
drawcopy -t @dbz.tmp.special.mirror $rgb(192,192,192) %tmp_x 194 16 12 @dbz.tmp.buffer $player(%p).ki 144
}
if ($calc($tick - $player(%p).anim-tick) >= 1300) player.stop %p
}
elseif ($player(%p).anim == 14) {
;anim: jump + kick
player %p sprite 13
player.jump %p $hget(dragonball,dx)
}
;=====
elseif ($player(%p).anim == 15) {
;anim: jump forward + kick
player %p sprite 13
player.jump %p $hget(dragonball,dx)
if ($player(%p).side == 0) {
player.move.right %p $hget(dragonball,dx)
}
else {
player.move.left %p $hget(dragonball,dx)
}
}
;=====
elseif ($player(%p).anim == 16) {
;anim: jump backward + kick
player %p sprite 13
player.jump %p $hget(dragonball,dx)
if ($player(%p).side == 1) {
player.move.right %p $hget(dragonball,dx)
}
else {
player.move.left %p $hget(dragonball,dx)
}
}
;====
elseif ($player(%p).anim == 17) {
;anim: jump + punch
player %p sprite 14
player.jump %p $hget(dragonball,dx)
}
;=====
elseif ($player(%p).anim == 18) {
;anim: jump forward + punch
player %p sprite 14
player.jump %p $hget(dragonball,dx)
if ($player(%p).side == 0) {
player.move.right %p $hget(dragonball,dx)
}
else {
player.move.left %p $hget(dragonball,dx)
}
}
;=====
elseif ($player(%p).anim == 19) {
;anim: jump backward + punch
player %p sprite 14
player.jump %p $hget(dragonball,dx)
if ($player(%p).side == 1) {
player.move.right %p $hget(dragonball,dx)
}
else {
player.move.left %p $hget(dragonball,dx)
}
}
;=====
elseif ($player(%p).anim == 20) {
;anim: jump backward + hurt
player %p sprite 22
player.jump %p $hget(dragonball,dx)
if ($player(%p).side == 1) {
player.move.right %p $hget(dragonball,dx) * 1
}
else {
player.move.left %p $hget(dragonball,dx) * 1
}
}
;=====
elseif ($player(%p).anim == 21) {
;anim: power up
if ($calc($tick - $player(%p).anim-tick) >= 6000) {
player %p sprite 01
player.stop %p
if (%p == 2) && ($db(server)) hadd dragonball.server ui 1
}
elseif ($calc($tick - $player(%p).anim-tick) >= 5000) {
player %p sprite 01
if (%p != 1) drawpic -t @dbz.tmp.buffer $rgb(0) 56 50 0 66 151 32 $dbzdir(sprites/text.png)
}
elseif ($calc($tick - $player(%p).anim-tick) >= 4000) {
player %p sprite 01
if (%p == 1) player.play.anim 2 21
}
elseif ($calc($tick - $player(%p).anim-tick) >= 2000) {
if ($player(%p).sprite != 32) playsound powerup.wav
player %p sprite 32
var %tmp_y = 65
if ($player(%p).char == 6) || ($player(%p).char == 9) %tmp_y = 0
elseif ($player(%p).char == 4) || ($player(%p).char == 5) %tmp_y = 130
if ($calc($tick - $player(%p).nticks) < 100) {
drawcopy -t @dbz.tmp.fx 0 %tmp_y 0 64 56 @dbz.tmp.buffer $calc($player(%p).x -12) $calc($player(%p).y - 8)
}
else {
drawcopy -t @dbz.tmp.fx 0 %tmp_y 57 64 56 @dbz.tmp.buffer $calc($player(%p).x -12) $calc($player(%p).y - 8)
if ($calc($tick - $player(%p).nticks) >= 200) player %p nticks $tick
}
}
elseif ($calc($tick - $player(%p).anim-tick) >= 1000) {
player %p sprite 34
}
else player %p sprite 00
}
elseif ($player(%p).anim == 22) {
player %p sprite 00
}
elseif ($player(%p).anim == 23) {
player %p sprite 23
}
;=====
else {
player %p sprite 01
}
}
alias -l main.anim {
var %ticks = $tick
if ($hget(dragonball,server) == 1) {
parse.keys
}
drawrect -rf @dbz.tmp.buffer $rgb(255,0,255) 1 0 0 256 190
parse.anim 1
parse.anim 2
drawcopy -t @dbz.tmp.topbar $rgb(192,192,192) 0 0 256 44 @dbz.tmp.buffer 0 0
if ($hget(dragonball.config,fps)) drawtext -nr @dbz.tmp.buffer 0 verdana -7 4 176 fps: $hget(dragonball,fps)
if ($calc($tick - $hget(dragonball,fps.ticks)) >= 1000) {
hadd dragonball fps $hget(dragonball,fps.counter)
hadd dragonball fps.counter 0
hadd dragonball fps.ticks $tick
}
if ($player(2).display) drawcopy -t @dbz.tmp.special $rgb(192,192,192) 114 194 40 5 @dbz.tmp.buffer $player(2).x 168
if ($player(1).display) drawcopy -t @dbz.tmp.special $rgb(192,192,192) 114 194 40 5 @dbz.tmp.buffer $player(1).x 168
if ($player(2).display) drawcopy -t $iif($player(2).side == 0,@dbz.tmp.player2.sprites,@dbz.tmp.player2.sprites.mirror) $rgb(192,192,192) $calc($mid($player(2).sprite,2,1) *41) $calc($mid($player(2).sprite,1,1) *51) 40 50 @dbz.tmp.buffer $player(2).x $player(2).y
if ($player(1).display) drawcopy -t $iif($player(1).side == 0,@dbz.tmp.player1.sprites,@dbz.tmp.player1.sprites.mirror) $rgb(192,192,192) $calc($mid($player(1).sprite,2,1) *41) $calc($mid($player(1).sprite,1,1) *51) 40 50 @dbz.tmp.buffer $player(1).x $player(1).y
; ----------------> end <-------------------
if (!$timer(dbz-main)) return
elseif (!$sock(dbz_connect)) {
timerdbz-main off
return
}
drawcopy -n @dbz.tmp.stage $hget(dragonball,stage.x) 0 256 190 @DragonBall 131 11
drawcopy -tn @dbz.tmp.buffer $rgb(255,0,255) 0 0 256 190 @DragonBall 131 11
if ($hget(dragonball,winner)) && ($hget(dragonball,final) == 1) && ($player(1).anim != 12) && ($player(2).anim != 12) {
drawfont 60 $hget(dragonball,winner)
drawfont 90 WINS
}
if ($hget(dragonball,score)) {
draw.score
}
drawdot @DragonBall
; ----------------------------------->
if ($hget(dragonball,player1.anim) > 0) hinc dragonball player1.anim-counter
if ($hget(dragonball,player2.anim) > 0) hinc dragonball player2.anim-counter
if ($hget(dragonball,server) == 1) {
if ($r(1,2000) > 1000) {
parse.hit 1
parse.hit 2
}
else {
parse.hit 2
parse.hit 1
}
}
hinc dragonball fps.counter
var %loop_time = $calc($tick - $hget(dragonball,ticks))
var %dx = $round($calc(120/1000 * %loop_time),2) + $hget(dragonball,rest)
hadd dragonball dx $calc(0 + $int(%dx))
hadd dragonball rest $calc(%dx - $int(%dx))
hadd dragonball ticks $tick
}
;===============
alias -l draw.score {
drawrect -nfr @dragonball $db(bgcolor2) 1 131 11 256 190
drawfont 18 ranking
drawtext -nr @dragonball $db(color) verdana -7 140 42 Rank
drawtext -nr @dragonball $db(color) verdana -7 214 42 Nick
drawtext -nr @dragonball $db(color) verdana -7 300 42 Win
drawtext -nr @dragonball $db(color) verdana -7 341 42 Lost
drawline -nr @dragonball $db(color) 1 140 57 376 57
drawline -nr @dragonball $db(color) 1 168 57 168 192
drawline -nr @dragonball $db(color) 1 286 57 286 192
drawline -nr @dragonball $db(color) 1 332 57 332 192
var %i = 1, %color = $db(color), %y
while (%i <= 8) {
if ($dbzuser(%i).rank isnum 1-8) {
if ($dbzuser(%i).nick == $db(me)) %color = $db(color2)
else %color = $db(color)
%y = $calc(50 + $dbzuser(%i).rank * 16)
drawtext -nr @dragonball %color verdana -7 148 %y $dbzuser(%i).rank
drawtext -cnr @dragonball %color verdana -7 180 %y 100 14 $dbzuser(%i).nick
drawtext -nr @dragonball %color verdana -7 $calc(309 - $width($dbzuser(%i).win,verdana,-7) /2) %y $dbzuser(%i).win
drawtext -nr @dragonball %color verdana -7 $calc(353 - $width($dbzuser(%i).lost,verdana,-7) /2) %y $dbzuser(%i).lost
}
inc %i
}
}
alias -l parse.hit {
var %ticks-save = $tick
var %p = $1
var %p2 = $iif(%p == 1,2,1)
if ($player(%p).hurt == 1) {
if ($player(%p).anim == 3) || ($player(%p).anim == 4) {
if ($player(%p).side == 0 && $inrect($calc($player(%p).x + 40),$calc($player(%p).y + 30),$calc($player(%p2).x + 14),$calc($player(%p2).y +10),26,40)) {
player.hurt %p2 11
}
elseif ($player(%p).side == 1 && $inrect($player(%p).x,$calc($player(%p).y + 30),$player(%p2).x,$calc($player(%p2).y +10),26,40)) {
player.hurt %p2 11
}
}
elseif ($player(%p).anim == 5) {
if ($player(%p).side == 0 && $inrect($calc($player(%p).x + 40),$calc($player(%p).y + 20),$calc($player(%p2).x + 14),$calc($player(%p2).y +10),26,40)) {
player.hurt %p2 20
}
elseif ($player(%p).side == 1 && $inrect($player(%p).x,$calc($player(%p).y + 20),$player(%p2).x,$calc($player(%p2).y +10),26,40)) {
player.hurt %p2 20
}
}
elseif ($player(%p).anim == 14) || ($player(%p).anim == 15) || ($player(%p).anim == 16) {
if ($player(%p).side == 0 && $inrect($calc($player(%p).x + 40),$calc($player(%p).y + 30),$calc($player(%p2).x + 14),$calc($player(%p2).y +10),26,40)) {
player.hurt %p2 12
}
elseif ($player(%p).side == 1 && $inrect($player(%p).x,$calc($player(%p).y + 30),$player(%p2).x,$calc($player(%p2).y +10),26,40)) {
player.hurt %p2 12
}
}
elseif ($player(%p).anim == 17) || ($player(%p).anim == 18) || ($player(%p).anim == 19) {
if ($player(%p).side == 0 && $inrect($calc($player(%p).x + 36),$calc($player(%p).y + 40),$calc($player(%p2).x + 14),$calc($player(%p2).y +10),26,40)) {
player.hurt %p2 16
}
elseif ($player(%p).side == 1 && $inrect($calc($player(%p).x + 4),$calc($player(%p).y + 40),$player(%p2).x,$calc($player(%p2).y +10),26,40)) {
player.hurt %p2 16
}
}
}
}
alias -l player.hurt {
var %nrj = $2
if ($player($1).anim == 11) {
%nrj = 4
}
else {
if ($player($1).y != $hget(dragonball,base.yl)) { player.play.anim $1 20 }
elseif ($2 >= 12) { player.play.anim $1 10 }
else { player.play.anim $1 9 }
}
player $iif($1 == 1,2,1) hurt 0
hdec dragonball player $+ [ $1 ] $+ . $+ nrj %nrj
if ($player($1).nrj < 0) player $1 nrj 0
broadcast_udp e $1 $player($1).nrj
player.nrj
if ($player($1).nrj == 0) {
hadd dragonball.server ui 0
hadd dragonball.server winner $iif($1 == 1,2,1)
broadcast END_FIGHT $iif($1 == 1,2,1)
}
}
alias -l player.nrj {
if ($player(1).nrj > 100) {
drawrect -nrf @dbz.tmp.topbar $rgb(250,250,0) 1 10 17 100 8
drawrect -nrf @dbz.tmp.topbar $rgb(100,200,0) 1 10 17 $calc($player(1).nrj - 100) 8
}
else {
drawrect -nrf @dbz.tmp.topbar $rgb(250,80,0) 1 10 17 100 8
drawrect -nrf @dbz.tmp.topbar $rgb(250,250,0) 1 10 17 $player(1).nrj 8
}
if ($player(2).nrj > 100) {
drawrect -nrf @dbz.tmp.topbar $rgb(100,200,0) 1 146 17 100 8
drawrect -nrf @dbz.tmp.topbar $rgb(250,250,0) 1 146 17 $calc(200 - $player(2).nrj) 8
}
else {
drawrect -nrf @dbz.tmp.topbar $rgb(250,250,0) 1 146 17 100 8
drawrect -nrf @dbz.tmp.topbar $rgb(250,80,0) 1 146 17 $calc(100 - $player(2).nrj) 8
}
drawdot @dbz.tmp.topbar
}
alias -l player.play.anim {
if ($db(server) == 1) && ($2 != 12) {
var %rep = 0
if (($2 == 1) || ($2 == 2) || ($2 == 11)) && ($hget(dragonball.server,p.anim $+ $1) == $2) %rep = 1
if (%rep == 0) {
broadcast_udp p $1 $2
hadd dragonball.server p.anim $+ $1 $2
}
}
var %p = $1
if ($2 == 3) playsound punch.wav
elseif ($2 == 9) || ($2 == 10) || ($2 == 20) playsound hit1.wav
elseif ($2 == 4) playsound kick.wav
elseif ($2 == 5) playsound hkick.wav
elseif ($2 == 12) {
db final -1
db final.x 0
}
if ($2 == 20) player %p sy $player(%p).y
elseif ($2 >= 13 && $2 <= 19) {
if ($player(%p).char == 6) playsound jump1.wav
elseif ($player(%p).char == 5) playsound jump5.wav
elseif ($player(%p).char == 4) playsound jump4.wav
elseif ($player(%p).char == 1) || ($player(%p).char == 9) playsound jump2.wav
elseif ($player(%p).char == 7) playsound jump3.wav
else playsound jump6.wav
}
if ($2 == 21) player %p nticks $tick
player %p hurt 1
player %p up 0
player %p anim-counter 0
player %p anim-tick $tick
player %p anim $2
}
alias -l db {
if ($isid) return $hget(dragonball,$1-)
else hadd dragonball $1-
}
/*
=============================================================
====== SERVER ===============================================
=============================================================
*/
alias -l dbzer {
if ($isid) return $hget(dragonball.server, [ user $+ [ $1 ] $+ . $+ [ $prop ] ] )
else hadd dragonball.server user $+ [ $1 ] $+ . $+ [ $2 ] $3-
}
alias -l init.server {
if (!$portfree($hget(dragonball.config,serverport))) {
db error Error: cannot listen on port $hget(dragonball.config,serverport) $+ , please choose another port
msg.menu
halt
}
if ($hget(dragonball.server)) hfree dragonball.server
hmake dragonball.server 10
init.gui
drawrect -rf @DragonBall $db(bgcolor2) 1 131 11 256 190
db server 1
hadd dragonball.server status 1
hadd dragonball.server ui 0
hadd dragonball.server total 0
hadd dragonball.server p.anim1 -1
hadd dragonball.server p.anim2 -2
socklisten dbz_server $hget(dragonball.config,serverport)
sockudp -k dbz_input $hget(dragonball.config,serverport)
print »»» server listening - ip: $ip port: $hget(dragonball.config,serverport)
db list add
sockopen dbz_listing picwin.mircscripts.org 80
.timerdbz-server -o 0 5 server.check
.timerdbz-keepalive -o 0 180 keep.alive
}
alias -l keep.alive {
db list alive
sockopen dbz_listing picwin.mircscripts.org 80
}
alias -l server.check {
var %i = 1
while ($sock(dbz_tmp_user*,%i).name) {
if ($sock(dbz_tmp_user*,%i).to >= 30) {
print »»» connection timeout from $sock(dbz_tmp_user*,%i).ip (slot %i $+ )
sockclose $sock(dbz_tmp_user*,%i)
}
inc %i
}
if ($hget(dragonball.server,status) == 1) && ($player(1).id) && ($player(2).id) {
broadcast_list
hadd dragonball.server ui 0
hadd dragonball.server tick $tick
hadd dragonball.server status 2
broadcast STATUS $hget(dragonball.server,status)
}
elseif ($hget(dragonball.server,status) == 2) && ($calc($tick - $hget(dragonball.server,tick)) >= 10000) {
hadd dragonball.server status 3
hadd dragonball.server ui 1
hadd dragonball.server cursor1 0
hadd dragonball.server cursor2 4
broadcast CHOOSE $player(1).id $player(2).id
}
}
alias -l end.match {
hadd dragonball.server ui 0
var %win_id = $player($hget(dragonball.server,winner)).id
var %los_id = $player($iif($hget(dragonball.server,winner) == 1,2,1)).id
if (%win_id) hinc dragonball.server user $+ [ %win_id ] $+ . $+ win
if (%los_id) hinc dragonball.server user $+ [ %los_id ] $+ . $+ lost
var %p2_id, %i = 1, %last_id = $calc($get.new.order -1)
while (%i <= 8) {
if ($dbzer(%i).order) {
;echo -a old order of %i : $dbzer(%i).order
if (%win_id) && (%i == %win_id) dbzer %i order 1
elseif (%los_id) && (%i == %los_id) dbzer %i order %last_id
else hdec dragonball.server user $+ [ %i ] $+ . $+ order
if ($dbzer(%i).order == 2) %p2_id = %i
;echo -a new order of %i : $dbzer(%i).order
}
inc %i
}
hdel -w dragonball player1*
hdel -w dragonball player2*
if (%win_id) add.player 1 %win_id
if (%p2_id) add.player 2 %p2_id
broadcast_list
hadd dragonball.server tick $tick
if ($hget(dragonball.server,total) < 2) {
hadd dragonball.server status 1
}
else {
hadd dragonball.server status 2
}
broadcast STATUS $hget(dragonball.server,status)
}
on *:udpread:dbz_input: {
if ($sockerr > 0) return
var %tmp
sockread %tmp
if ($db(debug)) echo @debug-udp (server get) $sock($sockname).saddr $sock($sockname).sport : %tmp
if (%tmp == pr) {
sockudp -tn dbz_listsend_ $+ $tick $sock($sockname).saddr $sock($sockname).sport $hget(dragonball.server,total) $+ / $+ $hget(dragonball.config,maxplayer)
return
}
var %p = 0
if ($sock($sockname).saddr == $player(1).ip) && ($sock($sockname).sport == $player(1).udp) %p = 1
elseif ($sock($sockname).saddr == $player(2).ip) && ($sock($sockname).sport == $player(2).udp) %p = 2
tokenize 32 %tmp
if (%p > 0 ) && ($1 == 1) || ($1 == 0) {
player %p key_ $+ $2 $1
if ($hget(dragonball.server,status) == 3) {
var %cur1 = $hget(dragonball.server,cursor1) , %cur2 = $hget(dragonball.server,cursor2)
parse.keys
if (%cur1 != $hget(dragonball.server,cursor1)) || (%cur2 != $hget(dragonball.server,cursor2)) broadcast_udp CURCHANGE $hget(dragonball.server,cursor1) $hget(dragonball.server,cursor2)
}
}
elseif ($1 == L) && ($dbzer($2).ip == $sock($sockname).saddr) && (!$dbzer($2).udp) {
dbzer $2 udp $sock($sockname).sport
if ($player(1).id == $2) player 1 udp $sock($sockname).sport
elseif ($player(2).id == $2) player 2 udp $sock($sockname).sport
}
}
alias -l sockuser {
return dbz_user $+ $1
}
alias -l tmpsockuser {
return dbz_tmp_user_ $+ $1
}
on *:socklisten:dbz_server: {
if ($sockerr > 0) return
var %sockname = dbz_tmp_user_ $+ $tick $+ $r(1,1000)
sockaccept %sockname
print »»» connection attempt from $sock(%sockname).ip
sockwrite -tn %sockname CONNECTED
}
on *:sockclose:dbz_user*: {
remove.user $right($sockname,1) 0
}
on *:sockread:dbz_tmp_user_*: {
if ($sockerr > 0) return
var %data
sockread %data
tokenize 30 %data
if ($1 == INFOS) {
if ($hget(dragonball.config,password)) && ($4 != $hget(dragonball.config,password)) {
print »»» connection from $sock($sockname).ip refused, invalid password
sockwrite -tn $sockname INVALID_PASSWORD
.timer -mo 1 0 sockclose $sockname
}
elseif ($2 != $db(version)) {
print »»» connection from $sock($sockname).ip refused, invalid version
sockwrite -tn $sockname INVALID_VERSION $db(version)
.timer -mo 1 0 sockclose $sockname
}
else {
var %nick = $left($3,13)
if (!%nick) %nick = DBZ Player
var %i = 1
var %num = 0
while (%i <= 8) {
if ($dbzer(%i).nick == %nick) {
inc %num
if (%num > 1) %nick = $left(%nick,$calc($len(%nick) -2))
%nick = %nick %num
%i = 1
continue
}
inc %i
}
%i = 1
while ($dbzer(%i).ip) inc %i
if (%i > $hget(dragonball.config,maxplayer)) {
sockwrite -tn $sockname SERVER_FULL
.timer -mo 1 0 sockclose $sockname
}
else {
dbzer %i ip $sock($sockname).ip
dbzer %i nick %nick
dbzer %i win 0
dbzer %i lost 0
dbzer %i order $get.new.order
sockrename $sockname $sockuser(%i)
sockwrite -tn $sockname ACCEPTED %i %nick
envoi_list %i
sockwrite -tn $sockname STATUS $hget(dragonball.server,status)
broadcast JOIN %i $dbzer(%i).order $dbzer(%i).nick
if ($dbzer(%i).order == 1) || ($dbzer(%i).order == 2) add.player $dbzer(%i).order %i
hinc dragonball.server total
}
}
}
}
on *:sockread:dbz_user*: {
if ($sockerr > 0) return
var %data
sockread %data
if ($db(debug)) echo @debug-tcp (server get) from $sockname $+ : %data
tokenize 32 $right($sockname,1) %data
if ($2 == MSG) {
var %test = $3-
if ($3-) broadcast MSG $1 $strip($3-)
}
else return
}
alias -l broadcast {
sockwrite -tn dbz_user* $1-
}
alias -l broadcast_list {
var %i = 1
while (%i <= 8) {
if ($dbzer(%i).ip) broadcast USER %i $dbzer(%i).order $dbzer(%i).win $dbzer(%i).lost $dbzer(%i).nick
inc %i
}
broadcast USER_END
}
alias -l envoi_list {
var %i = 1, %isplaying
while (%i <= 8) {
if ($dbzer(%i).ip) sockwrite -tn $sockuser($1) USER %i $dbzer(%i).order $dbzer(%i).win $dbzer(%i).lost $dbzer(%i).nick
inc %i
}
sockwrite -tn $sockuser($1) USER_END
}
alias -l broadcast_udp {
var %i = 1
while (%i <= 8) {
if ($dbzer(%i).udp) sockudp -tn dbz_broadcast $dbzer(%i).ip $dbzer(%i).udp $1-
inc %i
}
}
alias -l add.player {
hdel -w dragonball player $+ $1 $+ *
player $1 id $2
player $1 nick $dbzer($2).nick
player $1 ready 0
player $1 ip $dbzer($2).ip
player $1 udp $dbzer($2).udp
}
alias -l get.new.order {
var %i = 1, %order = 1
while (%i <= 8) {
if ($dbzer(%i).order >= %order) %order = $dbzer(%i).order + 1
inc %i
}
return %order
}
alias -l kick.player {
if ($db(server) != 1) {
print »»» you must be the server to kick a player
return
}
if ($db(me) == $1-) {
print »»» you cannot kick yourself
return
}
if (!$1) {
print »»» kick: you must specify the nick of the player to kick
return
}
var %i = 1
while (%i <= 8) {
if ($dbzer(%i).nick == $1-) {
remove.user %i 1
return
}
inc %i
}
if (%i >= 8) {
print »»» kick: invalid player name
return
}
}
alias -l remove.user {
if ($sock($sockuser($1))) { sockclose $sockuser($1) }
hdec dragonball.server total
var %p = 0, %order = $dbzer($1).order, %i = 1
if ($player(1).id == $1) %p = 1
elseif ($player(2).id == $1) %p = 2
hdel -w dragonball.server user $+ $1 $+ *
hdel -w dragonball player $+ %p $+ *
if (%p > 0) {
hadd dragonball.server winner $iif(%p == 1,2,1)
end.match
}
else {
while (%i <= 8) {
if ($dbzer(%i).order >= %order) hdec dragonball.server user $+ [ %i ] $+ . $+ order
inc %i
}
}
if ($2 == 1) broadcast KICK $1
else broadcast QUIT $1
}
alias -l parse.keys {
if ($hget(dragonball.server,ui) != 1) return
var %p = 1
while (%p <= 2) {
if ($hget(dragonball.server,status) == 3) && ($player(%p).char !isnum 0-9) {
var %cursor = $hget(dragonball.server,cursor $+ %p)
if ($player(%p).key_left == 1) {
player %p key_left 0
if (%cursor != 0) && (%cursor != 5) hdec dragonball.server cursor $+ [ %p ]
}
elseif ($player(%p).key_right == 1) {
player %p key_right 0
if (%cursor != 4) && (%cursor != 9) hinc dragonball.server cursor $+ [ %p ]
}
elseif ($player(%p).key_up == 1) {
player %p key_up 0
if (%cursor > 4) hdec dragonball.server cursor $+ [ %p ] 5
}
elseif ($player(%p).key_down == 1) {
player %p key_down 0
if (%cursor <= 4) hinc dragonball.server cursor $+ [ %p ] 5
}
elseif ($player(%p).key_enter == 1) {
player %p key_enter 0
player %p char $int($hget(dragonball.server,cursor $+ %p))
broadcast SELECT %p $player(%p).char
if ($player(1).char isnum 0-9) && ($player(2).char isnum 0-9) {
hadd dragonball.server status 4 $player(1).char $player(2).char $rand(1,3)
.timerdbz-startfight -o 1 2 broadcast STATUS $hget(dragonball.server,status)
}
}
}
elseif ($left($hget(dragonball.server,status),1) == 4) {
if ($player(%p).key_punch == 1) {
player %p key_punch 0
if ($player(%p).anim == 0) || ($player(%p).anim == 1) || ($player(%p).anim == 2) || ($player(%p).anim == 11) {
player.play.anim %p 3
}
elseif ($player(%p).anim == 6) player.play.anim %p 17
elseif ($player(%p).anim == 7) player.play.anim %p 18
elseif ($player(%p).anim == 8) player.play.anim %p 19
}
elseif ($player(%p).key_kick == 1) {
player %p key_kick 0
if ($player(%p).anim == 0) || ($player(%p).anim == 1) || ($player(%p).anim == 2) || ($player(%p).anim == 11) {
player.play.anim %p 4
}
elseif ($player(%p).anim == 6) player.play.anim %p 14
elseif ($player(%p).anim == 7) player.play.anim %p 15
elseif ($player(%p).anim == 8) player.play.anim %p 16
}
elseif ($player(%p).key_highkick == 1) {
player %p key_highkick 0
if ($player(%p).anim == 0) || ($player(%p).anim == 1) || ($player(%p).anim == 2) || ($player(%p).anim == 11) {
player.play.anim %p 5
}
elseif ($player(%p).anim == 6) player.play.anim %p 14
elseif ($player(%p).anim == 7) player.play.anim %p 15
elseif ($player(%p).anim == 8) player.play.anim %p 16
}
elseif ($player(%p).key_up == 1) {
if ($player(%p).anim == 0) || ($player(%p).anim == 1) || ($player(%p).anim == 2) || ($player(%p).anim == 11) {
if ($player(%p).key_left == 1) {
if ($player(%p).side == 1) player.play.anim %p 7
else player.play.anim %p 8
}
elseif ($player(%p).key_right == 1) {
if ($player(%p).side == 1) player.play.anim %p 8
else player.play.anim %p 7
}
else player.play.anim %p 6
}
}
elseif ($player(%p).key_left == 1) {
if ($player(%p).anim == 0) || ($player(%p).anim == 1) || ($player(%p).anim == 2) || ($player(%p).anim == 11) {
if ($player(%p).side == 1) player.play.anim %p 1
else player.play.anim %p 2
}
}
elseif ($player(%p).key_right == 1) {
if ($player(%p).anim == 0) || ($player(%p).anim == 1) || ($player(%p).anim == 2) || ($player(%p).anim == 11) {
if ($player(%p).side == 1) player.play.anim %p 2
else player.play.anim %p 1
}
}
elseif ($player(%p).key_block == 1) {
if ($player(%p).anim == 0) || ($player(%p).anim == 1) || ($player(%p).anim == 2) || ($player(%p).anim == 11) {
player.play.anim %p 11
}
}
elseif ($player(%p).key_blast == 1) {
if ($player(%p).anim == 0) || ($player(%p).anim == 1) || ($player(%p).anim == 2) || ($player(%p).anim == 11) {
player %p key_blast 0
player.play.anim %p 13
}
}
elseif ($player(%p).anim == 1) || ($player(%p).anim == 2) || ($player(%p).anim == 11) {
player.stop %p
}
}
inc %p
}
}
/*
=============================================================
====== USER =================================================
=============================================================
*/
alias -l dbzuser {
if ($isid) return $hget(dragonball.users, [ user $+ [ $1 ] $+ . $+ [ $prop ] ] )
else hadd dragonball.users user $+ [ $1 ] $+ . $+ [ $2 ] $3-
}
on *:sockclose:dbz_connect: {
if (!$db(error)) {
db error Server disconnected
msg.menu
}
}
alias -l connect {
db error
db score
db st connecting
drawrect -nrf @DragonBall $db(bgcolor2) 1 131 11 256 190
drawfont 93 connecting
drawdot @DragonBall
if ($1) {
hadd dragonball.config ip $ip
hadd dragonball.config port $hget(dragonball.config,serverport)
hadd dragonball.config password $hget(dragonball.config,serverpassword)
}
sockopen dbz_connect $hget(dragonball.config,ip) $hget(dragonball.config,port)
if ($hget(dragonball.users)) hfree dragonball.users
hmake dragonball.users 10
db ms 0
}
alias -l drawfont {
if (!$2) return
var %txt = $upper($2-), %i = 1, %pos = $int($calc(131 + (128 - $len($2-) *16 / 2)))
while (%i <= $len($2-)) {
if ($asc($mid(%txt,%i,1)) != 32) drawcopy -nt @dbz.tmp.font 0 $calc($fontnum($asc($mid(%txt,%i,1))) * 16) 0 16 16 @dragonball %pos $int($1)
inc %i
inc %pos 16
}
}
alias -l fontnum {
if ($1 >= 65) && ($1 <= 90) return $calc($1 - 65)
elseif ($1 == 40) || ($1 == 41) return $calc($1 - 14)
elseif ($1 == 33) return 28
elseif ($1 == 45) return 30
elseif ($1 == 46) return 31
elseif ($1 == 58) return 32
elseif ($1 == 39) || ($1 == 34) || ($1 == 96) return 33
elseif ($1 == 44) return 34
else return 29
}
on *:sockwrite:dbz_connect: {
if ($sockerr > 0) {
db error Server disconnected
msg.menu
}
}
on *:sockread:dbz_connect: {
if ($sockerr > 0) {
db error Server disconnected
msg.menu
return
}
var %data
sockread %data
tokenize 32 %data
if ($db(debug)) echo @debug-tcp (get) $1- ( $+ ms $db(ms) $+ )
if ($1 == CONNECTED) {
envoi INFOS $+ $chr(30) $+ $db(version) $+ $chr(30) $+ $hget(dragonball.config,nick) $+ $chr(30) $+ $hget(dragonball.config,password)
}
elseif ($1 == INVALID_VERSION) {
db error Invalid version - This server is running with DBZ v $+ $2
msg.menu
}
elseif ($1 == INVALID_PASSWORD) {
db error Invalid password
msg.menu
}
elseif ($1 == ACCEPTED) {
envoi_udp L $int($2)
db me $3-
}
elseif ($1 == USER_END) {
if ($db(ms) != 1) db ms 1
update.list
}
elseif ($1 == USER) {
dbzuser $int($2) order $3
dbzuser $int($2) win $4
dbzuser $int($2) lost $5
if ($3 == 1) || ($3 == 2) player $3 nick $6-
dbzuser $int($2) nick $6-
}
elseif ($1 == JOIN) {
dbzuser $int($2) order $3
dbzuser $int($2) win 0
dbzuser $int($2) lost 0
if ($3 == 1) || ($3 == 2) player $2 nick $4-
dbzuser $int($2) nick $4-
update.list
if ($db(me) != $4-) print »»» $4- joined the game
else print »»» you joined the game
}
elseif ($1 == QUIT) {
print »»» $dbzuser($2).nick left the game
if ($player(1).nick == $dbzuser($2).nick) hdel -w dragonball player1*
elseif ($player(2).nick == $dbzuser($2).nick) hdel -w dragonball player2*
hdel -w dragonball.users user $+ $2 $+ *
update.list
}
elseif ($1 == KICK) {
print »»» $dbzuser($2).nick was kicked from the game
if ($player(1).nick == $dbzuser($2).nick) hdel -w dragonball player1*
elseif ($player(2).nick == $dbzuser($2).nick) hdel -w dragonball player2*
hdel -w dragonball.users user $+ $2 $+ *
update.list
}
elseif ($1 == SERVER_FULL) {
db error The server is full, connection failed
msg.menu
}
elseif ($1 == STATUS) && ($db(ms) == 1) {
db st $2
if ($timer(dbz-main)) .timerdbz-main off
if ($2 == 1) {
if ($db(score)) return
drawrect -nrf @DragonBall $db(bgcolor2) 1 131 11 256 190
drawfont 68 waiting
drawfont 98 for
drawfont 128 players
drawdot @DragonBall
}
elseif ($2 == 2) {
if ($db(score)) return
drawrect -nrf @DragonBall $db(bgcolor2) 1 131 11 256 190
drawfont 38 next match:
drawfont 98 $player(1).nick
drawfont 128 VS
drawfont 158 $player(2).nick
drawdot @DragonBall
}
elseif ($2 == 3) {
db cursor1 0
db cursor2 4
choose.fighter
}
elseif ($2 == 4) {
player 1 char $int($3)
player 2 char $int($4)
hadd dragonball stage $int($5)
start.match
}
}
elseif ($1 == CHOOSE) {
db st 3
db cursor1 0
db cursor2 4
player 1 char
player 2 char
choose.fighter
}
elseif ($1 == SELECT) {
hadd dragonball choose_ok 1
db cursor $+ $int($2) $int($3)
player $int($2) char $int($3)
playsound ok.wav
choose.fighter
}
elseif ($1 == END_FIGHT) {
hadd dragonball winner $player($int($2)).nick
}
elseif ($1 == MSG) {
if ($3-) print < $+ $dbzuser($2).nick $+ > $strip($3-)
}
}
on *:sockopen:dbz_connect: {
if ($sockerr) {
db error Connection failed
msg.menu
}
}
on *:udpread:dbz_data: {
if ($sockerr > 0) return
var %tmp
sockread %tmp
tokenize 32 %tmp
if ($db(debug)) {
echo @debug-udp (get) $1-
}
if ($1 == p) {
if ($db(server) != 1) player.play.anim $2 $3
}
elseif ($1 == s) && ($db(server) != 1) {
player $2 x $3
player $2 y 122
player.stop $2
player $iif($2 == 1,2,1) x $4
hadd dragonball stage.x $5
}
elseif ($1 == e) && ($db(server) != 1) {
player $int($2) nrj $int($3)
player.nrj
}
elseif ($1 == CURCHANGE) {
db cursor1 $int($2)
db cursor2 $int($3)
choose.fighter
playsound menu
}
}
alias -l envoi {
sockwrite -tn dbz_connect $1-
}
alias -l envoi_udp {
if ($hget(dragonball.config,ip)) sockudp -ktn dbz_data $hget(dragonball.config,ip) $hget(dragonball.config,port) $1-
}
alias -l choose.fighter {
if ($db(score)) return
drawrect -nrf @DragonBall $db(bgcolor2) 1 131 11 256 190
drawfont 20 select fighter
drawcopy -nt @dbz.tmp.char $rgb(192,192,192) 0 0 200 50 @DragonBall 155 58
drawcopy -nt @dbz.tmp.char $rgb(192,192,192) 200 0 200 50 @DragonBall 155 128
var %color1, %color2
if ($player(1).char isnum 0-9) %color1 = $rgb(255,200,0)
else %color1 = $rgb(0,0,255)
if ($player(2).char isnum 0-9) %color2 = $rgb(255,200,0)
else %color2 = $rgb(128,0,0)
if ($db(cursor1) <= 4) {
drawtext -cnr @dragonball $iif(%color1 != $rgb(255,200,0),$rgb(255,255,255),0) Verdana -7 $calc(155 + $db(cursor1) *40) 45 40 12 $player(1).nick
drawtext -cnr @dragonball %color1 Verdana -7 $calc(154 + $db(cursor1) *40) 44 40 12 $player(1).nick
drawrect -dnr @dragonball $iif(%color1 != $rgb(255,200,0),$rgb(255,255,255),0) 1 $calc(156 + $db(cursor1) *40) 59 40 50 10 10
drawrect -dnr @dragonball %color1 1 $calc(155 + $db(cursor1) *40) 58 40 50 10 10
}
else {
drawtext -cnr @dragonball $iif(%color1 != $rgb(255,200,0),$rgb(255,255,255),0) Verdana -7 $calc(155 + ($db(cursor1) -5) *40) 115 40 12 $player(1).nick
drawtext -cnr @dragonball %color1 Verdana -7 $calc(154 + ($db(cursor1) -5) *40) 114 40 12 $player(1).nick
drawrect -dnr @dragonball $iif(%color1 != $rgb(255,200,0),$rgb(255,255,255),0) 1 $calc(156 + ($db(cursor1) -5) *40) 129 40 50 10 10
drawrect -dnr @dragonball %color1 1 $calc(155 + ($db(cursor1) -5) *40) 128 40 50 10 10
}
if ($db(cursor2) <= 4) {
drawtext -cnr @dragonball $iif(%color2 != $rgb(255,200,0),$rgb(255,255,255),0) Verdana -7 $calc(155 + $db(cursor2) *40) 45 40 12 $player(2).nick
drawtext -cnr @dragonball %color2 Verdana -7 $calc(154 + $db(cursor2) *40) 44 40 12 $player(2).nick
drawrect -dnr @dragonball $iif(%color2 != $rgb(255,200,0),$rgb(255,255,255),0) 1 $calc(156 + $db(cursor2) *40) 59 40 50 10 10
drawrect -dnr @dragonball %color2 1 $calc(155 + $db(cursor2) *40) 58 40 50 10 10
}
else {
drawtext -cnr @dragonball $iif(%color2 != $rgb(255,200,0),$rgb(255,255,255),0) Verdana -7 $calc(155 + ($db(cursor2) -5) *40) 115 40 12 $player(2).nick
drawtext -cnr @dragonball %color2 Verdana -7 $calc(154 + ($db(cursor2) -5) *40) 114 40 12 $player(2).nick
drawrect -dnr @dragonball $iif(%color2 != $rgb(255,200,0),$rgb(255,255,255),0) 1 $calc(156 + ($db(cursor2) -5) *40) 129 40 50 10 10
drawrect -dnr @dragonball %color2 1 $calc(155 + ($db(cursor2) -5) *40) 128 40 50 10 10
}
drawdot @DragonBall
}
alias -l update.list {
drawrect -nrf @DragonBall $db(bgcolor2) 1 399 26 108 28
drawrect -nrf @DragonBall $db(bgcolor2) 1 399 101 108 100
if ($player(1).nick) drawtext -ncbr @DragonBall $iif($player(1).nick != $db(me),$db(color),$db(color2)) $db(bgcolor2) verdana -7 401 28 103 12 $player(1).nick
if ($player(2).nick) drawtext -ncbr @DragonBall $iif($player(2).nick != $db(me),$db(color),$db(color2)) $db(bgcolor2) verdana -7 401 40 103 12 $player(2).nick
var %i = 1
var %order, %j, %k, %me_id, %win
while (%i <= 9) {
if ($dbzuser(%i).order) {
%order = %order $dbzuser(%i).order $+ %i
%win = %win $dbzuser(%i).win $+ %i
}
inc %i
}
%order = $sorttok(%order,32,n)
%win = $sorttok(%win,32,nr)
var %y = 102
%i = 1
while (%i <= $numtok(%order,32)) {
%j = $right($gettok(%order,%i,32),1)
%k = $right($gettok(%win,%i,32),1)
dbzuser %k rank %i
if ($dbzuser(%j).nick != $player(1).nick) && ($dbzuser(%j).nick != $player(2).nick) {
if ($dbzuser(%j).nick) drawtext -ncbr @DragonBall $iif($dbzuser(%j).nick != $db(me),$db(color),$db(color2)) $db(bgcolor2) verdana -7 401 %y 103 12 $dbzuser(%j).nick
inc %y 12
}
if ($dbzuser(%j).nick == $db(me)) %me_id = %j
inc %i
}
drawrect -nrf @DragonBall $db(bgcolor2) 1 11 26 108 40
drawtext -ncbr @DragonBall $db(color) $db(bgcolor2) verdana -7 13 28 103 12 Rank: $dbzuser(%me_id).rank
drawtext -ncbr @DragonBall $db(color) $db(bgcolor2) verdana -7 13 40 103 12 Win: $dbzuser(%me_id).win
drawtext -ncbr @DragonBall $db(color) $db(bgcolor2) verdana -7 13 52 103 12 Lost: $dbzuser(%me_id).lost
if (!$1) drawdot @DragonBall
}
alias -l keydown {
envoi_udp 1 $1
}
alias -l keyup {
envoi_udp 0 $1
}
on *:KEYDOWN:@Dragonball:*: {
if (!$keyrpt) {
if ($db(click) >= 1) {
x-gui Set @dragonball > text $calc($db(click) +20) key $keyval
db click
config.menu
return
}
if ($keyval == 13) {
keydown enter
}
if ($keyval == $hget(dragonball.config,up)) {
keydown up
}
elseif ($keyval == $hget(dragonball.config,down)) {
keydown down
}
elseif ($keyval == $hget(dragonball.config,left)) {
keydown left
}
elseif ($keyval == $hget(dragonball.config,right)) {
keydown right
}
elseif ($keyval == $hget(dragonball.config,block)) {
keydown block
}
elseif ($keyval == $hget(dragonball.config,punch)) {
keydown punch
}
elseif ($keyval == $hget(dragonball.config,kick)) {
keydown kick
}
elseif ($keyval == $hget(dragonball.config,highkick)) {
keydown highkick
}
elseif ($keyval == $hget(dragonball.config,blast)) {
keydown blast
}
}
}
on *:KEYUP:@Dragonball:*: {
if ($keyval == 13) {
keyup enter
}
if ($keyval == $hget(dragonball.config,up)) {
keyup up
}
elseif ($keyval == $hget(dragonball.config,down)) {
keyup down
}
elseif ($keyval == $hget(dragonball.config,left)) {
keyup left
}
elseif ($keyval == $hget(dragonball.config,right)) {
keyup right
}
elseif ($keyval == $hget(dragonball.config,block)) {
keyup block
}
elseif ($keyval == $hget(dragonball.config,punch)) {
keyup punch
}
elseif ($keyval == $hget(dragonball.config,kick)) {
keyup kick
}
elseif ($keyval == $hget(dragonball.config,highkick)) {
keyup highkick
}
elseif ($keyval == $hget(dragonball.config,blast)) {
keyup blast
}
}
ON *:SIGNAL:xGUI: {
;echo [ x-gui signal ] $1-
if ($1 == @dragonball) {
if ($2 == joystick) {
;process joystick events
if ($3 == move) {
if ($4 == -1) keydown right
else if ($4 == 1) keydown left
if ($5 == 1) keydown up
elseif ($5 == -1) keydown down
if ($4 == 0) { keyup right | keyup left }
if ($5 == 0) { keyup up | keyup down }
}
else if ($3 == button) {
if ($4) keydown punch
else keyup punch
if ($5) keydown kick
else keyup kick
if ($6) keydown highkick
else keyup highkick
if ($7) keydown blast
else keyup blast
}
}
elseif ($3 == 2) {
if ($2 == enter) {
tokenize 32 $x-gui(Editbox,@DragonBall > GetText 2)
if (!$1) return
if ($left($1,1) == /) {
if ($1 == /kick) kick.player $2-
else print »»» invalid command
}
else envoi MSG $x-gui(Editbox,@DragonBall > GetText 2)
x-gui Set @DragonBall > text 2
}
elseif ($2 == setfocus) {
x-gui Set @DragonBall > color 2 $db(bgcolor3) $db(color)
}
elseif ($2 == killfocus) {
x-gui Set @DragonBall > color 2 $db(bgcolor2) $db(color)
}
}
elseif ($3 > 20) && ($3 < 30) && ($2 == setfocus) {
x-gui Set @dragonball > nofocus 20
db click $calc($3 - 20)
config.menu
}
elseif ($3 == 90) || ($3 == 91) && ($2 == setfocus) {
x-gui Set @dragonball > nofocus 20
if ($x-gui(Get,@dragonball > text $3)) x-gui Set @dragonball > text $3
else x-gui Set @dragonball > text $3 $chr(149)
}
elseif ($3 == 42) && ($2 == sclick) x-gui Set @dragonball > nofocus 42
elseif ($3 == 42) && ($2 == dclick) {
x-gui Set @dragonball > nofocus 42
servers.list.join
}
}
}
/*
=====================
= That's all folks :)
=====================
*/