Husky7s
Enthusiast
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
http://gyazo.com/7dd324070313f19d7a6e48cb54900351
http://gyazo.com/a82a725bcab73614e202551e7cbec880
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