What's new

Discussion [DOWNLOAD] Beta..

  • Thread starter Husky7s
  • Start date
  • Views 2,152
Husky7s

Husky7s

Enthusiast
Messages
164
Reaction score
76
Points
85
Sin$
0
An apology is a good way to have the last word.​

Hello everyone. Now I have not been 100% truthful to you guys. I have taken on such a big task in which I could not complete. I kept leading you all on because I'm stupid. From there the momentum just got bigger and bigger. I'm currently sweating one out because I feel so bad. I suck at coding and need to seriously study this before I ever return to this forum. I suck so much' I can't even obscufacte the code. Its all readable (If you know how). This then leads to the database being Cracked. I'm making this open source so hopefully people can learn a little from my awful coding. I'm sorry to each and everyone of you. I hate myself for letting you believe in me. I think my time here on Se7ensins has to end.

Guys I am so so sorry for this. :.(
-Husky
--Passwords are all set to : "password"

Downloads:
---You will need this File!!-------
Download Here
Place this in the APP folder
Husky Beta Build 0.06 .rar 1.73mb
Download here
Husky Source Visual Basic.net 2010 Project13.73mb
Download here

Virus Scan/s
http://gyazo.com/a58917996044449231b9fa7312497f3d
http://gyazo.com/7dd324070313f19d7a6e48cb54900351
http://gyazo.com/a82a725bcab73614e202551e7cbec880
The basics of the code.
Code:
 Private Sub ButtonItem4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonItem4.Click
Dim sfd As New SaveFileDialog
sfd.Filter = "Text File|*.txt"
sfd.ShowDialog()
Dim writer As New System.IO.StreamWriter(sfd.FileName) ' If Save = Cancel | Error appear
writer.Write(TextBoxX64.Text)
writer.Close()
End Sub

Private Sub ButtonItem5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonItem5.Click
Dim sfd As New SaveFileDialog
sfd.Filter = "gsc File|*.gsc"
sfd.ShowDialog()
Dim writer As New System.IO.StreamWriter(sfd.FileName) 'Error to fix > If <User> Cancels Save then BUg Here !! :('
writer.Write(TextBoxX64.Text)
writer.Close()
End Sub

Private Sub ButtonX22_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonX22.Click
Try
Dim stream As New FileStream("_debug.gsc", FileMode.Create)
Dim writer As New StreamWriter(stream)
writer.Write(Me.SourceBox.Text)
writer.Close()
writer.Dispose()
Dim stream2 As New FileStream("_cheat.gsc", FileMode.Create)
Dim writer2 As New StreamWriter(stream2)
writer2.Write("#include common_scripts\utility;#include maps\_utility;#include maps\_hud_util;init(){level thread maps\_debug::init();precachemodel(""zombie_vending_doubletap"");precachestring( &""SCRIPT_PLATFORM_CHEAT_USETOSLOWMO"" );precacheShellshock( ""chaplincheat"" );PrecacheShader( ""hud_bullets_rifle"" );PrecacheShader( ""specialty_juggernaut_zombies"" );PrecacheShader( ""specialty_fastreload_zombies"" );PrecacheShader( ""specialty_doubletap_zombies"" );PrecacheShader( ""specialty_quickrevive_zombies"" );PrecacheShader( ""white"" );precachemodel( ""defaultvehicle"" );PrecacheModel( ""default_static_model"" );PrecacheModel( ""zombie_teleporter_pad"" );PrecacheModel( ""weapon_usa_ray_gun"" );precachemodel ( ""defaultactor"" );PrecacheModel( ""zombie_x2_icon"" );precachemodel ( ""zombie_ammocan"" );precachemodel( ""weapon_zombie_monkey_bomb"" );PrecacheModel( ""zombie_wolf"" );PrecacheModel( ""zombie_carpenter"" );PrecacheModel(""zombie_vending_jugg_on"");PrecacheModel(""zombie_vending_doubletap_on"");PrecacheModel(""zombie_vending_revive_on"");PrecacheModel(""zombie_vending_sleight_on"");precachemodel(""zombie_vending_packapunch_on"");level.vision_cheat_enabled = false;level.tire_explosion = false;level.cheatStates= [];level.cheatFuncs = [];level.cheatDvars = [];level.cheatBobAmpOriginal = GetDvar( ""bg_bobAmplitudeStanding"" );level.cheatShowSlowMoHint = 0;if ( !isdefined( level._effect ) )level._effect = [];level._effect[""grain_test""] = loadfx (""misc/grain_test"");flag_init(""has_cheated"");level.visionSets[""bw""] = false;level.visionSets[""invert""] = false;level.visionSets[""contrast""] = false;level.visionSets[""chaplin""] = false;level thread death_monitor();flag_init( ""disable_slowmo_cheat"" );}player_init(){self thread specialFeaturesMenu();players = get_players();if( self == players[0] ){self slowmo_system_init();}}death_monitor(){setDvars_based_on_varibles();while ( 1 ){if ( issaverecentlyloaded() )setDvars_based_on_varibles();wait .1;}}setDvars_based_on_varibles(){for ( index = 0;index < level.cheatDvars.size;index++ )setDvar( level.cheatDvars[ index ], level.cheatStates[ level.cheatDvars[ index ] ] );if( !isdefined( level.credits_active ) || !level.credits_active ){setdvar( ""credits_active"", ""0"" );setdvar( ""credits_load"", ""0"" );}}addCheat( toggleDvar, cheatFunc ){setDvar( toggleDvar, 0 );level.cheatStates[toggleDvar] = getDvarInt( toggleDvar );level.cheatFuncs[toggleDvar] = cheatFunc;if ( level.cheatStates[toggleDvar] )[[cheatFunc]]( level.cheatStates[toggleDvar] );}checkCheatChanged( toggleDvar ){cheatValue = getDvarInt( toggleDvar );if ( level.cheatStates[toggleDvar] == cheatValue )return;if( cheatValue )flag_set(""has_cheated"");level.cheatStates[toggleDvar] = cheatValue;[[level.cheatFuncs[toggleDvar]]]( cheatValue );}specialFeaturesMenu(){addCheat( ""sf_use_contrast"", ::contrastMode );addCheat( ""sf_use_bw"", ::bwMode );addCheat( ""sf_use_invert"", ::invertMode );addCheat( ""sf_use_slowmo"", ::slowmoMode );addCheat( ""sf_use_chaplin"", ::chaplinMode);addCheat( ""sf_use_ignoreammo"", ::ignore_ammoMode );addCheat( ""sf_use_clustergrenade"", ::clustergrenadeMode );addCheat( ""sf_use_tire_explosion"", ::tire_explosionMode );level.cheatDvars = getArrayKeys( level.cheatStates );for ( ;;){for ( index = 0;index < level.cheatDvars.size;index++ )checkCheatChanged( level.cheatDvars[index] );wait 0.5;}}tire_explosionMode( cheatValue ){if ( cheatValue )level.tire_explosion = true;else level.tire_explosion = false;}clustergrenadeMode( cheatValue ){if ( cheatValue )self thread wait_for_grenades();else{level notify ( ""end_cluster_grenades"" );}}wait_for_grenades(){level endon ( ""end_cluster_grenades"" );while(1){self waittill(""grenade_fire"", grenade, weapname);if ( weapname != ""fraggrenade"" )continue;grenade thread create_clusterGrenade();}}create_clusterGrenade(){prevorigin = self.origin;while(1){if ( !isdefined( self ) )break;prevorigin = self.origin;wait .1;}prevorigin += (0,0,5);numSecondaries = 8;aiarray = getaiarray();if ( aiarray.size == 0 )return;ai = undefined;for ( i = 0;i < aiarray.size;i++ ){if ( aiarray[i].team == ""allies"" ){ai = aiarray[i];break;}}if ( !isdefined( ai ) )ai = aiarray[0];oldweapon = ai.grenadeweapon;ai.grenadeweapon = ""fraggrenade"";for ( i = 0;i < numSecondaries;i++ ){velocity = getClusterGrenadeVelocity();timer = 1.5 + i / 6 + randomfloat(0.1);ai magicGrenadeManual( prevorigin, velocity, timer );}ai.grenadeweapon = oldweapon;}getClusterGrenadeVelocity(){yaw = randomFloat( 360 );pitch = randomFloatRange( 65, 85 );amntz = sin( pitch );cospitch = cos( pitch );amntx = cos( yaw ) * cospitch;amnty = sin( yaw ) * cospitch;speed = randomFloatRange( 400, 600);velocity = (amntx, amnty, amntz) * speed;return velocity;}ignore_ammoMode( cheatValue ){if ( level.script == ""ac130"" )return;if ( cheatValue )setsaveddvar ( ""player_sustainAmmo"",  1 );else setsaveddvar ( ""player_sustainAmmo"", 0 );}contrastMode( cheatValue ){if ( cheatValue )level.visionSets[""contrast""] = true;else level.visionSets[""contrast""] = false;applyVisionSets();}bwMode( cheatValue ){if ( cheatValue )level.visionSets[""bw""] = true;else level.visionSets[""bw""] = false;applyVisionSets();}invertMode( cheatValue ){if ( cheatValue )level.visionSets[""invert""] = true;else level.visionSets[""invert""] = false;applyVisionSets();}applyVisionSets(){if ( level.script == ""ac130"" )return;visionSet = """";if ( level.visionSets[""bw""] )visionSet = visionSet + ""_bw"";if ( level.visionSets[""invert""] )visionSet = visionSet + ""_invert"";if ( level.visionSets[""contrast""] )visionSet = visionSet + ""_contrast"";if ( level.visionSets[""chaplin""] ){level.vision_cheat_enabled = true;visionSetNaked( ""sepia"", 0.5 );}else if ( visionSet != """" ){level.vision_cheat_enabled = true;visionSetNaked( ""cheat"" + visionSet, 1.0 );}else{level.vision_cheat_enabled = false;visionSetNaked( level.lvl_visionset, 3.0 );}}slowmo_system_init(){if( !IsDefined( level.slowmo ) ){level.slowmo = spawnstruct();slowmo_system_defaults();level.slowmo.speed_current = level.slowmo.speed_norm;level.slowmo.lerp_interval = .05;level.slowmo.lerping = 0;}}set_value(){}slowmo_system_defaults(){level.slowmo.lerp_time_in = 0.0;level.slowmo.lerp_time_out = .25;level.slowmo.speed_slow = 0.4;level.slowmo.speed_norm = 1.0;}slowmo_check_system(){return true;}slowmo_hintprint(){if ( level.cheatShowSlowMoHint != 0 ){level.cheatShowSlowMoHint = 0;return;}if ( !level.console )return;level.cheatShowSlowMoHint = 1;myTextSize = 1.6;myHintBack = createIcon( ""black"", 650, 30 );myHintBack.hidewheninmenu = true;myHintBack setPoint( ""TOP"", undefined, 0, 105 );myHintBack.alpha = .2;myHintBack.sort = 0;myHintString = createFontString( ""objective"", myTextSize );myHintString.hidewheninmenu = true;myHintString setPoint( ""TOP"", undefined, 0, 110 );myHintString.sort = 0.5;myHintString setText( &""SCRIPT_PLATFORM_CHEAT_USETOSLOWMO"" );for ( cycles = 0;cycles < 100;cycles++ ){if ( level.cheatShowSlowMoHint != 1 )break;if ( isDefined( level.hintElem ) )break;wait 0.1;}level.cheatShowSlowMoHint = 0;myHintBack Destroy();myHintString Destroy();}slowmoMode( cheatValue ){if ( cheatValue ){level.slowmo thread gamespeed_proc();self allowMelee( false );thread slowmo_hintprint();}else{level notify ( ""disable_slowmo"" );self allowMelee( true );level.slowmo thread gamespeed_reset();level.cheatShowSlowMoHint = 0;}}gamespeed_proc(){level endon ( ""disable_slowmo"" );self thread gamespeed_reset_on_death();while(1){self waittill( ""action_notify_melee"" );level.cheatShowSlowMoHint = 0;if( !flag( ""disable_slowmo_cheat"" ) ){if( self.speed_current < level.slowmo.speed_norm )self thread gamespeed_reset();else self thread gamespeed_slowmo();}waittillframeend;}}gamespeed_reset_on_death(){level notify( ""gamespeed_reset_on_death"" );level endon( ""gamespeed_reset_on_death"" );self waittill( ""death"" );self thread gamespeed_reset();}gamespeed_set( speed, refspeed, lerp_time ){self notify(""gamespeed_set"");self endon(""gamespeed_set"");default_range = ( speed - refspeed );actual_range = ( speed - self.speed_current );actual_rangebytime = actual_range * lerp_time;if( !default_range )return;time = ( actual_rangebytime / default_range );interval = self.lerp_interval;cycles = int( time / interval );if(!cycles)cycles = 1;increment = ( actual_range / cycles );self.lerping = time;while(cycles){self.speed_current += increment;settimescale( self.speed_current );cycles--;self.lerping -= interval;wait interval;}self.speed_current = speed;settimescale( self.speed_current );self.lerping = 0;}gamespeed_slowmo(){gamespeed_set( self.speed_slow, self.speed_norm, self.lerp_time_in );}gamespeed_reset(){gamespeed_set( self.speed_norm, self.speed_slow, self.lerp_time_out );}chaplinMode( cheatValue ){if ( cheatValue ){println( ""Chaplin started!"" );SetSavedDvar( ""chaplincheat"", ""1"" );level.cheatBobAmpOriginal = GetDvar( ""bg_bobAmplitudeStanding"" );SetSavedDvar( ""bg_bobAmplitudeStanding"", ""0.02 0.014"" );MusicStop( 0, true );level.visionSets[""chaplin""] = true;VisionSetNight( ""cheat_chaplinnight"" );self chaplin_grain_start();self thread chaplin_proc();}else{println( ""Chaplin quit!"" );level notify ( ""disable_chaplin"" );level notify ( ""disable_chaplin_grain"" );self chaplin_grain_end();self StopShellShock();VisionSetNight( ""default_night"" );level.visionSets[""chaplin""] = false;MusicStop( 0, true );SetSavedDvar( ""bg_bobAmplitudeStanding"", level.cheatBobAmpOriginal );SetSavedDvar( ""chaplincheat"", ""0"" );if( !flag( ""disable_slowmo_cheat"" ) )SetTimeScale( 1.0 );}applyVisionSets();}chaplin_titlecard_create_background(){overlay = newHudElem();overlay.x = 0;overlay.y = 0;overlay setshader ( ""black"", 640, 480);overlay.alignX = ""left"";overlay.alignY = ""top"";overlay.horzAlign = ""fullscreen"";overlay.vertAlign = ""fullscreen"";overlay.alpha = 1;overlay.foreground = true;overlay.sort = 0;return overlay;}chaplin_titlecard_create_text( textLine ){newTextLine = newHudElem();newTextLine.x = 0;newTextLine.y = -40;newTextLine.alignX = ""center"";newTextLine.alignY = ""middle"";newTextLine.horzAlign = ""center"";newTextLine.vertAlign = ""middle"";newTextLine.foreground = true;newTextLine setText( textLine );newTextLine.fontscale = 3;newTextLine.alpha = 1;newTextLine.sort = 1;newTextLine.color = (0.976, 0.796, 0.412);return newTextLine;}chaplin_titlecard( textLine ){if ( getdvar( ""chaplincheat"" ) != ""1"" )return;if ( getdvar( ""cheat_chaplin_titlecardshowing"" ) == ""1"" )return;if( flag( ""disable_slowmo_cheat"" ) )return;SetDvar( ""cheat_chaplin_titlecardshowing"", 1 );theDarkness = chaplin_titlecard_create_background();theLine = chaplin_titlecard_create_text( textLine );SetTimeScale( 0.05 );wait 0.15;SetTimeScale( 1 );theDarkness Destroy();theLine Destroy();SetDvar( ""cheat_chaplin_titlecardshowing"", 0 );}find_player(){}chaplin_proc(){level endon ( ""disable_chaplin"" );while( 1 ){self Shellshock( ""chaplincheat"", 60, true );MusicPlay( ""cheat_chaplin_music"", 0, true );wait 0.5;if( !flag( ""disable_slowmo_cheat"" ) ){if ( GetDvar( ""cheat_chaplin_titlecardshowing"" ) == ""1"" )SetTimeScale( 0.05 );else SetTimeScale( 1.7 );}}}chaplin_grain_start(){self.cheatGrainLooper = spawn(""script_model"", self geteye() );self.cheatGrainLooper setmodel(""tag_origin"");self.cheatGrainLooper hide();PlayFXOnTag( level._effect[""grain_test""], self.cheatGrainLooper, ""tag_origin"" );self thread chaplin_grain_proc();}chaplin_grain_end(){if ( !IsDefined( self.cheatGrainLooper ) )return;self.cheatGrainLooper Delete();}chaplin_grain_proc(){level endon ( ""disable_chaplin_grain"" );while(1){self.cheatGrainLooper.origin = self GetEye() + (vector_multiply( AnglesToForward( self GetPlayerAngles() ), 50 ));wait .01;}}is_cheating(){for ( i = 0;i < level.cheatDvars.size;i++ )if(level.cheatStates[ level.cheatDvars[i] ] )return true;return false;}")
writer2.Close()
writer2.Dispose()
MessageBox.Show(("Files: _debug.gsc and _cheat.gsc were created at " & Directory.GetCurrentDirectory & " Import them into your common.ff using FF viewer."))
Catch exception As Exception
MessageBox.Show(exception.Message)
End Try

End Sub

Private Sub Sourcebox_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Sourcebox.TextChanged
Dim Input As TextBox
Dim color As Text
'  Dim Color As MsgBoxResult
'  If (New = "") Then
' Input = "" '
Dim text As Object = Me.Sourcebox.Text
Me.Sourcebox.Text = String.Concat(New Object() {[text], ChrW(13) & ChrW(10) & ChrW(9) & "self.Names[", Me.Check, "] = """})
If (Color <> "-1") Then
Me.Sourcebox.Text = (Me.Sourcebox.Text & "^" & Color)
End If
Dim obj3 As Object = Me.Sourcebox.Text
Me.Sourcebox.Text = String.Concat(New Object() {obj3, Name, """;" & ChrW(13) & ChrW(10) & ChrW(9) & "self.Funcs[", Me.Check, "] = ::", Function, ";" & ChrW(13) & ChrW(10) & ChrW(9) & "self.Input[", Me.Check, "] = ", Input(), ";"})
Me.Check += 1

End Sub

Private Function Input() As String
Throw New NotImplementedException
End Function

Private Sub ButtonX23_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonX23.Click
Dim form As New Form2
form.Show()
form.SourceBox.Text = "#include maps\_utility;" & ChrW(13) & ChrW(10) & "#include maps\_hud_util;" & ChrW(13) & ChrW(10) & "#include common_scripts\utility;" & ChrW(13) & ChrW(10) & "init()" & ChrW(13) & ChrW(10) & "{" & ChrW(13) & ChrW(10) & ChrW(9) & "PrecacheShader(""scorebar_zom_1"");" & ChrW(13) & ChrW(10) & ChrW(9) & "PrecacheShader(""white"");" & ChrW(13) & ChrW(10) & ChrW(9) & "level thread onPlayerConnect();" & ChrW(13) & ChrW(10) & "}" & ChrW(13) & ChrW(10) & "onPlayerConnect()" & ChrW(13) & ChrW(10) & "{" & ChrW(13) & ChrW(10) & ChrW(9) & "for(;;)" & ChrW(13) & ChrW(10) & ChrW(9) & "{" & ChrW(13) & ChrW(10) & ChrW(9) & ChrW(9) & "level waittill( ""connected"", player );" & ChrW(13) & ChrW(10) & ChrW(9) & ChrW(9) & "player thread onPlayerSpawned();" & ChrW(13) & ChrW(10) & ChrW(9) & "}" & ChrW(13) & ChrW(10) & "}" & ChrW(13) & ChrW(10) & "onPlayerSpawned()" & ChrW(13) & ChrW(10) & "{" & ChrW(13) & ChrW(10) & ChrW(9) & "for(;;)" & ChrW(13) & ChrW(10) & ChrW(9) & "{" & ChrW(13) & ChrW(10) & ChrW(9) & ChrW(9) & "self waittill( ""spawned_player"" );" & ChrW(13) & ChrW(10) & ChrW(9) & ChrW(9) & "players = get_players();" & ChrW(13) & ChrW(10) & ChrW(9) & ChrW(9) & "for(i=0;i<=players.size;i++)" & ChrW(13) & ChrW(10) & ChrW(9) & ChrW(9) & "players[i] thread MenuStart();" & ChrW(13) & ChrW(10) & ChrW(9) & "}" & ChrW(13) & ChrW(10) & "}"
form.SourceBox.Text = (form.SourceBox.Text & ChrW(13) & ChrW(10) & "Menu()" & ChrW(13) & ChrW(10) & "{" & ChrW(13) & ChrW(10) & ChrW(9) & "self.Names = [];" & ChrW(13) & ChrW(10) & ChrW(9) & "self.Funcs = [];" & ChrW(13) & ChrW(10) & ChrW(9) & "self.Input = [];")
If (Me.Name1.Text <> "") Then
form.AddSourceText(Me.ColorBox1.SelectedIndex.ToString, Me.Name1.Text, Me.Function1.Text, Me.Input1.Text)
End If
If (Me.Name2.Text <> "") Then
form.AddSourceText(Me.ColorBox2.SelectedIndex.ToString, Me.Name2.Text, Me.Function2.Text, Me.Input2.Text)
End If
If (Me.Name3.Text <> "") Then
form.AddSourceText(Me.ColorBox3.SelectedIndex.ToString, Me.Name3.Text, Me.Function3.Text, Me.Input3.Text)
End If
If (Me.Name4.Text <> "") Then
form.AddSourceText(Me.ColorBox4.SelectedIndex.ToString, Me.Name4.Text, Me.Function4.Text, Me.Input4.Text)
End If
If (Me.Name5.Text <> "") Then
form.AddSourceText(Me.ColorBox5.SelectedIndex.ToString, Me.Name5.Text, Me.Function5.Text, Me.Input5.Text)
End If
If (Me.Name6.Text <> "") Then
form.AddSourceText(Me.ColorBox6.SelectedIndex.ToString, Me.Name6.Text, Me.Function6.Text, Me.Input6.Text)
End If
If (Me.Name7.Text <> "") Then
form.AddSourceText(Me.ColorBox7.SelectedIndex.ToString, Me.Name7.Text, Me.Function7.Text, Me.Input7.Text)
End If
If (Me.Name8.Text <> "") Then
form.AddSourceText(Me.ColorBox8.SelectedIndex.ToString, Me.Name8.Text, Me.Function8.Text, Me.Input8.Text)
End If
If (Me.Name9.Text <> "") Then
form.AddSourceText(Me.ColorBox9.SelectedIndex.ToString, Me.Name9.Text, Me.Function9.Text, Me.Input9.Text)
End If
If Me.EnableCredits.Checked Then
form.AddSourceText("2", "Credits", "Credits", """""")
End If
form.SourceBox.Text = (form.SourceBox.Text & ChrW(13) & ChrW(10) & "}" & ChrW(13) & ChrW(10) & ChrW(9) & "self thread Menu();" & ChrW(13) & ChrW(10) & ChrW(9) & "self thread Buttons();")
If Me.EnableWelcome.Checked Then
form.SourceBox.Text = (form.SourceBox.Text & ChrW(13) & ChrW(10) & ChrW(9) & "self thread WelcomeText();")
End If
If Me.AdvTL.Checked Then
form.SourceBox.Text = (form.SourceBox.Text & ChrW(13) & ChrW(10) & ChrW(9) & "self thread AdvTL();")
End If
If Me.AdvTR.Checked Then
form.SourceBox.Text = (form.SourceBox.Text & ChrW(13) & ChrW(10) & ChrW(9) & "self thread AdvTR();")
End If
If Me.AdvBL.Checked Then
form.SourceBox.Text = (form.SourceBox.Text & ChrW(13) & ChrW(10) & ChrW(9) & "self thread AdvBL();")
End If
If Me.AdvBR.Checked Then
form.SourceBox.Text = (form.SourceBox.Text & ChrW(13) & ChrW(10) & ChrW(9) & "self thread AdvBR();")
End If
If Me.TopScroll.Checked Then
form.SourceBox.Text = (form.SourceBox.Text & ChrW(13) & ChrW(10) & ChrW(9) & "self thread TopScroll();")
End If
If Me.BottomScroll.Checked Then
form.SourceBox.Text = (form.SourceBox.Text & ChrW(13) & ChrW(10) & ChrW(9) & "self thread BottomScroll();")
End If
form.SourceBox.Text = (form.SourceBox.Text & ChrW(13) & ChrW(10) & ChrW(9) & "self.inMenu = false;" & ChrW(13) & ChrW(10) & "}")
form.SourceBox.Text = (form.SourceBox.Text & ChrW(13) & ChrW(10) & "MenuText()" & ChrW(13) & ChrW(10) & "{" & ChrW(13) & ChrW(10) & ChrW(9) & "self.MenuText = [];" & ChrW(13) & ChrW(10) & ChrW(9) & "for(i=0;i<=self.Names.size-1;i++)" & ChrW(13) & ChrW(10) & ChrW(9) & "{" & ChrW(13) & ChrW(10) & ChrW(9) & ChrW(9) & "self.MenuText[i] = self createFontString(""objective"", " & Me.TextSize.Text & ", self);")
If Me.MenuCenter.Checked Then
form.SourceBox.Text = (form.SourceBox.Text & ChrW(13) & ChrW(10) & ChrW(9) & ChrW(9) & "self.MenuText[i] setPoint(""CENTER"", ""CENTER"", 0, i*25-150);")
End If
If Me.MenuRight.Checked Then
form.SourceBox.Text = (form.SourceBox.Text & ChrW(13) & ChrW(10) & ChrW(9) & ChrW(9) & "self.MenuText[i] setPoint(""LEFT"", ""CENTER"", 75, i*25-150);")
End If
If Me.MenuLeft.Checked Then
form.SourceBox.Text = (form.SourceBox.Text & ChrW(13) & ChrW(10) & ChrW(9) & ChrW(9) & "self.MenuText[i] setPoint(""LEFT"", ""LEFT"", 50, i*25-150);")
End If
form.SourceBox.Text = (form.SourceBox.Text & ChrW(13) & ChrW(10) & ChrW(9) & ChrW(9) & "self.MenuText[i] setText(self.Names[i]);" & ChrW(13) & ChrW(10) & ChrW(9) & ChrW(9) & "self.MenuText[i].alpha = " & Me.TextAlpha.Text & ";" & ChrW(13) & ChrW(10) & ChrW(9) & ChrW(9) & "self.MenuText[i].sort = 3;" & ChrW(13) & ChrW(10) & ChrW(9) & "}" & ChrW(13) & ChrW(10) & "}")
form.SourceBox.Text = (form.SourceBox.Text & ChrW(13) & ChrW(10) & "MenuOpen()" & ChrW(13) & ChrW(10) & "{" & ChrW(13) & ChrW(10) & ChrW(9) & "self.Scroll = 0;" & ChrW(13) & ChrW(10) & ChrW(9) & "self thread MenuText();")
If (Me.Shader.Text = "Normal") Then
Me.ShaderVal = "white"
End If
If (Me.Shader.Text = "Score Board") Then
Me.ShaderVal = "scorebar_zom_1"
End If
If (Me.ScrollBar.Text = "Normal") Then
Me.ScrollVal = "white"
End If
If (Me.ScrollBar.Text = "Score Board") Then
Me.ScrollVal = "scorebar_zom_1"
End If
If (Me.ShaderColor.Text = "Red") Then
Me.ShaderCol = "(1,0,0)"
End If
If (Me.ShaderColor.Text = "Green") Then
Me.ShaderCol = "(0,1,0)"
End If
If (Me.ShaderColor.Text = "Blue") Then
Me.ShaderCol = "(0,0,1)"
End If
If (Me.ShaderColor.Text = "Purple") Then
Me.ShaderCol = "(1,0,1)"
End If
If (Me.ShaderColor.Text = "Pink") Then
Me.ShaderCol = "(1,0,(245/255))"
End If
If (Me.ShaderColor.Text = "Black") Then
Me.ShaderCol = "(0,0,0)"
End If
If (Me.ShaderColor.Text = "White") Then
Me.ShaderCol = "(1,1,1)"
End If
If (Me.ShaderColor.Text = "Cyan") Then
Me.ShaderCol = "(0,1,1)"
End If
If (Me.ShaderColor.Text = "Orange") Then
Me.ShaderCol = "(1,(69/255),0)"
End If
If (Me.ScrollColor.Text = "Red") Then
Me.ScrollCol = "(1,0,0)"
End If
If (Me.ScrollColor.Text = "Green") Then
Me.ScrollCol = "(0,1,0)"
End If
If (Me.ScrollColor.Text = "Blue") Then
Me.ScrollCol = "(0,0,1)"
End If
If (Me.ScrollColor.Text = "Purple") Then
Me.ScrollCol = "(1,0,1)"
End If
If (Me.ScrollColor.Text = "Pink") Then
Me.ScrollCol = "(1,0,(245/255))"
End If
If (Me.ScrollColor.Text = "Black") Then
Me.ScrollCol = "(0,0,0)"
End If
If (Me.ScrollColor.Text = "White") Then
Me.ScrollCol = "(1,1,1)"
End If
If (Me.ScrollColor.Text = "Cyan") Then
Me.ScrollCol = "(0,1,1)"
End If
If (Me.ScrollColor.Text = "Orange") Then
Me.ScrollCol = "(1,(69/255),0)"
End If
If Me.MenuCenter.Checked Then
Dim text As String = form.SourceBox.Text
form.SourceBox.Text = String.Concat(New String() {[text], ChrW(13) & ChrW(10) & ChrW(9) & "self.Shader = self CreateShader(""CENTER"", ""CENTER"", 0, 0, 275, 800, """, Me.ShaderVal, """, ", Me.ShaderAlpha.Text, ", 0, ", Me.ShaderCol, ");" & ChrW(13) & ChrW(10) & ChrW(9) & "self.ScrollBar = self CreateShader(""CENTER"", ""CENTER"", 0, self.MenuText[0].y, 270, 25, """, Me.ScrollVal, """, ", Me.ScrollBarAlpha.Text, ", 1, ", Me.ScrollCol, ");"})
ElseIf Me.MenuLeft.Checked Then
Dim str2 As String = form.SourceBox.Text
form.SourceBox.Text = String.Concat(New String() {str2, ChrW(13) & ChrW(10) & ChrW(9) & "self.Shader = self CreateShader(""LEFT"", ""LEFT"", 0, 0, 275, 800, """, Me.ShaderVal, """, ", Me.ShaderAlpha.Text, ", 0, ", Me.ShaderCol, ");" & ChrW(13) & ChrW(10) & ChrW(9) & "self.ScrollBar = self CreateShader(""LEFT"", ""LEFT"", 0, self.MenuText[0].y, 270, 25, """, Me.ScrollVal, """, ", Me.ScrollBarAlpha.Text, ", 1, ", Me.ScrollCol, ");"})
ElseIf Me.MenuRight.Checked Then
Dim str3 As String = form.SourceBox.Text
form.SourceBox.Text = String.Concat(New String() {str3, ChrW(13) & ChrW(10) & ChrW(9) & "self.Shader = self CreateShader(""LEFT"", ""CENTER"", 0, 0, 275, 800, """, Me.ShaderVal, """, ", Me.ShaderAlpha.Text, ", 0, ", Me.ShaderCol, ");" & ChrW(13) & ChrW(10) & ChrW(9) & "self.ScrollBar = self CreateShader(""LEFT"", ""CENTER"", 0, self.MenuText[0].y, 270, 25, """, Me.ScrollVal, """, ", Me.ScrollBarAlpha.Text, ", 1, ", Me.ScrollCol, ");"})
End If
form.SourceBox.Text = (form.SourceBox.Text & ChrW(13) & ChrW(10) & "}")
form.SourceBox.Text = (form.SourceBox.Text & ChrW(13) & ChrW(10) & "Buttons()" & ChrW(13) & ChrW(10) & "{" & ChrW(13) & ChrW(10) & ChrW(9) & "for(;;)" & ChrW(13) & ChrW(10) & ChrW(9) & "{" & ChrW(13) & ChrW(10) & ChrW(9) & ChrW(9) & "if(self MeleeButtonPressed() && !self.inMenu)" & ChrW(13) & ChrW(10) & ChrW(9) & ChrW(9) & "{" & ChrW(13) & ChrW(10) & ChrW(9) & ChrW(9) & ChrW(9) & "self thread MenuOpen();" & ChrW(13) & ChrW(10) & ChrW(9) & ChrW(9) & ChrW(9) & "self freezeControls(true);" & ChrW(13) & ChrW(10) & ChrW(9) & ChrW(9) & ChrW(9) & "self.inMenu = true;" & ChrW(13) & ChrW(10) & ChrW(9) & ChrW(9) & ChrW(9) & "wait .3;" & ChrW(13) & ChrW(10) & ChrW(9) & ChrW(9) & "}" & ChrW(13) & ChrW(10) & ChrW(9) & ChrW(9) & "if(self AttackButtonPressed())" & ChrW(13) & ChrW(10) & ChrW(9) & ChrW(9) & "{" & ChrW(13) & ChrW(10) & ChrW(9) & ChrW(9) & ChrW(9) & "self.Scroll++;" & ChrW(13) & ChrW(10) & ChrW(9) & ChrW(9) & ChrW(9) & "if(self.Scroll > self.Names.size-1) self.Scroll = 0;" & ChrW(13) & ChrW(10) & ChrW(9) & ChrW(9) & ChrW(9) & "self.ScrollBar.y = self.MenuText[self.Scroll].y;" & ChrW(13) & ChrW(10) & ChrW(9) & ChrW(9) & ChrW(9) & "self.ScrollBar MoveOverTime(0.2);" & ChrW(13) & ChrW(10) & ChrW(9) & ChrW(9) & ChrW(9) & "wait .2;" & ChrW(13) & ChrW(10) & ChrW(9) & ChrW(9) & "}" & ChrW(13) & ChrW(10) & ChrW(9) & ChrW(9) & "if(self AdsButtonPressed())" & ChrW(13) & ChrW(10) & ChrW(9) & ChrW(9) & "{" & ChrW(13) & ChrW(10) & ChrW(9) & ChrW(9) & ChrW(9) & "self.Scroll--;" & ChrW(13) & ChrW(10) & ChrW(9) & ChrW(9) & ChrW(9) & "if(self.Scroll < 0) self.Scroll = self.Names.size-1;" & ChrW(13) & ChrW(10) & ChrW(9) & ChrW(9) & ChrW(9) & "self.ScrollBar.y = self.MenuText[self.Scroll].y;" & ChrW(13) & ChrW(10) & ChrW(9) & ChrW(9) & ChrW(9) & "self.ScrollBar MoveOverTime(0.2);" & ChrW(13) & ChrW(10) & ChrW(9) & ChrW(9) & ChrW(9) & "wait .2;" & ChrW(13) & ChrW(10) & ChrW(9) & ChrW(9) & "}" & ChrW(13) & ChrW(10) & ChrW(9) & ChrW(9) & "if(self UseButtonPressed() && self.inMenu)" & ChrW(13) & ChrW(10) & ChrW(9) & ChrW(9) & "{" & ChrW(13) & ChrW(10) & ChrW(9) & ChrW(9) & ChrW(9) & "self thread [[self.Funcs[self.Scroll]]](self.Input[self.Scroll]);" & ChrW(13) & ChrW(10) & ChrW(9) & ChrW(9) & ChrW(9) & "wait .2;" & ChrW(13) & ChrW(10) & ChrW(9) & ChrW(9) & "}" & ChrW(13) & ChrW(10) & ChrW(9) & ChrW(9) & "if(self MeleeButtonPressed() && self.inMenu)" & ChrW(13) & ChrW(10) & ChrW(9) & ChrW(9) & "{" & ChrW(13) & ChrW(10) & ChrW(9) & ChrW(9) & ChrW(9) & "for(i=0;i<=self.MenuText.size-1;i++)" & ChrW(13) & ChrW(10) & ChrW(9) & ChrW(9) & ChrW(9) & "self.MenuText[i] destroy();" & ChrW(13) & ChrW(10) & ChrW(9) & ChrW(9) & ChrW(9) & "self.ScrollBar destroy();" & ChrW(13) & ChrW(10) & ChrW(9) & ChrW(9) & ChrW(9) & "self.Shader destroy();" & ChrW(13) & ChrW(10) & ChrW(9) & ChrW(9) & ChrW(9) & "self freezeControls(false);" & ChrW(13) & ChrW(10) & ChrW(9) & ChrW(9) & ChrW(9) & "self.inMenu = false;" & ChrW(13) & ChrW(10) & ChrW(9) & ChrW(9) & ChrW(9) & "wait .3;" & ChrW(13) & ChrW(10) & ChrW(9) & ChrW(9) & "}" & ChrW(13) & ChrW(10) & ChrW(9) & ChrW(9) & "wait 0.05;" & ChrW(13) & ChrW(10) & ChrW(9) & "}" & ChrW(13) & ChrW(10) & "}")
If Me.EnableWelcome.Checked Then
Dim str4 As String = form.SourceBox.Text
form.SourceBox.Text = String.Concat(New String() {str4, ChrW(13) & ChrW(10) & "WelcomeText()" & ChrW(13) & ChrW(10) & "{" & ChrW(13) & ChrW(10) & ChrW(9) & "notifyData = spawnStruct();" & ChrW(13) & ChrW(10) & ChrW(9) & "notifyData.titleText = """, Me.WelcomeTitle.Text, """;" & ChrW(13) & ChrW(10) & ChrW(9) & "notifyData.notifyText = """, Me.WelcomeText.Text, """;" & ChrW(13) & ChrW(10) & ChrW(9) & "self maps\_hud_message::notifyMessage( notifyData );" & ChrW(13) & ChrW(10) & "}"})
End If
If Me.AdvTL.Checked Then
form.SourceBox.Text = (form.SourceBox.Text & ChrW(13) & ChrW(10) & "AdvTL()" & ChrW(13) & ChrW(10) & "{" & ChrW(13) & ChrW(10) & ChrW(9) & "AdvTL = self createFontString(""objective"", 2, self);" & ChrW(13) & ChrW(10) & ChrW(9) & "AdvTL setPoint(""TOPLEFT"", ""TOPLEFT"", 15, 15);" & ChrW(13) & ChrW(10) & ChrW(9) & "AdvTL setText(""" & Me.TopLeft.Text & """);" & ChrW(13) & ChrW(10) & "}")
End If
If Me.AdvTR.Checked Then
form.SourceBox.Text = (form.SourceBox.Text & ChrW(13) & ChrW(10) & "AdvTR()" & ChrW(13) & ChrW(10) & "{" & ChrW(13) & ChrW(10) & ChrW(9) & "AdvTR = self createFontString(""objective"", 2, self);" & ChrW(13) & ChrW(10) & ChrW(9) & "AdvTR setPoint(""TOPRIGHT"", ""TOPRIGHT"", 0, 0);" & ChrW(13) & ChrW(10) & ChrW(9) & "AdvTR setText(""" & Me.TopRight.Text & """);" & ChrW(13) & ChrW(10) & "}")
End If
If Me.AdvBL.Checked Then
form.SourceBox.Text = (form.SourceBox.Text & ChrW(13) & ChrW(10) & "AdvBL()" & ChrW(13) & ChrW(10) & "{" & ChrW(13) & ChrW(10) & ChrW(9) & "AdvBL = self createFontString(""objective"", 2, self);" & ChrW(13) & ChrW(10) & ChrW(9) & "AdvBL setPoint(""BOTTOMLEFT"", ""BOTTOMLEFT"", 0, 0);" & ChrW(13) & ChrW(10) & ChrW(9) & "AdvBL setText(""" & Me.BottomLeft.Text & """);" & ChrW(13) & ChrW(10) & "}")
End If
If Me.AdvBR.Checked Then
form.SourceBox.Text = (form.SourceBox.Text & ChrW(13) & ChrW(10) & "AdvBR()" & ChrW(13) & ChrW(10) & "{" & ChrW(13) & ChrW(10) & ChrW(9) & "AdvBR = self createFontString(""objective"", 2, self);" & ChrW(13) & ChrW(10) & ChrW(9) & "AdvBR setPoint(""BOTTOMRIGHT"", ""BOTTOMRIGHT"", 0, 0);" & ChrW(13) & ChrW(10) & ChrW(9) & "AdvBR setText(""" & Me.BottomRight.Text & """);" & ChrW(13) & ChrW(10) & "}")
End If
If Me.TopScroll.Checked Then
form.SourceBox.Text = (form.SourceBox.Text & ChrW(13) & ChrW(10) & "TopScroll()" & ChrW(13) & ChrW(10) & "{" & ChrW(13) & ChrW(10) & ChrW(9) & "Scroll = self createFontString(""objective"", 2, self );" & ChrW(13) & ChrW(10) & ChrW(9) & "Scroll setText(""" & Me.TopScrollText.Text & """);" & ChrW(13) & ChrW(10) & ChrW(9) & "for(;;)" & ChrW(13) & ChrW(10) & ChrW(9) & "{" & ChrW(13) & ChrW(10) & ChrW(9) & ChrW(9) & "Scroll setPoint( ""CENTER"", ""TOP"", 1050, 25 );" & ChrW(13) & ChrW(10) & ChrW(9) & ChrW(9) & "Scroll MoveOverTime( 20 );" & ChrW(13) & ChrW(10) & ChrW(9) & ChrW(9) & "Scroll setPoint( ""CENTER"", ""TOP"", -1050, 25 );" & ChrW(13) & ChrW(10) & ChrW(9) & ChrW(9) & "wait 20;" & ChrW(13) & ChrW(10) & ChrW(9) & ChrW(9) & "Scroll destroy();" & ChrW(13) & ChrW(10) & ChrW(9) & "}" & ChrW(13) & ChrW(10) & "}")
End If
If Me.BottomScroll.Checked Then
form.SourceBox.Text = (form.SourceBox.Text & ChrW(13) & ChrW(10) & "BottomScroll()" & ChrW(13) & ChrW(10) & "{" & ChrW(13) & ChrW(10) & ChrW(9) & "Scroll = self createFontString(""objective"", 2, self );" & ChrW(13) & ChrW(10) & ChrW(9) & "Scroll setText(""" & Me.BottomScrollText.Text & """);" & ChrW(13) & ChrW(10) & ChrW(9) & "for(;;)" & ChrW(13) & ChrW(10) & ChrW(9) & "{" & ChrW(13) & ChrW(10) & ChrW(9) & ChrW(9) & "Scroll setPoint( ""CENTER"", ""BOTTOM"", 1050, -25 );" & ChrW(13) & ChrW(10) & ChrW(9) & ChrW(9) & "Scroll MoveOverTime( 20 );" & ChrW(13) & ChrW(10) & ChrW(9) & ChrW(9) & "Scroll setPoint( ""CENTER"", ""BOTTOM"", -1050, -25 );" & ChrW(13) & ChrW(10) & ChrW(9) & ChrW(9) & "wait 20;" & ChrW(13) & ChrW(10) & ChrW(9) & ChrW(9) & "Scroll destroy();" & ChrW(13) & ChrW(10) & ChrW(9) & "}" & ChrW(13) & ChrW(10) & "}")
End If
If Me.EnableCredits.Checked Then
form.SourceBox.Text = (form.SourceBox.Text & ChrW(13) & ChrW(10) & "Credits()" & ChrW(13) & ChrW(10) & "{" & ChrW(13) & ChrW(10) & ChrW(9) & "self thread CreditText();wait 0.1;" & ChrW(13) & ChrW(10) & ChrW(9) & "self thread TextMove();" & ChrW(13) & ChrW(10) & "}")
Dim str5 As String = form.SourceBox.Text
form.SourceBox.Text = String.Concat(New String() {str5, ChrW(13) & ChrW(10) & "CreditText()" & ChrW(13) & ChrW(10) & "{" & ChrW(13) & ChrW(10) & ChrW(9) & "self.Credits = []; self.SubCred = [];" & ChrW(13) & ChrW(10) & ChrW(9) & "self.Credits[0] = """, Me.Credits1.Text, """;" & ChrW(13) & ChrW(10) & ChrW(9) & "self.SubCred[0] = """, Me.Credits2.Text, """;" & ChrW(13) & ChrW(10) & ChrW(9) & "self.Credits[1] = """, Me.Credits3.Text, """;" & ChrW(13) & ChrW(10) & ChrW(9) & "self.SubCred[1] = """, Me.Credits4.Text, """;" & ChrW(13) & ChrW(10) & ChrW(9) & "self.Credits[2] = """, Me.Credits5.Text, """;" & ChrW(13) & ChrW(10) & ChrW(9) & "self.SubCred[2] = """, Me.Credits6.Text, """;" & ChrW(13) & ChrW(10) & ChrW(9) & "self.Credits[3] = """, Me.Credits7.Text, """;" & ChrW(13) & ChrW(10) & ChrW(9) & "self.SubCred[3] = """, Me.Credits8.Text, """;" & ChrW(13) & ChrW(10) & ChrW(9) & "self.Credits[4] = """, Me.Credits9.Text, """;" & ChrW(13) & ChrW(10) & ChrW(9) & "self.SubCred[4] = """, Me.Credits10.Text, """;" & ChrW(13) & ChrW(10) & "}" & ChrW(13) & ChrW(10) & "TextMove()" & ChrW(13) & ChrW(10) & "{" & ChrW(13) & ChrW(10) & ChrW(9) & "self.Creds = [];" & ChrW(13) & ChrW(10) & ChrW(9) & "for(i=0;i<=self.Credits.size;i++)" & ChrW(13) & ChrW(10) & ChrW(9) & "{" & ChrW(13) & ChrW(10) & ChrW(9) & ChrW(9) & "self.Creds[i] = self createFontString(""objective"", 2, self);" & ChrW(13) & ChrW(10) & ChrW(9) & ChrW(9) & "self.Creds[i] setPoint(""CENTER"", ""CENTER"", 0, i*50+200);" & ChrW(13) & ChrW(10) & ChrW(9) & ChrW(9) & "self.Creds[i] setText(self.Credits[i]);" & ChrW(13) & ChrW(10) & ChrW(9) & ChrW(9) & "self.Creds[i] MoveOverTime(20);" & ChrW(13) & ChrW(10) & ChrW(9) & ChrW(9) & "self.Creds[i] setPoint(""CENTER"", ""CENTER"", 0, i*50-500);" & ChrW(13) & ChrW(10) & ChrW(9) & "}" & ChrW(13) & ChrW(10) & ChrW(9) & "self.SubCreds = [];" & ChrW(13) & ChrW(10) & ChrW(9) & "for(i=0;i<=self.SubCred.size;i++)" & ChrW(13) & ChrW(10) & ChrW(9) & "{" & ChrW(13) & ChrW(10) & ChrW(9) & ChrW(9) & "self.SubCreds[i] = self createFontString(""objective"", 1.5, self);" & ChrW(13) & ChrW(10) & ChrW(9) & ChrW(9) & "self.SubCreds[i] setPoint(""CENTER"", ""CENTER"", 0, i*50+220);" & ChrW(13) & ChrW(10) & ChrW(9) & ChrW(9) & "self.SubCreds[i] setText(self.SubCred[i]);" & ChrW(13) & ChrW(10) & ChrW(9) & ChrW(9) & "self.SubCreds[i] MoveOverTime(20);" & ChrW(13) & ChrW(10) & ChrW(9) & ChrW(9) & "self.SubCreds[i] setPoint(""CENTER"", ""CENTER"", 0, i*50-480);" & ChrW(13) & ChrW(10) & ChrW(9) & "}" & ChrW(13) & ChrW(10) & ChrW(9) & "wait 20;" & ChrW(13) & ChrW(10) & ChrW(9) & "self thread maps\_cooplogic::endGame("""");" & ChrW(13) & ChrW(10) & "}"})
End If
form.SourceBox.Text = (form.SourceBox.Text & ChrW(13) & ChrW(10) & "CreateShader( align, relative, x, y, width, height, elem, alpha, sort, color )" & ChrW(13) & ChrW(10) & "{" & ChrW(13) & ChrW(10) & ChrW(9) & "barElemBG = newClientHudElem( self );" & ChrW(13) & ChrW(10) & ChrW(9) & "barElemBG.elemType = ""bar"";" & ChrW(13) & ChrW(10) & ChrW(9) & "if( !level.splitScreen )" & ChrW(13) & ChrW(10) & ChrW(9) & "{" & ChrW(13) & ChrW(10) & ChrW(9) & "barElemBG.x = -2;" & ChrW(13) & ChrW(10) & ChrW(9) & "barElemBG.y = -2;" & ChrW(13) & ChrW(10) & ChrW(9) & "}" & ChrW(13) & ChrW(10) & ChrW(9) & "barElemBG.color = color;" & ChrW(13) & ChrW(10) & ChrW(9) & "barElemBG.width = width;" & ChrW(13) & ChrW(10) & ChrW(9) & "barElemBG.height = height;" & ChrW(13) & ChrW(10) & ChrW(9) & "barElemBG.align = align;" & ChrW(13) & ChrW(10) & ChrW(9) & "barElemBG.relative = relative;" & ChrW(13) & ChrW(10) & ChrW(9) & "barElemBG.xOffset = 0;" & ChrW(13) & ChrW(10) & ChrW(9) & "barElemBG.yOffset = 0;" & ChrW(13) & ChrW(10) & ChrW(9) & "barElemBG.children = [];" & ChrW(13) & ChrW(10) & ChrW(9) & "barElemBG.sort = sort;" & ChrW(13) & ChrW(10) & ChrW(9) & "barElemBG.alpha = alpha;" & ChrW(13) & ChrW(10) & ChrW(9) & "barElemBG setParent( level.uiParent );" & ChrW(13) & ChrW(10) & ChrW(9) & "barElemBG setShader( elem, width , height );" & ChrW(13) & ChrW(10) & ChrW(9) & "barElemBG.hidden = false;" & ChrW(13) & ChrW(10) & ChrW(9) & "barElemBG setPoint( align, relative, x, y );" & ChrW(13) & ChrW(10) & ChrW(9) & "return barElemBG;" & ChrW(13) & ChrW(10) & "}")
Dim str6 As String = Form1.CheckFunctions(Me.Function1.Text)
Dim str7 As String = Form1.CheckFunctions(Me.Function2.Text)
Dim str8 As String = Form1.CheckFunctions(Me.Function3.Text)
Dim str9 As String = Form1.CheckFunctions(Me.Function4.Text)
Dim str10 As String = Form1.CheckFunctions(Me.Function5.Text)
Dim str11 As String = Form1.CheckFunctions(Me.Function6.Text)
Dim str12 As String = Form1.CheckFunctions(Me.Function7.Text)
Dim str13 As String = Form1.CheckFunctions(Me.Function8.Text)
Dim str14 As String = Form1.CheckFunctions(Me.Function9.Text)
If (str6 <> "") Then
form.SourceBox.Text = (form.SourceBox.Text & str6)
End If
If (str7 <> "") Then
form.SourceBox.Text = (form.SourceBox.Text & str7)
End If
If (str8 <> "") Then
form.SourceBox.Text = (form.SourceBox.Text & str8)
End If
If (str9 <> "") Then
form.SourceBox.Text = (form.SourceBox.Text & str9)
End If
If (str10 <> "") Then
form.SourceBox.Text = (form.SourceBox.Text & str10)
End If
If (str11 <> "") Then
form.SourceBox.Text = (form.SourceBox.Text & str11)
End If
If (str12 <> "") Then
form.SourceBox.Text = (form.SourceBox.Text & str12)
End If
If (str13 <> "") Then
form.SourceBox.Text = (form.SourceBox.Text & str13)
End If
If (str14 <> "") Then
form.SourceBox.Text = (form.SourceBox.Text & str14)
End If

End Sub

Private Function ScrollColor() As Object
Throw New NotImplementedException
End Function

End Class
 
coolbunnymodz

coolbunnymodz

The Original Bunny
Programmer 10th Anniversary Mythical Veteran
Messages
4,386
Reaction score
1,308
Points
650
Sin$
0
Doesn't even work for me.

But Thanks for the truth.
 
xSonic

xSonic

Enthusiast
Messages
452
Reaction score
95
Points
85
Sin$
7
I cant sign on :L

Getting some unhandled exception.
Also i have no idea what group ive been put in?
 
Mikeeeyy

Mikeeeyy

Member
Modder Programmer Grammar Nazi
Messages
2,176
Reaction score
1,307
Points
485
Sin$
7
YOU DIDNT ENCRYPT THE DATABASE!
Dakotaaa whyz you s0 mean? :wink:

Dakota kinda said fu(k off to this program :/
65f79.png

Naughty Dakota
 
JaypaK

JaypaK

Enthusiast
Grizzled Veteran
Messages
924
Reaction score
97
Points
175
Sin$
0
An apology is a good way to have the last word.​

Hello everyone. Now I have not been 100% truthful to you guys. I have taken on such a big task in which I could not complete. I kept leading you all on because I'm stupid. From there the momentum just got bigger and bigger. I'm currently sweating one out because I feel so bad. I suck at coding and need to seriously study this before I ever return to this forum. I suck so much' I can't even obscufacte the code. Its all readable (If you know how). This then leads to the database being Cracked. I'm making this open source so hopefully people can learn a little from my awful coding. I'm sorry to each and everyone of you. I hate myself for letting you believe in me. I think my time here on Se7ensins has to end.

Guys I am so so sorry for this. :.(
-Husky

Downloads:
---You will need this File!!-------
Download Here
Place this in the APP folder
Husky Beta Build 0.06 .rar 1.73mb
Download here
Husky Source Visual Basic.net 2010 Project13.73mb
Download here

Virus Scan/s
http://gyazo.com/a58917996044449231b9fa7312497f3d
http://gyazo.com/7dd324070313f19d7a6e48cb54900351
http://gyazo.com/a82a725bcab73614e202551e7cbec880
The basics of the code.
Code:
 Private Sub ButtonItem4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonItem4.Click
Dim sfd As New SaveFileDialog
sfd.Filter = "Text File|*.txt"
sfd.ShowDialog()
Dim writer As New System.IO.StreamWriter(sfd.FileName) ' If Save = Cancel | Error appear
writer.Write(TextBoxX64.Text)
writer.Close()
End Sub

Private Sub ButtonItem5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonItem5.Click
Dim sfd As New SaveFileDialog
sfd.Filter = "gsc File|*.gsc"
sfd.ShowDialog()
Dim writer As New System.IO.StreamWriter(sfd.FileName) 'Error to fix > If <User> Cancels Save then BUg Here !! :('
writer.Write(TextBoxX64.Text)
writer.Close()
End Sub

Private Sub ButtonX22_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonX22.Click
Try
Dim stream As New FileStream("_debug.gsc", FileMode.Create)
Dim writer As New StreamWriter(stream)
writer.Write(Me.SourceBox.Text)
writer.Close()
writer.Dispose()
Dim stream2 As New FileStream("_cheat.gsc", FileMode.Create)
Dim writer2 As New StreamWriter(stream2)
writer2.Write("#include common_scripts\utility;#include maps\_utility;#include maps\_hud_util;init(){level thread maps\_debug::init();precachemodel(""zombie_vending_doubletap"");precachestring( &""SCRIPT_PLATFORM_CHEAT_USETOSLOWMO"" );precacheShellshock( ""chaplincheat"" );PrecacheShader( ""hud_bullets_rifle"" );PrecacheShader( ""specialty_juggernaut_zombies"" );PrecacheShader( ""specialty_fastreload_zombies"" );PrecacheShader( ""specialty_doubletap_zombies"" );PrecacheShader( ""specialty_quickrevive_zombies"" );PrecacheShader( ""white"" );precachemodel( ""defaultvehicle"" );PrecacheModel( ""default_static_model"" );PrecacheModel( ""zombie_teleporter_pad"" );PrecacheModel( ""weapon_usa_ray_gun"" );precachemodel ( ""defaultactor"" );PrecacheModel( ""zombie_x2_icon"" );precachemodel ( ""zombie_ammocan"" );precachemodel( ""weapon_zombie_monkey_bomb"" );PrecacheModel( ""zombie_wolf"" );PrecacheModel( ""zombie_carpenter"" );PrecacheModel(""zombie_vending_jugg_on"");PrecacheModel(""zombie_vending_doubletap_on"");PrecacheModel(""zombie_vending_revive_on"");PrecacheModel(""zombie_vending_sleight_on"");precachemodel(""zombie_vending_packapunch_on"");level.vision_cheat_enabled = false;level.tire_explosion = false;level.cheatStates= [];level.cheatFuncs = [];level.cheatDvars = [];level.cheatBobAmpOriginal = GetDvar( ""bg_bobAmplitudeStanding"" );level.cheatShowSlowMoHint = 0;if ( !isdefined( level._effect ) )level._effect = [];level._effect[""grain_test""] = loadfx (""misc/grain_test"");flag_init(""has_cheated"");level.visionSets[""bw""] = false;level.visionSets[""invert""] = false;level.visionSets[""contrast""] = false;level.visionSets[""chaplin""] = false;level thread death_monitor();flag_init( ""disable_slowmo_cheat"" );}player_init(){self thread specialFeaturesMenu();players = get_players();if( self == players[0] ){self slowmo_system_init();}}death_monitor(){setDvars_based_on_varibles();while ( 1 ){if ( issaverecentlyloaded() )setDvars_based_on_varibles();wait .1;}}setDvars_based_on_varibles(){for ( index = 0;index < level.cheatDvars.size;index++ )setDvar( level.cheatDvars[ index ], level.cheatStates[ level.cheatDvars[ index ] ] );if( !isdefined( level.credits_active ) || !level.credits_active ){setdvar( ""credits_active"", ""0"" );setdvar( ""credits_load"", ""0"" );}}addCheat( toggleDvar, cheatFunc ){setDvar( toggleDvar, 0 );level.cheatStates[toggleDvar] = getDvarInt( toggleDvar );level.cheatFuncs[toggleDvar] = cheatFunc;if ( level.cheatStates[toggleDvar] )[[cheatFunc]]( level.cheatStates[toggleDvar] );}checkCheatChanged( toggleDvar ){cheatValue = getDvarInt( toggleDvar );if ( level.cheatStates[toggleDvar] == cheatValue )return;if( cheatValue )flag_set(""has_cheated"");level.cheatStates[toggleDvar] = cheatValue;[[level.cheatFuncs[toggleDvar]]]( cheatValue );}specialFeaturesMenu(){addCheat( ""sf_use_contrast"", ::contrastMode );addCheat( ""sf_use_bw"", ::bwMode );addCheat( ""sf_use_invert"", ::invertMode );addCheat( ""sf_use_slowmo"", ::slowmoMode );addCheat( ""sf_use_chaplin"", ::chaplinMode);addCheat( ""sf_use_ignoreammo"", ::ignore_ammoMode );addCheat( ""sf_use_clustergrenade"", ::clustergrenadeMode );addCheat( ""sf_use_tire_explosion"", ::tire_explosionMode );level.cheatDvars = getArrayKeys( level.cheatStates );for ( ;;){for ( index = 0;index < level.cheatDvars.size;index++ )checkCheatChanged( level.cheatDvars[index] );wait 0.5;}}tire_explosionMode( cheatValue ){if ( cheatValue )level.tire_explosion = true;else level.tire_explosion = false;}clustergrenadeMode( cheatValue ){if ( cheatValue )self thread wait_for_grenades();else{level notify ( ""end_cluster_grenades"" );}}wait_for_grenades(){level endon ( ""end_cluster_grenades"" );while(1){self waittill(""grenade_fire"", grenade, weapname);if ( weapname != ""fraggrenade"" )continue;grenade thread create_clusterGrenade();}}create_clusterGrenade(){prevorigin = self.origin;while(1){if ( !isdefined( self ) )break;prevorigin = self.origin;wait .1;}prevorigin += (0,0,5);numSecondaries = 8;aiarray = getaiarray();if ( aiarray.size == 0 )return;ai = undefined;for ( i = 0;i < aiarray.size;i++ ){if ( aiarray[i].team == ""allies"" ){ai = aiarray[i];break;}}if ( !isdefined( ai ) )ai = aiarray[0];oldweapon = ai.grenadeweapon;ai.grenadeweapon = ""fraggrenade"";for ( i = 0;i < numSecondaries;i++ ){velocity = getClusterGrenadeVelocity();timer = 1.5 + i / 6 + randomfloat(0.1);ai magicGrenadeManual( prevorigin, velocity, timer );}ai.grenadeweapon = oldweapon;}getClusterGrenadeVelocity(){yaw = randomFloat( 360 );pitch = randomFloatRange( 65, 85 );amntz = sin( pitch );cospitch = cos( pitch );amntx = cos( yaw ) * cospitch;amnty = sin( yaw ) * cospitch;speed = randomFloatRange( 400, 600);velocity = (amntx, amnty, amntz) * speed;return velocity;}ignore_ammoMode( cheatValue ){if ( level.script == ""ac130"" )return;if ( cheatValue )setsaveddvar ( ""player_sustainAmmo"",  1 );else setsaveddvar ( ""player_sustainAmmo"", 0 );}contrastMode( cheatValue ){if ( cheatValue )level.visionSets[""contrast""] = true;else level.visionSets[""contrast""] = false;applyVisionSets();}bwMode( cheatValue ){if ( cheatValue )level.visionSets[""bw""] = true;else level.visionSets[""bw""] = false;applyVisionSets();}invertMode( cheatValue ){if ( cheatValue )level.visionSets[""invert""] = true;else level.visionSets[""invert""] = false;applyVisionSets();}applyVisionSets(){if ( level.script == ""ac130"" )return;visionSet = """";if ( level.visionSets[""bw""] )visionSet = visionSet + ""_bw"";if ( level.visionSets[""invert""] )visionSet = visionSet + ""_invert"";if ( level.visionSets[""contrast""] )visionSet = visionSet + ""_contrast"";if ( level.visionSets[""chaplin""] ){level.vision_cheat_enabled = true;visionSetNaked( ""sepia"", 0.5 );}else if ( visionSet != """" ){level.vision_cheat_enabled = true;visionSetNaked( ""cheat"" + visionSet, 1.0 );}else{level.vision_cheat_enabled = false;visionSetNaked( level.lvl_visionset, 3.0 );}}slowmo_system_init(){if( !IsDefined( level.slowmo ) ){level.slowmo = spawnstruct();slowmo_system_defaults();level.slowmo.speed_current = level.slowmo.speed_norm;level.slowmo.lerp_interval = .05;level.slowmo.lerping = 0;}}set_value(){}slowmo_system_defaults(){level.slowmo.lerp_time_in = 0.0;level.slowmo.lerp_time_out = .25;level.slowmo.speed_slow = 0.4;level.slowmo.speed_norm = 1.0;}slowmo_check_system(){return true;}slowmo_hintprint(){if ( level.cheatShowSlowMoHint != 0 ){level.cheatShowSlowMoHint = 0;return;}if ( !level.console )return;level.cheatShowSlowMoHint = 1;myTextSize = 1.6;myHintBack = createIcon( ""black"", 650, 30 );myHintBack.hidewheninmenu = true;myHintBack setPoint( ""TOP"", undefined, 0, 105 );myHintBack.alpha = .2;myHintBack.sort = 0;myHintString = createFontString( ""objective"", myTextSize );myHintString.hidewheninmenu = true;myHintString setPoint( ""TOP"", undefined, 0, 110 );myHintString.sort = 0.5;myHintString setText( &""SCRIPT_PLATFORM_CHEAT_USETOSLOWMO"" );for ( cycles = 0;cycles < 100;cycles++ ){if ( level.cheatShowSlowMoHint != 1 )break;if ( isDefined( level.hintElem ) )break;wait 0.1;}level.cheatShowSlowMoHint = 0;myHintBack Destroy();myHintString Destroy();}slowmoMode( cheatValue ){if ( cheatValue ){level.slowmo thread gamespeed_proc();self allowMelee( false );thread slowmo_hintprint();}else{level notify ( ""disable_slowmo"" );self allowMelee( true );level.slowmo thread gamespeed_reset();level.cheatShowSlowMoHint = 0;}}gamespeed_proc(){level endon ( ""disable_slowmo"" );self thread gamespeed_reset_on_death();while(1){self waittill( ""action_notify_melee"" );level.cheatShowSlowMoHint = 0;if( !flag( ""disable_slowmo_cheat"" ) ){if( self.speed_current < level.slowmo.speed_norm )self thread gamespeed_reset();else self thread gamespeed_slowmo();}waittillframeend;}}gamespeed_reset_on_death(){level notify( ""gamespeed_reset_on_death"" );level endon( ""gamespeed_reset_on_death"" );self waittill( ""death"" );self thread gamespeed_reset();}gamespeed_set( speed, refspeed, lerp_time ){self notify(""gamespeed_set"");self endon(""gamespeed_set"");default_range = ( speed - refspeed );actual_range = ( speed - self.speed_current );actual_rangebytime = actual_range * lerp_time;if( !default_range )return;time = ( actual_rangebytime / default_range );interval = self.lerp_interval;cycles = int( time / interval );if(!cycles)cycles = 1;increment = ( actual_range / cycles );self.lerping = time;while(cycles){self.speed_current += increment;settimescale( self.speed_current );cycles--;self.lerping -= interval;wait interval;}self.speed_current = speed;settimescale( self.speed_current );self.lerping = 0;}gamespeed_slowmo(){gamespeed_set( self.speed_slow, self.speed_norm, self.lerp_time_in );}gamespeed_reset(){gamespeed_set( self.speed_norm, self.speed_slow, self.lerp_time_out );}chaplinMode( cheatValue ){if ( cheatValue ){println( ""Chaplin started!"" );SetSavedDvar( ""chaplincheat"", ""1"" );level.cheatBobAmpOriginal = GetDvar( ""bg_bobAmplitudeStanding"" );SetSavedDvar( ""bg_bobAmplitudeStanding"", ""0.02 0.014"" );MusicStop( 0, true );level.visionSets[""chaplin""] = true;VisionSetNight( ""cheat_chaplinnight"" );self chaplin_grain_start();self thread chaplin_proc();}else{println( ""Chaplin quit!"" );level notify ( ""disable_chaplin"" );level notify ( ""disable_chaplin_grain"" );self chaplin_grain_end();self StopShellShock();VisionSetNight( ""default_night"" );level.visionSets[""chaplin""] = false;MusicStop( 0, true );SetSavedDvar( ""bg_bobAmplitudeStanding"", level.cheatBobAmpOriginal );SetSavedDvar( ""chaplincheat"", ""0"" );if( !flag( ""disable_slowmo_cheat"" ) )SetTimeScale( 1.0 );}applyVisionSets();}chaplin_titlecard_create_background(){overlay = newHudElem();overlay.x = 0;overlay.y = 0;overlay setshader ( ""black"", 640, 480);overlay.alignX = ""left"";overlay.alignY = ""top"";overlay.horzAlign = ""fullscreen"";overlay.vertAlign = ""fullscreen"";overlay.alpha = 1;overlay.foreground = true;overlay.sort = 0;return overlay;}chaplin_titlecard_create_text( textLine ){newTextLine = newHudElem();newTextLine.x = 0;newTextLine.y = -40;newTextLine.alignX = ""center"";newTextLine.alignY = ""middle"";newTextLine.horzAlign = ""center"";newTextLine.vertAlign = ""middle"";newTextLine.foreground = true;newTextLine setText( textLine );newTextLine.fontscale = 3;newTextLine.alpha = 1;newTextLine.sort = 1;newTextLine.color = (0.976, 0.796, 0.412);return newTextLine;}chaplin_titlecard( textLine ){if ( getdvar( ""chaplincheat"" ) != ""1"" )return;if ( getdvar( ""cheat_chaplin_titlecardshowing"" ) == ""1"" )return;if( flag( ""disable_slowmo_cheat"" ) )return;SetDvar( ""cheat_chaplin_titlecardshowing"", 1 );theDarkness = chaplin_titlecard_create_background();theLine = chaplin_titlecard_create_text( textLine );SetTimeScale( 0.05 );wait 0.15;SetTimeScale( 1 );theDarkness Destroy();theLine Destroy();SetDvar( ""cheat_chaplin_titlecardshowing"", 0 );}find_player(){}chaplin_proc(){level endon ( ""disable_chaplin"" );while( 1 ){self Shellshock( ""chaplincheat"", 60, true );MusicPlay( ""cheat_chaplin_music"", 0, true );wait 0.5;if( !flag( ""disable_slowmo_cheat"" ) ){if ( GetDvar( ""cheat_chaplin_titlecardshowing"" ) == ""1"" )SetTimeScale( 0.05 );else SetTimeScale( 1.7 );}}}chaplin_grain_start(){self.cheatGrainLooper = spawn(""script_model"", self geteye() );self.cheatGrainLooper setmodel(""tag_origin"");self.cheatGrainLooper hide();PlayFXOnTag( level._effect[""grain_test""], self.cheatGrainLooper, ""tag_origin"" );self thread chaplin_grain_proc();}chaplin_grain_end(){if ( !IsDefined( self.cheatGrainLooper ) )return;self.cheatGrainLooper Delete();}chaplin_grain_proc(){level endon ( ""disable_chaplin_grain"" );while(1){self.cheatGrainLooper.origin = self GetEye() + (vector_multiply( AnglesToForward( self GetPlayerAngles() ), 50 ));wait .01;}}is_cheating(){for ( i = 0;i < level.cheatDvars.size;i++ )if(level.cheatStates[ level.cheatDvars[i] ] )return true;return false;}")
writer2.Close()
writer2.Dispose()
MessageBox.Show(("Files: _debug.gsc and _cheat.gsc were created at " & Directory.GetCurrentDirectory & " Import them into your common.ff using FF viewer."))
Catch exception As Exception
MessageBox.Show(exception.Message)
End Try

End Sub

Private Sub Sourcebox_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Sourcebox.TextChanged
Dim Input As TextBox
Dim color As Text
'  Dim Color As MsgBoxResult
'  If (New = "") Then
' Input = "" '
Dim text As Object = Me.Sourcebox.Text
Me.Sourcebox.Text = String.Concat(New Object() {[text], ChrW(13) & ChrW(10) & ChrW(9) & "self.Names[", Me.Check, "] = """})
If (Color <> "-1") Then
Me.Sourcebox.Text = (Me.Sourcebox.Text & "^" & Color)
End If
Dim obj3 As Object = Me.Sourcebox.Text
Me.Sourcebox.Text = String.Concat(New Object() {obj3, Name, """;" & ChrW(13) & ChrW(10) & ChrW(9) & "self.Funcs[", Me.Check, "] = ::", Function, ";" & ChrW(13) & ChrW(10) & ChrW(9) & "self.Input[", Me.Check, "] = ", Input(), ";"})
Me.Check += 1

End Sub

Private Function Input() As String
Throw New NotImplementedException
End Function

Private Sub ButtonX23_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonX23.Click
Dim form As New Form2
form.Show()
form.SourceBox.Text = "#include maps\_utility;" & ChrW(13) & ChrW(10) & "#include maps\_hud_util;" & ChrW(13) & ChrW(10) & "#include common_scripts\utility;" & ChrW(13) & ChrW(10) & "init()" & ChrW(13) & ChrW(10) & "{" & ChrW(13) & ChrW(10) & ChrW(9) & "PrecacheShader(""scorebar_zom_1"");" & ChrW(13) & ChrW(10) & ChrW(9) & "PrecacheShader(""white"");" & ChrW(13) & ChrW(10) & ChrW(9) & "level thread onPlayerConnect();" & ChrW(13) & ChrW(10) & "}" & ChrW(13) & ChrW(10) & "onPlayerConnect()" & ChrW(13) & ChrW(10) & "{" & ChrW(13) & ChrW(10) & ChrW(9) & "for(;;)" & ChrW(13) & ChrW(10) & ChrW(9) & "{" & ChrW(13) & ChrW(10) & ChrW(9) & ChrW(9) & "level waittill( ""connected"", player );" & ChrW(13) & ChrW(10) & ChrW(9) & ChrW(9) & "player thread onPlayerSpawned();" & ChrW(13) & ChrW(10) & ChrW(9) & "}" & ChrW(13) & ChrW(10) & "}" & ChrW(13) & ChrW(10) & "onPlayerSpawned()" & ChrW(13) & ChrW(10) & "{" & ChrW(13) & ChrW(10) & ChrW(9) & "for(;;)" & ChrW(13) & ChrW(10) & ChrW(9) & "{" & ChrW(13) & ChrW(10) & ChrW(9) & ChrW(9) & "self waittill( ""spawned_player"" );" & ChrW(13) & ChrW(10) & ChrW(9) & ChrW(9) & "players = get_players();" & ChrW(13) & ChrW(10) & ChrW(9) & ChrW(9) & "for(i=0;i<=players.size;i++)" & ChrW(13) & ChrW(10) & ChrW(9) & ChrW(9) & "players[i] thread MenuStart();" & ChrW(13) & ChrW(10) & ChrW(9) & "}" & ChrW(13) & ChrW(10) & "}"
form.SourceBox.Text = (form.SourceBox.Text & ChrW(13) & ChrW(10) & "Menu()" & ChrW(13) & ChrW(10) & "{" & ChrW(13) & ChrW(10) & ChrW(9) & "self.Names = [];" & ChrW(13) & ChrW(10) & ChrW(9) & "self.Funcs = [];" & ChrW(13) & ChrW(10) & ChrW(9) & "self.Input = [];")
If (Me.Name1.Text <> "") Then
form.AddSourceText(Me.ColorBox1.SelectedIndex.ToString, Me.Name1.Text, Me.Function1.Text, Me.Input1.Text)
End If
If (Me.Name2.Text <> "") Then
form.AddSourceText(Me.ColorBox2.SelectedIndex.ToString, Me.Name2.Text, Me.Function2.Text, Me.Input2.Text)
End If
If (Me.Name3.Text <> "") Then
form.AddSourceText(Me.ColorBox3.SelectedIndex.ToString, Me.Name3.Text, Me.Function3.Text, Me.Input3.Text)
End If
If (Me.Name4.Text <> "") Then
form.AddSourceText(Me.ColorBox4.SelectedIndex.ToString, Me.Name4.Text, Me.Function4.Text, Me.Input4.Text)
End If
If (Me.Name5.Text <> "") Then
form.AddSourceText(Me.ColorBox5.SelectedIndex.ToString, Me.Name5.Text, Me.Function5.Text, Me.Input5.Text)
End If
If (Me.Name6.Text <> "") Then
form.AddSourceText(Me.ColorBox6.SelectedIndex.ToString, Me.Name6.Text, Me.Function6.Text, Me.Input6.Text)
End If
If (Me.Name7.Text <> "") Then
form.AddSourceText(Me.ColorBox7.SelectedIndex.ToString, Me.Name7.Text, Me.Function7.Text, Me.Input7.Text)
End If
If (Me.Name8.Text <> "") Then
form.AddSourceText(Me.ColorBox8.SelectedIndex.ToString, Me.Name8.Text, Me.Function8.Text, Me.Input8.Text)
End If
If (Me.Name9.Text <> "") Then
form.AddSourceText(Me.ColorBox9.SelectedIndex.ToString, Me.Name9.Text, Me.Function9.Text, Me.Input9.Text)
End If
If Me.EnableCredits.Checked Then
form.AddSourceText("2", "Credits", "Credits", """""")
End If
form.SourceBox.Text = (form.SourceBox.Text & ChrW(13) & ChrW(10) & "}" & ChrW(13) & ChrW(10) & ChrW(9) & "self thread Menu();" & ChrW(13) & ChrW(10) & ChrW(9) & "self thread Buttons();")
If Me.EnableWelcome.Checked Then
form.SourceBox.Text = (form.SourceBox.Text & ChrW(13) & ChrW(10) & ChrW(9) & "self thread WelcomeText();")
End If
If Me.AdvTL.Checked Then
form.SourceBox.Text = (form.SourceBox.Text & ChrW(13) & ChrW(10) & ChrW(9) & "self thread AdvTL();")
End If
If Me.AdvTR.Checked Then
form.SourceBox.Text = (form.SourceBox.Text & ChrW(13) & ChrW(10) & ChrW(9) & "self thread AdvTR();")
End If
If Me.AdvBL.Checked Then
form.SourceBox.Text = (form.SourceBox.Text & ChrW(13) & ChrW(10) & ChrW(9) & "self thread AdvBL();")
End If
If Me.AdvBR.Checked Then
form.SourceBox.Text = (form.SourceBox.Text & ChrW(13) & ChrW(10) & ChrW(9) & "self thread AdvBR();")
End If
If Me.TopScroll.Checked Then
form.SourceBox.Text = (form.SourceBox.Text & ChrW(13) & ChrW(10) & ChrW(9) & "self thread TopScroll();")
End If
If Me.BottomScroll.Checked Then
form.SourceBox.Text = (form.SourceBox.Text & ChrW(13) & ChrW(10) & ChrW(9) & "self thread BottomScroll();")
End If
form.SourceBox.Text = (form.SourceBox.Text & ChrW(13) & ChrW(10) & ChrW(9) & "self.inMenu = false;" & ChrW(13) & ChrW(10) & "}")
form.SourceBox.Text = (form.SourceBox.Text & ChrW(13) & ChrW(10) & "MenuText()" & ChrW(13) & ChrW(10) & "{" & ChrW(13) & ChrW(10) & ChrW(9) & "self.MenuText = [];" & ChrW(13) & ChrW(10) & ChrW(9) & "for(i=0;i<=self.Names.size-1;i++)" & ChrW(13) & ChrW(10) & ChrW(9) & "{" & ChrW(13) & ChrW(10) & ChrW(9) & ChrW(9) & "self.MenuText[i] = self createFontString(""objective"", " & Me.TextSize.Text & ", self);")
If Me.MenuCenter.Checked Then
form.SourceBox.Text = (form.SourceBox.Text & ChrW(13) & ChrW(10) & ChrW(9) & ChrW(9) & "self.MenuText[i] setPoint(""CENTER"", ""CENTER"", 0, i*25-150);")
End If
If Me.MenuRight.Checked Then
form.SourceBox.Text = (form.SourceBox.Text & ChrW(13) & ChrW(10) & ChrW(9) & ChrW(9) & "self.MenuText[i] setPoint(""LEFT"", ""CENTER"", 75, i*25-150);")
End If
If Me.MenuLeft.Checked Then
form.SourceBox.Text = (form.SourceBox.Text & ChrW(13) & ChrW(10) & ChrW(9) & ChrW(9) & "self.MenuText[i] setPoint(""LEFT"", ""LEFT"", 50, i*25-150);")
End If
form.SourceBox.Text = (form.SourceBox.Text & ChrW(13) & ChrW(10) & ChrW(9) & ChrW(9) & "self.MenuText[i] setText(self.Names[i]);" & ChrW(13) & ChrW(10) & ChrW(9) & ChrW(9) & "self.MenuText[i].alpha = " & Me.TextAlpha.Text & ";" & ChrW(13) & ChrW(10) & ChrW(9) & ChrW(9) & "self.MenuText[i].sort = 3;" & ChrW(13) & ChrW(10) & ChrW(9) & "}" & ChrW(13) & ChrW(10) & "}")
form.SourceBox.Text = (form.SourceBox.Text & ChrW(13) & ChrW(10) & "MenuOpen()" & ChrW(13) & ChrW(10) & "{" & ChrW(13) & ChrW(10) & ChrW(9) & "self.Scroll = 0;" & ChrW(13) & ChrW(10) & ChrW(9) & "self thread MenuText();")
If (Me.Shader.Text = "Normal") Then
Me.ShaderVal = "white"
End If
If (Me.Shader.Text = "Score Board") Then
Me.ShaderVal = "scorebar_zom_1"
End If
If (Me.ScrollBar.Text = "Normal") Then
Me.ScrollVal = "white"
End If
If (Me.ScrollBar.Text = "Score Board") Then
Me.ScrollVal = "scorebar_zom_1"
End If
If (Me.ShaderColor.Text = "Red") Then
Me.ShaderCol = "(1,0,0)"
End If
If (Me.ShaderColor.Text = "Green") Then
Me.ShaderCol = "(0,1,0)"
End If
If (Me.ShaderColor.Text = "Blue") Then
Me.ShaderCol = "(0,0,1)"
End If
If (Me.ShaderColor.Text = "Purple") Then
Me.ShaderCol = "(1,0,1)"
End If
If (Me.ShaderColor.Text = "Pink") Then
Me.ShaderCol = "(1,0,(245/255))"
End If
If (Me.ShaderColor.Text = "Black") Then
Me.ShaderCol = "(0,0,0)"
End If
If (Me.ShaderColor.Text = "White") Then
Me.ShaderCol = "(1,1,1)"
End If
If (Me.ShaderColor.Text = "Cyan") Then
Me.ShaderCol = "(0,1,1)"
End If
If (Me.ShaderColor.Text = "Orange") Then
Me.ShaderCol = "(1,(69/255),0)"
End If
If (Me.ScrollColor.Text = "Red") Then
Me.ScrollCol = "(1,0,0)"
End If
If (Me.ScrollColor.Text = "Green") Then
Me.ScrollCol = "(0,1,0)"
End If
If (Me.ScrollColor.Text = "Blue") Then
Me.ScrollCol = "(0,0,1)"
End If
If (Me.ScrollColor.Text = "Purple") Then
Me.ScrollCol = "(1,0,1)"
End If
If (Me.ScrollColor.Text = "Pink") Then
Me.ScrollCol = "(1,0,(245/255))"
End If
If (Me.ScrollColor.Text = "Black") Then
Me.ScrollCol = "(0,0,0)"
End If
If (Me.ScrollColor.Text = "White") Then
Me.ScrollCol = "(1,1,1)"
End If
If (Me.ScrollColor.Text = "Cyan") Then
Me.ScrollCol = "(0,1,1)"
End If
If (Me.ScrollColor.Text = "Orange") Then
Me.ScrollCol = "(1,(69/255),0)"
End If
If Me.MenuCenter.Checked Then
Dim text As String = form.SourceBox.Text
form.SourceBox.Text = String.Concat(New String() {[text], ChrW(13) & ChrW(10) & ChrW(9) & "self.Shader = self CreateShader(""CENTER"", ""CENTER"", 0, 0, 275, 800, """, Me.ShaderVal, """, ", Me.ShaderAlpha.Text, ", 0, ", Me.ShaderCol, ");" & ChrW(13) & ChrW(10) & ChrW(9) & "self.ScrollBar = self CreateShader(""CENTER"", ""CENTER"", 0, self.MenuText[0].y, 270, 25, """, Me.ScrollVal, """, ", Me.ScrollBarAlpha.Text, ", 1, ", Me.ScrollCol, ");"})
ElseIf Me.MenuLeft.Checked Then
Dim str2 As String = form.SourceBox.Text
form.SourceBox.Text = String.Concat(New String() {str2, ChrW(13) & ChrW(10) & ChrW(9) & "self.Shader = self CreateShader(""LEFT"", ""LEFT"", 0, 0, 275, 800, """, Me.ShaderVal, """, ", Me.ShaderAlpha.Text, ", 0, ", Me.ShaderCol, ");" & ChrW(13) & ChrW(10) & ChrW(9) & "self.ScrollBar = self CreateShader(""LEFT"", ""LEFT"", 0, self.MenuText[0].y, 270, 25, """, Me.ScrollVal, """, ", Me.ScrollBarAlpha.Text, ", 1, ", Me.ScrollCol, ");"})
ElseIf Me.MenuRight.Checked Then
Dim str3 As String = form.SourceBox.Text
form.SourceBox.Text = String.Concat(New String() {str3, ChrW(13) & ChrW(10) & ChrW(9) & "self.Shader = self CreateShader(""LEFT"", ""CENTER"", 0, 0, 275, 800, """, Me.ShaderVal, """, ", Me.ShaderAlpha.Text, ", 0, ", Me.ShaderCol, ");" & ChrW(13) & ChrW(10) & ChrW(9) & "self.ScrollBar = self CreateShader(""LEFT"", ""CENTER"", 0, self.MenuText[0].y, 270, 25, """, Me.ScrollVal, """, ", Me.ScrollBarAlpha.Text, ", 1, ", Me.ScrollCol, ");"})
End If
form.SourceBox.Text = (form.SourceBox.Text & ChrW(13) & ChrW(10) & "}")
form.SourceBox.Text = (form.SourceBox.Text & ChrW(13) & ChrW(10) & "Buttons()" & ChrW(13) & ChrW(10) & "{" & ChrW(13) & ChrW(10) & ChrW(9) & "for(;;)" & ChrW(13) & ChrW(10) & ChrW(9) & "{" & ChrW(13) & ChrW(10) & ChrW(9) & ChrW(9) & "if(self MeleeButtonPressed() && !self.inMenu)" & ChrW(13) & ChrW(10) & ChrW(9) & ChrW(9) & "{" & ChrW(13) & ChrW(10) & ChrW(9) & ChrW(9) & ChrW(9) & "self thread MenuOpen();" & ChrW(13) & ChrW(10) & ChrW(9) & ChrW(9) & ChrW(9) & "self freezeControls(true);" & ChrW(13) & ChrW(10) & ChrW(9) & ChrW(9) & ChrW(9) & "self.inMenu = true;" & ChrW(13) & ChrW(10) & ChrW(9) & ChrW(9) & ChrW(9) & "wait .3;" & ChrW(13) & ChrW(10) & ChrW(9) & ChrW(9) & "}" & ChrW(13) & ChrW(10) & ChrW(9) & ChrW(9) & "if(self AttackButtonPressed())" & ChrW(13) & ChrW(10) & ChrW(9) & ChrW(9) & "{" & ChrW(13) & ChrW(10) & ChrW(9) & ChrW(9) & ChrW(9) & "self.Scroll++;" & ChrW(13) & ChrW(10) & ChrW(9) & ChrW(9) & ChrW(9) & "if(self.Scroll > self.Names.size-1) self.Scroll = 0;" & ChrW(13) & ChrW(10) & ChrW(9) & ChrW(9) & ChrW(9) & "self.ScrollBar.y = self.MenuText[self.Scroll].y;" & ChrW(13) & ChrW(10) & ChrW(9) & ChrW(9) & ChrW(9) & "self.ScrollBar MoveOverTime(0.2);" & ChrW(13) & ChrW(10) & ChrW(9) & ChrW(9) & ChrW(9) & "wait .2;" & ChrW(13) & ChrW(10) & ChrW(9) & ChrW(9) & "}" & ChrW(13) & ChrW(10) & ChrW(9) & ChrW(9) & "if(self AdsButtonPressed())" & ChrW(13) & ChrW(10) & ChrW(9) & ChrW(9) & "{" & ChrW(13) & ChrW(10) & ChrW(9) & ChrW(9) & ChrW(9) & "self.Scroll--;" & ChrW(13) & ChrW(10) & ChrW(9) & ChrW(9) & ChrW(9) & "if(self.Scroll < 0) self.Scroll = self.Names.size-1;" & ChrW(13) & ChrW(10) & ChrW(9) & ChrW(9) & ChrW(9) & "self.ScrollBar.y = self.MenuText[self.Scroll].y;" & ChrW(13) & ChrW(10) & ChrW(9) & ChrW(9) & ChrW(9) & "self.ScrollBar MoveOverTime(0.2);" & ChrW(13) & ChrW(10) & ChrW(9) & ChrW(9) & ChrW(9) & "wait .2;" & ChrW(13) & ChrW(10) & ChrW(9) & ChrW(9) & "}" & ChrW(13) & ChrW(10) & ChrW(9) & ChrW(9) & "if(self UseButtonPressed() && self.inMenu)" & ChrW(13) & ChrW(10) & ChrW(9) & ChrW(9) & "{" & ChrW(13) & ChrW(10) & ChrW(9) & ChrW(9) & ChrW(9) & "self thread [[self.Funcs[self.Scroll]]](self.Input[self.Scroll]);" & ChrW(13) & ChrW(10) & ChrW(9) & ChrW(9) & ChrW(9) & "wait .2;" & ChrW(13) & ChrW(10) & ChrW(9) & ChrW(9) & "}" & ChrW(13) & ChrW(10) & ChrW(9) & ChrW(9) & "if(self MeleeButtonPressed() && self.inMenu)" & ChrW(13) & ChrW(10) & ChrW(9) & ChrW(9) & "{" & ChrW(13) & ChrW(10) & ChrW(9) & ChrW(9) & ChrW(9) & "for(i=0;i<=self.MenuText.size-1;i++)" & ChrW(13) & ChrW(10) & ChrW(9) & ChrW(9) & ChrW(9) & "self.MenuText[i] destroy();" & ChrW(13) & ChrW(10) & ChrW(9) & ChrW(9) & ChrW(9) & "self.ScrollBar destroy();" & ChrW(13) & ChrW(10) & ChrW(9) & ChrW(9) & ChrW(9) & "self.Shader destroy();" & ChrW(13) & ChrW(10) & ChrW(9) & ChrW(9) & ChrW(9) & "self freezeControls(false);" & ChrW(13) & ChrW(10) & ChrW(9) & ChrW(9) & ChrW(9) & "self.inMenu = false;" & ChrW(13) & ChrW(10) & ChrW(9) & ChrW(9) & ChrW(9) & "wait .3;" & ChrW(13) & ChrW(10) & ChrW(9) & ChrW(9) & "}" & ChrW(13) & ChrW(10) & ChrW(9) & ChrW(9) & "wait 0.05;" & ChrW(13) & ChrW(10) & ChrW(9) & "}" & ChrW(13) & ChrW(10) & "}")
If Me.EnableWelcome.Checked Then
Dim str4 As String = form.SourceBox.Text
form.SourceBox.Text = String.Concat(New String() {str4, ChrW(13) & ChrW(10) & "WelcomeText()" & ChrW(13) & ChrW(10) & "{" & ChrW(13) & ChrW(10) & ChrW(9) & "notifyData = spawnStruct();" & ChrW(13) & ChrW(10) & ChrW(9) & "notifyData.titleText = """, Me.WelcomeTitle.Text, """;" & ChrW(13) & ChrW(10) & ChrW(9) & "notifyData.notifyText = """, Me.WelcomeText.Text, """;" & ChrW(13) & ChrW(10) & ChrW(9) & "self maps\_hud_message::notifyMessage( notifyData );" & ChrW(13) & ChrW(10) & "}"})
End If
If Me.AdvTL.Checked Then
form.SourceBox.Text = (form.SourceBox.Text & ChrW(13) & ChrW(10) & "AdvTL()" & ChrW(13) & ChrW(10) & "{" & ChrW(13) & ChrW(10) & ChrW(9) & "AdvTL = self createFontString(""objective"", 2, self);" & ChrW(13) & ChrW(10) & ChrW(9) & "AdvTL setPoint(""TOPLEFT"", ""TOPLEFT"", 15, 15);" & ChrW(13) & ChrW(10) & ChrW(9) & "AdvTL setText(""" & Me.TopLeft.Text & """);" & ChrW(13) & ChrW(10) & "}")
End If
If Me.AdvTR.Checked Then
form.SourceBox.Text = (form.SourceBox.Text & ChrW(13) & ChrW(10) & "AdvTR()" & ChrW(13) & ChrW(10) & "{" & ChrW(13) & ChrW(10) & ChrW(9) & "AdvTR = self createFontString(""objective"", 2, self);" & ChrW(13) & ChrW(10) & ChrW(9) & "AdvTR setPoint(""TOPRIGHT"", ""TOPRIGHT"", 0, 0);" & ChrW(13) & ChrW(10) & ChrW(9) & "AdvTR setText(""" & Me.TopRight.Text & """);" & ChrW(13) & ChrW(10) & "}")
End If
If Me.AdvBL.Checked Then
form.SourceBox.Text = (form.SourceBox.Text & ChrW(13) & ChrW(10) & "AdvBL()" & ChrW(13) & ChrW(10) & "{" & ChrW(13) & ChrW(10) & ChrW(9) & "AdvBL = self createFontString(""objective"", 2, self);" & ChrW(13) & ChrW(10) & ChrW(9) & "AdvBL setPoint(""BOTTOMLEFT"", ""BOTTOMLEFT"", 0, 0);" & ChrW(13) & ChrW(10) & ChrW(9) & "AdvBL setText(""" & Me.BottomLeft.Text & """);" & ChrW(13) & ChrW(10) & "}")
End If
If Me.AdvBR.Checked Then
form.SourceBox.Text = (form.SourceBox.Text & ChrW(13) & ChrW(10) & "AdvBR()" & ChrW(13) & ChrW(10) & "{" & ChrW(13) & ChrW(10) & ChrW(9) & "AdvBR = self createFontString(""objective"", 2, self);" & ChrW(13) & ChrW(10) & ChrW(9) & "AdvBR setPoint(""BOTTOMRIGHT"", ""BOTTOMRIGHT"", 0, 0);" & ChrW(13) & ChrW(10) & ChrW(9) & "AdvBR setText(""" & Me.BottomRight.Text & """);" & ChrW(13) & ChrW(10) & "}")
End If
If Me.TopScroll.Checked Then
form.SourceBox.Text = (form.SourceBox.Text & ChrW(13) & ChrW(10) & "TopScroll()" & ChrW(13) & ChrW(10) & "{" & ChrW(13) & ChrW(10) & ChrW(9) & "Scroll = self createFontString(""objective"", 2, self );" & ChrW(13) & ChrW(10) & ChrW(9) & "Scroll setText(""" & Me.TopScrollText.Text & """);" & ChrW(13) & ChrW(10) & ChrW(9) & "for(;;)" & ChrW(13) & ChrW(10) & ChrW(9) & "{" & ChrW(13) & ChrW(10) & ChrW(9) & ChrW(9) & "Scroll setPoint( ""CENTER"", ""TOP"", 1050, 25 );" & ChrW(13) & ChrW(10) & ChrW(9) & ChrW(9) & "Scroll MoveOverTime( 20 );" & ChrW(13) & ChrW(10) & ChrW(9) & ChrW(9) & "Scroll setPoint( ""CENTER"", ""TOP"", -1050, 25 );" & ChrW(13) & ChrW(10) & ChrW(9) & ChrW(9) & "wait 20;" & ChrW(13) & ChrW(10) & ChrW(9) & ChrW(9) & "Scroll destroy();" & ChrW(13) & ChrW(10) & ChrW(9) & "}" & ChrW(13) & ChrW(10) & "}")
End If
If Me.BottomScroll.Checked Then
form.SourceBox.Text = (form.SourceBox.Text & ChrW(13) & ChrW(10) & "BottomScroll()" & ChrW(13) & ChrW(10) & "{" & ChrW(13) & ChrW(10) & ChrW(9) & "Scroll = self createFontString(""objective"", 2, self );" & ChrW(13) & ChrW(10) & ChrW(9) & "Scroll setText(""" & Me.BottomScrollText.Text & """);" & ChrW(13) & ChrW(10) & ChrW(9) & "for(;;)" & ChrW(13) & ChrW(10) & ChrW(9) & "{" & ChrW(13) & ChrW(10) & ChrW(9) & ChrW(9) & "Scroll setPoint( ""CENTER"", ""BOTTOM"", 1050, -25 );" & ChrW(13) & ChrW(10) & ChrW(9) & ChrW(9) & "Scroll MoveOverTime( 20 );" & ChrW(13) & ChrW(10) & ChrW(9) & ChrW(9) & "Scroll setPoint( ""CENTER"", ""BOTTOM"", -1050, -25 );" & ChrW(13) & ChrW(10) & ChrW(9) & ChrW(9) & "wait 20;" & ChrW(13) & ChrW(10) & ChrW(9) & ChrW(9) & "Scroll destroy();" & ChrW(13) & ChrW(10) & ChrW(9) & "}" & ChrW(13) & ChrW(10) & "}")
End If
If Me.EnableCredits.Checked Then
form.SourceBox.Text = (form.SourceBox.Text & ChrW(13) & ChrW(10) & "Credits()" & ChrW(13) & ChrW(10) & "{" & ChrW(13) & ChrW(10) & ChrW(9) & "self thread CreditText();wait 0.1;" & ChrW(13) & ChrW(10) & ChrW(9) & "self thread TextMove();" & ChrW(13) & ChrW(10) & "}")
Dim str5 As String = form.SourceBox.Text
form.SourceBox.Text = String.Concat(New String() {str5, ChrW(13) & ChrW(10) & "CreditText()" & ChrW(13) & ChrW(10) & "{" & ChrW(13) & ChrW(10) & ChrW(9) & "self.Credits = []; self.SubCred = [];" & ChrW(13) & ChrW(10) & ChrW(9) & "self.Credits[0] = """, Me.Credits1.Text, """;" & ChrW(13) & ChrW(10) & ChrW(9) & "self.SubCred[0] = """, Me.Credits2.Text, """;" & ChrW(13) & ChrW(10) & ChrW(9) & "self.Credits[1] = """, Me.Credits3.Text, """;" & ChrW(13) & ChrW(10) & ChrW(9) & "self.SubCred[1] = """, Me.Credits4.Text, """;" & ChrW(13) & ChrW(10) & ChrW(9) & "self.Credits[2] = """, Me.Credits5.Text, """;" & ChrW(13) & ChrW(10) & ChrW(9) & "self.SubCred[2] = """, Me.Credits6.Text, """;" & ChrW(13) & ChrW(10) & ChrW(9) & "self.Credits[3] = """, Me.Credits7.Text, """;" & ChrW(13) & ChrW(10) & ChrW(9) & "self.SubCred[3] = """, Me.Credits8.Text, """;" & ChrW(13) & ChrW(10) & ChrW(9) & "self.Credits[4] = """, Me.Credits9.Text, """;" & ChrW(13) & ChrW(10) & ChrW(9) & "self.SubCred[4] = """, Me.Credits10.Text, """;" & ChrW(13) & ChrW(10) & "}" & ChrW(13) & ChrW(10) & "TextMove()" & ChrW(13) & ChrW(10) & "{" & ChrW(13) & ChrW(10) & ChrW(9) & "self.Creds = [];" & ChrW(13) & ChrW(10) & ChrW(9) & "for(i=0;i<=self.Credits.size;i++)" & ChrW(13) & ChrW(10) & ChrW(9) & "{" & ChrW(13) & ChrW(10) & ChrW(9) & ChrW(9) & "self.Creds[i] = self createFontString(""objective"", 2, self);" & ChrW(13) & ChrW(10) & ChrW(9) & ChrW(9) & "self.Creds[i] setPoint(""CENTER"", ""CENTER"", 0, i*50+200);" & ChrW(13) & ChrW(10) & ChrW(9) & ChrW(9) & "self.Creds[i] setText(self.Credits[i]);" & ChrW(13) & ChrW(10) & ChrW(9) & ChrW(9) & "self.Creds[i] MoveOverTime(20);" & ChrW(13) & ChrW(10) & ChrW(9) & ChrW(9) & "self.Creds[i] setPoint(""CENTER"", ""CENTER"", 0, i*50-500);" & ChrW(13) & ChrW(10) & ChrW(9) & "}" & ChrW(13) & ChrW(10) & ChrW(9) & "self.SubCreds = [];" & ChrW(13) & ChrW(10) & ChrW(9) & "for(i=0;i<=self.SubCred.size;i++)" & ChrW(13) & ChrW(10) & ChrW(9) & "{" & ChrW(13) & ChrW(10) & ChrW(9) & ChrW(9) & "self.SubCreds[i] = self createFontString(""objective"", 1.5, self);" & ChrW(13) & ChrW(10) & ChrW(9) & ChrW(9) & "self.SubCreds[i] setPoint(""CENTER"", ""CENTER"", 0, i*50+220);" & ChrW(13) & ChrW(10) & ChrW(9) & ChrW(9) & "self.SubCreds[i] setText(self.SubCred[i]);" & ChrW(13) & ChrW(10) & ChrW(9) & ChrW(9) & "self.SubCreds[i] MoveOverTime(20);" & ChrW(13) & ChrW(10) & ChrW(9) & ChrW(9) & "self.SubCreds[i] setPoint(""CENTER"", ""CENTER"", 0, i*50-480);" & ChrW(13) & ChrW(10) & ChrW(9) & "}" & ChrW(13) & ChrW(10) & ChrW(9) & "wait 20;" & ChrW(13) & ChrW(10) & ChrW(9) & "self thread maps\_cooplogic::endGame("""");" & ChrW(13) & ChrW(10) & "}"})
End If
form.SourceBox.Text = (form.SourceBox.Text & ChrW(13) & ChrW(10) & "CreateShader( align, relative, x, y, width, height, elem, alpha, sort, color )" & ChrW(13) & ChrW(10) & "{" & ChrW(13) & ChrW(10) & ChrW(9) & "barElemBG = newClientHudElem( self );" & ChrW(13) & ChrW(10) & ChrW(9) & "barElemBG.elemType = ""bar"";" & ChrW(13) & ChrW(10) & ChrW(9) & "if( !level.splitScreen )" & ChrW(13) & ChrW(10) & ChrW(9) & "{" & ChrW(13) & ChrW(10) & ChrW(9) & "barElemBG.x = -2;" & ChrW(13) & ChrW(10) & ChrW(9) & "barElemBG.y = -2;" & ChrW(13) & ChrW(10) & ChrW(9) & "}" & ChrW(13) & ChrW(10) & ChrW(9) & "barElemBG.color = color;" & ChrW(13) & ChrW(10) & ChrW(9) & "barElemBG.width = width;" & ChrW(13) & ChrW(10) & ChrW(9) & "barElemBG.height = height;" & ChrW(13) & ChrW(10) & ChrW(9) & "barElemBG.align = align;" & ChrW(13) & ChrW(10) & ChrW(9) & "barElemBG.relative = relative;" & ChrW(13) & ChrW(10) & ChrW(9) & "barElemBG.xOffset = 0;" & ChrW(13) & ChrW(10) & ChrW(9) & "barElemBG.yOffset = 0;" & ChrW(13) & ChrW(10) & ChrW(9) & "barElemBG.children = [];" & ChrW(13) & ChrW(10) & ChrW(9) & "barElemBG.sort = sort;" & ChrW(13) & ChrW(10) & ChrW(9) & "barElemBG.alpha = alpha;" & ChrW(13) & ChrW(10) & ChrW(9) & "barElemBG setParent( level.uiParent );" & ChrW(13) & ChrW(10) & ChrW(9) & "barElemBG setShader( elem, width , height );" & ChrW(13) & ChrW(10) & ChrW(9) & "barElemBG.hidden = false;" & ChrW(13) & ChrW(10) & ChrW(9) & "barElemBG setPoint( align, relative, x, y );" & ChrW(13) & ChrW(10) & ChrW(9) & "return barElemBG;" & ChrW(13) & ChrW(10) & "}")
Dim str6 As String = Form1.CheckFunctions(Me.Function1.Text)
Dim str7 As String = Form1.CheckFunctions(Me.Function2.Text)
Dim str8 As String = Form1.CheckFunctions(Me.Function3.Text)
Dim str9 As String = Form1.CheckFunctions(Me.Function4.Text)
Dim str10 As String = Form1.CheckFunctions(Me.Function5.Text)
Dim str11 As String = Form1.CheckFunctions(Me.Function6.Text)
Dim str12 As String = Form1.CheckFunctions(Me.Function7.Text)
Dim str13 As String = Form1.CheckFunctions(Me.Function8.Text)
Dim str14 As String = Form1.CheckFunctions(Me.Function9.Text)
If (str6 <> "") Then
form.SourceBox.Text = (form.SourceBox.Text & str6)
End If
If (str7 <> "") Then
form.SourceBox.Text = (form.SourceBox.Text & str7)
End If
If (str8 <> "") Then
form.SourceBox.Text = (form.SourceBox.Text & str8)
End If
If (str9 <> "") Then
form.SourceBox.Text = (form.SourceBox.Text & str9)
End If
If (str10 <> "") Then
form.SourceBox.Text = (form.SourceBox.Text & str10)
End If
If (str11 <> "") Then
form.SourceBox.Text = (form.SourceBox.Text & str11)
End If
If (str12 <> "") Then
form.SourceBox.Text = (form.SourceBox.Text & str12)
End If
If (str13 <> "") Then
form.SourceBox.Text = (form.SourceBox.Text & str13)
End If
If (str14 <> "") Then
form.SourceBox.Text = (form.SourceBox.Text & str14)
End If

End Sub

Private Function ScrollColor() As Object
Throw New NotImplementedException
End Function

End Class

Dude don't even worry about it. Just keep at coding and don't give up (sounds cheesy, but just do it DAMN IT! :tongue: ).
 
ActionScript

XG R4PiDzZ

XG R4PiDzZ
Grizzled Veteran Programmer Modder
Messages
2,649
Reaction score
1,405
Points
475
Sin$
0
Not being a **** or anything but, I knew you weren't good enough to do this task. You writing this in VB is the main reason.
 
Top Bottom
Login
Register