PostPrep-Test Post , please ignore code - KiXtart.org - official site

You are not logged in. [Log In] KiXtart.org website » Forums » KiXtart » COM Scripting » PostPrep-Test Post , please ignore code

Page 5 of 6

5

Topic Options

#90551 - 2003-01-23 08:21 AM Re: PostPrep-Test Post , please ignore code
Lonkero Lonkero KiX Master Guru Registered: 2001-06-05 Posts: 22346 Loc: OK	k, I don't need to proof that you screw more _________________________ ! download KiXnet
Top

#90552 - 2003-01-24 04:52 PM Re: PostPrep-Test Post , please ignore code
Lonkero Lonkero KiX Master Guru Registered: 2001-06-05 Posts: 22346 Loc: OK	fight for better colors: $name="KiXWeeper v1.3" $author="1.0 unknown","1.1 Lonkero","1.2 Lonkero","1.3 Lonkero" $Form = CreateObject("Kixtart.Form") $Form.Caption = $name $Form.BackColor = 255,255,255 $Form.ForeColor = 50,0,170 $Form.FontName = "Courier New" $Form.FontBold = 1 $Form.FontSize = 10 $level=$form.slider(,15,12,75,25) $level.tooltip="Level: 0" $level.min=11 $level.onscroll="$$level.tooltip='Level: '+($$level.value-11)" $=11 for $height=390 to $form.screen.height step 25 $=$+1 next $level.max=$-1 ;<-if you remove this -1 you will get error every time! $thislevel=11 Global $Button[$,$], $mine $map=$Button $r=0 $b=0 For $Top = 50 To ($25+25) Step 25 For $Left = 10 To ($25-15) Step 25 $map[$r,$b] = $Form.label(,$left,$top,25,25) $map[$r,$b].hide $map[$r,$b].alignment=2 $map[$r,$b].FontSize=14 $map[$r,$b].BorderStyle=1 $Button[$r,$b] = $Form.button(,$left,$top,25,25) $Button[$r,$b].hide $Button[$r,$b].FontBold = 1 $Button[$r,$b].onclick="button_click($r,$b)" $b=$b+1 Next $b=0 $r=$r+1 Next $Time = $Form.Label $Time.Size = 75,30 $Time.Alignment = 1 $Time.BorderStyle = 4 $Time.Fontname = "Courier New" $Time.Fontsize = 14 $Time.Fontbold = 1 $Time.BackColor = 0 $Time.ForeColor = 255,255,0 $start=$form.button("New Game",225,10,75,25) $start.onclick="new($$level.value)" new(11) $Form.Show While $Form.Visible $=Execute($Form.DoEvents) Loop Exit 1 Function Button_Click($r,$b) $=$thislevel select case not $Button[$r,$b].visible case " "=$map[$r,$b].caption $Button[$r,$b].Hide $Score=$Score+1 $Button[$r,$b].hide if $b>0 and $r>0 button_click($r-1,$b-1) endif if $r>0 button_click($r-1,$b) endif if $b<$ and $r>0 button_click($r-1,$b+1) endif if $b>0 button_click($r,$b-1) endif if $b<$ button_click($r,$b+1) endif if $b>0 and $r<$ button_click($r+1,$b-1) endif if $r<$ button_click($r+1,$b) endif if $b<$ and $r<$ button_click($r+1,$b+1) endif case instr($map[$r,$b].caption,"X") $map[$r,$b].forecolor=255,0,0 $Button[$r,$b].Hide $map[$r,$b].show for $r=0 to $ for $b=0 to $ if $button[$r,$b].visible $Button[$r,$b].caption=$map[$r,$b].caption $Button[$r,$b].enabled=0 endif next next $timer=0 case 1 $map[$r,$b].forecolor=50,0,170 $Button[$r,$b].Hide $Score=$Score+1 endselect $map[$r,$b].show if $Score = ($+1)($+1)-($+1)($+1)/10 $timer=0 $=messagebox("GOOD! You made your way trough the mine fields!",$name) endif if $timer and $timer<>0 $timer=$Form.timer(1000) $timer.ontimer="$$time.caption=1+val($$time.caption)" endif EndFunction function new($size) $score=0 $thislevel=$size $timer=1 $Time.Caption = 0 $mine=" ," srnd(@ticks) do $=rnd(($size+1)($size+1)) if not instr($mine,$) $mine="$mine ,"+$ endif until (($size+1)($size+1)/10+1)<ubound(split($mine," ,")) for $r=0 to $level.max for $b=0 to $level.max if $b>$size or $r>$size $Button[$r,$b].hide else $Button[$r,$b].caption="" $Button[$r,$b].enabled=1 $Button[$r,$b].show endif $map[$r,$b].hide $map[$r,$b].caption="" next next $Form.Width = $size25+50 $Form.Height = $size25+115 $Form.Center $Time.Center $Time.Top = 10 $start.left=$form.width-95 $c=1 for $r=0 to $size for $b=0 to $size if instr($mine,",$c ,") $map[$r,$b].caption="X" endif $c=$c+1 next next for $r=0 to $size for $b=0 to $size if not instr($map[$r,$b].caption,"X") $=0 if $b>0 and $r>0 if instr($map[$r-1,$b-1].caption,"X") $=$+1 endif endif if $r>0 if instr($map[$r-1,$b].caption,"X") $=$+1 endif endif if $b<$size and $r>0 if instr($map[$r-1,$b+1].caption,"X") $=$+1 endif endif if $b>0 if instr($map[$r,$b-1].caption,"X") $=$+1 endif endif if $b<$size if instr($map[$r,$b+1].caption,"X") $=$+1 endif endif if $b>0 and $r<$size if instr($map[$r+1,$b-1].caption,"X") $=$+1 endif endif if $r<$size if instr($map[$r+1,$b].caption,"X") $=$+1 endif endif if $b<$size and $r<$size if instr($map[$r+1,$b+1].caption,"X") $=$+1 endif endif if $=0 $map[$r,$b].caption=" " else $map[$r,$b].caption=$ endif endif next next endfunction _________________________ ! download KiXnet
Top

