Useless and Random Scripts Please!!
#17
heres some scripts that i have, but not sure if they are as up to date..

[cubescript]
/////////////////////////////////////////////
////////// Zombie Script v3.0 ///////////////
/////////////////////////////////////////////
// By: X-Ray-Dog
///////////////////////////

if (= $Zfirstrun 1) [] [bind F3 [ if (= $Zfirstrun 1) [ bind F3 [ showmenu Zombies ] ; showmenu Zombies ] [ Tdmlevel = 0 ;Tdmhigh = 0; Tdmall = 0 ; levelset = 30; Stats = 1 ;
Fragup = 0; Levelup = 0; Tdup = 1 ; Tdlhigh = 1 ;Tdlall = 0 ; Dmlevel = 0 ;Dmhigh = 0; Dmall = 0 ;Dlup = 1 ; Dlhigh = 1 ; Showmenu = 1 ; Spamstats = 0 ; Clock = 1 ;
Dlall = 0 ; Tslevel = 0 ;Tshigh = 0; Tsall = 0 ; Tsup = 1 ; Tslhigh = 1 ;Tslall = 0 ; Zfirstrun = 1 ; sleep 10 [ showmenu Zombies ; echo Mode now installed! ] ] ]]

newmenu Zombies
menuitem "Start the Zombies!" [ disconnect ; if (= $Showmenu 1) [ showmenu "How To Play" ] [ showmenu Zmaps ] ]
menuitem "Statistics" [ showmenu Statistics ]
menuitem "Settings" [ showmenu "Zombie Settings" ]
menuitem " 3Cancel" [ closemenu ]
menuitem "" -1
menuitem "Zombies By X-Ray_Dog" [ echo 3Please read the readme!; sleep 10 [ showmenu Zombies ] ]

newmenu "Zombie Settings"
menuitemcheckbox "Show play instructions " "$Showmenu" [ Showmenu = $arg1 ]
menuitemcheckbox "Show time remaining " "$Clock" [ Clock = $arg1 ]
menuitemcheckbox "Spam live script data " "$Spamstats" [ Spamstats = $arg1 ; if (= $Stats 0) [ Stats = 1 ] [] ]
menuitemcheckbox "Update my statistics " "$Stats" [ Stats = $arg1 ; if (= $Spamstats 1) [Spamstats = 0] [] ]
menuitemslider "Set maximum level: " 10 50 "$levelset" 2 "" [ levelset = $arg1 ]

newmenu Modes
menuitem " 0Team Deathmatch 5(easy)" [ preparebotmatch; tdstart 1 ; clearall ; Tdmlevel = 0 ; Tdmtmp = 0 ; Tdup = 1]
menuitem " 2Deathmatch 5(medium)" [ preparebotmatch; dstart 1 ; clearall ; Dmlevel = 0 ; Dmtmp = 0 ; Dlup = 1 ]
menuitem " 3Team Survival 5(hard)" [ preparebotmatch; tsstart 1 ; clearall ; Tslevel = 0 ; Tstmp = 0 ; Tsup = 1 ]

newmenu "How To Play"
menuitem "To exit the game, hit ESC." -1
menuitem "You have to kill at least 2 Zombies." -1
menuitem "Command keys are binded blank." -1
menuitem "If you die, the game ends." -1
menuitem "" -1
menuitem " 0I understand, lets go!" [ showmenu Zmaps ]

