Kame Hame Ha

por marccvz Ter 17 Abr 2012, 13:27

Kame Hame Haaaaaaaaaaaaaa ^^

Kame Hame Ha D4f4785a7f44c2a58824

Vamos Comesar

Em 'Sub OnNewChar'

Código:: Call PutVar("Scripts/FlechasEspeciales.ini", "" &GetPlayerName(Index), "KameHameHa", "0")

Depois Em Sub LeftGame Antes do End Sub

Código:: If GetVar("Scripts/FlechasEspeciales.ini", "" &GetPlayerName(Index), "KameHameHa") = 1 Then Call KHHFIN(Index) End If

No Final do Main

Código:: Sub KameHameHa(Index) If GetVar("Scripts/FlechasEspeciales.ini", "" &GetPlayerName(Index), "KameHameHa") = 0 Then Call PutVar("Scripts/FlechasEspeciales.ini", "" &GetPlayerName(Index), "KameHameHa", "1") Call LockPlayer(Index, 1) Call LockAttack(Index, 1) Call FireArrow(Index, 1, GetPlayerDIR(Index)) Call SetTimer(" KHH1 " & Index, (1*7)) Call PlayerMSG(Index, "Kame Hame Ha!", WHITE) Else Call PlayerMSG(Index, "No puedes tirar dos Kame Hame Ha al mismo tiempo!", Brightred) End If End Sub Sub KHH1(Index) Call RemoveTimer(" KHH1 " & Index) Call SetTimer(" KHH11 " & Index, (1*37)) Call FireArrow(Index, 2, GetPlayerDIR(Index)) End Sub Sub KHH11(Index) Call RemoveTimer(" KHH11 " & Index) Call SetTimer(" KHH111 " & Index, (1*37)) Call FireArrow(Index, 2, GetPlayerDIR(Index)) End Sub Sub KHH111(Index) Call RemoveTimer(" KHH111 " & Index) Call SetTimer(" KHH1111 " & Index, (1*37)) Call FireArrow(Index, 2, GetPlayerDIR(Index)) End Sub Sub KHH1111(Index) Call RemoveTimer(" KHH1111 " & Index) Call SetTimer(" KHH11111 " & Index, (1*37)) Call FireArrow(Index, 2, GetPlayerDIR(Index)) End Sub Sub KHH11111(Index) Call RemoveTimer(" KHH11111 " & Index) Call SetTimer(" KHH111111 " & Index, (1*37)) Call FireArrow(Index, 2, GetPlayerDIR(Index)) End Sub Sub KHH111111(Index) Call RemoveTimer(" KHH111111 " & Index) Call SetTimer(" KHH1111111 " & Index, (1*37)) Call FireArrow(Index, 2, GetPlayerDIR(Index)) End Sub Sub KHH1111111(Index) Call RemoveTimer(" KHH1111111 " & Index) Call SetTimer(" KHH11111111 " & Index, (1*37)) Call FireArrow(Index, 2, GetPlayerDIR(Index)) End Sub Sub KHH11111111(Index) Call RemoveTimer(" KHH11111111 " & Index) Call SetTimer(" KHH2 " & Index, (1*37)) Call FireArrow(Index, 2, GetPlayerDIR(Index)) End Sub Sub KHH2(Index) Call RemoveTimer(" KHH2 " & Index) Call SetTimer(" KHH3 " & Index, (1*37)) Call FireArrow(Index, 2, GetPlayerDIR(Index)) End Sub Sub KHH3(Index) Call RemoveTimer(" KHH3 " & Index) Call SetTimer(" KHH4 " & Index, (1*37)) Call FireArrow(Index, 2, GetPlayerDIR(Index)) End Sub Sub KHH4(Index) Call RemoveTimer(" KHH4 " & Index) Call SetTimer(" KHH5 " & Index, (1*37)) Call FireArrow(Index, 2, GetPlayerDIR(Index)) End Sub Sub KHH5(Index) Call RemoveTimer(" KHH5 " & Index) Call SetTimer(" KHH6 " & Index, (1*37)) Call FireArrow(Index, 2, GetPlayerDIR(Index)) End Sub Sub KHH6(Index) Call RemoveTimer(" KHH6 " & Index) Call SetTimer(" KHH7 " & Index, (1*37)) Call FireArrow(Index, 2, GetPlayerDIR(Index)) End Sub Sub KHH7(Index) Call RemoveTimer(" KHH7 " & Index) Call SetTimer(" KHH8 " & Index, (1*37)) Call FireArrow(Index, 3, GetPlayerDIR(Index)) End Sub Sub KHH8(Index) Call RemoveTimer(" KHH8 " & Index) Call SetTimer(" KHH9 " & Index, (1*37)) Call FireArrow(Index, 4, GetPlayerDIR(Index)) End Sub Sub KHH9(Index) Call RemoveTimer(" KHH9 " & Index) Call SetTimer(" KHH10 " & Index, (1*37)) Call FireArrow(Index, 5, GetPlayerDIR(Index)) End Sub Sub KHH10(Index) Call RemoveTimer(" KHH10 " & Index) Call SetTimer(" KHHFIN " & Index, (1*37)) Call FireArrow(Index, 6, GetPlayerDIR(Index)) End Sub Sub KHHFIN(Index) Call PutVar("Scripts/FlechasEspeciales.ini", "" &GetPlayerName(Index), "KameHameHa", "0") Call LockPlayer(Index, 0) Call LockAttack(Index, 0) Call RemoveTimer(" KHHFIN " & Index) End Sub

Editado por OmegaZero.

finalmente, eles têm que criar 6 tipos de flechas que o primeiro será a primeira seta na foto acima, a segunda será a segunda será a segunda seta acima, eo terceiro, blá, blá, blá, ect. ect. ect. e assim por diante até os 6 setas criados (Cada seta deve ir de 1 a 6 do editor de flechas, a menos que você queira editar o script e adaptá-lo para que ele possa ser usado em outras setas caça-níqueis em vez de um 1 a 6) SCRIPT ASI SE Uma vez instalado Saudações, mais scripts em breve.