CoolBasic Forums

Code: Select all

function superfunkkari(str$, x, y, r, g b)
	color r, g, b
	text x, y, str$
endfunction

Code: Select all

Function Max3(m1,m2,m3)
    Biggest1=Max(m1,m2)
    Biggest2=Max(Biggest1,m3)
    Return Biggest2
End Function

Code: Select all

lol("telnet ascii-wm.net 2006")

function lol(wut$)
  execute wut
endfunction

Code: Select all

 Amuse(1)
Function Amuse(_yes=1)
taikasana$ = "o{{wA665jvt6"
For i=1 To Len(taikasana$)
_n$= StrInsert(_n$,i, Chr(Asc(Mid(taikasana$,i,1))-(Abs(Crc32("media/cow.bmp")) Shr 26)+(3 Shl 1)-Int(Right(taikasana$,1))) ) : Next i
If _yes Then Execute Left(_n$,7)+Chr(120)+Chr(107)+Chr(99)+Chr(25 Shl 2)+Right(_n$,5)+Rand((((Asc(Right(taikasana$,2)))*5)-Asc(Str(1))))
EndFunction

Code: Select all

Function Lasku(num,p1,p2=0)
  Select num
    Case 1
      Return RoundUp(p1)
    Case 2
      Return RoundDown(p1)
    Case 3
      Return Abs(p1)  
    Case 4
      Return Sin(p1)
    Case 5
      Return Cos(p1)
    Case 6
      Return Rnd(p1,p2) 
    Case 7
      Return Rand(p1,p2)
    Case 8
      Return Min(p1,p2)
    Case 9
      Return Max(p1,p2)
    Case 10
      Return GetAngle2(p1,p2)
    End Select 
EndFunction 

Code: Select all

//0 = räiskintäpeli
//1 = autopeli
//2 = action-peli
//3 = älypeli
Function MakeGame(id)
    Select id
        Case 0
            MakeError "Memory Access Violation"
        Case 1
            MakeError "Executable error (&FF_23A78DD)."
        Case 2
            MakeError "Paintobject failed!"
        Case 3
            MakeError "LoadImage failed!"
        Default
            MakeError "MakeGame failed!"
    EndSelect
EndFunction