#90553 - 2003-01-24 05:03 PM Re: PostPrep-Test Post , please ignore code
Richard H. Richard H. Administrator Registered: 2000-01-24 Posts: 4946 Loc: Leatherhead, Surrey, UK	Ahh! Pretty! Perhaps you should include selectable colour "themes"
Top

#90554 - 2003-01-24 05:31 PM Re: PostPrep-Test Post , please ignore code
Sealeopard Sealeopard KiX Master Registered: 2001-04-25 Posts: 11165 Loc: Boston, MA, USA	FOR loops are not indented correctly, is there no indentation check/cleanup? _________________________ There are two types of vessels, submarines and targets.
Top

#90555 - 2003-01-24 05:37 PM Re: PostPrep-Test Post , please ignore code
Lonkero Lonkero KiX Master Guru Registered: 2001-06-05 Posts: 22346 Loc: OK	jens, what is indent? there is already too much indention that I hate. I would like to remove all spaces longer than 1. but, jochen the project's executive officer didn't like the idea. anyway, I like it is now and it's indented correctly even though it does not fit to your eye _________________________ ! download KiXnet
Top

#90556 - 2003-01-24 05:41 PM Re: PostPrep-Test Post , please ignore code
Lonkero Lonkero KiX Master Guru Registered: 2001-06-05 Posts: 22346 Loc: OK	ok, I admit that one would not call that indenting if they use editor. my editor is notepad and when there is multiple for loops lined up together it looks better. _________________________ ! download KiXnet
Top

#90557 - 2003-01-24 05:43 PM Re: PostPrep-Test Post , please ignore code
Les Les KiX Master Registered: 2001-06-11 Posts: 12734 Loc: fortfrances.on.ca	For loops are indented but Select Case constructs are not. _________________________ Give a man a fish and he will be back for more. Slap him with a fish and he will go away forever.
Top

#90558 - 2003-01-24 05:47 PM Re: PostPrep-Test Post , please ignore code
Les Les KiX Master Registered: 2001-06-11 Posts: 12734 Loc: fortfrances.on.ca	...neither are Function constructs. _________________________ Give a man a fish and he will be back for more. Slap him with a fish and he will go away forever.
Top

#90559 - 2003-01-24 05:51 PM Re: PostPrep-Test Post , please ignore code
Lonkero Lonkero KiX Master Guru Registered: 2001-06-05 Posts: 22346 Loc: OK	sorry, they are. just in my way. I don't like wast strokes inside function to show on every line that it's inside a function I neither like that case should be indented below the level of select... or do you indent else below the level of if and endif? it's matter of everyone doing it their own way. I respect mine. _________________________ ! download KiXnet
Top