newmenu Statistics
menuitem " 3Team Deathmatch" -1
menuitem " 2Zombies killed" -1
menuitemvar ("concat Last game: $Tdmlevel") []
menuitemvar ("concat Highest ever: $Tdmhigh") []
menuitemvar ("concat Total kills: $Tdmall") []
menuitem " 2Level reached" -1
menuitemvar ("concat Last game: $Tdup") []
menuitemvar ("concat Highest ever: $Tdlhigh") []
menuitemvar ("concat Total won: $Tdlall") []
menuitem "" -1
menuitem " 3Deathmatch" -1
menuitem " 2Zombies killed" -1
menuitemvar ("concat Last game: $Dmlevel") []
menuitemvar ("concat Highest ever: $Dmhigh") []
menuitemvar ("concat Total kills: $Dmall") []
menuitem " 2Level reached" -1
menuitemvar ("concat Last game: $Dlup") []
menuitemvar ("concat Highest ever: $Dlhigh") []
menuitemvar ("concat Total won: $Dlall") []
menuitem "" -1
menuitem " 3Team Survival" -1
menuitem " 2Zombies killed" -1
menuitemvar ("concat Last game: $Tslevel") []
menuitemvar ("concat Highest ever: $Tshigh") []
menuitemvar ("concat Total kills: $Tsall") []
menuitem " 2Level reached" -1
menuitemvar ("concat Last game: $Tsup") []
menuitemvar ("concat Highest ever: $Tslhigh") []
menuitemvar ("concat Total won: $Tslall") []
menuitem "" -1
menuitemvar ("concat All kills: $Fragup") []
menuitemvar ("concat All levels: $Levelup") []
menuitem " 3Reset all" [ Tdmlevel = 0 ;Tdmhigh = 0; Tdmall = 0 ; Tdup = 1 ; Tdlhigh = 1 ;Tdlall = 0 ; Dmlevel = 0 ;Dmhigh = 0; Dmall = 0 ; Fragup = 0; Levelup = 0;
Dlup = 1 ; Dlhigh = 1 ;Dlall = 0 ; Tslevel = 0 ;Tshigh = 0; Tsall = 0 ; Tsup = 1 ; Tslhigh = 1 ;Tslall = 0 ; sleep 10 [ showmenu Statistics ] ]

Tempfrag = [ Fragup = (+ (+ $Tdmall $Dmall) $Tsall) ]
Templvl = [ Levelup = (+ (+ $Tdlall $Dlall) $Tslall) ]

newmenu Zmaps
alias genbotmaps [ arg1_ = $arg1 ;
loop i (listlen $arg1) [ alias listmapname (at $arg1 $i) alias menutext $listmapname (concat map $listmapname)
menuitemmapload $listmapname (concat tmp_botmap "=" $listmapname ";"[ rndset; showmenu Modes ] ) ] ]
genbotmaps $defaultmaps
alias tmp_botskill
alias tmp_numbots
alias tmp_mode 7
alias tmp_botmap

newmenu "Quit Zombies"
menuitem "In progress options:" -1
menuitem "" -1
menuitem "Statistics" [ showmenu Statistics ]
menuitemtextinput "Mouse Sensitivity: " "$sensitivity" "sensitivity $arg1"
menuitem "Stop the game" [ resetmybinds ; rndset; showmenu Zombies ]

clearall = [ zESCAPE = (keybind ESCAPE); bind ESCAPE [ showmenu "Quit Zombies" ]; bind F3 [ ]; zSLASH = (keybind SLASH); bind SLASH [ echo Press Esc ];
zCARET = (keybind CARET); bind CARET [ echo Press Esc ]; zBACKQUOTE = (keybind BACKQUOTE); bind BACKQUOTE [ echo Press Esc ];
zT = (keybind T); bind T [ echo Press Esc ]; zY = (keybind Y); bind Y [ echo Press Esc ]; zE = (keybind E); bind E [ echo Press Esc ]]

resetmybinds = [ bind ESCAPE $zESCAPE; bind F3 [ showmenu Zombies ]; bind SLASH $zSLASH; bind CARET $zCARET; bind BACKQUOTE $zBACKQUOTE;
bind T $zT; bind Y $zY; bind E $zE]

killgame = [ arg2_ = $arg2 ; loop i 1 [ sleep 500 [ killgame 0 $arg2_ ] ]; //In Game Death Detection refreshes every 0.5 seconds
tmpdeaths = 0
if (strcmp (findpn $arg1) "") [result -1] [
tmpdeaths = (at (pstat_score $arg1) 2)
result $tmpdeaths ]; if (> $tmpdeaths 0) [ rndset ; sleep 3000 [ echo Sorry, but it seems you have 3died. ] ;
sleep 4000 [ echo You made it to 0level $arg2_ ] ; sleep 5000 [ echo Thanks for playing! ] ; resetmybinds ] [] ]

Timer = [ if (= $Clock 1) [ sleep 20000 [ echo 0:40 remaining ] ; sleep 40000 [ echo 0:20 remaining ] ; sleep 55000 [ echo 3Claim your final kill! ]] []]

killmate = [ arg2_ = $arg2 ; tmpdeaths = 0 //Team Survival death detection refreshes every 0.55 seconds
if (strcmp (findpn $arg1) "") [result -1] [
tmpdeaths = (at (pstat_score $arg1) 2)
result $tmpdeaths ]; if (> $tmpdeaths 0) [ rndset ; sleep 3000 [ echo Your 3teammate 5died during the round, sorry. ];
sleep 4000 [ echo You made it to 0level $arg2_ ] ; sleep 5000 [ echo Thanks for playing! ]; resetmybinds ] [ ] ;
sleep 550 [ killmate 1 $arg2_ ] ]

