-----------------------------------

ecookman

Wed Oct 29, 2008 7:59 am


another game (for a friend)

-----------------------------------

o.k i am working con a collab with a friend, A shooter-like program

stage1) get procedures for mouse x and y (completed)

stage2) make bad guys (completed)
stage3) make a [dot] for croshair (need help)

stage4) draw a dot on the screen at the mouse corr (need help)

stage5)killing them (complete sorta need help on other 2 to make rest of protocalls)



so if soeone could help us on stage 2 and stage3 that wold be greatly apprecieated

version of turing (4.1.1)




[schild=random fontcolor=C0C0C0 shadowcolor=C0C0C0 shieldshadow=1]ill send the completed copy of the game and bits to the most helpful (the finished game will be available too)[/schild]


-----------------------------------

ecookman

Wed Oct 29, 2008 8:00 am


RE:another game (for a friend)

-----------------------------------

srry if u can't read sign it says ill send the completed copy and some bits to the most helpful (the finished game will be available too)


-----------------------------------

Warchamp7

Wed Oct 29, 2008 8:00 am


RE:another game (for a friend)

-----------------------------------

It would help if you posted exactly what you're having problems with and what you've tried


-----------------------------------

ecookman

Wed Oct 29, 2008 8:19 am


RE:another game (for a friend)

-----------------------------------

lol i don't have all of it we are building it in chuns and mashing it together but here is my part:




Mouse.ButtonChoose("multibutton") 
var x : int 
var y : int
var button : int
var none : int
var left : int
var middle : int
var right : int
    none := 0
    left := 1
    middle := 10  
    right := 100
loop 
    Mouse.Where (x, y, button) 
    locate (1, 1) 
    put "X:", x, " Y:", y 
    if button = none then 
        put "shoot! ", button 
    elsif button = left then 
        put "blam! ", button 
    elsif button = middle then 
        put "scroll wheel does nothing ", button 
    elsif button = right then 
        put "Right click does nothing ", button 
        end if
    if x=90 and y=120 and button = left then
       drawfilloval(90, 120, 75, 75, red)
    end if 
end loop


-----------------------------------

ecookman

Wed Oct 29, 2008 8:20 am


RE:another game (for a friend)

-----------------------------------

ya so basically where:
if x=90 and y=120 and button = left then 
drawfilloval(90, 120, 75, 75, red)

is we want that to be the x and y of the mouse and to have the mouse to be a small cicrcl



p.s. Full Metal Alchemist rules love u avvi


-----------------------------------

CodeMonkey2000

Wed Oct 29, 2008 8:54 am


RE:another game (for a friend)

-----------------------------------

Please use either the code or syntax tags when you post code next time. And about your problem, I'm not sure what you mean.


-----------------------------------

Warchamp7

Wed Oct 29, 2008 9:07 am


Re: RE:another game (for a friend)

-----------------------------------

ya so basically where:
if x=90 and y=120 and button = left then 
drawfilloval(90, 120, 75, 75, red)

is we want that to be the x and y of the mouse and to have the mouse to be a small cicrcl

What this code is going to do is draw a circle ONLY when the mouse is at x=90 and y=120 and when the mouse button is down.

Just do 


if button = left then
drawfilloval(x, y, 75, 75, red)
end if


You'll need to couple this with a delay though for individual shots otherwise you can just drag the mouse around and rapidly fire.


-----------------------------------

S_Grimm

Wed Oct 29, 2008 9:24 am


RE:another game (for a friend)

-----------------------------------

what you need to do is this 

View.Set("offscreenonly")
var x, y, z : int
loop
cls
Mouse.Where (x,y,z)
Draw.FillOval(x,y,10,10,red)
View.Update
end loop



-----------------------------------

ecookman

Wed Oct 29, 2008 10:51 am


RE:another game (for a friend)

-----------------------------------

umm what is the z variable for


-----------------------------------

ecookman

Wed Oct 29, 2008 10:55 am


RE:another game (for a friend)

-----------------------------------

WOOT that worked now how do i mkae the mouse go away


-----------------------------------

pkjr92

Wed Oct 29, 2008 12:05 pm


Re: another game (for a friend)

-----------------------------------

I already had a template made for these games.  Here it is:


%Sniper Control Template
%Created by: Josh Guerette
%October 29, 2008
%This template is free to use as long as proper credit is givent to its creator
View.Set ("graphics, offscreenonly, nobuttonbar")
var x,y,c:int
var reload:int
reload:=0
var shots_left:int:=10
var key:array char of boolean
var alreadyshot:int

loop
alreadyshot:=0
colorback (black)
Text.Color (white)
mousewhere (x,y,c)
%put "x= ",x
%put "y= ",y
%put "click= ",c
View.Update
cls
put "Shots Left: ",shots_left
if c=1 and alreadyshot=0 then
    shots_left-=1
    alreadyshot:=1
    delay (100)
end if
if shots_left=0 or shots_left < 0 then
shots_left:=0
put "Enter - RELOAD"
end if
if shots_left > 10 then
put "RELOADED"
shots_left :=10
end if

Input.KeyDown (key)
if key (KEY_ENTER) and shots_left = 0 then
    shots_left:=10
    
end if

drawoval (x,y,50,50,48)
drawline (x,y-50,x,y+50,48)
drawline (x+50,y,x-50,y,48)
drawbox (x-5,y+5,x+5,y-5,brightred)



end loop



-----------------------------------

S_Grimm

Wed Oct 29, 2008 1:35 pm


RE:another game (for a friend)

-----------------------------------

z is for the status of the button (ie if the mouse is clicked down or not.)


-----------------------------------

[Gandalf]

Wed Oct 29, 2008 6:40 pm


Re: RE:another game (for a friend)

-----------------------------------

WOOT that worked now how do i mkae the mouse go away
You can't.  The mouse pointer is drawn by the Windows API, which Turing doesn't have access to.  Of course, you could do it a roundabout way like Sys.Exec()ing a program that hides the mouse cursor for you, but that's more trouble than it's worth.


-----------------------------------

ecookman

Thu Oct 30, 2008 7:19 am


RE:another game (for a friend)

-----------------------------------

WELL THAT IS A PAIN INT THE BUTT

but thanks now i can stop googling


-----------------------------------

ecookman

Thu Oct 30, 2008 7:41 am


RE:another game (for a friend)

-----------------------------------

HMMMMM just tinking


is it possibl;e to load a background from a file to load it into turing


-----------------------------------

S_Grimm

Thu Oct 30, 2008 10:20 am


RE:another game (for a friend)

-----------------------------------

dont' double post. edit your first post. yes it is possible. look at the Turing help (F10). The command to searce is pic.FileNew