#90560 - 2003-01-24 08:47 PM Re: PostPrep-Test Post , please ignore code
Lonkero Lonkero KiX Master Guru Registered: 2001-06-05 Posts: 22346 Loc: OK	k, there seems to have something different as now the layout does not worky properly... there indeed is some thing messing it. _________________________ ! download KiXnet
Top

#90561 - 2003-01-24 08:57 PM Re: PostPrep-Test Post , please ignore code
Jochen Jochen KiX Supporter Registered: 2000-03-17 Posts: 6380 Loc: Stuttgart, Germany	WHO said this then Les ? The correct indentation is always left to the Person who wrote the Script ! This is still a f** free** format language However, I took the freedom to replace TABS with 4 Spaces on Conversion (Just to keep the long line police a bit more in the Donut shop ) Whatever you like the colors to be, you can set them and they will be stored (as well as the Keywords that one may add from time to time) ... Shemes to store aren't (yet) implemented (Hey, the freaking script isn't released ) Also worth to mention is the disability to post in html disabled forums (like General Discussion), and the problems posting some forms events like On_Click (the underscore is just to be able to reply here) What else ? hmmm ... ah well you can post the conversion as well as save it as html file (Requests after release please ) One more thing : Richard .. I don't think its a good Idea to colorize keywords inside srings ! Or as the poets amongst us might say : A string is a string is a string mmm .. will get online now to discuss that crap with Lonk l8r Jochen _________________________
Top

#90562 - 2003-01-24 09:15 PM Re: PostPrep-Test Post , please ignore code
Les Les KiX Master Registered: 2001-06-11 Posts: 12734 Loc: fortfrances.on.ca	jpols, No need to get your knickers in a twist. Anyway, the ribbing was directed at Jooel and last I saw, he can fend for himself. I can say without expletives that KiX is a free format language. Type it all on one line if you want but watch for the long-line cops if you post it here! Indenting is certainly a matter of choice. So is the use of descriptive vars and CODE tags. _________________________ Give a man a fish and he will be back for more. Slap him with a fish and he will go away forever.
Top

#90563 - 2003-01-24 10:24 PM Re: PostPrep-Test Post , please ignore code
Jochen Jochen KiX Supporter Registered: 2000-03-17 Posts: 6380 Loc: Stuttgart, Germany	for $=1 to $_ $c=substr($i,$,1) $!="" select case $c='"' $s=$s+$t+$c do if $=$_ $f[$a]=$s $a=$a+1 $i=$f[$a] $s='' $=0 $_=len($i) endif do $=$+1 $c=substr($i,$,1) $s=$s+$c until $c='"' or $=$_ until $c='"' $s=$s+$te case $c="'" $s=$s+$t+$c do if $=$_ $f[$a]=$s $a=$a+1 $i=$f[$a] $s='' $=0 $_=len($i) endif do $=$+1 $c=substr($i,$,1) $s=$s+$c until $c="'" or $=$_ until $c="'" $s=$s+$te for $=1 to $_ $c=substr($i,$,1) $!="" select case $c='"' $s=$s+$t+$c do if $=$_ $f[$a]=$s $a=$a+1 $i=$f[$a] $s='' $=0 $_=len($i) endif do $=$+1 $c=substr($i,$,1) $s=$s+$c until $c='"' or $=$_ until $c='"' $s=$s+$te case $c="'" $s=$s+$t+$c do if $=$_ $f[$a]=$s $a=$a+1 $i=$f[$a] $s='' $=0 $_=len($i) endif do $=$+1 $c=substr($i,$,1) $s=$s+$c until $c="'" or $=$_ until $c="'" $s=$s+$te SPACING FIXED ! HOORAY! Another one : $txtTarget = $frm.TextBox $txtTarget.Left = 5 $txtTarget.Top = 5 + $txtSource.Bottom $txtTarget.Right = $frm.ClientWidth - 110 $txtTarget.Bottom = $frm.ClientHeight - 20 $txtTarget.ScrollBars = 3 $txtTarget.FontName = "Courier New" $txtTarget.FontSize = 8 $txtTarget.MultiLine = 1 [ 24. January 2003, 23:42: Message edited by: jpols ] _________________________
Top

