BestKill ☠

Rieccomi con nuovi fix e nuove spell!

• Ora Grom è funzionante al 100% con abilità migliorate.
• Aggiunto un nuovo eroe Fire and Flames! Scoprite voi le sue caratteristiche
• +1una spell all’arcimago ‘Justice‘
• Fusione oggetti implementata.
• + trigger vari.

Nuove Spell di Fire and Flames

In aggiunta ho modificato l’Arcimago aggiungendogli un abilità(Fixata!). Poi ho aggiornato tutte le spell di grom, migliorate, e messo una funzione attivabile da chat per vedere o meno i danni causati da ‘Dance of Axe’.
Aggiunta la FUSIONE DEGLI OGGETTI e una ‘zona2′ :sino: dove ci sono un pò di trigger e script del caxzo.
Se avete domande chiedete^^ sono quà a grattarmi le :beta: (non è vero non ho tempo da buttare xD(purtroppo))

Vi aspetta una bella nuova mappa calda

Queste abilità non sono fatte in jazz o vjazz ma con semplici e genuini trigger

:point: Download custom spell v2.1

P.S. L’ultima Abilità dell’arcimago a volta crasha.. Potete anche crettarla.. non è un successore :asd:

Gl hf

Ecco come inviare/simulare tasti dal programma con visual basic 6

Read the rest of this entry »

Read the rest of this entry »

Spell personalizzata - Signore delle Bestie vs Grom

Dopo un pò di mapping ci vogliono un pò di spell personalizzate!

Ci sono 3 hero, Grom (una specie di ‘Axe’ di DotA All Star, quì è un hero di agilità con le spell: Teleport, Dance of Axe e Colpo Critico. L’Arcimago, eroe di intelligenza con Raining Blood, Scudo magico, Evoca Creatura, Aura Brillante. Ed infine Rexxar, con Run, Fury e Lampo! Questa mappa è un Tournament da giocare 1v1. Ma potete sempre mettere su una piccola IA o un npc scemo!
Ogni hero è stato equilibrato più o meno bene, più meno che più.. ma meglio di niente..

Read the rest of this entry »

Ecco un altro linguaggio che lascio…
Lascio qualche schizzo della mia ‘arte’ in mapping.

Esempio di Mapping senza uso dei precipizi (click per download)

In questo tutorial lascio allegato una mappa, dove si può prendere spunto per i propri paesaggi ecc… La mappa l’ho fatta diverso tempo fà, spero sia decente xD

.

.

.

.

.

.

Read the rest of this entry »

Dopo il convertitore da base 10 a X, arriva il convertitore da base Y a base X! Cioè da qualsiasi base a qualsiasi base!
Programmato da nardu! Buon uso

Programma realizzato da nico (parte del mio team ). Ha l’utilità di convertire un numero da base 10 a base X, cioè a scelta! Compreso tra 2 e 32.
Programmato in C#
nei prossimi giorni dovrebbe arrivare il convertitore da base Y a base X! Cioè da qualsiasi base a qualsiasi base!

Calcolo dell’anno bisestile.

Restituisce un valore VERO o FALSO

Ecco come fare conversioni da Dec > Bin > Dec > Hex e calcoli di radianti e gradi.

Nel programma basta usare:

Bin(Num_decimale)
BinToDec(Num_bin)
Hex(Num_decimale)
'Hex questo non è presente nel modulo, ma è già integrato in vb6.

Radians(valore_gradi)
Degrees(valore_radiante)

'Ovviamente tutti letti da una variabile o un campo..
variabile = Bin(34)

Crea un Modulo:

Option Explicit

'  Conversione da bdecimale a binario
Function Bin(ByVal value As Long) As String
    Dim result As String, exponent As Integer
    result = String$(32, "0")
    Do
        If value And Power2(exponent) Then
            Mid$(result, 32 - exponent, 1) = "1"
            value = value Xor Power2(exponent)
        End If
        exponent = exponent + 1
    Loop While value
    Bin = Mid$(result, 33 - exponent)
End Function

' Convesrione da binario a decimale.
Function BinToDec(value As String) As Long
    Dim result As Long, i As Integer, exponent As Integer
    For i = Len(value) To 1 Step -1
        Select Case Asc(Mid$(value, i, 1))
            Case 48      ' "0", niente.
            Case 49      ' "1", aggiungere la corrispondente potenza di 2
                result = result + Power2(exponent)
            Case Else
                Err.Raise 5
        End Select
        exponent = exponent + 1
    Next
    BinToDec = result
End Function

' conversione gradi > radiante.
Function Radians(Degrees As Double) As Double
    Radians = Degrees / 57.29577951
End Function

' Convertire radiante in gradi.
Function Degrees(Radians As Double) As Double
    Degrees = Radians * 57.29577951
End Function

'Private function
Private Function Power2(ByVal exponent As Long) As Long
    Static result(0 To 31) As Long, i As Integer
    If result(0) = 0 Then
        result(0) = 1
        For i = 1 To 30
            result(i) = result(i - 1) * 2
        Next
        result(31) = &H80000000
    End If
    Power2 = result(exponent)
End Function

Può essere necessarrio catturare l’immagine di schermo senze dover emulare la pressione del tasto STAMP

Chiamato con:

Set Picture1.Picture = ImmagineSchermo()

Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Private Const KEYEVENTF_KEYUP = &H2

Public Function ImmagineSchermo(Optional ActiveWindow As Boolean) As Picture
Dim Picture As StdPicture
Set Picture = Clipboard.GetData(vbCFBitmap)
If ActiveWindow Then
keybd_event vbKeyMenu, 0, 0, 0
End If
keybd_event vbKeySnapshot, 0, 0, 0
DoEvents
keybd_event vbKeySnapshot, 0, KEYEVENTF_KEYUP, 0
If ActiveWindow Then
keybd_event vbKeyMenu, 0, KEYEVENTF_KEYUP, 0
End If
Set ImmagineSchermo = Clipboard.GetData(vbCFBitmap)
Clipboard.SetData Picture, vbCFBitmap
End Function

Per centrare lo schermo:

Form1.Move(Screen.width-form1.width)\2,(screen.height-form1.height)\2

Se cè la necessità di impedire lo sostamento del form nel menù a fianco settare ‘Moveable’ su FALSE

Inserisci un modulo nel progetto e copia questo nel modulo:

Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Public Const HWND_TOPMOST = -1
Public Const HWND_NOTOPMOST = -2
Public Const SWP_NOACTIVATE = &H10
Public Const SWP_NOMOVE = &H2
Public Const SWP_NOSIZE = &H1

E questo nella form

Dim lRetVal As Long

Private Sub Form_Load()
lRetVal = SetWindowPos(Form1.hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOACTIVATE Or SWP_NOSIZE Or SWP_NOMOVE)
End Sub