闲来无事编个小游戏《小屁孩打飞碟》

liuhaiyan008

         TC5.2哦，不是脚本，不用插件，就是个玩的...代码贼简单、贼大众化、贼让高手大师们看不上眼。但是不服你来一个------我是说：你来玩两把，我保你得分超不过100（鬼才能超100）.  简单介绍下：方向键控制方向（废话！）四个直方向，没有四个斜向， 空格开炮最多画面存在3发，飞机飞不到窗口画面一半以上。 上面有个神经质的飞碟，飞碟不老实爱投弹，受伤后更爱投弹，最多画面里投出3枚。 打飞碟时离得越近伤害越大得分也高，反之则伤害低分少；被炸时飞碟离得越高给你造成的伤害越大，飞碟飞的越低离你越近炸弹伤害越小，你问到底伤害值是多少？我哪知道！那是范围内的随机数；你问为啥？我哪知道！就这么定的；你要再问我为啥这么罗嗦？你自己看看源代码，保证比我的话更啰嗦 不过胜在能用，也还顺畅，自打成了“认证作者”我记起自己还没交过“投名状”呢，咋也得交个卷子给版主批改下，这样的行不行呢？

游客，如果您要查看本帖隐藏内容请回复

oilli1990

学习看看

18781067791

九月份GV不几个版本

fhjym

aaaaaaaaaaaaaaaaaa

929298789

学习学习

anzihan1029

和规划法规和法国恢复规划

clowndevil

打飞碟

xtmxiatian

lzy4469

支持一下

389271310

var thisCallback
var time
var dalay = array()
var pointX = array()
var pointY = array()
var buttonDown = array()
function MouseProc(nCode,wParam,lParam)
    var x,y
    if(wParam == 512)//w参数 表示是 键盘按下或者弹起
        traceprint(gettickcount()-time)
        arraypush(dalay,gettickcount()-time)
        mousegetpoint(x,y)
        traceprint(x&","&y)
        arraypush(pointX,x)
        arraypush(pointY,y)
        arraypush(buttonDown,0)
        time=gettickcount()
    elseif(wParam == 513)
        traceprint(gettickcount()-time)
        arraypush(dalay,gettickcount()-time)
        mousegetpoint(x,y)
        traceprint(x&","&y&",buttonDown")
        arraypush(pointX,x)
        arraypush(pointY,y)
        arraypush(buttonDown,1)
        time=gettickcount()
    end
    return dllcall("user32.dll","long","CallNextHookEx","long",thisHook,"long",nCode,"long",wParam,"long",lParam)//当code小于0的时候一定要把消息传递给他一个子程
end

var thisHook
//开始按钮_点击操作
function start_click()
    arrayclear(dalay)
    arrayclear(pointX)
    arrayclear(pointY)
    arrayclear(buttonDown)
    //这里添加你要执行的代码  
    thisCallback = callbackmalloc("MouseProc","hookproc")
    thisHook = dllcall("user32.dll","long","SetWindowsHookExA","long",14,"callback",thisCallback,"long",0,"long",0)//执行setwindowhook函数 挂起全局钩子,14全局钩子
    traceprint(getlasterror(1))//这里获取dllcall执行后是否有错误信息
    traceprint(thisHook)//输出钩子是否设置成功
    time = gettickcount()
end

//退出按钮_点击操作
function exit_click()
    var ret = dllcall("user32.dll","long","UnhookWindowsHookExA","long",thisHook)//删除钩子句柄 当hook不需要的时候记得一定要删除
    callbackfree(thisCallback)//删除钩子句柄之后 不要忘了 释放我们的回调函数,否则TC对应的函数里面一直会输出信息
end

function button0_click()
    //这里添加你要执行的代码
    for(var i = 0; i < arraysize(dalay); i++)
        sleep(dalay[i],false)
        mousemove(pointX[i],pointY[i])
        if(buttonDown[i]==1)
            mouseleftclick()
        end
    end
end


function mousehook_init()
    //这里添加你要执行的代码
    var form
    form = windowgetactivehwnd()
    windowsettop(form,true)
end