campfrags = [ tmpfrags = 0 //The camping kick list for the levels. Default of 2 kills needed to pass
if (strcmp (findpn $arg1) "") [result -1] [
tmpfrags = (at (pstat_score $arg1) 1)
result $tmpfrags ] ; if (> $tmpfrags 1) [ ] [ rndset ; sleep 3000 [ echo 3Camping detected 5, game has ended! ];
sleep 5000 [ echo Thanks for playing! ]; resetmybinds ] ]

rndset = [ tdm ac_desert; sleep 20 [ team CLA ] ] //Default mode change and team. DO NOT MODIFY!

level = [ if (> (+ $arg1 1) $levelset ) [ rndset ; arg1_ = $arg1 ; sleep 3000 [ echo You have reached the stopping point of 0 $levelset levels! ] ;
sleep 5000 [ echo Thanks for playing! ] ; resetmybinds ] [ ] ]

addOnQuit [ tdstart = ""; dmessage = ""; campfrags = ""; killmate = ""; Dlevel = ""; Tdscore = ""; killgame = ""; tdmessage = "";clearall = "";
Tdlevel = ""; dround = ""; Templvl = ""; tsstart = "", tmessage = ""; Tlevel = ""; Tsscore = ""; tdround = ""; rndset = ""; Tempfrag = "";
resetmybinds = ""; dsstart = ""; tsround = ""; Timer = ""; Dscore = ""; level = ""; dstart = ""; tsmessage = ""; zESCAPE = "";
tmp_botmap = ""; genbotmaps = ""; zY = ""; zT = ""; zE = ""; zSLASH = ""; zCARET = ""; zBACKQUOTE = "" ]

//**************Begin the DM portion of the game***********************

dstart = [ arg1_ = $arg1 ; sleep 3000 [ echo 3Get ready ]; sleep 4000 [ echo 2Get Set ]; sleep 5000 [ echo 0Go! ; Dscore 0 ];
sleep 6000 [ dround $arg1_ ; sleep 61000 [ dmessage $arg1_ ] ; killgame 0 $arg1_ ] ]

dround = [ Timer; addnbot $arg1 RVSF good ; sleep 60000 [ kickallbots; campfrags ] ]

dmessage = [ arg1_ = $arg1 ; echo 2You did it! ; Dlevel ; sleep 1000 [ if (= $Stats 1) [ echo 2You have killed 3 $Dmlevel Zombies 2so far! ] [] ] ;
sleep 2000 [ echo 0Round (+ $arg1_ 1) 2starts in 3 seconds... ]; sleep 5000 [ Dmtmp = 0 ; preparebotmatch; dstart (+ $arg1_ 1) ] ; sleep 1500 [ level $arg1_ ] ]

Dscore = [ if (= $Stats 1) [ loop i 1 [ sleep 1000 [ Dscore 0 ] ] ; tmpfrags = 0 //Deathmatch auto score saved every 1 second
if (strcmp (findpn $arg1) "") [result -1] [ tmpfrags = (at (pstat_score $arg1) 1)
result $tmpfrags ] ;Tempfrag ; Templvl; if (> $tmpfrags $Dmtmp) [ Dmlevel = (+ $Dmlevel 1) ; Dmtmp = (+ $Dmtmp 1) ; Dmall = (+ $Dmall 1 ) ;
if (> $Dmlevel $Dmhigh) [ Dmhigh = $Dmlevel ] [] ] [if (= $Spamstats 1) [ echo $Dmtmp $Dmlevel $Dmhigh $Dmall $Dlup $Dlhigh $Dlall ] [] ] ] [] ]

Dlevel = [ if (= $Stats 1) [ Dlup = (+ $Dlup 1) ; Dlall = (+ $Dlall 1) ; if (> $Dlup $Dlhigh) [ Dlhigh = $Dlup ] [] ] [] ] //Statistics calculator

//**************Begin the TDM portion of the game**********************

tdstart = [ arg1_ = $arg1 ; sleep 3000 [ echo 3Get ready ]; sleep 4000 [ echo 2Get Set ]; sleep 5000 [ echo 0Go! ; Tdscore 0 ];
sleep 6000 [ tdround $arg1_ ; sleep 61000 [ tdmessage $arg1_ ] ; killgame 0 $arg1_ ] ]