#90564 - 2003-01-25 01:13 AM Re: PostPrep-Test Post , please ignore code
Lonkero Lonkero KiX Master Guru Registered: 2001-06-05 Posts: 22346 Loc: OK	$name="KiXWeeper v1.3" $author="1.0 unknown","1.1 Lonkero","1.2 Lonkero","1.3 Lonkero" $Form = CreateObject("Kixtart.Form") $Form.Caption = $name $Form.BackColor = 255,255,255 $Form.ForeColor = 50,0,170 $Form.FontName = "Courier New" $Form.FontBold = 1 $Form.FontSize = 10 $level=$form.slider(,15,12,75,25) $level.tooltip="Level: 0" $level.min=11 $level.onscroll="$$level.tooltip='Level: '+($$level.value-11)" $=11 for $height=390 to $form.screen.height step 25 $=$+1 next $level.max=$-1 ;<-if you remove this -1 you will get error every time! $thislevel=11 Global $Button[$,$], $mine $map=$Button $r=0 $b=0 For $Top = 50 To ($25+25) Step 25 For $Left = 10 To ($25-15) Step 25 $map[$r,$b] = $Form.label(,$left,$top,25,25) $map[$r,$b].hide $map[$r,$b].alignment=2 $map[$r,$b].FontSize=14 $map[$r,$b].BorderStyle=1 $Button[$r,$b] = $Form.button(,$left,$top,25,25) $Button[$r,$b].hide $Button[$r,$b].FontBold = 1 $Button[$r,$b].onclick="button_click($r,$b)" $b=$b+1 Next $b=0 $r=$r+1 Next $Time = $Form.Label $Time.Size = 75,30 $Time.Alignment = 1 $Time.BorderStyle = 4 $Time.Fontname = "Courier New" $Time.Fontsize = 14 $Time.Fontbold = 1 $Time.BackColor = 0 $Time.ForeColor = 255,255,0 $start=$form.button("New Game",225,10,75,25) $start.onclick="new($$level.value)" new(11) $Form.Show While $Form.Visible $=Execute($Form.DoEvents) Loop Exit 1 Function Button_Click($r,$b) $=$thislevel select case not $Button[$r,$b].visible case " "=$map[$r,$b].caption $Button[$r,$b].Hide $Score=$Score+1 $Button[$r,$b].hide if $b>0 and $r>0 button_click($r-1,$b-1) endif if $r>0 button_click($r-1,$b) endif if $b<$ and $r>0 button_click($r-1,$b+1) endif if $b>0 button_click($r,$b-1) endif if $b<$ button_click($r,$b+1) endif if $b>0 and $r<$ button_click($r+1,$b-1) endif if $r<$ button_click($r+1,$b) endif if $b<$ and $r<$ button_click($r+1,$b+1) endif case instr($map[$r,$b].caption,"X") $map[$r,$b].forecolor=255,0,0 $Button[$r,$b].Hide $map[$r,$b].show for $r=0 to $ for $b=0 to $ if $button[$r,$b].visible $Button[$r,$b].caption=$map[$r,$b].caption $Button[$r,$b].enabled=0 endif next next $timer=0 case 1 $map[$r,$b].forecolor=50,0,170 $Button[$r,$b].Hide $Score=$Score+1 endselect $map[$r,$b].show if $Score = ($+1)($+1)-($+1)($+1)/10 $timer=0 $=messagebox("GOOD! You made your way trough the mine fields!",$name) endif if $timer and $timer<>0 $timer=$Form.timer(1000) $timer.ontimer="$$time.caption=1+val($$time.caption)" endif EndFunction function new($size) $score=0 $thislevel=$size $timer=1 $Time.Caption = 0 $mine=" ," srnd(@ticks) do $=rnd(($size+1)($size+1)) if not instr($mine,$) $mine="$mine ,"+$ endif until (($size+1)($size+1)/10+1)<ubound(split($mine," ,")) for $r=0 to $level.max for $b=0 to $level.max if $b>$size or $r>$size $Button[$r,$b].hide else $Button[$r,$b].caption="" $Button[$r,$b].enabled=1 $Button[$r,$b].show endif $map[$r,$b].hide $map[$r,$b].caption="" next next $Form.Width = $size25+50 $Form.Height = $size25+115 $Form.Center $Time.Center $Time.Top = 10 $start.left=$form.width-95 $c=1 for $r=0 to $size for $b=0 to $size if instr($mine,",$c ,") $map[$r,$b].caption="X" endif $c=$c+1 next next for $r=0 to $size for $b=0 to $size if not instr($map[$r,$b].caption,"X") $=0 if $b>0 and $r>0 if instr($map[$r-1,$b-1].caption,"X") $=$+1 endif endif if $r>0 if instr($map[$r-1,$b].caption,"X") $=$+1 endif endif if $b<$size and $r>0 if instr($map[$r-1,$b+1].caption,"X") $=$+1 endif endif if $b>0 if instr($map[$r,$b-1].caption,"X") $=$+1 endif endif if $b<$size if instr($map[$r,$b+1].caption,"X") $=$+1 endif endif if $b>0 and $r<$size if instr($map[$r+1,$b-1].caption,"X") $=$+1 endif endif if $r<$size if instr($map[$r+1,$b].caption,"X") $=$+1 endif endif if $b<$size and $r<$size if instr($map[$r+1,$b+1].caption,"X") $=$+1 endif endif if $=0 $map[$r,$b].caption=" " else $map[$r,$b].caption=$ endif endif next next endfunction _________________________ ! download KiXnet
Top

