Page 5 of 6 « First<23456>
Topic Options
#90551 - 2003-01-23 08:21 AM Re: PostPrep-Test Post , please ignore code
Lonkero Administrator Offline
KiX Master Guru
*****

Registered: 2001-06-05
Posts: 22303
Loc: OK
k, I don't need to proof that you screw more [Razz]
_________________________
!

download KiXnet

Top
#90552 - 2003-01-24 04:52 PM Re: PostPrep-Test Post , please ignore code
Lonkero Administrator Offline
KiX Master Guru
*****

Registered: 2001-06-05
Posts: 22303
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 = $size*25+50
$Form.Height = $size*25+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. Administrator Offline
Administrator
*****

Registered: 2000-01-24
Posts: 4945
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 Offline
KiX Master
*****

Registered: 2001-04-25
Posts: 11162
Loc: Boston, MA, USA
FOR loops are not indented correctly, is there no indentation check/cleanup? [Big Grin]
_________________________
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 Administrator Offline
KiX Master Guru
*****

Registered: 2001-06-05
Posts: 22303
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 [Wink]
_________________________
!

download KiXnet

Top
#90556 - 2003-01-24 05:41 PM Re: PostPrep-Test Post , please ignore code
Lonkero Administrator Offline
KiX Master Guru
*****

Registered: 2001-06-05
Posts: 22303
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 Offline
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 Offline
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 Administrator Offline
KiX Master Guru
*****

Registered: 2001-06-05
Posts: 22303
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 Administrator Offline
KiX Master Guru
*****

Registered: 2001-06-05
Posts: 22303
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 Administrator Offline
KiX Supporter
*****

Registered: 2000-03-17
Posts: 6361
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 [Wink] )

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 [Roll Eyes] )

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 [Wink] )

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 Offline
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 Administrator Offline
KiX Supporter
*****

Registered: 2000-03-17
Posts: 6361
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($iendif 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($iendif 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 Administrator Offline
KiX Master Guru
*****

Registered: 2001-06-05
Posts: 22303
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+25Step 25
 For $Left = 10 To ($*25-15Step 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-1endif
    if $r>0 button_click($r-1,$bendif
    if $b<$ and $r>0 button_click($r-1,$b+1endif
    if $b>0 button_click($r,$b-1endif
    if $b<$ button_click($r,$b+1endif
    if $b>0 and $r<$ button_click($r+1,$b-1endif
    if $r<$ button_click($r+1,$bendif
    if $b<$ and $r<$ button_click($r+1,$b+1endif
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 = $size*25+50
$Form.Height = $size*25+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 Administrator Offline
KiX Master Guru
*****

Registered: 2001-06-05
Posts: 22303
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 Administrator Offline
KiX Master Guru
*****

Registered: 2001-06-05
Posts: 22303
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 Administrator Offline
KiX Master Guru
*****

Registered: 2001-06-05
Posts: 22303
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 Administrator Offline
KiX Master Guru
*****

Registered: 2001-06-05
Posts: 22303
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+25Step 25
 For $Left = 10 To ($*25-15Step 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-1endif
    if $r>0 button_click($r-1,$bendif
    if $b<$ and $r>0 button_click($r-1,$b+1endif
    if $b>0 button_click($r,$b-1endif
    if $b<$ button_click($r,$b+1endif
    if $b>0 and $r<$ button_click($r+1,$b-1endif
    if $r<$ button_click($r+1,$bendif
    if $b<$ and $r<$ button_click($r+1,$b+1endif
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 = $size*25+50
$Form.Height = $size*25+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 Administrator Offline
KiX Master Guru
*****

Registered: 2001-06-05
Posts: 22303
Loc: OK
k, much better
_________________________
!

download KiXnet

Top
#90570 - 2003-01-25 10:33 PM Re: PostPrep-Test Post , please ignore code
Jochen Administrator Offline
KiX Supporter
*****

Registered: 2000-03-17
Posts: 6361
Loc: Stuttgart, Germany
hehe ... looking forward to see how you shipped around OnCLIK [Wink]

will be online now ... 3 - 2 - 1
_________________________



Top
Page 5 of 6 « First<23456>


Moderator:  Shawn, ShaneEP, Arend_, Jochen, Radimus, Glenn Barnas, Allen, Mart 
Hop to:
Shout Box

Who's Online
1 registered (Allen) and 150 anonymous users online.
Newest Members
Hdrthtsr19956, Kylie99, msmile042, rayd8, HardKn0X
17597 Registered Users

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

Search the board with:
superb Board Search
or try with google:
Google
Web kixtart.org