[RELEASE] Switcher+ 100% DE LIKE (PY & LUA)

Page 2 of 2

02/28/2016 18:14 gerald500#16

Quote:

Originally Posted by RealReznov

item.set_attribute and item.get_attribute c++ side pls?

search for it here or on m2d*v you will definitly find it any where

02/28/2016 20:57 filipw1#17

Quote:

Originally Posted by RealReznov

item.set_attribute and item.get_attribute c++ side pls?

If you really want this switcher you can easy do it in source like normal swtiching item.

02/29/2016 01:41 Endless.#18

Nicht schlecht :D

Deine Systeme die du zurzeit machst sind einfach genial :)

Naja zum Thema Bugs.. klar muss man des ganze System erstmal ausprobieren.
Bei jedem System gab es mal welche aber jemand musste erstmal den ganzen Kram testen bevor man �berhaupt was finden kann :D Leider mangelt es mir an Zeit des System mal zu testen

Gru�

02/29/2016 20:47 xP3NG3Rx#19

This version of this system is far away from the official version.
Works, it's okay. (Maybe, I did not test it, I'm ignoring pylua systems)
- But, where is the slot locking method(not the whole inventory lock)?
- And where is the slot mark from the locked slot(the red glow)?
- Official window is not closable :).
- Unknown: When you get disconnect by the server, what happens while you are used the item already but did not accept it(On GF).

Do you know what does it mean 100% GF Like?
I do not think so. This is only a LITE, an alternative, or a similar version, but not 100% GF Like.
Sorry for my rough style, but these are the real 100% GF Like systems which are not complete yet:

Spoiler

03/01/2016 17:38 gerald500#20

Quote:

Originally Posted by xP3NG3Rx

This version of this system is far away from the official version.
Works, it's okay. (Maybe, I did not test it, I'm ignoring pylua systems)
- But, where is the slot locking method(not the whole inventory lock)?
- And where is the slot mark from the locked slot(the red glow)?
- Official window is not closable :).
- Unknown: When you get disconnect by the server, what happens while you are used the item already but did not accept it(On GF).

Do you know what does it mean 100% GF Like?
I do not think so. This is only a LITE, an alternative, or a similar version, but not 100% GF Like.
Sorry for my rough style, but these are the real 100% GF Like systems which are not complete yet:

Spoiler

[Only registered and activated users can see links. Click Here To Register...]
[Only registered and activated users can see links. Click Here To Register...]

i watched a video on how this system is on official and its the same.

and the window isnt closable the button just exist and has no function.

when you get disconnected the window ist still opend when you login again
even if the gui is not the same the function of the system is 100% de like

03/01/2016 17:42 Forcetraeger#21

Quote:

Originally Posted by xP3NG3Rx

This version of this system is far away from the official version.
Works, it's okay. (Maybe, I did not test it, I'm ignoring pylua systems)
- But, where is the slot locking method(not the whole inventory lock)?
- And where is the slot mark from the locked slot(the red glow)?
- Official window is not closable :).
- Unknown: When you get disconnect by the server, what happens while you are used the item already but did not accept it(On GF).

Do you know what does it mean 100% GF Like?
I do not think so. This is only a LITE, an alternative, or a similar version, but not 100% GF Like.
Sorry for my rough style, but these are the real 100% GF Like systems which are not complete yet:

Spoiler

[Only registered and activated users can see links. Click Here To Register...]
[Only registered and activated users can see links. Click Here To Register...]

You want rls this ?

03/03/2016 17:03 MrSoNiice#22

Sehr sch�n , Danke!

03/11/2016 17:30 JeeX#23

N1ce Release,
hab aber ein Problem damit...

Hab alles genau so eingef�gt; Clientside habe ich keinen Fehler!

Serverside habe ich das:
[Only registered and activated users can see links. Click Here To Register...]

Compilte Quest:

notarget/button

Spoiler

notarget/info

Spoiler

notarget/login

Spoiler

state

Spoiler

Code:

new_switcher={["start"]=0,getinput= function (par)cmdchat ( "getinputbegin" ) 
local ret = input ( cmdchat ( par ) ) 
cmdchat ( "getinputend" ) 
return ret 
end ,client_command= function (command_)return new_switcher . split_ ( command_ , "#" ) 
end ,item_get_wearflag= function (itemVnum)return tonumber ( mysql_query ( "SELECT wearflag FROM player.item_proto WHERE vnum='" .. itemVnum .. "';" ) . wearflag [ 1 ] ) 
end ,get_bonis= function ()local result = { } 
local bonis = io . open ( "/usr/home/game/share/locale/germany/quest/item_attr.txt" , "r" ) 
for boni in bonis : lines ( ) begin 
local value = new_switcher . split_ ( boni , "#" ) 
table . insert ( result , { value [ 1 ] , value [ 2 ] , value [ 3 ] , value [ 4 ] , value [ 5 ] , value [ 6 ] , value [ 7 ] , value [ 8 ] , value [ 9 ] , value [ 10 ] , value [ 11 ] , value [ 12 ] , value [ 13 ] , value [ 14 ] , value [ 15 ] } ) 
end 
return result 
end ,get_bonis_via_wearfleg= function (wearfleg)local bonis = { 
[ 1 ] = { } , 
[ 2 ] = { } , 
[ 4 ] = { } , 
[ 8 ] = { } , 
[ 16 ] = { } , 
[ 32 ] = { } , 
[ 64 ] = { } , 
[ 256 ] = { } , 
} 
local wearflag_lines = { [ 8 ] = 16 , [ 9 ] = 1 , [ 10 ] = 8 , [ 11 ] = 4 , [ 12 ] = 32 , [ 13 ] = 2 , [ 14 ] = 256 , [ 15 ] = 256 } 
local all_bonis = new_switcher . get_bonis ( ) 
for i = 1 , table . getn ( all_bonis ) begin 
for a = 8 , 15 begin 
if tonumber ( all_bonis [ i ] [ a ] ) == 5 or tonumber ( all_bonis [ i ] [ a ] ) == 1 then 
local value_number = apply [ tostring ( all_bonis [ i ] [ 1 ] ) ] 
table . insert ( bonis [ wearflag_lines [ a ] ] , { value_number , all_bonis [ i ] [ 3 ] , all_bonis [ i ] [ 4 ] , all_bonis [ i ] [ 5 ] , all_bonis [ i ] [ 6 ] , all_bonis [ i ] [ 7 ] } ) 
end 
end 
end 
return bonis [ tonumber ( wearfleg ) ] 
end ,get_random_bonis= function (itemVnum,attr_count,wearfleg)local result = { } 
local bonis = new_switcher . get_bonis_via_wearfleg ( wearfleg ) 
for i = 1 , attr_count begin 
local number = math . random ( 1 , table . getn ( bonis ) ) 
table . insert ( result , { bonis [ number ] [ 1 ] , bonis [ number ] [ math . random ( 2 , 6 ) ] } ) 
table . remove ( bonis , number ) 
end 
for i = 1 , table . getn ( result ) begin 
cmdchat ( string . format ( "NEWSWITCHER NEW_ATTR/%d/%d" , tonumber ( result [ i ] [ 1 ] ) , tonumber ( result [ i ] [ 2 ] ) ) ) 
pc . setqf ( string . format ( "switcher_attrtype_%s" , i - 1 ) , result [ i ] [ 1 ] ) 
pc . setqf ( string . format ( "switcher_attrvalue_%s" , i - 1 ) , result [ i ] [ 2 ] ) 
end 
cmdchat ( "NEWSWITCHER OPEN" ) 
end ,check_actual_bonis= function (cell,slot,wearflag)local attr_count = 0 
item . select_cell ( tonumber ( cell ) ) 
local itemVnum = item . get_vnum ( ) 
pc . setqf ( "itemVnum" , 0 ) 
pc . setqf ( "cell" , 0 ) 
pc . setqf ( "itemVnum" , itemVnum ) 
pc . setqf ( "cell" , tonumber ( cell ) ) 
local check_flag = new_switcher . item_get_wearflag ( itemVnum ) 
if check_flag ~= tonumber ( wearflag ) then syschat ( "Den Client zu manipulieren ist nicht erlaubt und wird bestraft!" ) return end 
local attr = { item . get_attribute ( 0 ) , item . get_attribute ( 1 ) , item . get_attribute ( 2 ) , item . get_attribute ( 3 ) , item . get_attribute ( 4 ) } 
if attr [ 1 ] [ 1 ] == 0 and attr [ 1 ] [ 2 ] == 0 then syschat ( "Du musst erst Attribute hinzuf�gen!" ) return end 
item . select_cell ( tonumber ( slot ) ) 
local switcher_vnum = item . get_vnum ( ) 
if switcher_vnum ~= 76026 then syschat ( "Den Client zu manipulieren ist nicht erlaubt und wird bestraft!" ) return end 
item . remove ( ) 
for i = 1 , table . getn ( attr ) begin 
if attr [ i ] [ 2 ] ~= 0 then 
attr_count = attr_count + 1 
cmdchat ( string . format ( "NEWSWITCHER OLD_ATTR/%d/%d/%d" , itemVnum , attr [ i ] [ 1 ] , attr [ i ] [ 2 ] ) ) 
end 
end 
new_switcher . get_random_bonis ( itemVnum , attr_count , tonumber ( wearflag ) ) 
end ,switch_boni= function (cmd,itemVnum)local attrs = { } 
local count = ( table . getn ( cmd ) - 3 ) / 2 
local cell , vnum = pc . getqf ( "cell" ) , pc . getqf ( "itemVnum" ) 
if itemVnum ~= vnum or cell ~= tonumber ( cmd [ 3 ] ) then syschat ( "Den Client zu manipulieren ist nicht erlaubt und wird bestraft!" ) return end 
for i = 1 , count begin 
table . insert ( attrs , { pc . getqf ( string . format ( "switcher_attrtype_%s" , i - 1 ) ) , pc . getqf ( string . format ( "switcher_attrvalue_%s" , i - 1 ) ) } ) 
pc . setqf ( string . format ( "switcher_attrtype_%s" , i - 1 ) , 0 ) 
pc . setqf ( string . format ( "switcher_attrvalue_%s" , i - 1 ) , 0 ) 
end 
item . select_cell ( tonumber ( cmd [ 3 ] ) ) 
for i = 1 , table . getn ( attrs ) begin 
item . set_attribute ( i - 1 , attrs [ i ] [ 1 ] , attrs [ i ] [ 2 ] ) 
end 
syschat ( "Du hast die Verbesserung ge�ndert" ) 
end ,split_= function (string_,delimiter)local result = { } 
local from = 1 
local delim_from , delim_to = string . find ( string_ , delimiter , from ) 
while delim_from begin 
table . insert ( result , string . sub ( string_ , from , delim_from - 1 ) ) 
from = delim_to + 1 
delim_from , delim_to = string . find ( string_ , delimiter , from ) 
end 
table . insert ( result , string . sub ( string_ , from ) ) 
return result 
end }