#90565 - 2003-01-25 01:13 AM Re: PostPrep-Test Post , please ignore code
Lonkero Lonkero KiX Master Guru Registered: 2001-06-05 Posts: 22346 Loc: OK	got rid of the errors now but does not look goodie... _________________________ ! download KiXnet
Top

#90566 - 2003-01-25 01:42 AM Re: PostPrep-Test Post , please ignore code
Lonkero Lonkero KiX Master Guru Registered: 2001-06-05 Posts: 22346 Loc: OK	.onclick [ 25. January 2003, 01:49: Message edited by: Lonkero ] _________________________ ! download KiXnet
Top

#90567 - 2003-01-25 01:49 AM Re: PostPrep-Test Post , please ignore code
Lonkero Lonkero KiX Master Guru Registered: 2001-06-05 Posts: 22346 Loc: OK	I HATE THIS F*****ING BOARD! _________________________ ! download KiXnet
Top

#90568 - 2003-01-25 01:51 AM Re: PostPrep-Test Post , please ignore code
Lonkero Lonkero KiX Master Guru Registered: 2001-06-05 Posts: 22346 Loc: OK	$name="KiXWeeper v1.3" $author="1.0 unknown","1.1 Lonkero","1.2 Lonkero","1.3 Lonkero" $Form = CreateObject("Kixtart.Form") $Form.Caption = $name $Form.BackColor = 255,255,255 $Form.ForeColor = 50,0,170 $Form.FontName = "Courier New" $Form.FontBold = 1 $Form.FontSize = 10 $level=$form.slider(,15,12,75,25) $level.tooltip="Level: 0" $level.min=11 $level.onscroll="$$level.tooltip='Level: '+($$level.value-11)" $=11 for $height=390 to $form.screen.height step 25 $=$+1 next $level.max=$-1 ;<-if you remove this -1 you will get error every time! $thislevel=11 Global $Button[$,$], $mine $map=$Button $r=0 $b=0 For $Top = 50 To ($25+25) Step 25 For $Left = 10 To ($25-15) Step 25 $map[$r,$b] = $Form.label(,$left,$top,25,25) $map[$r,$b].hide $map[$r,$b].alignment=2 $map[$r,$b].FontSize=14 $map[$r,$b].BorderStyle=1 $Button[$r,$b] = $Form.button(,$left,$top,25,25) $Button[$r,$b].hide $Button[$r,$b].FontBold = 1 $Button[$r,$b].onclick="button_click($r,$b)" $b=$b+1 Next $b=0 $r=$r+1 Next $Time = $Form.Label $Time.Size = 75,30 $Time.Alignment = 1 $Time.BorderStyle = 4 $Time.Fontname = "Courier New" $Time.Fontsize = 14 $Time.Fontbold = 1 $Time.BackColor = 0 $Time.ForeColor = 255,255,0 $start=$form.button("New Game",225,10,75,25) $start.onclick="new($$level.value)" new(11) $Form.Show While $Form.Visible $=Execute($Form.DoEvents) Loop Exit 1 Function Button_Click($r,$b) $=$thislevel select case not $Button[$r,$b].visible case " "=$map[$r,$b].caption $Button[$r,$b].Hide $Score=$Score+1 $Button[$r,$b].hide if $b>0 and $r>0 button_click($r-1,$b-1) endif if $r>0 button_click($r-1,$b) endif if $b<$ and $r>0 button_click($r-1,$b+1) endif if $b>0 button_click($r,$b-1) endif if $b<$ button_click($r,$b+1) endif if $b>0 and $r<$ button_click($r+1,$b-1) endif if $r<$ button_click($r+1,$b) endif if $b<$ and $r<$ button_click($r+1,$b+1) endif case instr($map[$r,$b].caption,"X") $map[$r,$b].forecolor=255,0,0 $Button[$r,$b].Hide $map[$r,$b].show for $r=0 to $ for $b=0 to $ if $button[$r,$b].visible $Button[$r,$b].caption=$map[$r,$b].caption $Button[$r,$b].enabled=0 endif next next $timer=0 case 1 $map[$r,$b].forecolor=50,0,170 $Button[$r,$b].Hide $Score=$Score+1 endselect $map[$r,$b].show if $Score = ($+1)($+1)-($+1)($+1)/10 $timer=0 $=messagebox("GOOD! You made your way trough the mine fields!",$name) endif if $timer and $timer<>0 $timer=$Form.timer(1000) $timer.ontimer="$$time.caption=1+val($$time.caption)" endif EndFunction function new($size) $score=0 $thislevel=$size $timer=1 $Time.Caption = 0 $mine=" ," srnd(@ticks) do $=rnd(($size+1)($size+1)) if not instr($mine,$) $mine="$mine ,"+$ endif until (($size+1)($size+1)/10+1)<ubound(split($mine," ,")) for $r=0 to $level.max for $b=0 to $level.max if $b>$size or $r>$size $Button[$r,$b].hide else $Button[$r,$b].caption="" $Button[$r,$b].enabled=1 $Button[$r,$b].show endif $map[$r,$b].hide $map[$r,$b].caption="" next next $Form.Width = $size25+50 $Form.Height = $size25+115 $Form.Center $Time.Center $Time.Top = 10 $start.left=$form.width-95 $c=1 for $r=0 to $size for $b=0 to $size if instr($mine,",$c ,") $map[$r,$b].caption="X" endif $c=$c+1 next next for $r=0 to $size for $b=0 to $size if not instr($map[$r,$b].caption,"X") $=0 if $b>0 and $r>0 if instr($map[$r-1,$b-1].caption,"X") $=$+1 endif endif if $r>0 if instr($map[$r-1,$b].caption,"X") $=$+1 endif endif if $b<$size and $r>0 if instr($map[$r-1,$b+1].caption,"X") $=$+1 endif endif if $b>0 if instr($map[$r,$b-1].caption,"X") $=$+1 endif endif if $b<$size if instr($map[$r,$b+1].caption,"X") $=$+1 endif endif if $b>0 and $r<$size if instr($map[$r+1,$b-1].caption,"X") $=$+1 endif endif if $r<$size if instr($map[$r+1,$b].caption,"X") $=$+1 endif endif if $b<$size and $r<$size if instr($map[$r+1,$b+1].caption,"X") $=$+1 endif endif if $=0 $map[$r,$b].caption=" " else $map[$r,$b].caption=$ endif endif next next endfunction [ 25. January 2003, 01:56: Message edited by: Lonkero ] _________________________ ! download KiXnet
Top

#90569 - 2003-01-25 01:57 AM Re: PostPrep-Test Post , please ignore code
Lonkero Lonkero KiX Master Guru Registered: 2001-06-05 Posts: 22346 Loc: OK	k, much better _________________________ ! download KiXnet
Top

#90570 - 2003-01-25 10:33 PM Re: PostPrep-Test Post , please ignore code
Jochen Jochen KiX Supporter Registered: 2000-03-17 Posts: 6380 Loc: Stuttgart, Germany	hehe ... looking forward to see how you shipped around OnCLIK will be online now ´... 3 - 2 - 1 _________________________
Top

Page 5 of 6

5

Previous Topic

Previous Topic View All Topics

View All Topics

Index Next Topic

Next Topic

Moderator: Shawn, ShaneEP, Ruud van Velsen, Arend_, Jochen, Radimus, Glenn Barnas, Allen, Mart

Hop to:

Shout Box

Who's Online

0 registered and 590 anonymous users online.

Newest Members

rrosell, PatrickPinto, Raoul, Timothy, Jojo67
17877 Registered Users

Generated in 0.079 seconds in which 0.029 seconds were spent on a total of 13 queries. Zlib compression enabled.

click tracking