tdround = [ Timer; addnbot $arg1 RVSF good ; addnbot 2 CLA best ; sleep 60000 [ kickallbots; campfrags ] ]

tdmessage = [ arg1_ = $arg1 ; echo 2You did it!; Tdlevel ; sleep 1000 [ if (= $Stats 1) [ echo 2You have killed 3 $Tdmlevel Zombies 2so far! ] [] ] ;
sleep 2000 [ echo 0Round (+ $arg1_ 1) 2starts in 3 seconds... ] ; sleep 5000 [ Tdmtmp = 0; preparebotmatch; tdstart (+ $arg1_ 1) ] ; sleep 1500 [ level $arg1_ ] ]

Tdscore = [ if (= $Stats 1) [ loop i 1 [ sleep 1000 [ Tdscore 0 ] ] ; tmpfrags = 0 //Team deathmatch auto score saved every 1 second
if (strcmp (findpn $arg1) "") [result -1] [ tmpfrags = (at (pstat_score $arg1) 1)
result $tmpfrags ] ;Tempfrag ; Templvl; if (> $tmpfrags $Tdmtmp) [ Tdmlevel = (+ $Tdmlevel 1) ; Tdmtmp = (+ $Tdmtmp 1) ; Tdmall = (+ $Tdmall 1 ) ;
if (> $Tdmlevel $Tdmhigh) [ Tdmhigh = $Tdmlevel ] [] ] [ if (= $Spamstats 1) [ echo $Tdmtmp $Tdmlevel $Tdmhigh $Tdmall $Tdup $Tdlhigh $Tdlall ] [] ] ] [] ]

Tdlevel = [ if (= $Stats 1) [ Tdup = (+ $Tdup 1) ; Tdlall = (+ $Tdlall 1) ; if (> $Tdup $Tdlhigh) [ Tdlhigh = $Tdup ] [] ] [] ] //Statistics calculator

//**************Begin the TSURV portion of the game********************

tsstart = [ arg1_ = $arg1 ; sleep 3000 [ echo 3Get ready ]; sleep 4000 [ echo 2Get Set ]; sleep 5000 [ echo 0Go! ; Tsscore 0 ];
sleep 6000 [ tsround $arg1_ ; sleep 61000 [ tsmessage $arg1_ ] ; killgame 0 $arg1_ ] ; killmate 1 $arg1_ ]

tsround = [ arg1_ = $arg1 ; Timer; sleep 100 [ addnbot $arg1_ RVSF good ] ; addnbot 1 CLA best ; sleep 60000 [ kickallbots; campfrags ] ]

tsmessage = [ arg1_ = $arg1 ; echo 2You did it!; Tlevel; sleep 1000 [ if (= $Stats 1) [ echo 2You have killed 3 $Tslevel Zombies 2so far! ] [] ] ;
sleep 2000 [ echo 0Round (+ $arg1_ 1) 2starts in 3 seconds...] ; sleep 5000 [ Tstmp = 0; preparebotmatch; tsstart (+ $arg1_ 1) ] ; sleep 1500 [ level $arg1_ ] ]

Tsscore = [ if (= $Stats 1) [ loop i 1 [ sleep 1000 [ Tsscore 0 ] ] ; tmpfrags = 0 //Team Survival auto score saved every 1 second
if (strcmp (findpn $arg1) "") [result -1] [ tmpfrags = (at (pstat_score $arg1) 1)
result $tmpfrags ] ;Tempfrag ; Templvl; if (> $tmpfrags $Tstmp) [ Tslevel = (+ $Tslevel 1) ; Tstmp = (+ $Tstmp 1) ; Tsall = (+ $Tsall 1 ) ;
if (> $Tslevel $Tshigh) [ Tshigh = $Tslevel ] [] ] [if (= $Spamstats 1) [ echo $Tstmp $Tslevel $Tshigh $Tsall $Tsup $Tslhigh $Tslall ] [] ] ] [] ]

Tlevel = [ if (= $Stats 1) [ Tsup = (+ $Tsup 1) ; Tslall = (+ $Tslall 1) ; if (> $Tsup $Tslhigh) [ Tslhigh = (+ $Tslhigh 1) ] [] ] [] ] //Statistics calculator[/cubescript]

edit: removed