Kann mir da jemand helfen? bzw. da etwas rauslesen???

Danke!

03/11/2016 20:00 gerald500#24

Quote:

Originally Posted by JeeX

Spoiler

notarget/info

Spoiler

notarget/login

Spoiler

state

Spoiler

Code:

new_switcher={["start"]=0,getinput= function (par)cmdchat ( "getinputbegin" ) 
local ret = input ( cmdchat ( par ) ) 
cmdchat ( "getinputend" ) 
return ret 
end ,client_command= function (command_)return new_switcher . split_ ( command_ , "#" ) 
end ,item_get_wearflag= function (itemVnum)return tonumber ( mysql_query ( "SELECT wearflag FROM player.item_proto WHERE vnum='" .. itemVnum .. "';" ) . wearflag [ 1 ] ) 
end ,get_bonis= function ()local result = { } 
local bonis = io . open ( "/usr/home/game/share/locale/germany/quest/item_attr.txt" , "r" ) 
for boni in bonis : lines ( ) begin 
local value = new_switcher . split_ ( boni , "#" ) 
table . insert ( result , { value [ 1 ] , value [ 2 ] , value [ 3 ] , value [ 4 ] , value [ 5 ] , value [ 6 ] , value [ 7 ] , value [ 8 ] , value [ 9 ] , value [ 10 ] , value [ 11 ] , value [ 12 ] , value [ 13 ] , value [ 14 ] , value [ 15 ] } ) 
end 
return result 
end ,get_bonis_via_wearfleg= function (wearfleg)local bonis = { 
[ 1 ] = { } , 
[ 2 ] = { } , 
[ 4 ] = { } , 
[ 8 ] = { } , 
[ 16 ] = { } , 
[ 32 ] = { } , 
[ 64 ] = { } , 
[ 256 ] = { } , 
} 
local wearflag_lines = { [ 8 ] = 16 , [ 9 ] = 1 , [ 10 ] = 8 , [ 11 ] = 4 , [ 12 ] = 32 , [ 13 ] = 2 , [ 14 ] = 256 , [ 15 ] = 256 } 
local all_bonis = new_switcher . get_bonis ( ) 
for i = 1 , table . getn ( all_bonis ) begin 
for a = 8 , 15 begin 
if tonumber ( all_bonis [ i ] [ a ] ) == 5 or tonumber ( all_bonis [ i ] [ a ] ) == 1 then 
local value_number = apply [ tostring ( all_bonis [ i ] [ 1 ] ) ] 
table . insert ( bonis [ wearflag_lines [ a ] ] , { value_number , all_bonis [ i ] [ 3 ] , all_bonis [ i ] [ 4 ] , all_bonis [ i ] [ 5 ] , all_bonis [ i ] [ 6 ] , all_bonis [ i ] [ 7 ] } ) 
end 
end 
end 
return bonis [ tonumber ( wearfleg ) ] 
end ,get_random_bonis= function (itemVnum,attr_count,wearfleg)local result = { } 
local bonis = new_switcher . get_bonis_via_wearfleg ( wearfleg ) 
for i = 1 , attr_count begin 
local number = math . random ( 1 , table . getn ( bonis ) ) 
table . insert ( result , { bonis [ number ] [ 1 ] , bonis [ number ] [ math . random ( 2 , 6 ) ] } ) 
table . remove ( bonis , number ) 
end 
for i = 1 , table . getn ( result ) begin 
cmdchat ( string . format ( "NEWSWITCHER NEW_ATTR/%d/%d" , tonumber ( result [ i ] [ 1 ] ) , tonumber ( result [ i ] [ 2 ] ) ) ) 
pc . setqf ( string . format ( "switcher_attrtype_%s" , i - 1 ) , result [ i ] [ 1 ] ) 
pc . setqf ( string . format ( "switcher_attrvalue_%s" , i - 1 ) , result [ i ] [ 2 ] ) 
end 
cmdchat ( "NEWSWITCHER OPEN" ) 
end ,check_actual_bonis= function (cell,slot,wearflag)local attr_count = 0 
item . select_cell ( tonumber ( cell ) ) 
local itemVnum = item . get_vnum ( ) 
pc . setqf ( "itemVnum" , 0 ) 
pc . setqf ( "cell" , 0 ) 
pc . setqf ( "itemVnum" , itemVnum ) 
pc . setqf ( "cell" , tonumber ( cell ) ) 
local check_flag = new_switcher . item_get_wearflag ( itemVnum ) 
if check_flag ~= tonumber ( wearflag ) then syschat ( "Den Client zu manipulieren ist nicht erlaubt und wird bestraft!" ) return end 
local attr = { item . get_attribute ( 0 ) , item . get_attribute ( 1 ) , item . get_attribute ( 2 ) , item . get_attribute ( 3 ) , item . get_attribute ( 4 ) } 
if attr [ 1 ] [ 1 ] == 0 and attr [ 1 ] [ 2 ] == 0 then syschat ( "Du musst erst Attribute hinzuf�gen!" ) return end 
item . select_cell ( tonumber ( slot ) ) 
local switcher_vnum = item . get_vnum ( ) 
if switcher_vnum ~= 76026 then syschat ( "Den Client zu manipulieren ist nicht erlaubt und wird bestraft!" ) return end 
item . remove ( ) 
for i = 1 , table . getn ( attr ) begin 
if attr [ i ] [ 2 ] ~= 0 then 
attr_count = attr_count + 1 
cmdchat ( string . format ( "NEWSWITCHER OLD_ATTR/%d/%d/%d" , itemVnum , attr [ i ] [ 1 ] , attr [ i ] [ 2 ] ) ) 
end 
end 
new_switcher . get_random_bonis ( itemVnum , attr_count , tonumber ( wearflag ) ) 
end ,switch_boni= function (cmd,itemVnum)local attrs = { } 
local count = ( table . getn ( cmd ) - 3 ) / 2 
local cell , vnum = pc . getqf ( "cell" ) , pc . getqf ( "itemVnum" ) 
if itemVnum ~= vnum or cell ~= tonumber ( cmd [ 3 ] ) then syschat ( "Den Client zu manipulieren ist nicht erlaubt und wird bestraft!" ) return end 
for i = 1 , count begin 
table . insert ( attrs , { pc . getqf ( string . format ( "switcher_attrtype_%s" , i - 1 ) ) , pc . getqf ( string . format ( "switcher_attrvalue_%s" , i - 1 ) ) } ) 
pc . setqf ( string . format ( "switcher_attrtype_%s" , i - 1 ) , 0 ) 
pc . setqf ( string . format ( "switcher_attrvalue_%s" , i - 1 ) , 0 ) 
end 
item . select_cell ( tonumber ( cmd [ 3 ] ) ) 
for i = 1 , table . getn ( attrs ) begin 
item . set_attribute ( i - 1 , attrs [ i ] [ 1 ] , attrs [ i ] [ 2 ] ) 
end 
syschat ( "Du hast die Verbesserung ge�ndert" ) 
end ,split_= function (string_,delimiter)local result = { } 
local from = 1 
local delim_from , delim_to = string . find ( string_ , delimiter , from ) 
while delim_from begin 
table . insert ( result , string . sub ( string_ , from , delim_from - 1 ) ) 
from = delim_to + 1 
delim_from , delim_to = string . find ( string_ , delimiter , from ) 
end 
table . insert ( result , string . sub ( string_ , from ) ) 
return result 
end }

Kann mir da jemand helfen? bzw. da etwas rauslesen???

Danke!

sieht so aus als h�tteast du die item.get_attribute funktion nicht, genau so wie die item.set_attribute.

wenn du die 34k game benutzt gibts ne lib von imer

bei einer 40k musst du dich informieren wie die funktion bei deiner game hei�t und ob sie �berhaupt existiert. ansonsten musst du sie im source adden

03/11/2016 22:45 Shaytan #25

Danke f�r das release eher was f�r Oldschools.

Lg

03/12/2016 08:22 RealReznov#26

Quote:

Originally Posted by gerald500

search for it here or on m2d*v you will definitly find it any where

No, it's not public on any other forum :(

03/12/2016 14:35 *~*TeacheR*~*#27

Quote:

Originally Posted by RealReznov

No, it's not public on any other forum :(

PHP Code:


			
int item_get_attribute(lua_State* L)

{

    LPCHARACTER ch = CQuestManager::instance().GetCurrentCharacterPtr();

    LPITEM item = CQuestManager::instance().GetCurrentItem();



    if (!item)

    {

        lua_pushnumber(L, 0);

        return 1;

    }



    if (!lua_isnumber(L, 1))

    {

        sys_err("[%s] Wrong argument in item_get_attribute, need a number from range(0..%d)!", ch->GetName(), ITEM_ATTRIBUTE_MAX_NUM-2);

        lua_pushnumber(L, 0);

        return 1;

    }



    int iAttrIndex = (int)lua_tonumber(L, 1);

    if (iAttrIndex < 0 || iAttrIndex >= ITEM_ATTRIBUTE_MAX_NUM-2)

    {

        sys_err("[%s]: Invalid index %d in item_get_attribute. Index out of range(0..%d)", ch->GetName(), iAttrIndex, ITEM_ATTRIBUTE_MAX_NUM-2);

        lua_pushboolean(L, false);

        return 1;

    }



    const TPlayerItemAttribute& AttrItem = item->GetAttribute(iAttrIndex);



    lua_newtable(L);



    lua_pushnumber(L, AttrItem[i].bType);

    lua_rawseti(L, -2, 1);



    lua_pushnumber(L, AttrItem[i].sValue);

    lua_rawseti(L, -2, 2);

    return 1;

}