[cubescript]///////////////////////////////////////////////////
/////////// flickering lights script //////////////
///////////////////////////////////////////////////
//
////////////////////////////////////////
// Flickering Lights! :D //
// =============================== //
// Origionaly By: NSL:BlueShif //
// Edited by: Iguana & eynstyne //
// //
//Usage: //
// to start light flickering, //
// type: " /start_lf " //
// //
// to stop light flickering, //
// type: " /stop_lf " //
//////////////////////////////////////
///////Settings://///////////////////
////////////////////////////////////

//ADDED ** to restore original game gamma
orig_gamma = $gamma
//How much to scale down the Gamma when lights go out:
lf_gamma_scale = 0.8
//Minimum and maximum times for the darkness to last (in milliseconds):
lf_darkness_mintime = 200
lf_darkness_maxtime = 600
//Minimum and maximum times for the delay between blackouts to last (in milliseconds):
lf_delay_mintime = 500
lf_delay_maxtime = 6000
//Minumum and maximum lightscale values when the lights are turned off:
lf_lightscale_off_min = 55
lf_lightscale_off_max = 100
//Lightscale value when the lights are on:
lf_lightscale_on = 4
//Sound number for lightning
//lf_lightning_number = 86
//Chance each recalc of showing lightning:
lf_lightning_chance = 10
//Time lightning will be displayed for
lf_lightning_time = 100
//Gamma for lightning:
lf_lightning_gamma = 250
//ADDED ** timer variable
lf_time = 50

///////////////////////////////////
/////Main stuff, don't change!/////
///////////////////////////////////

alias start_lf [

//ADDED ** to initialize all aliases
init_lf

if (<= (rnd 100) $lf_lightning_chance) [
lightscale 1
alias de_gamma $gamma
gamma $lf_lightning_gamma
recalc

sleep $lf_lightning_time default_lf
]

]

alias init_lf [

alias lf_off [
lightscale (+ $lf_lightscale_off_min (rnd (- $lf_lightscale_off_max $lf_lightscale_off_min)))
recalc
clearminimap
de_gamma = gamma (*f de_gamma $lf_gamma_scale)
sleep $lf_sleepontime lf_on

]
alias lf_on [
lightscale $lf_lightscale_on
recalc
clearminimap
de_gamma = gamma (divf de_gamma $lf_gamma_scale)
sleep $lf_time start_lf
]
alias lf_sleepofftime (+ $lf_delay_mintime (rnd (- $lf_delay_maxtime $lf_delay_mintime)))
alias lf_sleepontime (+ $lf_darkness_mintime (rnd (- $lf_darkness_maxtime $lf_darkness_mintime)))
sleep $lf_sleepofftime lf_off
alias de_gamma $gamma

]
//ADDED ** Clean up
alias deinit_lf [
alias lf_sleepofftime 0
alias lf_sleepontime 0
alias lf_on 0
alias lf_off 0

default_lf
]
//ADDED ** restore original settings
alias default_lf [
lightscale 4
recalc
clearminimap
gamma (orig_gamma)

]

alias stop_lf [
deinit_lf
]
/////////////////////////////////////////////////////////////////////////////////////
/////////////////////////////////////End/////////////////////////////////////////////
/////////////////////////////////////////////////////////////////////////////////////
////enable below if u want it to automaticly start lightning flash when ac starts////
/////////////////////////////////////////////////////////////////////////////////////
/////////////////////// Messes up your saved.cfg if used below! /////////////////////
/////////////////////////////////////////////////////////////////////////////////////
//
//alias do_flicker [
// sleep 50 [alias mapstartonce do_flicker]
// lf_start
//]
//alias mapstartonce do_flicker
//
//mapstartonce
//
//[ do_flicker ]
//[/cubescript]

[cubescript]////////////////////////////////////////////////////////
/// lightning script - alternative flickering lights ///
////////////////////////////////////////////////////////
// //
// Usage: //
// to start lightning, //
// type: " /Lstorm " //
// //
// to stop lightning, //
// type: " /stoploop storm " //
///////////////////////////////////////
// By: V-man
/////////////////////////////////
alias lightning [
sloop lgt (+ (rnd 5) (rnd 2)) (+ (* (rnd 5) 100) 10) [
lightscale 1
recalc
sleep (+ (rnd 200) 5) [
lightscale 15
recalc]]]

recursive Lstorm [(+ (* (rnd 10) 1000) 3000)] lightning[/cubescript]
Thanks given by:


Messages In This Thread
RE: Useless and Random Scripts Please!! - by Iguana - 02 Mar 12, 07:17PM