//0x0E

int item_set_attribute(lua_State* L)

{

    LPCHARACTER ch = CQuestManager::instance().GetCurrentCharacterPtr();

    LPITEM item = CQuestManager::instance().GetCurrentItem();



    if (!item)

    {

        lua_pushboolean(L, false);

        return 1;

    }



    if (!lua_isnumber(L, 1))

    {

        sys_err("[%s] Wrong argument[AttrIdx] in item_set_attribute, not number!", ch->GetName());

        lua_pushboolean(L, false);

        return 1;

    }

    else if (!lua_isnumber(L, 2))

    {

        sys_err("[%s] Wrong argument[AttrType] in item_set_attribute, not number!", ch->GetName());

        lua_pushboolean(L, false);

        return 1;

    }

    else if (!lua_isnumber(L, 3))

    {

        sys_err("[%s] Wrong argument[AttrValue] in item_set_attribute, not number!", ch->GetName());

        lua_pushboolean(L, false);

        return 1;

    }

    



    int bAttrIndex = (int)lua_tonumber(L, 1);

    if (bAttrIndex < 0 || bAttrIndex >= ITEM_ATTRIBUTE_MAX_NUM-2)

    {

        sys_err("[%s]: Invalid index %d in item_set_attribute. Index out of range(0..%d)", ch->GetName(), bAttrIndex, ITEM_ATTRIBUTE_MAX_NUM-2);

        lua_pushboolean(L, false);

        return 1;

    }



    int bAttrType = (int)lua_tonumber(L, 2);

    if (bAttrType < 1 || bAttrType >= MAX_APPLY_NUM)

    {

        sys_err("[%s]: Invalid apply %d in item_set_attribute. Apply out of range(1..%d)", ch->GetName(), MAX_APPLY_NUM);

        lua_pushboolean(L, false);

        return 1;

    }



    if (item->HasAttr(bAttrType))

    {

        sys_err("[%s]: Apply %d muliplicated in item_set_attribute.", ch->GetName(), bAttrType);

        lua_pushboolean(L, false);

        return 1;

    }



    int bAttrValue = (int)lua_tonumber(L, 3);

    if (bAttrValue < 1 || bAttrValue >= 32767)

    {

        sys_err("[%s]: Invalid value %d in item_set_attribute. The value should be between 1 and 32767!", ch->GetName(), bAttrValue);

        lua_pushboolean(L, false);

        return 1;

    }



    int bAttrCount = item->GetAttributeCount();

    //normal bonuses 1-5

    if (bAttrCount < 5 && bAttrCount >= 0)

    {

        item->SetAttribute(bAttrIndex, bAttrType, bAttrValue);

        lua_pushboolean(L, true);

    }

    else

        lua_pushboolean(L, false);



    return 1;

}

[Only registered and activated users can see links. Click Here To Register...]

03/14/2016 17:53 RealReznov#28

Thanks :D Now i'm going to try this system

Edit: Little client side bug: I must to move 2x to the item, to open the window.
Help :D

Page 2 of 2